uni_branchs.dfm

来自「一个非常不错的经费报销管理软件」· DFM 代码 · 共 305 行

object Frm_Branchs: TFrm_Branchs
  Left = 161
  Top = 144
  Width = 500
  Height = 300
  Caption = #37096#38376#20449#24687
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 185
    Top = 39
    Height = 215
  end
  object Tree: TTreeView
    Left = 0
    Top = 39
    Width = 185
    Height = 215
    Align = alLeft
    Color = clBackground
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Images = DM.ImageList1
    Indent = 19
    ParentFont = False
    ReadOnly = True
    RightClickSelect = True
    RowSelect = True
    TabOrder = 0
    OnClick = TreeClick
    OnDblClick = TreeDblClick
  end
  object Panel1: TPanel
    Left = 188
    Top = 39
    Width = 304
    Height = 215
    Align = alClient
    BevelInner = bvLowered
    Color = 14803425
    TabOrder = 1
    object P_Edit: TPanel
      Left = 2
      Top = 2
      Width = 300
      Height = 250
      Align = alTop
      BevelOuter = bvNone
      Color = 14803425
      Enabled = False
      TabOrder = 0
      object Label1: TLabel
        Left = 16
        Top = 16
        Width = 27
        Height = 13
        AutoSize = False
        Caption = #32534#30721':'
        FocusControl = DB_cClassNum
      end
      object Label2: TLabel
        Left = 16
        Top = 72
        Width = 27
        Height = 13
        AutoSize = False
        Caption = #21517#31216':'
        FocusControl = DB_cName
      end
      object DB_cClassNum: TDBEdit
        Left = 16
        Top = 36
        Width = 161
        Height = 20
        DataField = 'cNum'
        DataSource = DSbsBranchs
        TabOrder = 0
      end
      object DB_cName: TDBEdit
        Left = 16
        Top = 92
        Width = 161
        Height = 20
        DataField = 'cName'
        DataSource = DSbsBranchs
        TabOrder = 1
      end
      object ShowHide: TCheckBox
        Left = 16
        Top = 128
        Width = 49
        Height = 17
        Caption = #38544#34255
        TabOrder = 2
      end
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 492
    Height = 39
    AutoSize = True
    Bands = <
      item
        Control = TB_Main
        ImageIndex = -1
        MinHeight = 35
        Width = 488
      end>
    object TB_Main: TToolBar
      Left = 9
      Top = 0
      Width = 475
      Height = 35
      ButtonHeight = 35
      ButtonWidth = 31
      Color = 14803425
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = DM.ImageList1
      ParentColor = False
      ShowCaptions = True
      TabOrder = 0
      object TB_Insert: TToolButton
        Left = 0
        Top = 0
        AutoSize = True
        Caption = #26032#22686
        ImageIndex = 2
        OnClick = TB_InsertClick
      end
      object TB_Update: TToolButton
        Left = 35
        Top = 0
        AutoSize = True
        Caption = #20462#25913
        ImageIndex = 3
        OnClick = TB_UpdateClick
      end
      object TB_Delete: TToolButton
        Left = 70
        Top = 0
        AutoSize = True
        Caption = #21024#38500
        ImageIndex = 15
        OnClick = TB_DeleteClick
      end
      object ToolButton2: TToolButton
        Left = 105
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Post: TToolButton
        Left = 113
        Top = 0
        AutoSize = True
        Caption = #20445#23384
        Enabled = False
        ImageIndex = 5
        OnClick = TB_PostClick
      end
      object TB_Cancel: TToolButton
        Left = 148
        Top = 0
        AutoSize = True
        Caption = #21462#28040
        Enabled = False
        ImageIndex = 6
        OnClick = TB_CancelClick
      end
      object ToolButton1: TToolButton
        Left = 183
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        Enabled = False
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Refresh: TToolButton
        Left = 191
        Top = 0
        AutoSize = True
        Caption = #21047#26032
        ImageIndex = 26
        OnClick = TB_RefreshClick
      end
      object ToolButton4: TToolButton
        Left = 226
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Help: TToolButton
        Left = 234
        Top = 0
        AutoSize = True
        Caption = #24110#21161
        ImageIndex = 9
      end
      object ToolButton3: TToolButton
        Left = 269
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        Enabled = False
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Close: TToolButton
        Left = 277
        Top = 0
        AutoSize = True
        Caption = #36864#20986
        ImageIndex = 10
        OnClick = TB_CloseClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 254
    Width = 492
    Height = 19
    Color = 14803425
    Panels = <>
  end
  object DSbsBranchs: TDataSource
    DataSet = DM.bsBranchs
    Left = 336
    Top = 8
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 372
    Top = 8
    object N_State: TMenuItem
      Caption = #24037#20855#26639#29366#24577
      OnClick = N_StateClick
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    ControlUseTrueXPStyle = True
    BtnRoundArc = 5
    BtnOutLineBorderColor = 7552000
    BtnInnerBorderMoveColor = 3257087
    BtnInnerBorderFocusColor = 15183500
    BtnSurfaceNormalColor = 16251903
    BtnSurfaceDownColor = 14608359
    BtnSurfaceBottomLineColor = 14608359
    BtnSurfaceDownBottomLineColor = 15199215
    RdoChkControlChkColor = 41472
    ComboBoxChkColor = 9201994
    ComboboxSurfaceMoveColor = 16771030
    ControlDisabledBorderColor = 11913158
    Left = 416
    Top = 8
  end
end