pas_office.dfm

比较详细的功能

object Form_office: TForm_office
  Left = 235
  Top = 140
  Width = 902
  Height = 605
  Caption = #21150#20844#29992#21697#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  WindowState = wsMaximized
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 488
    Top = 152
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #24320#22987#26102#38388
  end
  object Label5: TLabel
    Left = 488
    Top = 192
    Width = 65
    Height = 13
    AutoSize = False
    Caption = #32467#26463#26102#38388
  end
  object Label3: TLabel
    Left = 488
    Top = 224
    Width = 97
    Height = 13
    AutoSize = False
    Caption = #24635#35745#65306
  end
  object Label2: TLabel
    Left = 488
    Top = 64
    Width = 89
    Height = 17
    AutoSize = False
    Caption = #37096#38376
  end
  object Label1: TLabel
    Left = 488
    Top = 104
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #20107#29289#65306
  end
  object Label13: TLabel
    Left = 32
    Top = 40
    Width = 65
    Height = 17
    AutoSize = False
    Caption = #24207#21495
  end
  object Label9: TLabel
    Left = 32
    Top = 80
    Width = 89
    Height = 17
    AutoSize = False
    Caption = #37096#38376
  end
  object Label6: TLabel
    Left = 32
    Top = 120
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #20107#29289
  end
  object Label11: TLabel
    Left = 32
    Top = 160
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #25968#37327
  end
  object Label8: TLabel
    Left = 32
    Top = 200
    Width = 89
    Height = 13
    AutoSize = False
    Caption = #24635#20849#37329#39069
  end
  object Label10: TLabel
    Left = 32
    Top = 232
    Width = 73
    Height = 13
    AutoSize = False
    Caption = #21457#29983#26102#38388
  end
  object Label12: TLabel
    Left = 32
    Top = 264
    Width = 97
    Height = 13
    AutoSize = False
    Caption = #22791#27880
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 877
    Height = 33
    ButtonHeight = 31
    ButtonWidth = 57
    Caption = 'ToolBar1'
    Color = clGreen
    ParentColor = False
    TabOrder = 0
    object add: TSpeedButton
      Left = 0
      Top = 2
      Width = 161
      Height = 31
      Cursor = crHandPoint
      Caption = #28155#21152#21150#20844#29992#21697'(F4)'
      Flat = True
      OnClick = addClick
    end
    object modify: TSpeedButton
      Left = 161
      Top = 2
      Width = 184
      Height = 31
      Cursor = crHandPoint
      Caption = #20462#25913#21150#20844#29992#21697
      Flat = True
      OnClick = modifyClick
    end
    object del: TSpeedButton
      Left = 345
      Top = 2
      Width = 144
      Height = 31
      Cursor = crHandPoint
      Caption = #21024#38500#29992#21697
      Flat = True
      OnClick = delClick
    end
    object select: TSpeedButton
      Left = 489
      Top = 2
      Width = 177
      Height = 31
      Cursor = crHandPoint
      Hint = #21487#20197#27169#31946#26597#35810#21517#23383
      Caption = #26597#35810#37096#38376#29992#21697'(F1)'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = selectClick
    end
  end
  object edit_money: TEdit
    Left = 584
    Top = 216
    Width = 193
    Height = 32
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    Text = '0'
  end
  object dtp_end: TDateTimePicker
    Left = 584
    Top = 184
    Width = 129
    Height = 21
    Date = 39146.043431342590000000
    Time = 39146.043431342590000000
    TabOrder = 2
  end
  object dtp_start: TDateTimePicker
    Left = 584
    Top = 144
    Width = 129
    Height = 21
    Date = 39146.043431342590000000
    Time = 39146.043431342590000000
    TabOrder = 3
  end
  object cb_thing: TComboBox
    Left = 584
    Top = 96
    Width = 129
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    OnDropDown = cb_thingDropDown
  end
  object cb_depart: TComboBox
    Left = 584
    Top = 64
    Width = 129
    Height = 21
    ItemHeight = 13
    TabOrder = 5
    OnDropDown = cb_departDropDown
  end
  object edit_remarks: TEdit
    Left = 136
    Top = 256
    Width = 241
    Height = 21
    TabOrder = 6
  end
  object dtp_optime: TDateTimePicker
    Left = 136
    Top = 224
    Width = 129
    Height = 21
    Date = 39146.043431342590000000
    Time = 39146.043431342590000000
    TabOrder = 7
  end
  object edit_money2: TEdit
    Left = 136
    Top = 192
    Width = 129
    Height = 21
    TabOrder = 8
  end
  object Edit_num: TEdit
    Left = 136
    Top = 152
    Width = 129
    Height = 21
    TabOrder = 9
  end
  object cb_thing2: TComboBox
    Left = 136
    Top = 112
    Width = 129
    Height = 21
    ItemHeight = 13
    TabOrder = 10
    OnDropDown = cb_thing2DropDown
  end
  object cb_depart2: TComboBox
    Left = 136
    Top = 72
    Width = 129
    Height = 21
    ItemHeight = 13
    TabOrder = 11
    OnDropDown = cb_depart2DropDown
  end
  object Edit_no: TEdit
    Left = 136
    Top = 40
    Width = 129
    Height = 21
    Hint = #19981#35201#22635
    Color = clInactiveCaption
    ParentShowHint = False
    ReadOnly = True
    ShowHint = True
    TabOrder = 12
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 277
    Width = 877
    Height = 376
    Align = alBottom
    DataSource = DM2.ds_office
    TabOrder = 13
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnCellClick = DBGrid1CellClick
  end
end