fkhgl.pas

来自「delphi2007开发的汽车配件进销存系统.实用级的源码.」· PAS 代码 · 共 136 行

{*******************************************************}
{                                                       }
{       单证打印                                        }
{       Fkhgl.pas  客户管理
{       2007-07-01 19:07:36
{       独孤九剑 [e-mail]                       }
{       版权所有 (C) 2007 未来科技                      }
{                                                       }
{*******************************************************}

unit Fkhgl;

interface

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

type
  TfrmKHGL = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxButton6: TcxButton;
    cxGroupBox1: TcxGroupBox;
    cxGroupBox2: TcxGroupBox;
    cxLookAndFeelController1: TcxLookAndFeelController;
    DBGridEh1: TDBGridEh;
    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;
    cxLabel10: TcxLabel;
    cxDBTextEdit10: TcxDBTextEdit;
    cxTextEdit1: TcxTextEdit;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    procedure cxButton6Click(Sender: TObject);
    procedure cxDBNavigator1ButtonsButtonClick(Sender: TObject;
      AButtonIndex: Integer; var ADone: Boolean);
    procedure cxDBTextEdit1Click(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cxTextEdit1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmKHGL: TfrmKHGL;

implementation

uses UDM;

{$R *.dfm}

procedure TfrmKHGL.cxButton1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmKHGL.cxButton6Click(Sender: TObject);
begin
  close;
end;

procedure TfrmKHGL.cxDBNavigator1ButtonsButtonClick(Sender: TObject;
  AButtonIndex: Integer; var ADone: Boolean);
begin
  //判断按下去的按钮,确认删除
  if AButtonIndex=8  then
    if Application.MessageBox('将删除当前选择的记录，删除的记录将不能恢复，'+
        '删除吗？', '提示信息', MB_OKCANCEL + MB_ICONQUESTION) = IDOK then
      ADone:=false
    else
      Adone:=true;
end;

procedure TfrmKHGL.cxDBTextEdit1Click(Sender: TObject);
begin
  //根据ADOQUERY的状态来插入编号
  if dm.qry7.State=dsInsert then begin
    dm.qry7.FieldByName('dwbm').Value:=FormatDateTime('"YH"YYYYMMDDHHMMss',now);
  end;
end;

procedure TfrmKHGL.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;

procedure TfrmKHGL.FormShow(Sender: TObject);
begin
  with dm.qry7 do begin
    close;
    with sql do begin
      clear;
      add('select * from dwgl ');
    end;
    open;
  end;
end;

end.