fkhgl.pas.~37~

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

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);
  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.FormShow(Sender: TObject);
begin
  with dm.qry7 do begin
    close;
    with sql do begin
      clear;
      add('select * from dwgl ');
    end;
    open;
  end;
end;

end.