archives_class.dfm

档案管理系统源码

inherited F_Class: TF_Class
  Tag = 1
  Left = 172
  Top = 129
  Height = 400
  ActiveControl = TV_Class
  Caption = #26723#26696#20998#31867#31649#29702
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter [0]
    Left = 305
    Top = 37
    Width = 3
    Height = 336
    Cursor = crHSplit
  end
  inherited ToolBar1: TToolBar
    inherited ToolButton1: TToolButton
      OnClick = ToolButton1Click
    end
    inherited ToolButton2: TToolButton
      OnClick = ToolButton2Click
    end
    inherited ToolButton3: TToolButton
      OnClick = ToolButton3Click
    end
    inherited ToolButton4: TToolButton
      OnClick = ToolButton4Click
    end
    inherited ToolButton6: TToolButton
      OnClick = ToolButton6Click
    end
    inherited ToolButton5: TToolButton
      Visible = False
    end
    inherited ToolButton7: TToolButton
      Visible = False
    end
    inherited ToolButton8: TToolButton
      Visible = False
    end
    inherited ToolButton9: TToolButton
      Visible = False
    end
    inherited ToolButton10: TToolButton
      Visible = False
    end
    inherited ToolButton11: TToolButton
      Visible = False
    end
    inherited ToolButton12: TToolButton
      OnClick = ToolButton12Click
    end
  end
  object TV_Class: TTreeView [2]
    Left = 0
    Top = 37
    Width = 305
    Height = 336
    Align = alLeft
    Images = ImageList2
    Indent = 19
    PopupMenu = PopupMenu1
    TabOrder = 1
    OnDblClick = TV_ClassDblClick
  end
  object Panel1: TPanel [3]
    Left = 312
    Top = 37
    Width = 280
    Height = 336
    Align = alRight
    BevelOuter = bvNone
    BorderStyle = bsSingle
    TabOrder = 2
    object Label5: TLabel
      Left = 9
      Top = 206
      Width = 70
      Height = 13
      Caption = #24314#26723#20154#21592#65306
      FocusControl = DBEdit5
    end
    object Label6: TLabel
      Left = 9
      Top = 232
      Width = 70
      Height = 13
      Caption = #24314#26723#26085#26399#65306
      FocusControl = DBEdit6
    end
    object Label7: TLabel
      Left = 9
      Top = 257
      Width = 70
      Height = 13
      Caption = #20462#25913#20154#21592#65306
      FocusControl = DBEdit7
    end
    object Label8: TLabel
      Left = 9
      Top = 282
      Width = 70
      Height = 13
      Caption = #20462#25913#26085#26399#65306
      FocusControl = DBEdit8
    end
    object SButton1: TSpeedButton
      Left = 185
      Top = 227
      Width = 23
      Height = 22
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
        00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
        0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
        903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
        9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
        03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
        77037F3377777773337F088887707888870373F3337773F33373307880707088
        7033373FF737F73FF733337003303300733333777337FF777333333333000333
        3333333333777333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SButton1Click
    end
    object SButton2: TSpeedButton
      Left = 185
      Top = 279
      Width = 24
      Height = 22
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
        00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
        0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
        903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
        9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
        03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
        77037F3377777773337F088887707888870373F3337773F33373307880707088
        7033373FF737F73FF733337003303300733333777337FF777333333333000333
        3333333333777333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = SButton2Click
    end
    object GroupBox1: TGroupBox
      Left = 7
      Top = 5
      Width = 263
      Height = 188
      Caption = #20998#31867#20449#24687
      TabOrder = 0
      object Label1: TLabel
        Left = 8
        Top = 16
        Width = 73
        Height = 13
        Caption = #20998#31867#24207#21495#65306' '
        FocusControl = DBEdit1
      end
      object Label2: TLabel
        Left = 8
        Top = 56
        Width = 84
        Height = 13
        Caption = #26723#26696#20998#31867#21517#65306
        FocusControl = DBEdit2
      end
      object Label3: TLabel
        Left = 8
        Top = 96
        Width = 126
        Height = 13
        Caption = #26723#26696#20998#31867#25152#23646#37096#38376#65306
        FocusControl = DBEdit3
      end
      object Label4: TLabel
        Left = 8
        Top = 136
        Width = 42
        Height = 13
        Caption = #22791#27880#65306
        FocusControl = DBEdit4
      end
      object DBEdit1: TDBEdit
        Left = 8
        Top = 32
        Width = 134
        Height = 21
        DataField = 'Class_ID'
        DataSource = DM.DS_Class
        ReadOnly = True
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 8
        Top = 72
        Width = 248
        Height = 21
        DataField = 'Class_Name'
        DataSource = DM.DS_Class
        ReadOnly = True
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 8
        Top = 112
        Width = 248
        Height = 21
        DataField = 'Class_Branch'
        DataSource = DM.DS_Class
        ReadOnly = True
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 8
        Top = 152
        Width = 246
        Height = 21