datamz.~dfm

本文重点研究的是医院西药药房管理系统

object DataMzf: TDataMzf
  OldCreateOrder = False
  Left = 315
  Top = 122
  Height = 450
  Width = 631
  object XyMzValiConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=wh;Initi' +
      'al Catalog=qyyfy_run;Data Source=QY_NT;Use Procedure for Prepare' +
      '=1;Auto Translate=True;Packet Size=4096;Workstation ID=NEWWH'
    ConnectionTimeout = 0
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 38
    Top = 56
  end
  object XyMzValiQuery: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'HjId'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 0
      end>
    SQL.Strings = (
      'select my_id,'
      '       yp_name,'
      '       yp_spec,'
      '       yp_unit,'
      '       yp_batch,'
      '       sc_fact,'
      '       yp_amou,'
      '       ls_price,'
      '       qr_man'
      'from XyMzVali,XyId'
      'where XyMzVali.yp_id=XyId.yp_id and'
      '      XyMzVali.hj_id=:hjid'
      ' ')
    Left = 24
    Top = 110
  end
  object XyMzXmValiQuery: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'hjid'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'select xm_name,'
      '       hz_name,'
      '       sk_man,'
      '       hj_date,'
      '       ys_money'
      'from MzYpSf,XmId'
      'where MzYpSf.xm_id=XmId.xm_id and'
      '      XmId.Xy_iden=1 and'
      '      MzYpSf.hj_id=:hjid'
      ' '
      '')
    Left = 198
    Top = 110
  end
  object XyMzValiSource: TDataSource
    DataSet = XyMzValiQuery
    Left = 110
    Top = 110
  end
  object XyMzUser: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select suser_sname()')
    Left = 114
    Top = 57
  end
  object XyMzXmValiSource: TDataSource
    DataSet = XyMzXmValiQuery
    Left = 292
    Top = 110
  end
  object XyMzUserSource: TDataSource
    AutoEdit = False
    DataSet = XyMzUser
    Left = 183
    Top = 57
  end
  object XyMzLsConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=wh;Initi' +
      'al Catalog=qyyfy_run;Data Source=QY_NT;Use Procedure for Prepare' +
      '=1;Auto Translate=True;Packet Size=4096;Workstation ID=NEWWH'
    ConnectionTimeout = 0
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 116
    Top = 6
  end
  object XyMzLsUser: TADOQuery
    Connection = XyMzLsConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select suser_sname()')
    Left = 196
    Top = 6
  end
  object XyMzLsUserSource: TDataSource
    DataSet = XyMzLsUser
    Left = 276
    Top = 6
  end
  object UserQuery: TADOQuery
    Connection = AdmiConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select uid,'
      '       name'
      'from sysusers'
      'where uid<10000 and'
      '      uid>4 and'
      '      uid in (select memberuid'
      '              from sysusers,sysmembers'
      '              where uid=groupuid and'
      '              (name='#39#35199#33647#38376#35786#30830#35748#32452#39' or'
      '               name='#39#35199#33647#38376#35786#36864#33647#32452#39'  ))'
      '             '
      '')
    Left = 352
    Top = 6
  end
  object UserSource: TDataSource
    DataSet = UserQuery
    Left = 416
    Top = 6
  end
  object AdmiConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=tffw_;Persist Security Info=True;Us' +
      'er ID=usergroup;Initial Catalog=qyyfy_run;Data Source=QY_NT;Use ' +
      'Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Wor' +
      'kstation ID=NEWWH'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 30
    Top = 7
  end
  object XySource: TDataSource
    DataSet = XyQuery
    Left = 280
    Top = 158
  end
  object XyQuery: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@YpCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = ''
      end
      item
        Name = '@ZjIden'
        DataType = ftSmallint
        Value = 0
      end>
    Left = 224
    Top = 160
    object XyQueryin_id: TAutoIncField
      FieldName = 'in_id'
      ReadOnly = True
    end
    object XyQueryyp_name: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object XyQueryyp_spec: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object XyQueryyp_unit: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object XyQueryls_price: TBCDField
      DisplayWidth = 7
      FieldName = 'ls_price'
      Precision = 18
      Size = 5
    end
    object XyQueryyp_batch: TStringField
      DisplayWidth = 8
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
  end
  object ZjValiSource: TDataSource
    DataSet = ZjValiQuery
    Left = 440
    Top = 109
  end
  object ZjValiQuery: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select XyMzZjIn.my_id,'
      '       XyId.yp_name,'
      '       XyId.yp_spec,'
      '       XyId.yp_unit,'
      '       XyDkInId.yp_batch,'
      '       XyDkInId.ls_price,'
      '       XyMzZjIn.in_amou,'
      '       XyMzZjIn.in_man,'
      '       XyMzZjIn.in_date,'
      '       XyMzZjIn.qr_man'
      'from XyMzZjIn,XyId,XyDkInId'
      'where XyMzZjIn.in_id=XyDkInId.in_id and'
      '      XyId.yp_id=XyDkInId.yp_id and'
      '      XyMzZjIn.qr_man is null '
      '           '
      '')
    Left = 376
    Top = 109
  end
  object XySourceMz: TDataSource
    DataSet = XyQueryMz
    Left = 416
    Top = 164
  end
  object XyQueryMz: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyMzQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@YpCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = ''
      end>
    Left = 344
    Top = 160
    object XyQueryMzin_id: TIntegerField
      FieldName = 'in_id'
    end
    object XyQueryMzyp_name: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object XyQueryMzyp_spec: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object XyQueryMzyp_unit: TStringField
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object XyQueryMzls_price: TBCDField
      DisplayWidth = 7
      FieldName = 'ls_price'
      Precision = 18
      Size = 5
    end
    object XyQueryMzyp_batch: TStringField
      DisplayWidth = 8
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object XyQueryMzsc_fact: TStringField
      DisplayWidth = 16
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
  end
  object YpQuery: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_YpQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@YpCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = ''
      end>
    Left = 24
    Top = 224
    object StringField1: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField2: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField3: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object YpQueryyp_id: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource: TDataSource
    DataSet = YpQuery
    Left = 80
    Top = 222
  end
  object YpQuery1: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_YpQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@YpCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = ''
      end>
    Left = 136
    Top = 224
    object StringField5: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField6: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField7: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object YpQuery1yp_id: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource1: TDataSource
    DataSet = YpQuery1
    Left = 192
    Top = 222
  end
  object YpQuery2: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_YpQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@YpCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = ''
      end>
    Left = 248
    Top = 224
    object StringField4: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField8: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField9: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object SmallintField1: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource2: TDataSource
    DataSet = YpQuery2
    Left = 304
    Top = 222
  end
  object YpClassQuery: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 376
    Top = 220
  end
  object YpClassSource: TDataSource
    DataSet = YpClassQuery
    Left = 448
    Top = 219
  end
  object YpClassaQuery: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 24
    Top = 268
  end
  object YpClassaSource: TDataSource
    DataSet = YpClassaQuery
    Left = 104
    Top = 267
  end
  object YpClassQuery1: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 184
    Top = 268
  end
  object YpClassSource1: TDataSource
    DataSet = YpClassQuery1
    Left = 264
    Top = 267
  end
  object YpClassaQuery1: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 344
    Top = 268
  end
  object YpClassaSource1: TDataSource
    DataSet = YpClassaQuery1
    Left = 424
    Top = 267
  end
  object YpClassQuery2: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 24
    Top = 316
  end
  object YpClassSource2: TDataSource
    DataSet = YpClassQuery2
    Left = 102
    Top = 316
  end
  object YpClassaQuery2: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 184
    Top = 316
  end
  object YpClassaSource2: TDataSource
    DataSet = YpClassaQuery2
    Left = 267
    Top = 316
  end
  object YpQuery3: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_YpQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@YpCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 12
        Value = ''
      end>
    Left = 344
    Top = 312
    object StringField10: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField11: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField12: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object SmallintField2: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource3: TDataSource
    DataSet = YpQuery3
    Left = 400
    Top = 310
  end
end