uqueryinput.pas

港口货物管理系统

unit uqueryinput;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, ExtCtrls, Grids, ValEdit, Buttons, Mask,
  ComCtrls;

type
  Tfmqueryinput = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    GroupBox3: TGroupBox;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmqueryinput: Tfmqueryinput;

implementation

uses Uqueryjg, ulogin;

{$R *.dfm}

procedure Tfmqueryinput.BitBtn1Click(Sender: TObject);
var querystr1,querystr2:string;
    querystr:variant;
begin
case combobox1.ItemIndex  of
0: querystr1:='ddate';
1: querystr1:='atnum';
2: querystr1:='agoodd';
3: querystr1:='agname';
4: querystr1:='aspot';
5: querystr1:='auser';
6: querystr1:='atname';
7: querystr1:='aqd';
end;
if combobox2.ItemIndex=0 then querystr2:='='
else querystr2:='<>';
if combobox1.ItemIndex=0 then querystr:=formatdatetime('yyyy-mm-dd',datetimepicker1.Date)
else querystr:=trim(edit1.Text);
application.CreateForm(Tfmqueryjg,fmqueryjg);
fmqueryjg.query1.close;
fmqueryjg.query1.sql.clear;
fmqueryjg.query1.sql.add('select * from mimport where '+querystr1+querystr2+''''+querystr+'''');
fmqueryjg.query1.sql.add(' order by ddate,atnum');
fmqueryjg.query1.open;
fmqueryjg.show;
end;

procedure Tfmqueryinput.FormActivate(Sender: TObject);
begin
datetimepicker1.Date:=date();
edit1.Text:='';
end;

procedure Tfmqueryinput.BitBtn2Click(Sender: TObject);
begin
fmqueryinput.Close;
end;

procedure Tfmqueryinput.ComboBox1Change(Sender: TObject);

begin
if combobox1.ItemIndex=0 then
begin
datetimepicker1.Visible:=true;
edit1.Visible:=false;
end
else
begin
datetimepicker1.Visible:=false;
edit1.Visible:=true;
end;
end;

procedure Tfmqueryinput.FormCreate(Sender: TObject);
begin
application.OnMessage:=fmlogin.doenterastab;
end;

end.