ufrm_goods_stock.pas

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

unit Ufrm_goods_stock;

interface

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

type
  Tfrm_goods_stock = class(Tfrm_level4_1)
    qy_masterGOODSNO: TStringField;
    qy_masterLOCATION: TStringField;
    qy_masterUNIT: TStringField;
    qy_masterSTOCKQTY: TFloatField;
    qy_masterMEMO: TStringField;
    qy_masterRESINDATE: TDateTimeField;
    qy_masterRESOUTDATE: TDateTimeField;
    qy_masterACTI: TStringField;
    qy_masterOWUS: TStringField;
    qy_masterGRUP: TStringField;
    qy_masterCRET: TDateTimeField;
    qy_masterMODU: TStringField;
    qy_masterMODT: TDateTimeField;
    dbGridGOODSNO: TdxDBGridMaskColumn;
    dbGridLOCATION: TdxDBGridMaskColumn;
    dbGridUNIT: TdxDBGridMaskColumn;
    dbGridSTOCKQTY: TdxDBGridMaskColumn;
    dbGridMEMO: TdxDBGridMaskColumn;
    dbGridRESINDATE: TdxDBGridDateColumn;
    dbGridRESOUTDATE: TdxDBGridDateColumn;
    dbGridACTI: TdxDBGridMaskColumn;
    dbGridOWUS: TdxDBGridMaskColumn;
    dbGridGRUP: TdxDBGridMaskColumn;
    dbGridCRET: TdxDBGridDateColumn;
    dbGridMODU: TdxDBGridMaskColumn;
    dbGridMODT: TdxDBGridDateColumn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    dxDBDateEdit1: TdxDBDateEdit;
    dxDBDateEdit2: TdxDBDateEdit;
    procedure qy_masterNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  protected
    function  chk_save:boolean; override;        //保存前的檢查
    function  chk_conf:boolean; override;        //確認前的檢查
    procedure set_Focus;        override;        //設置焦點    
  public
    { Public declarations }
  end;

var
  frm_goods_stock: Tfrm_goods_stock;

implementation

{$R *.dfm}

function Tfrm_goods_stock.chk_save:boolean ;
begin
  result := true ;
  if qy_master.FieldByName('GOODSNO').AsString = '' then
  begin
    u_error := ' 货品编号不能为空! ' ;
    result := false ; 
  end;
end;
function Tfrm_goods_stock.chk_conf:boolean ;
begin
  result := true ;
end;

procedure Tfrm_goods_stock.set_Focus ;
begin
  if dbedit1.Enabled then
     dbedit1.SetFocus;
end;
procedure Tfrm_goods_stock.qy_masterNewRecord(DataSet: TDataSet);
begin
  inherited;
  qy_master.FieldByName('RESINDATE').AsDateTime := TODAY;
  qy_master.FieldByName('RESOUTDATE').AsDateTime := TODAY;

end;

end.