dm_fpxl_pas.dfm

delphi6.0电子寻更源程序,用来计算保安有无查抄

object dm_fpxl: Tdm_fpxl
  OldCreateOrder = False
  Left = 285
  Top = 161
  Height = 479
  Width = 741
  object Q_xl: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select linename,shifts '
      'from shiftrule ')
    Left = 8
    Top = 16
    object Q_xllinename: TStringField
      FieldName = 'linename'
      Origin = 'GYXGDB."shiftrule.DB".Linename'
    end
    object Q_xlshifts: TStringField
      FieldName = 'shifts'
      Origin = 'GYXGDB."shiftrule.DB".Shifts'
      Size = 10
    end
  end
  object q_ry: TQuery
    DatabaseName = 'gyxgdb'
    Filtered = True
    SQL.Strings = (
      'select code,name'
      'from worker')
    Left = 8
    Top = 72
    object q_rycode: TStringField
      FieldName = 'code'
      Origin = 'GYXGDB."worker.DB".CODE'
      Size = 2
    end
    object q_ryname: TStringField
      FieldName = 'name'
      Origin = 'GYXGDB."worker.DB".NAME'
      Size = 8
    end
  end
  object ds_xl: TDataSource
    DataSet = Q_xl
    Left = 40
    Top = 72
  end
  object ds_ry: TDataSource
    DataSet = q_ry
    Left = 40
    Top = 16
  end
  object q_fpxl: TQuery
    DatabaseName = 'gyxgdb'
    RequestLive = True
    SQL.Strings = (
      'select *'
      'from fpxl'
      'where code=:code')
    Left = 8
    Top = 128
    ParamData = <
      item
        DataType = ftString
        Name = 'code'
        ParamType = ptInput
      end>
    object q_fpxlNumber: TIntegerField
      FieldName = 'Number'
      Origin = 'GYXGDB."fpxl.DB".Number'
    end
    object q_fpxlCode: TStringField
      FieldName = 'Code'
      Origin = 'GYXGDB."fpxl.DB".Code'
      Size = 2
    end
    object q_fpxlShift: TStringField
      FieldName = 'Shift'
      Origin = 'GYXGDB."fpxl.DB".Shift'
      Size = 10
    end
    object q_fpxlLinename: TStringField
      FieldName = 'Linename'
      Origin = 'GYXGDB."fpxl.DB".Linename'
    end
  end
  object ds_fpxl: TDataSource
    DataSet = q_fpxl
    Left = 48
    Top = 128
  end
  object q_fpxl_test: TQuery
    DatabaseName = 'gyxgdb'
    SQL.Strings = (
      'select *'
      'from fpxl'
      'where code=:code'
      'and (shift=:shift)'
      'and (linename=:linename)')
    Left = 96
    Top = 16
    ParamData = <
      item
        DataType = ftString
        Name = 'code'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'shift'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'linename'
        ParamType = ptInput
      end>
  end
end