ufrmdutyqueryed.~dfm

delphi数据库的程序代码

object FrmDutyQueryed: TFrmDutyQueryed
  Left = 198
  Top = 126
  Width = 413
  Height = 323
  Caption = #26597#35810#32467#26524
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 12
  object LblQuery: TLabel
    Left = 8
    Top = 16
    Width = 48
    Height = 12
    Caption = 'LblQuery'
  end
  object DBGridQuery: TDBGrid
    Left = 8
    Top = 40
    Width = 385
    Height = 249
    DataSource = DsQuery
    ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
    ReadOnly = True
    TabOrder = 0
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object BtnClose: TButton
    Left = 320
    Top = 8
    Width = 75
    Height = 25
    Caption = #20851#38381'(&C)'
    TabOrder = 1
    OnClick = BtnCloseClick
  end
  object TblQuery: TTable
    Active = True
    DatabaseName = 'CompDuty'
    Filtered = True
    TableName = 'OnDuty'
    Left = 232
    Top = 200
    object TblQueryEmpID: TIntegerField
      FieldName = 'EmpID'
      Visible = False
    end
    object TblQueryDutyDate: TDateTimeField
      DisplayLabel = #20986#21220#26102#38388
      FieldName = 'DutyDate'
      DisplayFormat = 'YYYY-MM-DD'
    end
  end
  object DsQuery: TDataSource
    DataSet = TblQuery
    Left = 272
    Top = 200
  end
end