unit1.pas

delphi2007开发的汽车配件进销存系统.实用级的源码.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, cxLookAndFeelPainters, StdCtrls, cxButtons, cxTextEdit,
  GridsEh, DBGridEh, cxLabel, cxDBEdit, cxNavigator, cxDBNavigator, cxContainer,
  cxEdit, cxGroupBox, cxPC, cxControls,ADODB,DB, cxMaskEdit, cxDropDownEdit,
  cxCalendar, cxMemo;

type
  TForm1 = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxGroupBox1: TcxGroupBox;
    cxDBNavigator1: TcxDBNavigator;
    cxDBTextEdit1: TcxDBTextEdit;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit7: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    cxLabel7: TcxLabel;
    cxDBTextEdit8: TcxDBTextEdit;
    cxLabel8: TcxLabel;
    cxDBTextEdit9: TcxDBTextEdit;
    cxLabel9: TcxLabel;
    cxDBTextEdit10: TcxDBTextEdit;
    cxGroupBox2: TcxGroupBox;
    DBGridEh1: TDBGridEh;
    cxTextEdit1: TcxTextEdit;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    cxLabel10: TcxLabel;
    cxDBTextEdit11: TcxDBTextEdit;
    cxLabel11: TcxLabel;
    cxDBTextEdit12: TcxDBTextEdit;
    cxLabel12: TcxLabel;
    cxDBTextEdit13: TcxDBTextEdit;
    cxLabel13: TcxLabel;
    cxLabel14: TcxLabel;
    cxLabel15: TcxLabel;
    cxLabel16: TcxLabel;
    cxLabel17: TcxLabel;
    cxDBMemo1: TcxDBMemo;
    cxDBDateEdit1: TcxDBDateEdit;
    cxDBDateEdit2: TcxDBDateEdit;
    cxDBDateEdit3: TcxDBDateEdit;
    cxLabel18: TcxLabel;
    cxLabel19: TcxLabel;
    procedure cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure cxDBTextEdit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses UDM;

{$R *.dfm}

procedure TForm1.cxDBTextEdit1Click(Sender: TObject);
begin
  if dm.qry7.State=dsInsert then begin
    dm.qry7.FieldByName('dwbm').Value:=FormatDateTime('"YH"YYYYMMDDHHMMss',now);
  end;
end;

procedure TForm1.cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  with DM.qry7 do begin
    Close;
    with SQL do begin
      Clear;
      Add('select * from dwgl where dwmc like :p_dwmc or dh like :p_dh or ch like :P_ch');
    end;
    Parameters.ParamByName('p_dwmc').Value := '%' + cxTextEdit1.text + '%';
    Parameters.ParamByName('p_dh').Value := '%' + cxTextEdit1.text + '%';
    Parameters.ParamByName('P_ch').Value := '%' + cxTextEdit1.text + '%';
    Open;
  end;
end;

end.