uni_workstation.~dfm

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

object Frm_WorkStation: TFrm_WorkStation
  Left = 63
  Top = 64
  Width = 650
  Height = 400
  Caption = #31449#28857#35774#32622
  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 Panel1: TPanel
    Left = 0
    Top = 39
    Width = 642
    Height = 315
    Align = alClient
    Color = 14803425
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 1
      Top = 57
      Width = 640
      Height = 3
      Cursor = crVSplit
      Align = alTop
    end
    object P_Edit: TPanel
      Left = 1
      Top = 1
      Width = 640
      Height = 56
      Align = alTop
      BevelInner = bvRaised
      BevelOuter = bvLowered
      Color = 14803425
      TabOrder = 0
      Visible = False
      object Label1: TLabel
        Left = 16
        Top = 22
        Width = 51
        Height = 13
        AutoSize = False
        Caption = #31449#28857#21517#31216':'
        FocusControl = DBEdit1
      end
      object Label2: TLabel
        Left = 232
        Top = 22
        Width = 51
        Height = 13
        AutoSize = False
        Caption = #32593#32476#22320#22336':'
        FocusControl = DBEdit2
      end
      object DBEdit1: TDBEdit
        Left = 72
        Top = 18
        Width = 145
        Height = 20
        DataField = 'cWSName'
        DataSource = DSbsWorkStation
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 288
        Top = 18
        Width = 145
        Height = 20
        DataField = 'cIP'
        DataSource = DSbsWorkStation
        TabOrder = 1
      end
    end
    object DBGbsWorkStation: TDBGridEh
      Left = 1
      Top = 60
      Width = 640
      Height = 254
      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 = DSbsWorkStation
      FixedColor = 14803425
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection]
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'cWSName'
          Footers = <>
          Title.Caption = #31449#28857#21517#31216
          DisplayNullIfZero = False
          IsCurrency = False
        end
        item
          EditButtons = <>
          FieldName = 'cIP'
          Footers = <>
          Title.Caption = #32593#32476#22320#22336
          DisplayNullIfZero = False
          IsCurrency = False
        end>
    end
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 642
    Height = 39
    AutoSize = True
    Bands = <
      item
        Control = TB_Main
        ImageIndex = -1
        MinHeight = 35
        Width = 638
      end>
    Color = 14803425
    ParentColor = False
    object TB_Main: TToolBar
      Left = 9
      Top = 0
      Width = 625
      Height = 35
      AutoSize = True
      ButtonHeight = 35
      ButtonWidth = 31
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = DM.ImageList1
      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 ToolButton1: TToolButton
        Left = 105
        Top = 0
        Width = 8
        Caption = 'ToolButton1'
        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 ToolButton2: TToolButton
        Left = 183
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Ping: TToolButton
        Left = 191
        Top = 0
        Caption = #27979#35797
        ImageIndex = 32
        OnClick = TB_PingClick
      end
      object TB_Refresh: TToolButton
        Left = 222
        Top = 0
        AutoSize = True
        Caption = #21047#26032
        ImageIndex = 26
        OnClick = TB_RefreshClick
      end
      object ToolButton4: TToolButton
        Left = 257
        Top = 0
        Width = 8
        Caption = 'ToolButton4'
        Enabled = False
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Help: TToolButton
        Left = 265
        Top = 0
        AutoSize = True
        Caption = #24110#21161
        ImageIndex = 9
      end
      object ToolButton3: TToolButton
        Left = 300
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        Enabled = False
        ImageIndex = 11
        Style = tbsSeparator
      end
      object TB_Close: TToolButton
        Left = 308
        Top = 0
        AutoSize = True
        Caption = #36864#20986
        ImageIndex = 10
        OnClick = TB_CloseClick
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 354
    Width = 642
    Height = 19
    Color = 14803425
    Panels = <>
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 476
    Top = 8
    object N_State: TMenuItem
      Caption = #24037#20855#26639#29366#24577
      OnClick = N_StateClick
    end
  end
  object DSbsWorkStation: TDataSource
    DataSet = DM.bsWorkStation
    Left = 440
    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 = 512
    Top = 8
  end
  object Ping: TIdTCPClient
    MaxLineAction = maException
    ReadTimeout = 0
    Port = 0
    Left = 409
    Top = 8
  end
end