addcustom.dfm

客户档案管理-delphi开发

          'bsSkinDBMemo2')
        ParentFont = False
        TabOrder = 14
        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 bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox
        Left = 88
        Top = 320
        Width = 150
        Height = 25
        TabOrder = 15
        SkinData = dbs.bsSkinData1
        SkinDataName = 'checkbox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        ImageIndex = 0
        Flat = True
        TabStop = True
        CanFocused = True
        Radio = False
        Checked = False
        GroupIndex = 0
        DataField = #26159#21542#27969#22833
        DataSource = dsAdd
        ValueChecked = #26159
        ValueUnchecked = #21542
      end
      object bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox
        Left = 415
        Top = 28
        Width = 169
        Height = 20
        TabOrder = 16
        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 = #22320#21306#32534#21495
        DataSource = dsAdd
        ListBoxDefaultItemHeight = 20
        ListBoxUseSkinFont = True
        ListBoxUseSkinItemHeight = True
        KeyField = #22320#21306#32534#21495
        ListField = #22320#21306#21517#31216
        ListSource = DataSource2
      end
    end
    object bsSkinTabSheet2: TbsSkinTabSheet
      Caption = #23458#25143#32852#31995#20154'(&2)'
      object DBNavigator1: TDBNavigator
        Left = 0
        Top = 0
        Width = 732
        Height = 41
        DataSource = DataSource1
        Align = alTop
        TabOrder = 0
      end
      object DBGrid1: TDBGrid
        Left = 0
        Top = 41
        Width = 732
        Height = 446
        Align = alClient
        DataSource = DataSource1
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clBtnText
        TitleFont.Height = 14
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Color = clSilver
            Expanded = False
            FieldName = #32852#31995#20154#32534#21495
            Width = 78
            Visible = True
          end
          item
            Expanded = False
            FieldName = #23458#25143#32534#21495
            Visible = False
          end
          item
            Expanded = False
            FieldName = #22995#21517
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = #32844#21153
            Width = 95
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25163#26426
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = #30005#35805
            Width = 76
            Visible = True
          end
          item
            Expanded = False
            FieldName = #30005#23376#37038#31665
            Width = 108
            Visible = True
          end
          item
            Expanded = False
            FieldName = #29983#26085
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = #26159#21542#40664#35748#32852#31995#20154
            Visible = True
          end
          item
            Expanded = False
            FieldName = #22791#27880
            Width = 45
            Visible = True
          end>
      end
    end
  end
  inherited bsSkinToolBar1: TbsSkinToolBar
    Width = 734
  end
  inherited cdsAdd: TADODataSet
    OnNewRecord = cdsAddNewRecord
    CommandText = 'select * from '#23458#25143'  where '#23458#25143#32534#21495'=:id'
    Parameters = <
      item
        Name = 'id'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    object cdsAddDSDesigner: TStringField
      FieldName = #23458#25143#32534#21495
    end
    object cdsAddDSDesigner2: TStringField
      FieldName = #22320#21306#32534#21495
      Size = 10
    end
    object cdsAddDSDesigner3: TStringField
      FieldName = #23458#25143#21517#31216
      Size = 100
    end
    object cdsAddDSDesigner4: TStringField
      FieldName = #23458#25143#31616#31216
      Size = 40
    end
    object cdsAddDSDesigner5: TStringField
      FieldName = #24320#25143#38134#34892
      Size = 100
    end
    object cdsAddDSDesigner6: TStringField
      FieldName = #24080#21495
      Size = 30
    end
    object cdsAddDSDesigner7: TStringField
      FieldName = #27861#20154#20195#34920
    end
    object cdsAddDSDesigner8: TStringField
      FieldName = #31246#21495
      Size = 40
    end
    object cdsAddDSDesigner9: TStringField
      FieldName = #37038#25919#32534#30721
      Size = 6
    end
    object cdsAddDSDesigner10: TStringField
      FieldName = #22320#22336
      Size = 200
    end
    object cdsAddDSDesigner11: TStringField
      FieldName = #37038#31665
      Size = 40
    end
    object cdsAddDSDesigner12: TStringField
      FieldName = #20256#30495
    end
    object cdsAddDSDesigner13: TStringField
      FieldName = #20449#35465#31561#32423
    end
    object cdsAddDSDesigner14: TStringField
      FieldName = #26159#21542#27969#22833
      Size = 10
    end
    object cdsAddDSDesigner15: TStringField
      FieldName = #27969#22833#21407#22240
      Size = 255
    end
    object cdsAddDSDesigner16: TStringField
      FieldName = #36136#37327#35201#27714
      Size = 40
    end
    object cdsAddDSDesigner17: TStringField
      FieldName = #22791#27880
      Size = 200
    end
  end
  object ADODataSet1: TADODataSet
    Active = True
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'select * from '#32852#31995#20154
    DataSource = dsAdd
    IndexFieldNames = #23458#25143#32534#21495
    MasterFields = #23458#25143#32534#21495
    Parameters = <>
    Left = 241
    Top = 64
    object ADODataSet1DSDesigner: TBCDField
      FieldName = #32852#31995#20154#32534#21495
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object ADODataSet1DSDesigner2: TStringField
      FieldName = #23458#25143#32534#21495
    end
    object ADODataSet1DSDesigner3: TStringField
      FieldName = #22995#21517
    end
    object ADODataSet1DSDesigner4: TStringField
      FieldName = #32844#21153
    end
    object ADODataSet1DSDesigner5: TStringField
      FieldName = #25163#26426
    end
    object ADODataSet1DSDesigner6: TStringField
      FieldName = #30005#35805
    end
    object ADODataSet1DSDesigner7: TStringField
      FieldName = #30005#23376#37038#31665
      Size = 40
    end
    object ADODataSet1DSDesigner8: TDateTimeField
      FieldName = #29983#26085
    end
    object ADODataSet1DSDesigner9: TStringField
      FieldName = #26159#21542#40664#35748#32852#31995#20154
      Size = 10
    end
    object ADODataSet1DSDesigner10: TStringField
      FieldName = #22791#27880
      Size = 200
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 269
    Top = 64
  end
  object ADODataSet2: TADODataSet
    Active = True
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'select '#22320#21306#32534#21495', '#22320#21306#21517#31216' from '#22320#21306' order by '#22320#21306#32534#21495
    Parameters = <>
    Left = 569
    Top = 64
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 597
    Top = 64
  end
end