inputsrch.pas

西京票据管理系统刚刚获得

unit inputsrch;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, Buttons;

type
  Tfrminputsrch = class(TForm)
    pnl1: TPanel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    dtp1: TDateTimePicker;
    cbb1: TComboBox;
    pnl2: TPanel;
    btn2: TBitBtn;
    btn1: TBitBtn;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    cbb2: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
    procedure edt1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edt2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edt3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure dtp1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frminputsrch: Tfrminputsrch;

implementation
uses UDM;

{$R *.dfm}

procedure Tfrminputsrch.FormShow(Sender: TObject);
begin
  dtp1.Date:=date;
  edt1.Text:='';
  edt2.Text:='';
  edt3.Text:='';
  cbb1.Text:='';
  cbb2.Text:='';
  with dm.qryperson do
  begin
    close;
    sql.Clear;
    sql.Add('select * from person');
    prepared;
    open;
  end;
  cbb1.Items.Clear;
  while not dm.qryperson.Eof do
  begin
    cbb1.Items.Append(dm.qryperson.fieldbyname('pername').AsString);
    dm.qryperson.Next;
  end;
  with dm.qrytemp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from ly_place');
    prepared;
    open;
  end;
  cbb2.Items.Clear;
  while not dm.qrytemp.Eof do
  begin
    cbb2.Items.Append(dm.qrytemp.Fields[2].asstring);
    dm.qrytemp.Next;
  end;
end;

procedure Tfrminputsrch.btn2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrminputsrch.btn1Click(Sender: TObject);
begin
   with dm.qryserch do
   begin
     close;
     sql.Clear;
     sql.Add('select * from libnumber');
     sql.Add('where numberid=:numberid or numberid>=:knumberid and numberid<=:jnumberid or djdate=:djdate or lypername=:lypername or libnumberplace=:libnumberplace');
     parameters.ParamByName('numberid').Value:=trim(edt1.Text);
     parameters.ParamByName('knumberid').Value:=trim(edt2.Text);
     parameters.ParamByName('jnumberid').Value:=trim(edt3.Text);
     parameters.ParamByName('djdate').Value:=dtp1.Date;
     parameters.ParamByName('lypername').Value:=cbb1.Text;
     parameters.ParamByName('libnumberplace').Value:=cbb2.Text;
     try
       open;
       except
       messagebox(handle,'查询数据失败!','系统提示',mb_iconinformation+mb_ok);
       exit;
     end;
   end;
   dm.qryserch.Close;
   dm.qryserch.Open;
end;

procedure Tfrminputsrch.edt1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 IF KEY=$0D THEN
 EDT2.SetFocus;
end;

procedure Tfrminputsrch.edt2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF KEY=$0D THEN
  EDT3.SetFocus;
end;

procedure Tfrminputsrch.edt3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  IF KEY=$0D THEN
  DTP1.SetFocus;
end;

procedure Tfrminputsrch.dtp1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   IF KEY=$0D THEN
   CBB1.SetFocus;
end;

end.