addcp.dfm

客户档案管理-delphi开发

inherited FormAddCP: TFormAddCP
  Left = 304
  Top = 145
  Caption = #20135#21697#24405#20837
  ClientHeight = 391
  ClientWidth = 576
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited bsSkinPageControl1: TbsSkinPageControl
    Width = 576
    Height = 366
    inherited bsSkinTabSheet1: TbsSkinTabSheet
      object bsSkinStdLabel1: TbsSkinStdLabel
        Left = 72
        Top = 24
        Width = 121
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = dbs.bsSkinData1
        SkinDataName = 'stdlabel'
        Alignment = taRightJustify
        AutoSize = False
        Caption = #20135#21697#32534#21495#65306
      end
      object bsSkinStdLabel3: TbsSkinStdLabel
        Left = 72
        Top = 170
        Width = 121
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = dbs.bsSkinData1
        SkinDataName = 'stdlabel'
        Alignment = taRightJustify
        AutoSize = False
        Caption = #20135#21697#31867#21035#65306
      end
      object bsSkinStdLabel10: TbsSkinStdLabel
        Left = 72
        Top = 56
        Width = 121
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = dbs.bsSkinData1
        SkinDataName = 'stdlabel'
        Alignment = taRightJustify
        AutoSize = False
        Caption = #20135#21697#21517#31216#65306
      end
      object bsSkinStdLabel8: TbsSkinStdLabel
        Left = 72
        Top = 200
        Width = 121
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = dbs.bsSkinData1
        SkinDataName = 'stdlabel'
        Alignment = taRightJustify
        AutoSize = False
        Caption = #22791#27880#65306
      end
      object bsSkinStdLabel2: TbsSkinStdLabel
        Left = 72
        Top = 96
        Width = 121
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = dbs.bsSkinData1
        SkinDataName = 'stdlabel'
        Alignment = taRightJustify
        AutoSize = False
        Caption = #35268#26684#22411#21495#65306
      end
      object bsSkinStdLabel4: TbsSkinStdLabel
        Left = 72
        Top = 136
        Width = 121
        Height = 13
        UseSkinFont = True
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = -11
        DefaultFont.Name = 'MS Sans Serif'
        DefaultFont.Style = []
        SkinData = dbs.bsSkinData1
        SkinDataName = 'stdlabel'
        Alignment = taRightJustify
        AutoSize = False
        Caption = #21333#20301#65306
      end
      object bsSkinDBEdit1: TbsSkinDBEdit
        Left = 199
        Top = 21
        Width = 170
        Height = 18
        Text = 'bsSkinDBEdit1'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clBlack
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 0
        ButtonMode = False
        SkinData = dbs.bsSkinData1
        SkinDataName = 'edit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = 14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        AutoSize = False
        DataField = #20135#21697#32534#21495
        DataSource = dsAdd
      end
      object bsSkinDBEdit2: TbsSkinDBEdit
        Left = 199
        Top = 53
        Width = 170
        Height = 18
        Text = 'bsSkinDBEdit2'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clBlack
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 0
        ButtonMode = False
        SkinData = dbs.bsSkinData1
        SkinDataName = 'edit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = 14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        AutoSize = False
        DataField = #20135#21697#21517#31216
        DataSource = dsAdd
      end
      object bsSkinDBMemo1: TbsSkinDBMemo
        Left = 200
        Top = 200
        Width = 313
        Height = 100
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = 14
        Font.Name = #23435#20307
        Font.Style = []
        Lines.Strings = (
          'bsSkinDBMemo1')
        ParentFont = False
        TabOrder = 2
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clBlack
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        UseSkinFont = True
        BitMapBG = False
        SkinData = dbs.bsSkinData1
        SkinDataName = 'memo'
        DataField = #22791#27880
        DataSource = dsAdd
      end
      object bsSkinDBEdit3: TbsSkinDBEdit
        Left = 199
        Top = 93
        Width = 170
        Height = 18
        Text = 'bsSkinDBEdit3'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clBlack
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 0
        ButtonMode = False
        SkinData = dbs.bsSkinData1
        SkinDataName = 'edit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = 14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        AutoSize = False
        DataField = #35268#26684#22411#21495
        DataSource = dsAdd
      end
      object bsSkinDBEdit4: TbsSkinDBEdit
        Left = 199
        Top = 133
        Width = 170
        Height = 18
        Text = 'bsSkinDBEdit4'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clBlack
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 0
        ButtonMode = False
        SkinData = dbs.bsSkinData1
        SkinDataName = 'edit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = 14
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        AutoSize = False
        DataField = #21333#20301
        DataSource = dsAdd
      end
      object bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox
        Left = 200
        Top = 168
        Width = 169
        Height = 20
        TabOrder = 5
        SkinData = dbs.bsSkinData1
        SkinDataName = 'combobox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 20
        UseSkinFont = True
        DataField = #31867#21035#32534#21495
        DataSource = dsAdd
        ListBoxDefaultItemHeight = 20
        ListBoxUseSkinFont = True
        ListBoxUseSkinItemHeight = True
        KeyField = #31867#21035#32534#21495
        ListField = #31867#21035#21517#31216
        ListSource = DataSource1
      end
    end
  end
  inherited bsSkinToolBar1: TbsSkinToolBar
    Width = 576
  end
  inherited cdsAdd: TADODataSet
    CommandText = 'select * from '#20135#21697' where '#20135#21697#32534#21495'=:id'
    Parameters = <
      item
        Name = 'id'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 40
        Value = Null
      end>
    object cdsAddDSDesigner: TStringField
      FieldName = #20135#21697#32534#21495
      Size = 40
    end
    object cdsAddDSDesigner2: TBCDField
      FieldName = #31867#21035#32534#21495
      Precision = 18
      Size = 0
    end
    object cdsAddDSDesigner3: TStringField
      FieldName = #20135#21697#21517#31216
      Size = 100
    end
    object cdsAddDSDesigner4: TStringField
      FieldName = #35268#26684#22411#21495
    end
    object cdsAddDSDesigner5: TStringField
      FieldName = #21333#20301
      Size = 10
    end
    object cdsAddDSDesigner6: TStringField
      FieldName = #22791#27880
      Size = 200
    end
  end
  object ADODataSet1: TADODataSet
    Active = True
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'select '#31867#21035#32534#21495', '#31867#21035#21517#31216' from '#20135#21697#31867#21035
    Parameters = <>
    Left = 425
    Top = 56
    object ADODataSet1DSDesigner: TBCDField
      FieldName = #31867#21035#32534#21495
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object ADODataSet1DSDesigner2: TStringField
      FieldName = #31867#21035#21517#31216
      Size = 100
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 453
    Top = 56
  end
end