adddd.pas

来自「客户档案管理-delphi开发」· PAS 代码 · 共 101 行

unit adddd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, add, bsSkinShellCtrls, Menus, bsSkinMenus, DB, ADODB,
  BusinessSkinForm, bsSkinCtrls, bsdbctrls, StdCtrls, bsSkinBoxCtrls, Mask,
  ExtCtrls, ComCtrls, bsSkinTabs;

type
  TFormAddDD = class(TFormAdd)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    cdsAddDSDesigner: TStringField;
    cdsAddDSDesigner2: TStringField;
    cdsAddDSDesigner3: TStringField;
    cdsAddDSDesigner4: TDateTimeField;
    cdsAddDSDesigner5: TBCDField;
    cdsAddDSDesigner6: TStringField;
    cdsAddDSDesigner1: TStringField;
    cdsAddDSDesigner22: TStringField;
    cdsAddDSDesigner7: TStringField;
    cdsAddDSDesigner8: TDateTimeField;
    cdsAddDSDesigner9: TStringField;
    bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox;
    bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox;
    ADODataSet2: TADODataSet;
    DataSource2: TDataSource;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinDBDateEdit1: TbsSkinDBDateEdit;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinStdLabel9: TbsSkinStdLabel;
    bsSkinDBEdit5: TbsSkinDBEdit;
    bsSkinStdLabel11: TbsSkinStdLabel;
    bsSkinDBDateEdit2: TbsSkinDBDateEdit;
    ADODataSet3: TADODataSet;
    DataSource3: TDataSource;
    procedure cdsAddNewRecord(DataSet: TDataSet);
    procedure cdsAddBeforePost(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAddDD: TFormAddDD;

implementation

uses
  dm;

{$R *.dfm}

procedure TFormAddDD.cdsAddNewRecord(DataSet: TDataSet);
begin
  inherited;
  DataSet.FindField('制表人员').Value := dbs.psYWY;
  DataSet.FindField('日期').Value := Date;
  DataSet.FindField('制表日期').Value := Date;
end;

procedure TFormAddDD.cdsAddBeforePost(DataSet: TDataSet);
begin
  inherited;
  if Length(bsSkinDBEdit1.Text) = 0 then
  begin
    dbs.ShowMsgDlgInf('请输入订单号！');
    Abort;
  end;

  if Length(bsSkinDBLookupComboBox2.Text) = 0 then
  begin
    dbs.ShowMsgDlgInf('请选择客户！');
    Abort;
  end;

  if Length(bsSkinDBLookupComboBox3.Text) = 0 then
  begin
    dbs.ShowMsgDlgInf('请选择产品！');
    Abort;
  end;
end;

end.