datamz2.~dfm

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

object DataMzf2: TDataMzf2
  OldCreateOrder = False
  Left = 21
  Top = 88
  Height = 240
  Width = 637
  object GroupQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select uid,'
      '       name'
      'from sysusers'
      'where uid>=16400 and'
      '      uid in (select memberuid'
      '              from sysusers,sysmembers'
      '              where uid=groupuid and'
      '                    name='#39'西药局'#39')')
    Left = 137
    Top = 8
  end
  object GroupSource: TDataSource
    DataSet = GroupQuery
    Left = 201
    Top = 8
  end
  object AdmiCommand1: TADOCommand
    Connection = DataMzf.XyMzValiConnection
    Parameters = <>
    Left = 273
    Top = 8
  end
  object UserQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    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'西药局'#39')'
      ''
      '')
    Left = 14
    Top = 8
  end
  object UserSource: TDataSource
    DataSet = UserQuery
    Left = 70
    Top = 8
  end
  object AdmiCommand2: TADOCommand
    Connection = DataMzf.XyMzValiConnection
    Parameters = <>
    Left = 353
    Top = 8
  end
  object GrQuery2: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select uid,'
      '       name'
      'from sysusers'
      'where uid>=16400 and'
      '      uid in (select memberuid'
      '              from sysusers,sysmembers'
      '              where uid=groupuid and'
      '                    name='#39'西药局'#39')')
    Left = 16
    Top = 56
  end
  object GrSource2: TDataSource
    DataSet = GrQuery2
    Left = 72
    Top = 56
  end
  object UserSource2: TDataSource
    DataSet = UserQuery2
    Left = 208
    Top = 56
  end
  object UserQuery2: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'Useruid'
        DataType = ftInteger
        Size = -1
        Value = 0
      end>
    SQL.Strings = (
      'select uid,'
      '       name'
      'from sysusers'
      'where uid<10000 and'
      '      uid>4 and'
      '      uid in (select memberuid'
      '              from sysmembers'
      '              where groupuid=:Useruid'
      '             )'
      '')
    Left = 136
    Top = 56
  end
  object AdmiCommand3: TADOCommand
    Connection = DataMzf.XyMzValiConnection
    Parameters = <>
    Left = 441
    Top = 8
  end
  object YpQuery: TADOStoredProc
    Connection = DataMzf.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 = 8
    Top = 110
    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 = 64
    Top = 108
  end
  object RxHzQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    ProcedureName = 'Wh_XyZrRx;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@QuitIden'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpId'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MinYpId'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@Sdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@Edate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end>
    Left = 130
    Top = 112
    object RxHzQuerymydate: TDateTimeField
      FieldName = 'mydate'
    end
    object RxHzQueryqrdate: TDateTimeField
      FieldName = 'qrdate'
    end
    object RxHzQueryoutamou: TIntegerField
      FieldName = 'outamou'
      ReadOnly = True
    end
    object RxHzQueryoutmoney: TBCDField
      FieldName = 'outmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 38
      Size = 2
    end
    object RxHzQueryinamou: TIntegerField
      FieldName = 'inamou'
      ReadOnly = True
    end
    object RxHzQueryinmoney: TBCDField
      FieldName = 'inmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 38
      Size = 5
    end
    object RxHzQuerylossamou: TIntegerField
      FieldName = 'lossamou'
      ReadOnly = True
    end
    object RxHzQuerylossmoney: TBCDField
      FieldName = 'lossmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 38
      Size = 5
    end
  end
  object RxHzSource: TDataSource
    DataSet = RxHzQuery
    Left = 208
    Top = 112
  end
end