addtreecplb.pas

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

unit AddTreeCPLB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, addTree, DB, ADODB, BusinessSkinForm, ComCtrls, bsSkinCtrls,
  StdCtrls, ExtCtrls, Grids, DBGridEh, bsSkinTabs, bsSkinBoxCtrls,
  bsdbctrls, Mask;

type
  TFormAddTreeCPLB = class(TFormAddTree)
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinStdLabel8: TbsSkinStdLabel;
    bsSkinStdLabel10: TbsSkinStdLabel;
    bsSkinDBEdit1: TbsSkinDBEdit;
    bsSkinDBEdit2: TbsSkinDBEdit;
    bsSkinDBEdit3: TbsSkinDBEdit;
    bsSkinDBEdit4: TbsSkinDBEdit;
    bsSkinDBMemo1: TbsSkinDBMemo;
    bsSkinDBEdit8: TbsSkinDBEdit;
    cdsAddDSDesigner: TBCDField;
    cdsAddDSDesigner2: TStringField;
    cdsAddDSDesigner3: TIntegerField;
    cdsAddDSDesigner4: TIntegerField;
    cdsAddDSDesigner5: TStringField;
    cdsAddDSDesigner6: TStringField;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAddTreeCPLB: TFormAddTreeCPLB;

implementation

{$R *.dfm}

procedure TFormAddTreeCPLB.FormCreate(Sender: TObject);
begin
  inherited;
   wiTable := '产品类别';
   wiPkey := '类别编号';
   wiFather := '上级类别';
   wiLabel := '类别名称';
   wbPkInt := True;
end;

end.