basesetup.dfm

很好的文具管理软件

object FrmBaseSetup: TFrmBaseSetup
  Left = 229
  Top = 115
  BorderStyle = bsDialog
  Caption = 'FrmBaseSetup'
  ClientHeight = 347
  ClientWidth = 470
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 316
    Width = 48
    Height = 16
    Caption = 'Label1'
    Enabled = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsItalic]
    ParentFont = False
    Transparent = True
  end
  object BtnClose: TBitBtn
    Left = 384
    Top = 304
    Width = 81
    Height = 33
    Caption = #20851#38381'(&C)'
    TabOrder = 0
    Kind = bkClose
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 457
    Height = 289
    ActivePage = TabSheet1
    TabHeight = 25
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #20844#21496#21517#31216
      object Label14: TLabel
        Left = 24
        Top = 232
        Width = 246
        Height = 12
        Caption = #36719#20214#20316#32773#65306#32599#31062#26415'    EMail'#65306'[e-mail]'
      end
      object Label15: TLabel
        Left = 24
        Top = 200
        Width = 132
        Height = 12
        Caption = #36719#20214#25480#26435#20351#29992#32773#65306#37011#21331#26126
      end
      object EdtIncName: TEdit
        Left = 64
        Top = 56
        Width = 329
        Height = 20
        TabOrder = 0
        Text = 'EdtIncName'
        OnChange = EdtIncNameChange
      end
      object BtnSaveIncName: TBitBtn
        Left = 184
        Top = 104
        Width = 75
        Height = 25
        Caption = #30830#23450
        Default = True
        TabOrder = 1
        OnClick = BtnSaveIncNameClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333333333333333330000333333333333333333333333F33333333333
          00003333344333333333333333388F3333333333000033334224333333333333
          338338F3333333330000333422224333333333333833338F3333333300003342
          222224333333333383333338F3333333000034222A22224333333338F338F333
          8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
          33333338F83338F338F33333000033A33333A222433333338333338F338F3333
          0000333333333A222433333333333338F338F33300003333333333A222433333
          333333338F338F33000033333333333A222433333333333338F338F300003333
          33333333A222433333333333338F338F00003333333333333A22433333333333
          3338F38F000033333333333333A223333333333333338F830000333333333333
          333A333333333333333338330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
    end
    object TabSheet2: TTabSheet
      Caption = #37096#38376#35774#32622
      ImageIndex = 1
      object LBDeptName: TListBox
        Left = 32
        Top = 24
        Width = 121
        Height = 217
        ItemHeight = 12
        TabOrder = 0
        OnClick = LBDeptNameClick
      end
      object EdtDeptName: TEdit
        Left = 200
        Top = 80
        Width = 145
        Height = 20
        TabOrder = 1
        Text = 'EdtDeptName'
        OnChange = EdtDeptNameChange
      end
      object BtnAdd: TBitBtn
        Left = 200
        Top = 128
        Width = 65
        Height = 25
        Caption = #22686#21152
        TabOrder = 2
        OnClick = BtnAddClick
      end
      object BtnDel: TBitBtn
        Left = 280
        Top = 128
        Width = 65
        Height = 25
        Caption = #21024#38500
        TabOrder = 3
        OnClick = BtnDelClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = #29289#21697#35774#32622
      ImageIndex = 2
      object Label2: TLabel
        Left = 184
        Top = 16
        Width = 72
        Height = 12
        Caption = #38582#23646#20110#31181#31867#65306
      end
      object Label3: TLabel
        Left = 216
        Top = 248
        Width = 60
        Height = 12
        Caption = #29289#21697#32534#21495#65306
        Enabled = False
        Visible = False
      end
      object Label4: TLabel
        Left = 192
        Top = 44
        Width = 60
        Height = 12
        Caption = #29289#21697#21517#31216#65306
      end
      object Label5: TLabel
        Left = 192
        Top = 76
        Width = 60
        Height = 12
        Caption = #35268'    '#26684#65306
      end
      object Label6: TLabel
        Left = 192
        Top = 108
        Width = 60
        Height = 12
        Caption = #21333'    '#20301#65306
      end
      object Label7: TLabel
        Left = 192
        Top = 140
        Width = 60
        Height = 12
        Caption = #21333'    '#20215#65306
      end
      object Label8: TLabel
        Left = 192
        Top = 172
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306
      end
      object Label13: TLabel
        Left = 184
        Top = 232
        Width = 240
        Height = 12
        Caption = #27880#65306#26641#24418#34920#25903#25345#39033#30446#25302#25918'('#38480#19981#21516#32423#39033#20043#38388')'#12290
      end
      object dxDBTV: TdxDBTreeView
        Left = 16
        Top = 8
        Width = 161
        Height = 241
        ShowNodeHint = True
        OnCustomDraw = dxDBTVCustomDraw
        OnDragDropTreeNode = dxDBTVDragDropTreeNode
        DataSource = DM_Wjckgl.DSWare
        SeparatedSt = ' - '
        RaiseOnError = True
        ReadOnly = True
        DragMode = dmAutomatic
        Indent = 14
        ParentColor = False
        ParentCtl3D = False
        Ctl3D = True
        Options = [trDBCanDelete, trDBConfirmDelete, trCanDBNavigate, trSmartRecordCopy, trCheckHasChildren]
        SelectedIndex = -1
        TabOrder = 0
        OnClick = dxDBTVClick
        PopupMenu = PopupMenu1
      end
      object EdtWareNo: TDBEdit
        Left = 288
        Top = 248
        Width = 161
        Height = 20
        Enabled = False
        TabOrder = 1
        Visible = False
        OnExit = EdtWareNoExit
      end
      object EdtWareName: TDBEdit
        Left = 264
        Top = 40
        Width = 161
        Height = 20
        DataField = #29289#21697#21517#31216
        DataSource = DM_Wjckgl.DSWare
        TabOrder = 2
        OnEnter = EdtWareNameEnter
        OnExit = EdtWareNameExit
      end
      object EdtGuige: TDBEdit
        Left = 264
        Top = 72
        Width = 161
        Height = 20
        DataField = #35268#26684
        DataSource = DM_Wjckgl.DSWare
        TabOrder = 3
      end
      object CmbUnit: TDBComboBox
        Left = 264
        Top = 104
        Width = 121
        Height = 20
        DataField = #21333#20301
        DataSource = DM_Wjckgl.DSWare
        ItemHeight = 12
        Items.Strings = (
          #25903
          #30418
          #26465
          #31859
          #20214
          #39063
          #21367
          #25226
          #20010
          #26412
          #25414
          #21488
          #21253
          #29942
          #22359
          #22871
          #29255
          #23545
          #21103
          #20196
          #24352
          #21452
          #31890
          #31665
          #26522)
        TabOrder = 4
      end
      object EdtPrice: TDBEdit
        Left = 264
        Top = 136
        Width = 121
        Height = 20
        DataField = #21333#20215
        DataSource = DM_Wjckgl.DSWare
        TabOrder = 5
      end
      object MemoGoods: TDBMemo
        Left = 264
        Top = 168
        Width = 161
        Height = 41
        DataField = #22791#27880
        DataSource = DM_Wjckgl.DSWare
        TabOrder = 6
      end
      object EdtID: TDBEdit
        Left = 120
        Top = 56
        Width = 41
        Height = 20
        DataField = #32534#21495
        DataSource = DM_Wjckgl.DSWare
        Enabled = False
        TabOrder = 7
        Visible = False
      end
      object CmbType: TDBComboBox
        Left = 264
        Top = 12
        Width = 161
        Height = 20
        Style = csDropDownList
        DataField = #29289#21697#31181#31867
        DataSource = DM_Wjckgl.DSWare
        ItemHeight = 12
        TabOrder = 8
      end
    end
    object TabSheet4: TTabSheet
      Caption = #23494#30721#35774#32622
      ImageIndex = 3
      object GroupBox1: TGroupBox
        Left = 56
        Top = 24
        Width = 321
        Height = 217
        Caption = #30331#24405#23494#30721#35774#32622
        TabOrder = 0
        object Label9: TLabel
          Left = 32
          Top = 36
          Width = 60
          Height = 12
          Caption = #26087' '#23494' '#30721#65306
        end
        object Label10: TLabel
          Left = 32
          Top = 68
          Width = 60
          Height = 12
          Caption = #26032' '#23494' '#30721#65306
        end
        object Label11: TLabel
          Left = 32
          Top = 100
          Width = 60
          Height = 12
          Caption = #30830#35748#23494#30721#65306
        end
        object Label12: TLabel
          Left = 16
          Top = 184
          Width = 288
          Height = 12
          Caption = #27880#65306#24403#23494#30721#35774#32622#20026#31354#26102#65292#21551#21160#36719#20214#26102#23558#19981#26174#31034#30331#24405#31383#12290
        end
        object EdtOldPwd: TEdit
          Left = 104
          Top = 32
          Width = 153
          Height = 20
          TabOrder = 0
          Text = 'EdtOldPwd'
        end
        object EdtNewPwd: TEdit
          Left = 104
          Top = 64
          Width = 153
          Height = 20
          TabOrder = 1
          Text = 'EdtNewPwd'
        end
        object EdtCfmPwd: TEdit
          Left = 104
          Top = 96
          Width = 153
          Height = 20
          TabOrder = 2
          Text = 'EdtCfmPwd'
        end
        object BitBtn1: TBitBtn
          Left = 128
          Top = 136
          Width = 81
          Height = 33
          Caption = #30830#23450
          Default = True
          TabOrder = 3
          OnClick = BitBtn1Click
          Glyph.Data = {
            DE010000424DDE01000000000000760000002800000024000000120000000100
            0400000000006801000000000000000000001000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333330000333333333333333333333333F33333333333
            00003333344333333333333333388F3333333333000033334224333333333333
            338338F3333333330000333422224333333333333833338F3333333300003342
            222224333333333383333338F3333333000034222A22224333333338F338F333
            8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
            33333338F83338F338F33333000033A33333A222433333338333338F338F3333
            0000333333333A222433333333333338F338F33300003333333333A222433333
            333333338F338F33000033333333333A222433333333333338F338F300003333
            33333333A222433333333333338F338F00003333333333333A22433333333333
            3338F38F000033333333333333A223333333333333338F830000333333333333
            333A333333333333333338330000333333333333333333333333333333333333
            0000}
          NumGlyphs = 2
        end
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 326
    Top = 9
    object NewItme1: TMenuItem
      Caption = #22686#21152#31181#31867#21517#31216'(&A)'
      OnClick = NewItme1Click
    end
    object S1: TMenuItem
      Caption = #22686#21152#29289#21697#20449#24687'(&S)'
      OnClick = S1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object C1: TMenuItem
      Caption = #20462#25913'(&C)'
      OnClick = C1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object D1: TMenuItem
      Caption = #21024#38500'(&D)'
      OnClick = D1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #21047#26032
      OnClick = N3Click
    end
  end
end