ucx.pas

工廠採購管理系統

unit ucx;

interface

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

type
  Tfrmcx = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    comxm1: TComboBox;
    comtj1: TComboBox;
    editz1: TEdit;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    comxm2: TComboBox;
    comtj2: TComboBox;
    Button1: TButton;
    Button2: TButton;
    editz2: TEdit;
    adocx: TADOQuery;
    RadioButton3: TRadioButton;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmcx: Tfrmcx;

implementation
uses uconst;
{$R *.dfm}

procedure Tfrmcx.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tfrmcx.FormCreate(Sender: TObject);
begin
comxm1.Items.Clear;
comxm2.Items.Clear;
comtj1.Items.Clear;
comtj2.Items.Clear;
comtj1.Items.Add('=');
comtj1.Items.Add('>');
comtj1.Items.Add('<');
comtj1.Items.Add('like');
comtj2.Items.Add('=');
comtj2.Items.Add('>');
comtj2.Items.Add('<');
comtj2.Items.Add('like');
end;

procedure Tfrmcx.Button1Click(Sender: TObject);

begin
if (comxm1.text='') or (comtj1.text='') then begin
messagebox(handle,'查询项目不完整','警告',mb_ok+mb_iconwarning);
exit;
end;
strcx:='';
if trim(comtj1.Text)='like' then
   begin
      strcx:=trim(comxm1.Text) +' like ' + ''''+'%'+trim(editz1.Text)+ '%'+'''';
   end else begin
     strcx:=trim(comxm1.Text) + trim(comtj1.Text) + ''''+trim(editz1.Text)+'''';
   end;
if RadioButton1.Checked then begin
if trim(comtj2.Text)='like' then begin
strcx:=strcx+' and '+trim(comxm2.Text) +' like ' + ''''+'%'+trim(editz2.Text)+ '%'+'''';
end else begin
strcx:=strcx+' and '+trim(comxm2.Text)+trim(comtj2.Text) +''''+ trim(editz2.Text)+'''';
end;
end;
if RadioButton2.Checked then begin
if trim(comtj2.Text)='like' then begin
strcx:=strcx+' or '+trim(comxm2.Text) + ' like ' + ''''+'%'+trim(editz2.Text)+ '%'+'''';
end else begin
strcx:=strcx+' or '+trim(comxm2.Text) + trim(comtj2.Text) +''''+ trim(editz2.Text)+'''';
end;
end;
adocx.Filtered:=true;
adocx.Recordset.Filter:=strcx;
close;

end;

procedure Tfrmcx.FormShow(Sender: TObject);
var
i:integer;
begin
comxm1.Items.Clear;
comxm2.Items.Clear;
for i:=0 to adocx.Recordset.Fields.Count-1 do begin
comxm1.Items.Add(adocx.Recordset.Fields[i].name);
comxm2.Items.Add(adocx.Recordset.Fields[i].name);
next;
end;

end;

end.