uqueryoutput.pas

港口货物管理系统

unit Uqueryoutput;

interface

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

type
  Tfmqueryoutput = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    GroupBox1: 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
  fmqueryoutput: Tfmqueryoutput;

implementation

uses Uqueryjgout, ulogin;

{$R *.dfm}

procedure Tfmqueryoutput.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:='adir';
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(Tfmqueryjgout,fmqueryjgout);
fmqueryjgout.query1.close;
fmqueryjgout.query1.sql.clear;
fmqueryjgout.query1.sql.add('select * from mexport where '+querystr1+querystr2+''''+querystr+'''');
fmqueryjgout.query1.sql.add(' order by ddate,atnum');
fmqueryjgout.query1.open;
fmqueryjgout.show;
end;

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

procedure Tfmqueryoutput.BitBtn2Click(Sender: TObject);
begin
fmqueryoutput.Close;
end;

procedure Tfmqueryoutput.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;
edit1.SetFocus;
end;
edit1.Text:='';
end;

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

end.