addcustom.pas

客户档案管理-delphi开发

unit addcustom;

interface

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

type
  TFormAddCustom = class(TFormAdd)
    cdsAddDSDesigner: TStringField;
    cdsAddDSDesigner2: TStringField;
    cdsAddDSDesigner3: TStringField;
    cdsAddDSDesigner4: TStringField;
    cdsAddDSDesigner5: TStringField;
    cdsAddDSDesigner6: TStringField;
    cdsAddDSDesigner7: TStringField;
    cdsAddDSDesigner8: TStringField;
    cdsAddDSDesigner9: TStringField;
    cdsAddDSDesigner10: TStringField;
    cdsAddDSDesigner11: TStringField;
    cdsAddDSDesigner12: TStringField;
    cdsAddDSDesigner13: TStringField;
    cdsAddDSDesigner14: TStringField;
    cdsAddDSDesigner15: TStringField;
    cdsAddDSDesigner16: TStringField;
    cdsAddDSDesigner17: TStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    DBEdit10: TDBEdit;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    DBEdit13: TDBEdit;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit16: TDBEdit;
    Label17: TLabel;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinDBMemo2: TbsSkinDBMemo;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinTabSheet2: TbsSkinTabSheet;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet1DSDesigner: TBCDField;
    ADODataSet1DSDesigner2: TStringField;
    ADODataSet1DSDesigner3: TStringField;
    ADODataSet1DSDesigner4: TStringField;
    ADODataSet1DSDesigner5: TStringField;
    ADODataSet1DSDesigner6: TStringField;
    ADODataSet1DSDesigner7: TStringField;
    ADODataSet1DSDesigner8: TDateTimeField;
    ADODataSet1DSDesigner9: TStringField;
    ADODataSet1DSDesigner10: TStringField;
    ADODataSet2: TADODataSet;
    DataSource2: TDataSource;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinStdLabel3: TbsSkinStdLabel;
    procedure cdsAddNewRecord(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAddCustom: TFormAddCustom;

implementation

uses
  dm;
  
{$R *.dfm}

procedure TFormAddCustom.cdsAddNewRecord(DataSet: TDataSet);
begin
  inherited;
  DataSet.FindField('是否流失').Value := '否';
end;

end.