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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils;

type
  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    edt1: TEdit;
    grp1: TGroupBox;
    rb1: TRadioButton;
    rb2: TRadioButton;
    btn1: TButton;
    btn2: TButton;
    lst1: TListBox;
    btn3: TButton;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
      s1,y,i:string;
  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;
begin
  if (edt1.Text='' )then
  begin
    MessageBox(Handle,'请输入查询条','错误信息',MB_ICONERROR);
  end
  else
  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';
      begin
        case x of
          0:
          begin
            case i of
              0:
              if (rb1.Enabled=false) and (rb2.Enabled=false) then
              begin
                if (lst1.Items.Count<=0) then
                begin
                  Items.Add('('+Trim(y +'.'+rightstr(ComboBox1.Text,5)) +'='+QuotedStr(Trim(edt1.Text))+')');
                  rb1.Enabled:=true;
                  rb2.Enabled:=true;
                end;
              end
              else
              begin
                if (lst1.Items.Count>=1) then
                begin
                  if rb1.Checked then
                  begin
                    s1:='('+ Trim(y +'.'+rightstr(ComboBox1.Text,5))+'='+QuotedStr(Trim(edt1.Text))+')';
                    Items.Add(rb1.Caption+s1);
                  end;
                  if rb2.Checked then
                  begin
                    s1:='('+ Trim(y +'.'+rightstr(ComboBox1.Text,5))+'='+QuotedStr(Trim(edt1.Text))+')';
                    Items.Add(rb2.Caption+s1);
                  end;
                end;
              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;
  end;
end;

procedure TForm1.btn3Click(Sender: TObject);
var
  i:Integer;
  list:TStrings;
  sqlstr:string;
begin
  if (edt1.Text='' )then
  begin
    MessageBox(Handle,'请输入查询条件在看语','错误信息',MB_ICONERROR);
  end else
  begin
    with lst1 do
    begin
      list:=TStringList.Create;
      sqlstr:=' select * from test where ';
      try
        list.Text:=StringReplace(lst1.Items.CommaText,',',' ',[rfReplaceAll]);
        ShowMessage(sqlstr +list.Text);
      finally
        list.Free;
      end;
    end;
  end;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  lst1.Items.Clear;
  rb1.Enabled:=false;
  rb2.Enabled:=false;
end;

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

procedure TForm1.FormShow(Sender: TObject);
begin
  ComboBox1.ItemIndex:=0;
  ComboBox2.ItemIndex:=0;
  rb1.Enabled:=false;
  rb2.Enabled:=false;
end;

end.

📱 扫码关注公众号

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