ufrm_goodsmaster.pas

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· PAS 代码 · 共 93 行

unit Ufrm_goodsmaster;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ufrm_level4_1, dxExEdtr, StdCtrls, Mask, DBCtrls, Menus, DB,
  DBTables, ImgList, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls,
  ComCtrls, ToolWin, dxDBTLCl, dxGrClms, dxEditor, dxEdLib, dxDBELib, DateUtils;

type
  Tfrm_goodsmaster = class(Tfrm_level4_1)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    qy_masterGOODSNO: TStringField;
    qy_masterGOODSDESC: TStringField;
    qy_masterACTI: TStringField;
    qy_masterOWUS: TStringField;
    qy_masterGRUP: TStringField;
    qy_masterCRET: TDateTimeField;
    qy_masterMODU: TStringField;
    qy_masterMODT: TDateTimeField;
    Label2: TLabel;
    Label3: TLabel;
    DBCheckBox1: TDBCheckBox;
    Label4: TLabel;
    Label5: TLabel;
    dxDBDateEdit1: TdxDBDateEdit;
    dbGridGOODSNO: TdxDBGridMaskColumn;
    dbGridGOODSDESC: TdxDBGridMaskColumn;
    dbGridACTI: TdxDBGridMaskColumn;
    dbGridOWUS: TdxDBGridMaskColumn;
    dbGridGRUP: TdxDBGridMaskColumn;
    dbGridCRET: TdxDBGridDateColumn;
    dbGridMODU: TdxDBGridMaskColumn;
    dbGridMODT: TdxDBGridDateColumn;
    procedure tbAddClick(Sender: TObject);
    procedure qy_masterNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  protected
     function  chk_save:boolean; override;
     function  chk_conf:boolean; override;   
  public
    { Public declarations }
  end;

var
  frm_goodsmaster: Tfrm_goodsmaster;

implementation

{$R *.dfm}

procedure Tfrm_goodsmaster.tbAddClick(Sender: TObject);
begin
  inherited;
  if dbedit1.Enabled then
    dbedit1.SetFocus ;
end;

function Tfrm_goodsmaster.chk_save ;
begin
  result := true ;
  if dbedit1.Text = '' then
  begin
    u_error:='货品编号为空,请重新输入! ';
    result:=false;
  end;

  if dbedit3.Text = '' then
  begin
    u_error:='货品名称为空,请重新输入! ';
    result:=false;
  end;

end;

function Tfrm_goodsmaster.chk_conf ;
begin
  result := true ;
end;

procedure Tfrm_goodsmaster.qy_masterNewRecord(DataSet: TDataSet);
begin
  inherited;
  qy_master.FieldByName('CRET').AsDateTime := today ;
  qy_master.FieldByName('ACTI').AsString := 'N' ;
end;

end.