addyg.dfm

客户档案管理-delphi开发

inherited FormAddYG: TFormAddYG
  Left = 258
  Top = 155
  Caption = #21592#24037#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 = #29992#25143#21517#65306
      end
      object bsSkinStdLabel3: TbsSkinStdLabel
        Left = 72
        Top = 90
        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 = #20154#21592#31867#21035#65306
      end
      object Label3: TLabel
        Left = 88
        Top = 240
        Width = 193
        Height = 16
        AutoSize = False
        Caption = #26032#22686#29992#25143#30340#32570#30465#23494#30721#26159#65306'1234'
        Font.Charset = GB2312_CHARSET
        Font.Color = clGray
        Font.Height = -14
        Font.Name = #26032#23435#20307
        Font.Style = [fsItalic]
        ParentFont = False
        Transparent = True
      end
      object bsSkinStdLabel2: TbsSkinStdLabel
        Left = 96
        Top = 268
        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 = #26032#23494#30721#65306
      end
      object bsSkinStdLabel4: TbsSkinStdLabel
        Left = 96
        Top = 299
        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 = #30830#35748#26032#23494#30721#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 = #23494#30721#65306
      end
      object bsSkinStdLabel8: TbsSkinStdLabel
        Left = 72
        Top = 120
        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 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 = #29992#25143#21517
        DataSource = dsAdd
      end
      object bsSkinDBComboBox1: TbsSkinDBComboBox
        Left = 199
        Top = 86
        Width = 170
        Height = 20
        TabOrder = 2
        SkinData = dbs.bsSkinData1
        SkinDataName = 'combobox'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        UseSkinSize = True
        AlphaBlend = False
        AlphaBlendValue = 0
        AlphaBlendAnimation = False
        HideSelection = True
        AutoComplete = True
        ListBoxUseSkinFont = True
        ListBoxUseSkinItemHeight = True
        ListBoxWidth = 0
        ImageIndex = -1
        ListBoxCaptionMode = False
        ListBoxDefaultFont.Charset = DEFAULT_CHARSET
        ListBoxDefaultFont.Color = clWindowText
        ListBoxDefaultFont.Height = 14
        ListBoxDefaultFont.Name = #23435#20307
        ListBoxDefaultFont.Style = []
        ListBoxDefaultCaptionFont.Charset = DEFAULT_CHARSET
        ListBoxDefaultCaptionFont.Color = clWindowText
        ListBoxDefaultCaptionFont.Height = 14
        ListBoxDefaultCaptionFont.Name = #23435#20307
        ListBoxDefaultCaptionFont.Style = []
        ListBoxDefaultItemHeight = 20
        ListBoxCaptionAlignment = taLeftJustify
        TabStop = True
        Items.Strings = (
          #19994#21153#21592
          #24405#20837#21592
          #32463#29702)
        ItemIndex = -1
        DropDownCount = 8
        HorizontalExtent = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = 14
        Font.Name = #23435#20307
        Font.Style = []
        Sorted = False
        Style = bscbFixedStyle
        DataField = #20154#21592#31867#21035
        DataSource = dsAdd
        ParentFont = False
      end
      object bsSkinButton1: TbsSkinButton
        Left = 294
        Top = 232
        Width = 75
        Height = 25
        TabOrder = 3
        SkinData = dbs.bsSkinData1
        SkinDataName = 'button'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        RepeatMode = False
        RepeatInterval = 100
        AllowAllUp = False
        TabStop = True
        CanFocused = True
        Down = False
        GroupIndex = 0
        Caption = #26356#25913#23494#30721
        NumGlyphs = 1
        Spacing = 1
        OnClick = bsSkinButton1Click
      end
      object bsSkinPasswordEdit1: TbsSkinPasswordEdit
        Left = 219
        Top = 264
        Width = 150
        Height = 21
        Cursor = crIBeam
        TabOrder = 4
        SkinDataName = 'edit'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        PasswordKind = pkRoundRect
      end
      object bsSkinPasswordEdit2: TbsSkinPasswordEdit
        Left = 219
        Top = 295
        Width = 150
        Height = 21
        Cursor = crIBeam
        TabOrder = 5
        SkinDataName = 'edit'
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = #23435#20307
        DefaultFont.Style = []
        DefaultWidth = 0
        DefaultHeight = 0
        UseSkinFont = True
        PasswordKind = pkRoundRect
      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 = #23494#30721
        DataSource = dsAdd
      end
      object bsSkinDBMemo1: TbsSkinDBMemo
        Left = 200
        Top = 120
        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 = 6
        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
    end
  end
  inherited bsSkinToolBar1: TbsSkinToolBar
    Width = 576
  end
  inherited cdsAdd: TADODataSet
    OnNewRecord = cdsAddNewRecord
    CommandText = 'select * from '#29992#25143' where '#29992#25143#21517'=:id'
    Parameters = <
      item
        Name = 'id'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    object cdsAddDSDesigner: TStringField
      FieldName = #29992#25143#21517
      Size = 10
    end
    object cdsAddDSDesigner2: TStringField
      FieldName = #23494#30721
    end
    object cdsAddDSDesigner3: TStringField
      FieldName = #20154#21592#31867#21035
      Size = 10
    end
    object cdsAddDSDesigner4: TStringField
      FieldName = #22791#27880
      Size = 200
    end
  end
end