leaveedit.dfm

是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.

inherited frmLeaveEdit: TfrmLeaveEdit
  Left = 282
  Top = 144
  Width = 782
  Height = 533
  Caption = #35831#20551#30331#35760#32534#36753
  OldCreateOrder = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited ToolBar1: TToolBar
    Width = 774
    inherited BtnPrior: TToolButton
      OnClick = BtnPriorClick
    end
    inherited BtnNext: TToolButton
      OnClick = BtnNextClick
    end
    inherited BtnAdd: TToolButton
      OnClick = BtnAddClick
    end
    inherited BtnEdit: TToolButton
      OnClick = BtnEditClick
    end
    inherited BtnSave: TToolButton
      OnClick = BtnSaveClick
    end
    inherited BtnExit: TToolButton
      OnClick = BtnExitClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 401
    Width = 774
    Height = 105
    Align = alBottom
    Caption = #21407#22240#35828#26126#65306' '
    TabOrder = 1
    object Memo: TMemo
      Left = 2
      Top = 15
      Width = 770
      Height = 88
      Align = alClient
      Lines.Strings = (
        'Memo')
      TabOrder = 0
      OnChange = CmbEmployeeChange
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 21
    Width = 774
    Height = 52
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 231
      Top = 20
      Width = 60
      Height = 13
      Caption = #21592#24037#21517#31216#65306
    end
    object Label2: TLabel
      Left = 456
      Top = 20
      Width = 60
      Height = 13
      Caption = #35831#20551#26085#26399#65306
    end
    object Label3: TLabel
      Left = 16
      Top = 20
      Width = 60
      Height = 13
      Caption = #35831#20551#21333#21495#65306
    end
    object CmbEmployee: TComboBox
      Left = 295
      Top = 16
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'CmbEmployee'
      OnChange = CmbEmployeeChange
    end
    object DtpDate: TDateTimePicker
      Left = 520
      Top = 16
      Width = 145
      Height = 21
      CalAlignment = dtaLeft
      Date = 38943.6742379167
      Time = 38943.6742379167
      DateFormat = dfShort
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
      OnChange = CmbEmployeeChange
    end
    object EdtBillNo: TEdit
      Left = 80
      Top = 16
      Width = 129
      Height = 21
      TabOrder = 2
      Text = 'EdtBillNo'
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 73
    Width = 774
    Height = 328
    Align = alClient
    Caption = #26102#38388#35774#23450
    TabOrder = 3
    object Grid: TDBGridEh
      Left = 2
      Top = 15
      Width = 770
      Height = 311
      Align = alClient
      DataSource = DSGrid
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'MS Sans Serif'
      FooterFont.Style = []
      Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      OnCellClick = GridCellClick
      OnKeyPress = GridKeyPress
      Columns = <
        item
          EditButtons = <>
          FieldName = 'BeginDate'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24320#22987#26085#26399
          Width = 100
          OnNotInList = GridColumns0NotInList
          OnUpdateData = GridColumns0UpdateData
        end
        item
          EditButtons = <>
          FieldName = 'EndDate'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32467#26463#26085#26399
          Width = 100
          OnNotInList = GridColumns0NotInList
          OnUpdateData = GridColumns0UpdateData
        end
        item
          EditButtons = <>
          FieldName = 'TimeMode'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #26102#38388#27169#24335
          Width = 100
          OnNotInList = GridColumns0NotInList
          OnUpdateData = GridColumns2UpdateData
        end
        item
          EditButtons = <>
          FieldName = 'BeginTime'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #24320#22987#26102#38388
          Width = 100
          OnNotInList = GridColumns0NotInList
          OnUpdateData = GridColumns0UpdateData
        end
        item
          EditButtons = <>
          FieldName = 'EndTime'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #32467#26463#26102#38388
          Width = 100
          OnNotInList = GridColumns0NotInList
          OnUpdateData = GridColumns0UpdateData
        end
        item
          EditButtons = <>
          FieldName = 'TimePos'
          Footers = <>
          Title.Alignment = taCenter
          Title.Caption = #26102#38388#27573
          Width = 100
          OnNotInList = GridColumns0NotInList
          OnUpdateData = GridColumns0UpdateData
        end>
    end
  end
  object QurFree: TADOQuery
    Connection = frmDM.Con
    Parameters = <>
    Left = 288
    Top = 184
  end
  object QurGrid: TADOQuery
    Active = True
    Connection = frmDM.Con
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from LeaveInfo_D')
    Left = 120
    Top = 192
  end
  object MnuLeaveEdit: TPopupMenu
    Left = 328
    Top = 184
    object N1: TMenuItem
      Caption = #28155#21152#19968#34892
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21024#38500#24403#34892
      OnClick = N2Click
    end
  end
  object DSGrid: TDataSource
    DataSet = QurGrid
    Left = 152
    Top = 192
  end
end