kc_table.dfm

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

      EF00FFFFFF00FFFFFF00E7E7E700DEDEDE00DEDEDE00CECECE00BDBDBD00ADAD
      AD008C8C8C005A5252007B7B7B00737373000000000000000000000000000000
      000039ADFF00A5CEE700AD847B00AD847300E7CEB500FFFFDE00FFFFDE00FFFF
      CE00CEB59C00A5736B0000000000000000000000000000000000844A4A00E76B
      6B00DE636300DE636300DE636300C65A5A004A18180021B54A0010BD4A0018BD
      4A0010BD4200F7B5B500844A4A0000000000CEA59400FFFFFF00FFEFD600D6CE
      B500FFEFD6006B6B6B006B6B6B00FFFFFF00ADA58C00000000006B6B6B00006B
      0000006B0000FFFFFF00F7E7D600006B00006B6B6B008C8C8C00FFFFFF00FFFF
      FF00FFFFFF00D6D6D6009C949400A59C9C00B5ADAD00C6C6C600D6D6D600DEDE
      DE00C6C6C600B5B5B500948C8C006B6B6B000000000000000000000000000000
      00000000000000000000C6947B00FFEFAD00FFFFCE00FFFFCE00FFFFD600FFFF
      DE00FFFFFF00E7D6D6009C6B6300000000000000000000000000844A4A00EF6B
      6B00E7636B00E77B7B00FFD6D600CE6B73004A181800A5DE940052D66B0042CE
      630029C65A00F7B5B500844A4A0000000000B5848400FFFFFF00F7EFEF00FFEF
      D600F7EFEF006B6B6B006B6B6B00ADA58C00000000006B6B6B00FFFFFF00FFEF
      D60000000000006B0000F7EFEF00006B0000000000006B6B6B006B6B6B00EFEF
      EF00B5A5A5007B6B73008C848C0094949400949494009C949C009C9494009C9C
      9C00BDBDBD00D6D6D600C6C6C6006B6B6B000000000000000000000000000000
      00000000000000000000B58C7B00FFD69400FFF7C600FFFFD600FFFFDE00FFFF
      F700FFFFFF00FFFFFF00B5948400000000000000000000000000844A4A00F773
      7300EF6B6B00EF848400FFD6D600CE6B73004A181800FFF7CE00FFFFD600FFFF
      D600E7FFC600F7B5B500844A4A0000000000CEA59400FFFFFF00FFFFFF00FFF7
      F700FFEFD6006B6B6B006B6B6B00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00F7E7D600006B00000000000000000000000000006B6B
      6B00BD8C7B00A5846B008C6B63007B6363006B6363007B737B008C8C8C00ADA5
      A500CECECE00C6C6C6006B6B6B00000000000000000000000000000000000000
      000000000000B58C7B00FFDE9400EFB57B00FFEFBD00FFFFD600FFFFDE00FFFF
      F700FFFFF700FFFFE700EFDEBD00A57B73000000000000000000844A4A00FF7B
      7B00F7737300EF737300F7737300D66363004A181800FFEFC600FFFFD600FFFF
      D600FFFFD600F7B5B500844A4A0000000000CEA59400FFFFFF00FFFFFF00FFEF
      D600FFFFFF006B6B6B00006B00006B6B6B006B6B6B006B6B6B006B6B6B006B6B
      6B006B6B6B006B6B6B006B6B6B00006B00000000000000000000000000000000
      0000BD848400FFE7B500FFD69C00EFB58400CE9C7300BD946B00BD848400847B
      7B006B6B6B006B6B6B0000000000000000000000000000000000000000000000
      000000000000B58C7B00FFDE9C00EFA56300F7D69C00FFFFCE00FFFFD600FFFF
      DE00FFFFDE00FFFFD600EFE7C600AD7B73000000000000000000844A4A00FF7B
      8400F77B7B00F77B7B00F7737B00D66B6B004A181800FFEFC600FFFFD600FFFF
      D600FFFFD600F7B5B500844A4A0000000000CEA59400FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00ADA58C006B6B6B006B6B6B006B6B6B006B6B6B006B6B6B00006B
      000094635A006B6B6B006B6B6B006B6B6B000000000000000000000000000000
      0000BD848400FFE7BD00FFD6A500FFD69C00FFCE9400FFC68C00BD8484000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000AD7B7300FFE7A500F7B57B00EFBD7B00F7DEA500FFFFCE00FFFF
      D600FFFFD600FFFFD600DEC6A500A5736B000000000000000000844A4A00FF84
      8400FF7B8400FF7B7B00FF7B8400DE6B6B004A181800FFEFC600FFFFD600FFFF
      D600FFFFD600F7B5B500844A4A0000000000CEA59400FFFFFF00FFFFFF00FFFF
      FF00F7EFEF00FFFFFF00F7EFEF00FFEFD600FFFFFF00FFEFD600CEA59400B57B
      6B0000000000000000000000000000000000000000000000000000000000C684
      8400FFE7CE00FFE7C600FFDEB500FFD6A500FFD69C00BD848400000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000CEB59400FFFFDE00F7D6A500EFBD7B00F7C68C00FFE7
      AD00FFF7BD00FFFFCE00A5736B00000000000000000000000000844A4A00FF8C
      8C00FF848400FF848400FF848400E77373004A181800FFEFC600FFFFD600FFFF
      D600FFFFD600F7B5B500844A4A0000000000F7D69C00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D694630094636300C6845A006B6B
      6B0000000000000000000000000000000000000000000000000000000000BD84
      8400FFEFDE00FFE7CE00FFDEBD00FFDEB500FFD6A500BD848400000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000A5736B00E7D6D600FFFFEF00F7CE8C00F7B57300F7C6
      8C00FFE7A500C6A58C00A5736B00000000000000000000000000844A4A00844A
      4A00E7737300FF848400FF848400E77373004A181800FFEFC600FFFFD600FFFF
      CE00FFFFD600F7B5B500844A4A0000000000CEA59400FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFEFD60094636300FFAD3100FFAD3100A56B
      6B00000000000000000000000000000000000000000000000000BD848400FFFF
      F700FFFFF700FFEFDE00FFE7CE00FFE7BD00F7C6A500BD848400000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000009C6B6300BD948400EFD6A500EFD69C00E7C6
      9400A5736B00A5736B0000000000000000000000000000000000000000000000
      0000844A4A009C525200CE6B6B00CE6B6B004A181800844A4A00844A4A00844A
      4A00844A4A00844A4A00844A4A0000000000F7D69C00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00D6946300D6946300C68C6B000000
      0000000000000000000000000000000000000000000000000000BD848400BD84
      8400BD848400FFEFE700FFE7CE00FFDEC600BD84840000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000A57B7300AD847300A57B
      6B00000000000000000000000000000000000000000000000000000000000000
      00000000000000000000844A4A00844A4A004A18180000000000000000000000
      000000000000000000000000000000000000B5848400CEA59400CEA59400D694
      6300CEA59400D6946300CEA59400FFBD5A0094636300A56B6B00000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000BD848400BD848400BD8484000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000300000000100010000000000800100000000000000000000
      000000000000000000000000FFFFFF0000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000009FFFFE7FF800F33F0FFFF07F0000E007
      07FFC0010000C00083FFC00100008001C1FFC00100000000E10FC00100000000
      F003C00100000000FC01C00100008000FC01C0010000E001F800C0010000F003
      F800C0010000F01FF800C001000FE03FFC01C001000FE03FFC01C001000FC03F
      FE03F001001FC07FFF8FFC7F003FF8FF00000000000000000000000000000000
      000000000000}
  end
  object ADOsearch: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select Kc_code,Kc_name,Kc_cbprice,Kc_qty1,Kc_qty2,Kc_qty3,Kc_qty' +
        '4,Kc_allqty,Kc_money,b.phy_unit,'
      '       Kc_up,Kc_down,a.fmem,(Kc_allqty*Kc_cbprice) as totalmoney'
      
        'from KC_table a left outer join  Bs_physic b on a.kc_code=b.Phy_' +
        'code'
      '')
    Left = 408
    object ADOsearchKc_code: TWideStringField
      FieldName = 'Kc_code'
    end
    object ADOsearchKc_name: TWideStringField
      FieldName = 'Kc_name'
      Size = 50
    end
    object ADOsearchKc_qty1: TFloatField
      FieldName = 'Kc_qty1'
      DisplayFormat = '0.00#'
    end
    object ADOsearchKc_qty2: TFloatField
      FieldName = 'Kc_qty2'
      DisplayFormat = '0.00#'
    end
    object ADOsearchKc_qty3: TFloatField
      FieldName = 'Kc_qty3'
      DisplayFormat = '0.00#'
    end
    object ADOsearchKc_qty4: TIntegerField
      FieldName = 'Kc_qty4'
      DisplayFormat = '0.00#'
    end
    object ADOsearchKc_allqty: TIntegerField
      FieldName = 'Kc_allqty'
      DisplayFormat = '0.00#'
    end
    object ADOsearchKc_money: TFloatField
      FieldName = 'Kc_money'
      DisplayFormat = '0.00#'
    end
    object ADOsearchKc_up: TFloatField
      FieldName = 'Kc_up'
      DisplayFormat = '0.00#'
    end
    object ADOsearchKc_down: TFloatField
      FieldName = 'Kc_down'
      DisplayFormat = '0.00#'
    end
    object ADOsearchfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object ADOsearchKc_cbprice: TFloatField
      FieldName = 'Kc_cbprice'
      DisplayFormat = '0.00#'
    end
    object ADOsearchtotalmoney: TFloatField
      FieldName = 'totalmoney'
      ReadOnly = True
      DisplayFormat = '0.00#'
    end
    object ADOsearchphy_unit: TWideStringField
      FieldName = 'phy_unit'
    end
    object ADOsearchunit: TStringField
      FieldKind = fkLookup
      FieldName = 'unit'
      LookupDataSet = fpubdata.qrydisp_unit
      LookupKeyFields = 'Unit_code'
      LookupResultField = 'Unit_name'
      KeyFields = 'phy_unit'
      Lookup = True
    end
  end
  object dssearch: TDataSource
    DataSet = ADOsearch
    Left = 440
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 256
    Top = 8
    ReportForm = {19000000}
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = dssearch
    Left = 288
    Top = 8
  end
  object pm1: TPopupMenu
    Left = 48
    Top = 64
    object N31: TMenuItem
      Caption = #25171#21360#25253#34920
      OnClick = N31Click
    end
    object N21: TMenuItem
      Caption = #25171#21360#35774#32622
      OnClick = N21Click
    end
  end
end