addcp.pas

客户档案管理-delphi开发

unit addcp;

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
  TFormAddCP = class(TFormAdd)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinDBMemo1: TbsSkinDBMemo;
    cdsAddDSDesigner: TStringField;
    cdsAddDSDesigner2: TBCDField;
    cdsAddDSDesigner3: TStringField;
    cdsAddDSDesigner4: TStringField;
    cdsAddDSDesigner5: TStringField;
    cdsAddDSDesigner6: TStringField;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet1DSDesigner: TBCDField;
    ADODataSet1DSDesigner2: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAddCP: TFormAddCP;

implementation

uses
  dm;

{$R *.dfm}

end.