Delphi 练习1 制作易飞高级查询窗口(1)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils, Vcl.RibbonLunaStyleActnCtrls, Vcl.Ribbon,
  Vcl.ScreenTips;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    edt1: TEdit;
    grp1: TGroupBox;
    rb1: TRadioButton;
    rb2: TRadioButton;
    btn1: TButton;
    btn2: TButton;
    lst1: TListBox;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lst1DblClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
//---------------------------------------------笔记
//等于         ='(Trim(edt1.Text) '
//大于等于     >='(Trim(edt1.Text) '
//小于等于     <='(Trim(edt1.Text) '
//大于         >'(Trim(edt1.Text) '
//小于         <'(Trim(edt1.Text) '
//不等       <> '(Trim(edt1.Text) '
//起始       '(Trim(edt1.Text) + '%''
//终止       ''%'+ (Trim(edt1.Text)'
//包含         ''%' + (Trim(edt1.Text) +  '%''
//--------------------------------------------笔记

procedure TForm1.btn2Click(Sender: TObject);
var
  x,i:integer;
  y:string;
  begin
  // lst1.Items.Add(Trim(ComboBox1.Items[ComboBox1.ItemIndex]) + Trim(ComboBox2.Items[ComboBox2.ItemIndex]) + Trim(edt1.Text));
      with lst1 do
    begin
      x:=ComboBox1.ItemIndex;
      i:=ComboBox2.ItemIndex;
      y:='DSCMA';
      case x of
        0:
        begin
          case i of
            0:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' = '+QuotedStr(Trim(edt1.Text))+' )');end;
            1:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' >= '+QuotedStr(Trim(edt1.Text))+' )');end;
            2:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' <= '+QuotedStr(Trim(edt1.Text))+' )');end;
            3:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' > '+QuotedStr(Trim(edt1.Text))+' )');end;
            4:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' < '+QuotedStr(Trim(edt1.Text))+' )');end;
            5:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' <> '+QuotedStr(Trim(edt1.Text))+' )');end;
            6:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' like '+QuotedStr(Trim(edt1.Text+'%'))+' )');end;
            7:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' like '+QuotedStr(Trim('%'+edt1.Text))+' )');end;
            8:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' like '+QuotedStr(Trim('%'+edt1.Text+'%'))+' )');end;
          end;
        end;
        1:
        begin
          case i of
            0:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' = '+QuotedStr(Trim(edt1.Text))+' )');end;
            1:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' >= '+QuotedStr(Trim(edt1.Text))+' )');end;
            2:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' <= '+QuotedStr(Trim(edt1.Text))+' )');end;
            3:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' > '+QuotedStr(Trim(edt1.Text))+' )');end;
            4:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' < '+QuotedStr(Trim(edt1.Text))+' )');end;
            5:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' <> '+QuotedStr(Trim(edt1.Text))+' )');end;
            6:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' like '+QuotedStr(Trim(edt1.Text+'%'))+' )');end;
            7:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' like '+QuotedStr(Trim('%'+edt1.Text))+' )');end;
            8:begin Items.Add(Trim('( ' + y +'.'+rightstr(ComboBox1.Text,5))+' like '+QuotedStr(Trim('%'+edt1.Text+'%'))+' )');end;
          end;
        end;
      end;
    end;
  end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  lst1.Items.Clear;//删除所有行
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  form1.Caption:='易飞demo';
end;

procedure TForm1.lst1DblClick(Sender: TObject);
begin
  lst1.Items.Delete(lst1.ItemIndex);//双击删除
end;

end.

📱 扫码关注公众号

扫描二维码关注我们，获取更多精彩内容
实时更新 · 干货满满