hi_draw.dfm

这是一个实用的软件

    end
    object QbaseinfoDr_gm: TWideStringField
      DisplayLabel = #36807#25935#21490
      FieldName = 'Dr_gm'
      Size = 255
    end
    object QbaseinfoDr_jz: TWideStringField
      DisplayLabel = #23478#26063#21490
      FieldName = 'Dr_jz'
      Size = 255
    end
    object QbaseinfoDr_gr: TWideStringField
      DisplayLabel = #20010#20154#21490
      FieldName = 'Dr_gr'
      Size = 255
    end
    object QbaseinfoDr_jw: TWideStringField
      DisplayLabel = #26082#24448#21490
      FieldName = 'Dr_jw'
      Size = 255
    end
    object QbaseinfoDr_xb: TWideStringField
      DisplayLabel = #29616#30149#21490
      FieldName = 'Dr_xb'
      Size = 255
    end
    object QbaseinfoDr_result: TWideStringField
      DisplayLabel = #35786#26029#32467#26524
      FieldName = 'Dr_result'
      Size = 255
    end
    object QbaseinfoDr_transact: TWideStringField
      DisplayLabel = #22788#29702#26041#27861
      FieldName = 'Dr_transact'
      Size = 255
    end
    object QbaseinfoDr_worker: TWideStringField
      DisplayLabel = #21307#24072
      FieldName = 'Dr_worker'
    end
    object QbaseinfoFdate: TDateTimeField
      DisplayLabel = #26085#26399
      FieldName = 'Fdate'
    end
    object Qbaseinfofmem: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'fmem'
      Size = 255
    end
    object QbaseinfofSort: TWideStringField
      FieldName = 'fSort'
    end
    object Qbaseinfodoctor: TStringField
      FieldKind = fkLookup
      FieldName = 'doctor'
      LookupDataSet = fpubdata.qrydisp_user
      LookupKeyFields = 'User_code'
      LookupResultField = 'User_name'
      KeyFields = 'Dr_worker'
      Size = 10
      Lookup = True
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 28
    Top = 417
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    DataSource = baseSource
    Parameters = <
      item
        Name = 'fCode'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select a.* from xs_open a left outer join hi_draw b on a.op_code' +
        '=b.fcode'
      'where a.op_code=:fCode')
    Left = 28
    Top = 385
    object ADOQuery1id: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object ADOQuery1fcode: TWideStringField
      FieldName = 'fcode'
    end
    object ADOQuery1Op_date: TDateTimeField
      FieldName = 'Op_date'
    end
    object ADOQuery1Op_name: TWideStringField
      FieldName = 'Op_name'
    end
    object ADOQuery1Op_sex: TWideStringField
      FieldName = 'Op_sex'
    end
    object ADOQuery1Op_age: TIntegerField
      FieldName = 'Op_age'
    end
    object ADOQuery1Op_allergy: TWideStringField
      FieldName = 'Op_allergy'
      Size = 100
    end
    object ADOQuery1Op_inport: TWideStringField
      FieldName = 'Op_inport'
      Size = 100
    end
    object ADOQuery1Op_diagnose: TWideStringField
      FieldName = 'Op_diagnose'
      Size = 100
    end
    object ADOQuery1Op_xyf: TFloatField
      FieldName = 'Op_xyf'
    end
    object ADOQuery1Op_cyf: TFloatField
      FieldName = 'Op_cyf'
    end
    object ADOQuery1Op_zsf: TFloatField
      FieldName = 'Op_zsf'
    end
    object ADOQuery1Op_other: TFloatField
      FieldName = 'Op_other'
    end
    object ADOQuery1Op_worker: TWideStringField
      FieldName = 'Op_worker'
    end
    object ADOQuery1Op_oddments: TFloatField
      FieldName = 'Op_oddments'
    end
    object ADOQuery1Op_checked: TIntegerField
      FieldName = 'Op_checked'
    end
    object ADOQuery1fmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object ADOQuery1fSort: TWideStringField
      FieldName = 'fSort'
    end
    object ADOQuery1op_zlf: TFloatField
      FieldName = 'op_zlf'
    end
    object ADOQuery1Op_sum: TFloatField
      FieldName = 'Op_sum'
    end
    object ADOQuery1op_code: TWideStringField
      FieldName = 'op_code'
    end
    object ADOQuery1asd: TStringField
      FieldKind = fkLookup
      FieldName = 'asd'
      LookupDataSet = Qbaseinfo
      LookupKeyFields = 'Fcode'
      LookupResultField = 'Dr_name'
      KeyFields = 'op_code'
      Lookup = True
    end
  end
  object xs_detail: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    DataSource = DataSource1
    Parameters = <
      item
        Name = 'fCode'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'select * from xs_opendetail a left outer join xs_open b on a.fco' +
        'de=b.fcode'
      'where a.fcode=:fCode')
    Left = 28
    Top = 489
    object xs_detailaid: TAutoIncField
      FieldName = 'a.id'
      ReadOnly = True
    end
    object xs_detailafcode: TWideStringField
      FieldName = 'a.fcode'
    end
    object xs_detailDe_pcode: TWideStringField
      FieldName = 'De_pcode'
    end
    object xs_detailDe_pname: TWideStringField
      FieldName = 'De_pname'
    end
    object xs_detailDe_aveprice: TFloatField
      FieldName = 'De_aveprice'
    end
    object xs_detailDe_sprice: TFloatField
      FieldName = 'De_sprice'
    end
    object xs_detailDe_qty: TFloatField
      FieldName = 'De_qty'
    end
    object xs_detailDe_sum: TFloatField
      FieldName = 'De_sum'
    end
    object xs_detailDe_utype: TWideStringField
      FieldName = 'De_utype'
    end
    object xs_detailDe_spec: TWideStringField
      FieldName = 'De_spec'
    end
    object xs_detailDe_jx: TWideStringField
      FieldName = 'De_jx'
    end
    object xs_detailDe_yield: TDateTimeField
      FieldName = 'De_yield'
    end
    object xs_detailafmem: TWideStringField
      FieldName = 'a.fmem'
      Size = 255
    end
    object xs_detailafSort: TWideStringField
      FieldName = 'a.fSort'
    end
    object xs_detailDe_unit: TWideStringField
      FieldName = 'De_unit'
    end
    object xs_detailbid: TAutoIncField
      FieldName = 'b.id'
      ReadOnly = True
    end
    object xs_detailbfcode: TWideStringField
      FieldName = 'b.fcode'
    end
    object xs_detailOp_date: TDateTimeField
      FieldName = 'Op_date'
    end
    object xs_detailOp_name: TWideStringField
      FieldName = 'Op_name'
    end
    object xs_detailOp_sex: TWideStringField
      FieldName = 'Op_sex'
    end
    object xs_detailOp_age: TIntegerField
      FieldName = 'Op_age'
    end
    object xs_detailOp_allergy: TWideStringField
      FieldName = 'Op_allergy'
      Size = 100
    end
    object xs_detailOp_inport: TWideStringField
      FieldName = 'Op_inport'
      Size = 100
    end
    object xs_detailOp_diagnose: TWideStringField
      FieldName = 'Op_diagnose'
      Size = 100
    end
    object xs_detailOp_xyf: TFloatField
      FieldName = 'Op_xyf'
    end
    object xs_detailOp_cyf: TFloatField
      FieldName = 'Op_cyf'
    end
    object xs_detailOp_zsf: TFloatField
      FieldName = 'Op_zsf'
    end
    object xs_detailOp_other: TFloatField
      FieldName = 'Op_other'
    end
    object xs_detailOp_worker: TWideStringField
      FieldName = 'Op_worker'
    end
    object xs_detailOp_oddments: TFloatField
      FieldName = 'Op_oddments'
    end
    object xs_detailOp_checked: TIntegerField
      FieldName = 'Op_checked'
    end
    object xs_detailbfmem: TWideStringField
      FieldName = 'b.fmem'
      Size = 255
    end
    object xs_detailbfSort: TWideStringField
      FieldName = 'b.fSort'
    end
    object xs_detailop_zlf: TFloatField
      FieldName = 'op_zlf'
    end
    object xs_detailOp_sum: TFloatField
      FieldName = 'Op_sum'
    end
    object xs_detailop_code: TWideStringField
      FieldName = 'op_code'
    end
  end
  object sourcedetail: TDataSource
    DataSet = xs_detail
    Left = 28
    Top = 529
  end
end