uni_tiein_branchs.~dfm

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

object Frm_Tiein_Branchs: TFrm_Tiein_Branchs
  Left = 220
  Top = 112
  Width = 696
  Height = 480
  Caption = #19979#36733#37096#38376#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 0
    object SPB_Net: TSpeedButton
      Left = 280
      Top = 11
      Width = 41
      Height = 22
      Caption = #36830#25509
      OnClick = SPB_NetClick
    end
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 105
      Height = 13
      AutoSize = False
      Caption = #35831#36873#25321#36830#25509#24080#22871
    end
    object CBX_ZT: TComboBox
      Left = 128
      Top = 12
      Width = 145
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = #36873#25321#24080#22871
      OnChange = CBX_ZTChange
      OnEnter = CBX_ZTEnter
      Items.Strings = (
        #36873#25321#24080#22871)
    end
  end
  object P_Tiein_Branchs: TPanel
    Left = 0
    Top = 41
    Width = 688
    Height = 412
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    Visible = False
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 688
      Height = 40
      Align = alTop
      AutoSize = True
      TabOrder = 0
      object ToolBar1: TToolBar
        Left = 1
        Top = 1
        Width = 686
        Height = 38
        AutoSize = True
        ButtonHeight = 36
        ButtonWidth = 35
        Caption = 'ToolBar1'
        Flat = True
        Images = DM.ImageList1
        ShowCaptions = True
        TabOrder = 0
        object TB_out: TToolButton
          Left = 0
          Top = 0
          Caption = #19979#36733
          ImageIndex = 13
          OnClick = TB_outClick
        end
        object TB_in: TToolButton
          Left = 35
          Top = 0
          Caption = #23548#20837
          ImageIndex = 12
          OnClick = TB_inClick
        end
        object Gauge: TGauge
          Left = 70
          Top = 0
          Width = 211
          Height = 36
          Progress = 0
          Visible = False
        end
      end
    end
    object DBG_bsTiein_Branchs: TDBGridEh
      Left = 0
      Top = 40
      Width = 688
      Height = 372
      FixGridlinecolor = clGray
      Gridlinecolor = clGray
      FooterDisplayStyle = False
      ShowBmp = False
      UseMenu = True
      RowTwoColor = clCream
      CurDeciNumber = 2
      CurShowNegativeFont = True
      CurShowNegativeColor = False
      CurShowNegativeSign = False
      CurDeciSeparatColor = clRed
      CurrencySymBol = #65509
      CurrencySymBolAlained = False
      CurGridLineColor = clSilver
      CurGridLineWidth = 1
      CurKilobitColor = clGreen
      CurrencyFont.Charset = DEFAULT_CHARSET
      CurrencyFont.Color = clWindowText
      CurrencyFont.Height = -11
      CurrencyFont.Name = 'MS Sans Serif'
      CurrencyFont.Style = []
      CurNegativeFont.Charset = DEFAULT_CHARSET
      CurNegativeFont.Color = clRed
      CurNegativeFont.Height = -11
      CurNegativeFont.Name = 'MS Sans Serif'
      CurNegativeFont.Style = []
      CurNegativeColor = clRed
      CurTextLayout = tlCenter
      CurZeroEmpty = True
      Align = alClient
      DataSource = dsbsTiein_Branchs
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    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 = 648
  end
  object dsbsTiein_Branchs: TDataSource
    DataSet = DM.bsTiein_Branchs
    Left = 264
    Top = 145
  end
end