xs_re.dfm

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

    end
    object DBEdit2: TDBEdit
      Left = 67
      Top = 455
      Width = 57
      Height = 19
      BorderStyle = bsNone
      DataField = 'Op_cyf'
      DataSource = Sourcemaster
      TabOrder = 21
    end
    object DBEdit3: TDBEdit
      Left = 129
      Top = 455
      Width = 56
      Height = 19
      BorderStyle = bsNone
      DataField = 'Op_zsf'
      DataSource = Sourcemaster
      TabOrder = 22
    end
    object DBEdit4: TDBEdit
      Left = 192
      Top = 455
      Width = 57
      Height = 19
      BorderStyle = bsNone
      DataField = 'op_zlf'
      DataSource = Sourcemaster
      TabOrder = 23
    end
    object DBEdit5: TDBEdit
      Left = 255
      Top = 455
      Width = 57
      Height = 19
      BorderStyle = bsNone
      DataField = 'Op_sum'
      DataSource = Sourcemaster
      ReadOnly = True
      TabOrder = 24
    end
    object DBEdit6: TDBEdit
      Left = 318
      Top = 455
      Width = 57
      Height = 19
      BorderStyle = bsNone
      DataField = 'Op_other'
      DataSource = Sourcemaster
      TabOrder = 25
    end
    object dxDBButtonEdit1: TdxDBButtonEdit
      Left = 60
      Top = 9
      Width = 84
      TabOrder = 26
      DataField = 'Op_name'
      DataSource = Sourcemaster
      Buttons = <
        item
          Default = True
        end>
      OnButtonClick = dxDBButtonEdit1ButtonClick
      ExistButtons = True
    end
  end
  object BitBtn1: TBitBtn
    Left = 336
    Top = 528
    Width = 57
    Height = 25
    Caption = #32467'  '#31639
    Enabled = False
    TabOrder = 1
    OnClick = BitBtn1Click
  end
  object Edit1: TEdit
    Left = 83
    Top = 531
    Width = 121
    Height = 21
    TabOrder = 2
    OnExit = Edit1Exit
  end
  object BitBtn2: TBitBtn
    Left = 257
    Top = 528
    Width = 56
    Height = 25
    Cursor = crHandPoint
    Caption = #24320'  '#21333
    TabOrder = 3
    OnClick = BitBtn2Click
  end
  object DBEdit7: TDBEdit
    Left = 184
    Top = 31
    Width = 81
    Height = 17
    BorderStyle = bsNone
    DataField = 'Op_worker'
    DataSource = Sourcemaster
    ReadOnly = True
    TabOrder = 4
  end
  object DBEdit8: TDBEdit
    Left = 302
    Top = 31
    Width = 89
    Height = 17
    BorderStyle = bsNone
    DataField = 'Op_date'
    DataSource = Sourcemaster
    ReadOnly = True
    TabOrder = 5
  end
  object DBEdit9: TDBEdit
    Left = 48
    Top = 29
    Width = 97
    Height = 20
    BorderStyle = bsNone
    DataField = 'fcode'
    DataSource = Sourcemaster
    ReadOnly = True
    TabOrder = 6
  end
  object DBCheckBox1: TDBCheckBox
    Left = 281
    Top = 4
    Width = 49
    Height = 17
    Caption = #23457#26680
    DataField = 'Op_checked'
    DataSource = Sourcemaster
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 7
    ValueChecked = '1'
    ValueUnchecked = '0'
  end
  object Qmaster: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    AfterInsert = QmasterAfterInsert
    BeforePost = QmasterBeforePost
    AfterPost = QmasterAfterPost
    Parameters = <>
    SQL.Strings = (
      'select * from xs_open'
      ''
      'where 1=0')
    Left = 72
    object Qmasterid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Qmasterfcode: TWideStringField
      FieldName = 'fcode'
    end
    object QmasterOp_date: TDateTimeField
      FieldName = 'Op_date'
    end
    object QmasterOp_name: TWideStringField
      FieldName = 'Op_name'
    end
    object QmasterOp_sex: TWideStringField
      FieldName = 'Op_sex'
    end
    object QmasterOp_age: TIntegerField
      FieldName = 'Op_age'
    end
    object QmasterOp_allergy: TWideStringField
      FieldName = 'Op_allergy'
      Size = 100
    end
    object QmasterOp_inport: TWideStringField
      FieldName = 'Op_inport'
      Size = 100
    end
    object QmasterOp_diagnose: TWideStringField
      FieldName = 'Op_diagnose'
      Size = 100
    end
    object QmasterOp_xyf: TFloatField
      FieldName = 'Op_xyf'
    end
    object QmasterOp_cyf: TFloatField
      FieldName = 'Op_cyf'
    end
    object QmasterOp_zsf: TFloatField
      FieldName = 'Op_zsf'
    end
    object QmasterOp_other: TFloatField
      FieldName = 'Op_other'
    end
    object QmasterOp_worker: TWideStringField
      FieldName = 'Op_worker'
    end
    object QmasterOp_oddments: TFloatField
      FieldName = 'Op_oddments'
    end
    object QmasterOp_checked: TIntegerField
      FieldName = 'Op_checked'
    end
    object Qmasterfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QmasterfSort: TWideStringField
      FieldName = 'fSort'
    end
    object Qmasterop_zlf: TFloatField
      FieldName = 'op_zlf'
    end
    object QmasterOp_sum: TFloatField
      FieldName = 'Op_sum'
    end
    object Qmasterop_code: TWideStringField
      FieldName = 'op_code'
    end
    object Qmasterbh: TStringField
      FieldKind = fkLookup
      FieldName = 'bh'
      LookupDataSet = fpubdata.qryhi_draw
      LookupKeyFields = 'Fcode'
      LookupResultField = 'Dr_name'
      KeyFields = 'op_code'
      Lookup = True
    end
  end
  object Sourcemaster: TDataSource
    DataSet = Qmaster
    OnStateChange = SourcemasterStateChange
    Left = 112
  end
  object Qdetail: TADOQuery
    Active = True
    Connection = fData.ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    DataSource = Sourcemaster
    Parameters = <
      item
        Name = 'fcode'
        Attributes = [paNullable]
        DataType = ftWideString
        NumericScale = 255
        Precision = 255
        Size = 20
        Value = Null
      end>
    SQL.Strings = (
      
        'Select a.*,b.phy_name,b.Phy_retail1,b.Phy_retail2,b.Phy_retail3 ' +
        ' from  Xs_opendetail a '
      '    left outer join Bs_physic b on a.de_pcode=b.Phy_code '
      'where  a.fcode=:fcode')
    Left = 46
    Top = 261
    object Qdetailid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object Qdetailfcode: TWideStringField
      FieldName = 'fcode'
    end
    object QdetailDe_pcode: TWideStringField
      FieldName = 'De_pcode'
    end
    object QdetailDe_pname: TWideStringField
      FieldName = 'De_pname'
    end
    object QdetailDe_aveprice: TFloatField
      FieldName = 'De_aveprice'
    end
    object QdetailDe_sprice: TFloatField
      FieldName = 'De_sprice'
      OnValidate = QdetailDe_spriceValidate
    end
    object QdetailDe_qty: TFloatField
      FieldName = 'De_qty'
      OnValidate = QdetailDe_qtyValidate
    end
    object QdetailDe_sum: TFloatField
      FieldName = 'De_sum'
    end
    object QdetailDe_utype: TWideStringField
      FieldName = 'De_utype'
    end
    object QdetailDe_spec: TWideStringField
      FieldName = 'De_spec'
    end
    object QdetailDe_jx: TWideStringField
      FieldName = 'De_jx'
    end
    object QdetailDe_yield: TDateTimeField
      FieldName = 'De_yield'
    end
    object Qdetailfmem: TWideStringField
      FieldName = 'fmem'
      Size = 255
    end
    object QdetailfSort: TWideStringField
      FieldName = 'fSort'
    end
    object QdetailDe_unit: TWideStringField
      FieldName = 'De_unit'
    end
    object Qdetailphy_name: TWideStringField
      FieldName = 'phy_name'
    end
    object QdetailPhy_retail1: TFloatField
      FieldName = 'Phy_retail1'
    end
    object QdetailPhy_retail2: TFloatField
      FieldName = 'Phy_retail2'
    end
    object QdetailPhy_retail3: TFloatField
      FieldName = 'Phy_retail3'
    end
    object Qdetailunit: TStringField
      FieldKind = fkLookup
      FieldName = 'unit'
      LookupDataSet = fpubdata.qrydisp_unit
      LookupKeyFields = 'Unit_code'
      LookupResultField = 'Unit_name'
      KeyFields = 'De_unit'
      Size = 10
      Lookup = True
    end
  end
  object Sourcedetail: TDataSource
    DataSet = Qdetail
    Left = 86
    Top = 261
  end
  object ActionList1: TActionList
    Left = 32
    object DataSetRefresh1: TDataSetRefresh
      Category = 'Dataset'
      Caption = 'DataSetRefresh1'
    end
  end
  object Temp: TADOQuery
    Connection = fData.ADOConnection
    Parameters = <>
    Left = 358
    Top = 261
  end
  object PopupMenu1: TPopupMenu
    Left = 358
    Top = 437
    object N7: TMenuItem
      Caption = #20462#25913#21333#25454
      OnClick = N7Click
    end
    object N11: TMenuItem
      Caption = #20445#23384#21333#25454
      OnClick = N11Click
    end
    object N5: TMenuItem
      Caption = #21024#38500#21333#25454
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21462'  '#28040
      OnClick = N6Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object N9: TMenuItem
      Caption = #23457#26680#21333#25454
      OnClick = N9Click
    end
    object N10: TMenuItem
      Caption = #21453' '#23457' '#26680
      OnClick = N10Click
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object N21: TMenuItem
      Caption = #26597#25214#21333#25454
      OnClick = N21Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #25171#21360#22788#26041
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #25171#21360#35774#32622
      OnClick = N3Click
    end
  end
  object delete: TADOQuery
    Connection = fData.ADOConnection
    Parameters = <>
    Left = 222
    Top = 181
  end
  object check: TADOQuery
    Connection = fData.ADOConnection
    Parameters = <>
    Left = 190
    Top = 293
  end
  object frDBDataSet1: TfrDBDataSet
    DataSet = Qdetail
    Left = 334
    Top = 349
  end
  object frReport1: TfrReport
    Dataset = frDBDataSet1
    InitialZoom = pzDefault
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    RebuildPrinter = False
    Left = 286
    Top = 349
    ReportForm = {19000000}
  end
end