basesheettype.pas

产品信息系统!关于产品基础信息的系统!功能强大!

unit BaseSheetType;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseInfoBase, wwDialog, wwidlg, DB, ADODB, ActnList, ComCtrls,
  ToolWin, dxExEdtr, dxTL, dxDBCtrl, dxCntner, dxDBTL, ExtCtrls, StdCtrls,
  Buttons, DBCtrls, Mask, Grids, DBGrids;

type
  TfrmBaseSheetType = class(TfrmBaseInfoBase)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Splitter1: TSplitter;
    Label3: TLabel;
    DBGrid1: TDBGrid;
    QBaseInfofID: TIntegerField;
    QBaseInfofCode: TWideStringField;
    QBaseInfofName: TWideStringField;
    QBaseInfofInNumber: TIntegerField;
    QBaseInfofOutNumber: TIntegerField;
    QBaseInfofDefBeginDep: TIntegerField;
    QBaseInfofDefEndDep: TIntegerField;
    DBEdit3: TDBEdit;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure QBaseInfoBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseSheetType  : TfrmBaseSheetType;

implementation

{$R *.dfm}

procedure TfrmBaseSheetType.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  frmBaseSheetType := nil;
end;

procedure TfrmBaseSheetType.QBaseInfoBeforePost(DataSet: TDataSet);
begin
  inherited;
  if QBaseInfo.FieldbyName('fCode').asString = '' then
  begin
    showmessage('单据编码不能为空，请重新输入！');
    abort;
  end;
end;

end.