unit3.dfm

delphi数据库的程序代码

object Form1: TForm1
  Left = 207
  Top = 117
  Width = 470
  Height = 351
  Caption = #21033#29992'DataSource'#33258#21160#21462#24471#21442#25968
  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 = 176
    Width = 120
    Height = 12
    Caption = #24403#21069#21592#24037#30340#20986#21220#35760#24405#65306
  end
  object Label2: TLabel
    Left = 16
    Top = 48
    Width = 36
    Height = 12
    Caption = #21592#24037#65306
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 8
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 64
    Width = 385
    Height = 105
    DataSource = DataSource1
    ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 16
    Top = 192
    Width = 385
    Height = 120
    DataSource = DataSource2
    ImeName = #20013#25991#20043#26143#26234#33021#29378#25340#8545#26631#20934#29256
    TabOrder = 2
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 288
    Top = 8
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'CompDuty'
    TableName = 'Employee'
    Left = 328
    Top = 8
    object Table1ID: TAutoIncField
      FieldName = 'ID'
      Visible = False
    end
    object Table1Name: TStringField
      DisplayLabel = #22995#21517
      DisplayWidth = 8
      FieldName = 'Name'
    end
    object Table1Sex: TStringField
      DisplayLabel = #24615#21035
      FieldName = 'Sex'
      Size = 2
    end
    object Table1BirthDay: TDateTimeField
      DisplayLabel = #20986#29983#26085#26399
      DisplayWidth = 10
      FieldName = 'BirthDay'
    end
    object Table1Job: TStringField
      DisplayLabel = #32844#20301
      DisplayWidth = 14
      FieldName = 'Job'
      Size = 30
    end
    object Table1Dept: TStringField
      DisplayLabel = #37096#38376
      DisplayWidth = 10
      FieldName = 'Dept'
      Size = 50
    end
    object Table1Salary: TIntegerField
      DisplayLabel = #24037#36164
      DisplayWidth = 7
      FieldName = 'Salary'
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'CompDuty'
    DataSource = DataSource1
    SQL.Strings = (
      'Select * '
      'From OnDuty '
      'Where EmpID=:ID')
    Left = 408
    Top = 8
    ParamData = <
      item
        DataType = ftAutoInc
        Name = 'ID'
        ParamType = ptUnknown
        Size = 4
      end>
    object Query1DutyDate: TDateTimeField
      DisplayLabel = #20986#21220#26085#26399
      FieldName = 'DutyDate'
      Origin = 'COMPDUTY.OnDuty.DutyDate'
      DisplayFormat = 'YYYY-MM-DD'
    end
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 368
    Top = 8
  end
end