data.dfm

用于实现C/S架构下的表单打印 支持清单打印 还支持多种模式下的打印

    end
    object qryzlEmployeePyDate: TDateTimeField
      FieldName = 'PyDate'
    end
    object qryzlEmployeeSyMonths: TIntegerField
      FieldName = 'SyMonths'
    end
    object qryzlEmployeeZzDate: TDateTimeField
      FieldName = 'ZzDate'
    end
    object qryzlEmployeeRoomBed: TWideStringField
      FieldName = 'RoomBed'
      Size = 9
    end
    object qryzlEmployeeIfDaKa: TBooleanField
      FieldName = 'IfDaKa'
    end
    object qryzlEmployeeState: TSmallintField
      FieldName = 'State'
    end
    object qryzlEmployeeLzDate: TDateTimeField
      FieldName = 'LzDate'
    end
    object qryzlEmployeeLzCause: TWideStringField
      FieldName = 'LzCause'
      Size = 2
    end
    object qryzlEmployeeMemo: TWideStringField
      FieldName = 'Memo'
      Size = 60
    end
    object qryzlEmployeeZhiJi: TWideStringField
      FieldName = 'ZhiJi'
      Size = 2
    end
    object qryzlEmployeeZhiWu: TWideStringField
      FieldName = 'ZhiWu'
      Size = 6
    end
    object qryzlEmployeeXueLi: TWideStringField
      FieldName = 'XueLi'
      Size = 2
    end
    object qryzlEmployeeHunYin: TWideStringField
      FieldName = 'HunYin'
      Size = 2
    end
    object qryzlEmployeeJiGuan: TWideStringField
      FieldName = 'JiGuan'
      Size = 6
    end
    object qryzlEmployeeNation: TWideStringField
      FieldName = 'Nation'
      Size = 2
    end
    object qryzlEmployeeG_jtdh: TWideStringField
      FieldName = 'G_jtdh'
      Size = 15
    end
    object qryzlEmployeeG_xzdz: TWideStringField
      FieldName = 'G_xzdz'
      Size = 100
    end
    object qryzlEmployeeG_lxdh: TWideStringField
      FieldName = 'G_lxdh'
      Size = 15
    end
    object qryzlEmployeeG_email: TWideStringField
      FieldName = 'G_email'
      Size = 30
    end
    object qryzlEmployeeG_bysj: TDateTimeField
      FieldName = 'G_bysj'
    end
    object qryzlEmployeeG_jtzz: TWideStringField
      FieldName = 'G_jtzz'
      Size = 100
    end
    object qryzlEmployeeG_yb: TFloatField
      FieldName = 'G_yb'
    end
    object qryzlEmployeeG_http: TWideStringField
      FieldName = 'G_http'
      Size = 40
    end
    object qryzlEmployeeJxfs: TWideStringField
      FieldName = 'Jxfs'
      Size = 2
    end
    object qryzlEmployeeG_bsw: TWideStringField
      FieldName = 'G_bsw'
      Size = 6
    end
    object qryzlEmployeeG_sxzy: TWideStringField
      FieldName = 'G_sxzy'
      Size = 24
    end
    object qryzlEmployeeG_zzzz: TWideStringField
      FieldName = 'G_zzzz'
      Size = 10
    end
    object qryzlEmployeexueliName: TWideStringField
      FieldName = 'xueliName'
      Size = 12
    end
  end
  object qryItems: TADOQuery
    Connection = MainConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select i.*, Description as PartName, ListPrice as Price,'
      '            i.Qty * p.ListPrice as Total'
      ' from items i Left Join Parts p On i.PartNo= p.PartNo'
      'order by ItemNo')
    Left = 184
    Top = 144
    object qryItemsOrderNo: TFloatField
      FieldName = 'OrderNo'
    end
    object qryItemsItemNo: TFloatField
      FieldName = 'ItemNo'
    end
    object qryItemsPartNo: TFloatField
      FieldName = 'PartNo'
    end
    object qryItemsQty: TIntegerField
      FieldName = 'Qty'
    end
    object qryItemsDiscount: TFloatField
      FieldName = 'Discount'
    end
    object qryItemsPartName: TStringField
      FieldName = 'PartName'
      LookupDataSet = qryParts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'Description'
      KeyFields = 'PartNo'
      Size = 30
    end
    object qryItemsPrice: TFloatField
      FieldName = 'Price'
      LookupDataSet = qryParts
      LookupKeyFields = 'PartNo'
      LookupResultField = 'ListPrice'
      KeyFields = 'PartNo'
    end
    object qryItemsTotal: TFloatField
      FieldName = 'Total'
    end
  end
  object qryXueli: TADOQuery
    Connection = MainConn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from XueLi'
      'Order by Code')
    Left = 240
    Top = 144
    object qryXueliCode: TWideStringField
      FieldName = 'Code'
      Size = 2
    end
    object qryXueliName: TWideStringField
      FieldName = 'Name'
      Size = 12
    end
  end
  object qryPhoto: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'Select * from photo')
    Left = 32
    Top = 208
    object qryPhotoID: TIntegerField
      FieldName = 'ID'
    end
    object qryPhotoDept: TWideStringField
      FieldName = 'Dept'
      Size = 10
    end
    object qryPhotoCode: TWideStringField
      FieldName = 'Code'
      Size = 8
    end
    object qryPhotoCardNo: TWideStringField
      FieldName = 'CardNo'
      Size = 12
    end
    object qryPhotoName: TWideStringField
      FieldName = 'Name'
      Size = 8
    end
    object qryPhotoSfz: TWideStringField
      FieldName = 'Sfz'
      Size = 18
    end
    object qryPhotoBornDate: TDateTimeField
      FieldName = 'BornDate'
    end
    object qryPhotoSex: TBooleanField
      FieldName = 'Sex'
    end
    object qryPhotoPyDate: TDateTimeField
      FieldName = 'PyDate'
    end
    object qryPhotoSyMonths: TIntegerField
      FieldName = 'SyMonths'
    end
    object qryPhotoZzDate: TDateTimeField
      FieldName = 'ZzDate'
    end
    object qryPhotoRoomBed: TWideStringField
      FieldName = 'RoomBed'
      Size = 9
    end
    object qryPhotoIfDaKa: TBooleanField
      FieldName = 'IfDaKa'
    end
    object qryPhotoState: TSmallintField
      FieldName = 'State'
    end
    object qryPhotoLzDate: TDateTimeField
      FieldName = 'LzDate'
    end
    object qryPhotoLzCause: TWideStringField
      FieldName = 'LzCause'
      Size = 2
    end
    object qryPhotoMemo: TWideStringField
      FieldName = 'Memo'
      Size = 60
    end
    object qryPhotoPhoto: TBlobField
      FieldName = 'Photo'
    end
    object qryPhotoZhiJi: TWideStringField
      FieldName = 'ZhiJi'
      Size = 2
    end
    object qryPhotoZhiWu: TWideStringField
      FieldName = 'ZhiWu'
      Size = 3
    end
    object qryPhotoXueLi: TWideStringField
      FieldName = 'XueLi'
      Size = 2
    end
    object qryPhotoHunYin: TWideStringField
      FieldName = 'HunYin'
      Size = 2
    end
    object qryPhotoJiGuan: TWideStringField
      FieldName = 'JiGuan'
      Size = 6
    end
    object qryPhotoNation: TWideStringField
      FieldName = 'Nation'
      Size = 2
    end
    object qryPhotoJxfs: TWideStringField
      FieldName = 'Jxfs'
      Size = 2
    end
    object qryPhotoLzTc: TIntegerField
      FieldName = 'LzTc'
    end
    object qryPhotoGongZhong: TWideStringField
      FieldName = 'GongZhong'
      Size = 5
    end
    object qryPhotoDeBz: TWideStringField
      FieldName = 'DeBz'
      Size = 4
    end
    object qryPhotoG_gwh: TWideStringField
      FieldName = 'G_gwh'
      Size = 10
    end
    object qryPhotoG_lxdh: TWideStringField
      FieldName = 'G_lxdh'
      Size = 15
    end
    object qryPhotoG_yhzh: TWideStringField
      FieldName = 'G_yhzh'
      Size = 10
    end
    object qryPhotoG_yhxh: TWideStringField
      FieldName = 'G_yhxh'
      Size = 6
    end
    object qryPhotoG_cl: TWideStringField
      FieldName = 'G_cl'
      Size = 10
    end
    object qryPhotoCy: TBooleanField
      FieldName = 'Cy'
    end
    object qryPhotoEName: TWideStringField
      FieldName = 'EName'
      Size = 40
    end
  end
  object qryXueLiEmp: TADOQuery
    Connection = MainConn
    Parameters = <>
    SQL.Strings = (
      'Select X.Code, X.Name, Count(*) As Num'
      '  From zlemployee z inner join Xueli X'
      '      On z.XueLi = X.Code'
      'Group By X.Code, X.Name')
    Left = 112
    Top = 208
    object qryXueLiEmpCode: TWideStringField
      FieldName = 'Code'
      Size = 2
    end
    object qryXueLiEmpName: TWideStringField
      FieldName = 'Name'
      Size = 12
    end
    object qryXueLiEmpNum: TIntegerField
      FieldName = 'Num'
    end
  end
end