uni_user.dfm

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

object Frm_User: TFrm_User
  Left = 194
  Top = 103
  Width = 699
  Height = 436
  Caption = #25805#20316#21592#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
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Tree: TTreeView
    Left = 0
    Top = 39
    Width = 185
    Height = 351
    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
  end
  object Panel1: TPanel
    Left = 185
    Top = 39
    Width = 506
    Height = 351
    Align = alClient
    Caption = 'Panel1'
    TabOrder = 1
    object P_Edit: TPanel
      Left = 1
      Top = 1
      Width = 504
      Height = 208
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 14803425
      TabOrder = 0
      Visible = False
      object Label1: TLabel
        Left = 24
        Top = 56
        Width = 49
        Height = 13
        AutoSize = False
        Caption = #29992#25143#21517':'
        FocusControl = DB_cName
      end
      object Label2: TLabel
        Left = 24
        Top = 104
        Width = 49
        Height = 13
        AutoSize = False
        Caption = #23494#30721':'
        FocusControl = DB_cPassword
      end
      object Label3: TLabel
        Left = 24
        Top = 11
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #25152#23646#37096#38376':'
        FocusControl = DB_cBranchName
      end
      object DB_cName: TDBEdit
        Left = 24
        Top = 72
        Width = 193
        Height = 20
        DataField = 'cName'
        DataSource = DSbsUser
        TabOrder = 0
      end
      object DB_cPassword: TDBEdit
        Left = 24
        Top = 119
        Width = 193
        Height = 20
        DataField = 'cPassword'
        DataSource = DSbsUser
        PasswordChar = '*'
        TabOrder = 1
      end
      object DB_cBranchName: TDBEdit
        Left = 24
        Top = 27
        Width = 193
        Height = 20
        DataField = 'cName'
        DataSource = Frm_Branchs.DSbsBranchs
        Enabled = False
        TabOrder = 2
      end
    end
    object DBGbsUser: TDBGridEh
      Left = 1
      Top = 209
      Width = 504
      Height = 141
      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 = DSbsUser
      FixedColor = 14803425
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghHighlightFocus, dghClearSelection]
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'cBranchsName'
          Footers = <>
          Title.Caption = #25152#23646#37096#38376
          DisplayNullIfZero = False
          IsCurrency = False
        end
        item
          EditButtons = <>
          FieldName = 'cName'
          Footers = <>
          Title.Caption = #29992#25143#21517
          DisplayNullIfZero = False
          IsCurrency = False
        end>
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 691
    Height = 39
    AutoSize = True
    Bands = <
      item
        Control = TB_Main
        ImageIndex = -1
        MinHeight = 35
        Width = 687
      end>
    Color = 14803425
    ParentColor = False
    object TB_Main: TToolBar
      Left = 9
      Top = 0
      Width = 674
      Height = 35
      AutoSize = True
      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
        Caption = #26032#22686
        ImageIndex = 2
        OnClick = TB_InsertClick
      end
      object TB_Update: TToolButton
        Left = 31
        Top = 0
        Caption = #20462#25913
        ImageIndex = 3
        OnClick = TB_UpdateClick
      end
      object TB_Delete: TToolButton
        Left = 62
        Top = 0
        Caption = #21024#38500
        ImageIndex = 15
        OnClick = TB_DeleteClick
      end
      object ToolButton1: TToolButton
        Left = 93
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Post: TToolButton
        Left = 101
        Top = 0
        Caption = #20445#23384
        Enabled = False
        ImageIndex = 5
        OnClick = TB_PostClick
      end
      object TB_Cancel: TToolButton
        Left = 132
        Top = 0
        Caption = #21462#28040
        Enabled = False
        ImageIndex = 6
        OnClick = TB_CancelClick
      end
      object ToolButton2: TToolButton
        Left = 163
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 12
        Style = tbsSeparator
      end
      object TB_Refresh: TToolButton
        Left = 171
        Top = 0
        Caption = #21047#26032
        ImageIndex = 26
        OnClick = TB_RefreshClick
      end
      object ToolButton3: TToolButton
        Left = 202
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 13
        Style = tbsSeparator
      end
      object TB_Help: TToolButton
        Left = 210
        Top = 0
        Caption = #24110#21161
        ImageIndex = 9
      end
      object ToolButton4: TToolButton
        Left = 241
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_PurviewSetup: TToolButton
        Left = 249
        Top = 0
        Caption = #26435#38480
        ImageIndex = 34
        OnClick = TB_PurviewSetupClick
      end
      object TB_Close: TToolButton
        Left = 280
        Top = 0
        Caption = #36864#20986
        ImageIndex = 10
        OnClick = TB_CloseClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 390
    Width = 691
    Height = 19
    Color = 14803425
    Panels = <>
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 604
    Top = 6
    object N_State: TMenuItem
      Caption = #24037#20855#26639#29366#24577
      OnClick = N_StateClick
    end
    object N_TreeRead: TMenuItem
      Caption = #35835#21462#20998#31867#26641
      OnClick = N_TreeReadClick
    end
  end
  object DSbsUser: TDataSource
    DataSet = DM.bsUser
    Left = 528
    Top = 8
  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 = 568
    Top = 8
  end
end