ufrmdutystat.~dfm

delphi数据库的程序代码

object FrmDutyStat: TFrmDutyStat
  Left = 208
  Top = 135
  Width = 394
  Height = 356
  Caption = #20986#21220#32479#35745
  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 DBGrid1: TDBGrid
    Left = 8
    Top = 40
    Width = 369
    Height = 281
    DataSource = DsStat
    ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
    TabOrder = 0
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'Name'
        Title.Caption = #22995#21517
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Times'
        Title.Caption = #20986#21220#27425#25968
        Visible = True
      end>
  end
  object BtnClose: TButton
    Left = 304
    Top = 8
    Width = 75
    Height = 25
    Caption = #20851#38381'(&C)'
    TabOrder = 1
    OnClick = BtnCloseClick
  end
  object DsStat: TDataSource
    DataSet = QueryStat
    Left = 344
    Top = 248
  end
  object QueryStat: TQuery
    Active = True
    DatabaseName = 'CompDuty'
    SQL.Strings = (
      'SELECT Employee.Name,Count(*) as Times '
      'FROM Onduty,Employee '
      'WHERE  (Onduty.EmpID = Employee.ID)'
      'GROUP BY Employee.Name')
    Left = 304
    Top = 248
  end
end