adddd.dfm

客户档案管理-delphi开发

        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 = #26631#35782'1'
        DataSource = dsAdd
      end
      object bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox
        Left = 199
        Top = 300
        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 = #21046#34920#20154#21592
        DataSource = dsAdd
        ListBoxDefaultItemHeight = 20
        ListBoxUseSkinFont = True
        ListBoxUseSkinItemHeight = True
        KeyField = #29992#25143#21517
        ListField = #29992#25143#21517
        ListSource = DataSource3
      end
      object bsSkinDBLookupComboBox2: TbsSkinDBLookupComboBox
        Left = 199
        Top = 48
        Width = 169
        Height = 20
        TabOrder = 6
        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 = #23458#25143#32534#21495
        DataSource = dsAdd
        ListBoxDefaultItemHeight = 20
        ListBoxUseSkinFont = True
        ListBoxUseSkinItemHeight = True
        KeyField = #23458#25143#32534#21495
        ListField = #23458#25143#21517#31216
        ListSource = DataSource2
      end
      object bsSkinDBLookupComboBox3: TbsSkinDBLookupComboBox
        Left = 199
        Top = 84
        Width = 169
        Height = 20
        TabOrder = 7
        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 = #20135#21697#32534#21495
        DataSource = dsAdd
        ListBoxDefaultItemHeight = 20
        ListBoxUseSkinFont = True
        ListBoxUseSkinItemHeight = True
        KeyField = #20135#21697#32534#21495
        ListField = #20135#21697#21517#31216
        ListSource = DataSource1
      end
      object bsSkinDBDateEdit1: TbsSkinDBDateEdit
        Left = 199
        Top = 120
        Width = 119
        Height = 18
        EditMask = '!0000/99/99;1; '
        Text = '2006- 5-15'
        AlphaBlend = False
        AlphaBlendAnimation = False
        AlphaBlendValue = 0
        Date = 38852.575608437500000000
        TodayDefault = True
        CalendarWidth = 200
        CalendarHeight = 150
        CalendarFont.Charset = DEFAULT_CHARSET
        CalendarFont.Color = clWindowText
        CalendarFont.Height = 14
        CalendarFont.Name = #23435#20307
        CalendarFont.Style = []
        FirstDayOfWeek = Sun
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clBlack
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        ButtonMode = True
        SkinData = dbs.bsSkinData1
        SkinDataName = 'buttonedit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = 14
        Font.Name = #23435#20307
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 8
        AutoSize = False
        DataField = #26085#26399
        DataSource = dsAdd
      end
      object bsSkinDBEdit5: TbsSkinDBEdit
        Left = 199
        Top = 264
        Width = 170
        Height = 18
        Text = 'bsSkinDBEdit5'
        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 = 9
        AutoSize = False
        DataField = #26631#35782'2'
        DataSource = dsAdd
      end
      object bsSkinDBDateEdit2: TbsSkinDBDateEdit
        Left = 199
        Top = 336
        Width = 119
        Height = 18
        EditMask = '!0000/99/99;1; '
        Text = '2006- 5-15'
        AlphaBlend = False
        AlphaBlendAnimation = False
        AlphaBlendValue = 0
        Date = 38852.575608437500000000
        TodayDefault = True
        CalendarWidth = 200
        CalendarHeight = 150
        CalendarFont.Charset = DEFAULT_CHARSET
        CalendarFont.Color = clWindowText
        CalendarFont.Height = 14
        CalendarFont.Name = #23435#20307
        CalendarFont.Style = []
        FirstDayOfWeek = Sun
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clBlack
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        ButtonMode = True
        SkinData = dbs.bsSkinData1
        SkinDataName = 'buttonedit'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlack
        Font.Height = 14
        Font.Name = #23435#20307
        Font.Style = []
        MaxLength = 10
        ParentFont = False
        TabOrder = 10
        AutoSize = False
        DataField = #21046#34920#26085#26399
        DataSource = dsAdd
      end
    end
  end
  inherited bsSkinToolBar1: TbsSkinToolBar
    Width = 576
  end
  inherited cdsAdd: TADODataSet
    BeforePost = cdsAddBeforePost
    OnNewRecord = cdsAddNewRecord
    CommandText = 'select * from '#35746#21333' where '#35746#21333#32534#21495'=:id'
    Parameters = <
      item
        Name = 'id'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    object cdsAddDSDesigner: TStringField
      FieldName = #35746#21333#32534#21495
    end
    object cdsAddDSDesigner2: TStringField
      FieldName = #23458#25143#32534#21495
    end
    object cdsAddDSDesigner3: TStringField
      FieldName = #20135#21697#32534#21495
      Size = 40
    end
    object cdsAddDSDesigner4: TDateTimeField
      FieldName = #26085#26399
    end
    object cdsAddDSDesigner5: TBCDField
      FieldName = #25968#37327
      Precision = 10
      Size = 2
    end
    object cdsAddDSDesigner6: TStringField
      FieldName = #29992#36884
    end
    object cdsAddDSDesigner1: TStringField
      FieldName = #26631#35782'1'
    end
    object cdsAddDSDesigner22: TStringField
      FieldName = #26631#35782'2'
    end
    object cdsAddDSDesigner7: TStringField
      FieldName = #21046#34920#20154#21592
      Size = 10
    end
    object cdsAddDSDesigner8: TDateTimeField
      FieldName = #21046#34920#26085#26399
    end
    object cdsAddDSDesigner9: TStringField
      FieldName = #22791#27880
      Size = 200
    end
  end
  object ADODataSet1: TADODataSet
    Active = True
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'select '#20135#21697#32534#21495', '#20135#21697#21517#31216' from '#20135#21697' order by '#20135#21697#21517#31216
    Parameters = <>
    Left = 425
    Top = 56
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 453
    Top = 56
  end
  object ADODataSet2: TADODataSet
    Active = True
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'select '#23458#25143#32534#21495', '#23458#25143#21517#31216' from '#23458#25143
    Parameters = <>
    Left = 425
    Top = 88
  end
  object DataSource2: TDataSource
    DataSet = ADODataSet2
    Left = 453
    Top = 88
  end
  object ADODataSet3: TADODataSet
    Active = True
    CacheSize = 1000
    Connection = dbs.ADOConn
    CursorType = ctStatic
    CommandText = 'select '#29992#25143#21517' from '#29992#25143
    Parameters = <>
    Left = 425
    Top = 120
  end
  object DataSource3: TDataSource
    DataSet = ADODataSet3
    Left = 453
    Top = 120
  end
end