serchdjmx.pas

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

unit SERCHDJMX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
  dxDBGrid, DB;

type
  TFRMSERCHDJMX = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel2: TPanel;
    EdKHM: TEdit;
    EdJSHM: TEdit;
    CDJLX: TComboBox;
    CLYR: TComboBox;
    CDD: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    dxDBGrid1: TdxDBGrid;
    DScx: TDataSource;
    dxDBGrid1Column1: TdxDBGridColumn;
    dxDBGrid1Column2: TdxDBGridColumn;
    dxDBGrid1Column3: TdxDBGridColumn;
    dxDBGrid1Column4: TdxDBGridColumn;
    dxDBGrid1Column5: TdxDBGridColumn;
    dxDBGrid1Column6: TdxDBGridColumn;
    dxDBGrid1Column7: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure EdKHMKeyPress(Sender: TObject; var Key: Char);
    procedure EdJSHMKeyPress(Sender: TObject; var Key: Char);
    procedure EdKHMKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure EdJSHMKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CDJLXKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CLYRKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRMSERCHDJMX: TFRMSERCHDJMX;

implementation
uses UDM;
{$R *.dfm}

procedure TFRMSERCHDJMX.FormShow(Sender: TObject);
begin
  EDKHM.Text:='';
  EdJSHM.Text:='';
  CDJLX.Text:='';
  CLYR.Text:='';
  CDD.Text:='';
  dm.ADOcx.Open;
  WITH DM.ADOcx DO
  BEGIN
    Close;
    SQL.Clear;
    SQL.Add('select * from lydj_ls');
    Prepared;
    Open;
  end;

 with dm.qryperson do
  begin
    close;
    sql.Clear;
    sql.Add('select * from person');
    prepared;
    open;
  end;
   CLYR.Items.Clear;
  while not dm.qryperson.Eof do
  begin
    CLYR.Items.Append(dm.qryperson.fieldbyname('pername').AsString);
    dm.qryperson.Next;
  end;

  with dm.qrydjlx do
  begin
    close;
    sql.Clear;
    sql.Add('select * from typeunit');
    prepared;
    open;
  end;
  CDJLX.Items.Clear;
  while not dm.qrydjlx.Eof do
  begin
    CDJLX.Items.Append(dm.qrydjlx.fieldbyname('typename').AsString);
    dm.qrydjlx.Next;
  end;

  with dm.qrytemp do
  begin
    close;
    sql.Clear;
    sql.Add('select * from ly_place');
    prepared;
    open;
  end;
  CDD.Items.Clear;
  while not dm.qrytemp.Eof do
  begin
    CDD.Items.Append(dm.qrytemp.Fields[2].asstring);
    dm.qrytemp.Next;
  end;
end;

procedure TFRMSERCHDJMX.BitBtn2Click(Sender: TObject);
begin
  CLOSE;

end;

procedure TFRMSERCHDJMX.EdKHMKeyPress(Sender: TObject; var Key: Char);
begin
 IF not (Key in ['0'..'9',#8])  THEN
 KEY:=#0;
end;

procedure TFRMSERCHDJMX.EdJSHMKeyPress(Sender: TObject; var Key: Char);
begin
 IF not (Key in ['0'..'9',#8])  THEN
 KEY:=#0;

end;

procedure TFRMSERCHDJMX.EdKHMKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   IF Key=$0D THEN
  EdJSHM.SetFocus;
end;

procedure TFRMSERCHDJMX.EdJSHMKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   IF Key=$0D THEN
CDJLX.SetFocus;
end;

procedure TFRMSERCHDJMX.CDJLXKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    IF Key=$0D THEN
 CLYR.SetFocus;
end;

procedure TFRMSERCHDJMX.CLYRKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   IF Key=$0D THEN
CDD.SetFocus;
end;

procedure TFRMSERCHDJMX.BitBtn1Click(Sender: TObject);
begin
  if dm.ADOcx.RecordCount>0 then
  begin
    with dm.ADOcx do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from lydj_ls');
      SQL.Add('where numbers like :k');
      Parameters.ParamByName('k').Value:='%'+EdKHM.Text+'%';
      if EdJSHM.Text<>'' then
      begin
       SQL.Add('and numberto like :j');
       Parameters.ParamByName('j').Value:='%'+EdJSHM.Text+'%';
      end;
      if CDJLX.Text<>'' then
      begin
        SQL.Add('and numbertype like :type');
        Parameters.ParamByName('type').Value:='%'+CDJLX.Text+'%'
      end;
      if CLYR.Text<>'' then
      begin
        SQL.Add('and lyperson like :r');
        Parameters.ParamByName('r').Value:='%'+CLYR.Text+'%'
      end;
      if CDD.Text<>'' then
      begin
        SQL.Add('and lydjplace like :d');
        Parameters.ParamByName('d').Value:='%'+CDD.Text+'%'
      end;
      Prepared;
      Open;
    end;
  end
  else
  begin
    MessageBox(Handle,'没有客查询的数据','系统提示',MB_OK+MB_OKCANCEL);
    Exit;
  end;

end;

procedure TFRMSERCHDJMX.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DM.ADOcx.Close;
end;

end.