umanduty.dfm

delphi数据库的程序代码

object FrmManDuty: TFrmManDuty
  Left = 243
  Top = 192
  Width = 375
  Height = 161
  Caption = #20986#21220#31649#29702#31383#20307
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 16
    Top = 64
    Width = 54
    Height = 12
    Caption = #20986#21220#26102#38388':'
  end
  object Label2: TLabel
    Left = 16
    Top = 104
    Width = 54
    Height = 12
    Caption = #20986#21220#21592#24037':'
  end
  object BtnClose: TButton
    Left = 280
    Top = 8
    Width = 75
    Height = 25
    Caption = #20851#38381'(&C)'
    TabOrder = 0
    OnClick = BtnCloseClick
  end
  object DBNavDuty: TDBNavigator
    Left = 16
    Top = 8
    Width = 240
    Height = 25
    DataSource = DsOnDuty
    Hints.Strings = (
      #39318#35760#24405
      #21069#19968#35760#24405
      #21518#19968#35760#24405
      #26411#35760#24405
      #22686#21152#35760#24405
      #21024#38500#35760#24405
      #20462#25913#35760#24405
      #30830#23450
      #21462#28040
      #21047#26032)
    TabOrder = 1
  end
  object DBDateDuty: TDBDateTimePicker
    Left = 72
    Top = 56
    Width = 121
    Height = 20
    CalAlignment = dtaLeft
    Date = 37225.0527246412
    Time = 37225.0527246412
    DateFormat = dfLong
    DateMode = dmComboBox
    ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
    Kind = dtkDate
    ParseInput = False
    TabOrder = 2
    DataField = 'DutyDate'
    DataSource = DsOnDuty
  end
  object DBLookupCboEmp: TDBLookupComboBox
    Left = 72
    Top = 96
    Width = 121
    Height = 20
    DataField = 'EmpID'
    DataSource = DsOnDuty
    ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
    KeyField = 'ID'
    ListField = 'Name'
    ListSource = DsEmployee
    TabOrder = 3
  end
  object DsOnDuty: TDataSource
    DataSet = TblOnDuty
    Left = 312
    Top = 48
  end
  object TblOnDuty: TTable
    Active = True
    DatabaseName = 'CompDuty'
    TableName = 'OnDuty'
    Left = 264
    Top = 48
  end
  object TblEmployee: TTable
    Active = True
    DatabaseName = 'CompDuty'
    TableName = 'Employee'
    Left = 264
    Top = 96
  end
  object DsEmployee: TDataSource
    DataSet = TblEmployee
    Left = 312
    Top = 96
  end
end