pubdata.dfm

这是一个实用的软件

      FieldName = 'Dr_result'
      Size = 255
    end
    object qryhi_drawDr_transact: TWideStringField
      FieldName = 'Dr_transact'
      Size = 255
    end
    object qryhi_drawDr_worker: TWideStringField
      FieldName = 'Dr_worker'
    end
    object qryhi_drawFdate: TDateTimeField
      FieldName = 'Fdate'
    end
    object qryhi_drawfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qryhi_drawfSort: TWideStringField
      FieldName = 'fSort'
    end
  end
  object dshi_draw: TDataSource
    DataSet = qryhi_draw
    Left = 288
    Top = 216
  end
  object qrykc_table: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from kc_table')
    Left = 224
    Top = 272
    object qrykc_tableid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrykc_tableKc_code: TWideStringField
      FieldName = 'Kc_code'
    end
    object qrykc_tableKc_name: TWideStringField
      FieldName = 'Kc_name'
      Size = 50
    end
    object qrykc_tableKc_qty1: TFloatField
      FieldName = 'Kc_qty1'
    end
    object qrykc_tableKc_qty2: TFloatField
      FieldName = 'Kc_qty2'
    end
    object qrykc_tableKc_qty3: TFloatField
      FieldName = 'Kc_qty3'
    end
    object qrykc_tableKc_qty4: TIntegerField
      FieldName = 'Kc_qty4'
    end
    object qrykc_tableKc_allqty: TIntegerField
      FieldName = 'Kc_allqty'
    end
    object qrykc_tableKc_money: TFloatField
      FieldName = 'Kc_money'
    end
    object qrykc_tableKc_up: TFloatField
      FieldName = 'Kc_up'
    end
    object qrykc_tableKc_down: TFloatField
      FieldName = 'Kc_down'
    end
    object qrykc_tablefmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qrykc_tableKc_cbprice: TFloatField
      FieldName = 'Kc_cbprice'
    end
  end
  object qryphy: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from Bs_physic'
      'where 1=0')
    Left = 288
    Top = 272
    object qryphyid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qryphyPhy_code: TWideStringField
      FieldName = 'Phy_code'
    end
    object qryphyPhy_name: TWideStringField
      FieldName = 'Phy_name'
    end
    object qryphyPhy_type: TWideStringField
      FieldName = 'Phy_type'
    end
    object qryphyPhy_marking: TWideStringField
      FieldName = 'Phy_marking'
    end
    object qryphyPhy_abc: TWideStringField
      FieldName = 'Phy_abc'
    end
    object qryphyPhy_unit: TWideStringField
      FieldName = 'Phy_unit'
    end
    object qryphyPhy_aveprice: TFloatField
      FieldName = 'Phy_aveprice'
    end
    object qryphyPhy_retail1: TFloatField
      FieldName = 'Phy_retail1'
    end
    object qryphyPhy_unit1: TWideStringField
      FieldName = 'Phy_unit1'
    end
    object qryphyPhy_unit1rate: TFloatField
      FieldName = 'Phy_unit1rate'
    end
    object qryphyPhy_retail2: TFloatField
      FieldName = 'Phy_retail2'
    end
    object qryphyPhy_unit2: TWideStringField
      FieldName = 'Phy_unit2'
    end
    object qryphyPhy_unit2rate: TFloatField
      FieldName = 'Phy_unit2rate'
    end
    object qryphyPhy_retail3: TFloatField
      FieldName = 'Phy_retail3'
    end
    object qryphyPhy_unit3: TWideStringField
      FieldName = 'Phy_unit3'
    end
    object qryphyPhy_unit3rate: TFloatField
      FieldName = 'Phy_unit3rate'
    end
    object qryphyPhy_retail4: TFloatField
      FieldName = 'Phy_retail4'
    end
    object qryphyPhy_up: TFloatField
      FieldName = 'Phy_up'
    end
    object qryphyPhy_down: TFloatField
      FieldName = 'Phy_down'
    end
    object qryphyPhy_spec: TWideStringField
      FieldName = 'Phy_spec'
    end
    object qryphyPhy_xz: TWideStringField
      FieldName = 'Phy_xz'
    end
    object qryphyPhy_fit: TWideStringField
      FieldName = 'Phy_fit'
      Size = 100
    end
    object qryphyPhy_reaction: TWideStringField
      FieldName = 'Phy_reaction'
      Size = 100
    end
    object qryphyPhy_enjoin: TWideStringField
      FieldName = 'Phy_enjoin'
      Size = 100
    end
    object qryphyPhy_attention: TWideStringField
      FieldName = 'Phy_attention'
      Size = 100
    end
    object qryphyPhy_savedate: TFloatField
      FieldName = 'Phy_savedate'
    end
    object qryphyPhy_otc: TIntegerField
      FieldName = 'Phy_otc'
    end
    object qryphyPhy_out: TIntegerField
      FieldName = 'Phy_out'
    end
    object qryphyfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qryphyfSort: TWideStringField
      FieldName = 'fSort'
    end
    object qryphyphy_used: TWideStringField
      FieldName = 'phy_used'
    end
    object qryphyphy_factory: TWideStringField
      FieldName = 'phy_factory'
      Size = 50
    end
    object qryphyftype: TWideStringField
      FieldName = 'ftype'
      Size = 50
    end
  end
  object qrycount: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from fcount')
    Left = 56
    Top = 320
    object qrycountid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qrycountcount: TIntegerField
      FieldName = 'count'
    end
  end
  object ADOhint: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from cg_master '
      'where 1=0')
    Left = 128
    Top = 320
    object ADOhintid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOhintfcode: TWideStringField
      FieldName = 'fcode'
    end
    object ADOhintMa_worker: TWideStringField
      FieldName = 'Ma_worker'
    end
    object ADOhintMa_whscode: TWideStringField
      FieldName = 'Ma_whscode'
    end
    object ADOhintMa_pcode: TWideStringField
      FieldName = 'Ma_pcode'
    end
    object ADOhintMa_pname: TWideStringField
      FieldName = 'Ma_pname'
      Size = 50
    end
    object ADOhintFdate: TDateTimeField
      FieldName = 'Fdate'
    end
    object ADOhintMa_unit: TWideStringField
      FieldName = 'Ma_unit'
    end
    object ADOhintMa_unit2: TFloatField
      FieldName = 'Ma_unit2'
    end
    object ADOhintMa_unit1: TFloatField
      FieldName = 'Ma_unit1'
    end
    object ADOhintMa_ss: TFloatField
      FieldName = 'Ma_ss'
    end
    object ADOhintMa_buyprice: TFloatField
      FieldName = 'Ma_buyprice'
    end
    object ADOhintMa_sum: TFloatField
      FieldName = 'Ma_sum'
    end
    object ADOhintMa_yield: TDateTimeField
      FieldName = 'Ma_yield'
    end
    object ADOhintMa_enddate: TDateTimeField
      FieldName = 'Ma_enddate'
    end
    object ADOhintMa_ph: TWideStringField
      FieldName = 'Ma_ph'
    end
    object ADOhintMa_factory: TWideStringField
      FieldName = 'Ma_factory'
      Size = 50
    end
    object ADOhintfout: TIntegerField
      FieldName = 'fout'
    end
    object ADOhintfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object ADOhintfSort: TWideStringField
      FieldName = 'fSort'
    end
    object ADOhintma_bzq: TIntegerField
      FieldName = 'ma_bzq'
    end
    object ADOhintma_qyt: TFloatField
      FieldName = 'ma_qyt'
    end
    object ADOhintma_otc: TIntegerField
      FieldName = 'ma_otc'
    end
    object ADOhintma_othername: TWideStringField
      FieldName = 'ma_othername'
      Size = 50
    end
  end
  object fcount: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from fcount')
    Left = 224
    Top = 328
    object fcountid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object fcountcount: TIntegerField
      FieldName = 'count'
    end
  end
  object dscount: TDataSource
    DataSet = fcount
    Left = 296
    Top = 328
  end
  object qryfy: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bs_fy')
    Left = 64
    Top = 384
    object qryfyid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object qryfyfy_code: TWideStringField
      FieldName = 'fy_code'
    end
    object qryfyfy_name: TWideStringField
      FieldName = 'fy_name'
    end
    object qryfyfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object qryfysort: TWideStringField
      FieldName = 'sort'
    end
  end
  object dsfy: TDataSource
    DataSet = qryfy
    Left = 136
    Top = 384
  end
end