datamz.~dfm

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

object DataMzf: TDataMzf
  OldCreateOrder = False
  Left = 290
  Top = 157
  Height = 450
  Width = 645
  object XyMzValiConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;User ID=wh;Initial 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 = 262
    Top = 8
  end
  object XyMzUser: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select suser_sname()')
    Left = 346
    Top = 9
  end
  object XyMzUserSource: TDataSource
    AutoEdit = False
    DataSet = XyMzUser
    Left = 423
    Top = 9
  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#39046#33647#32452#39') )'
      '             '
      '')
    Left = 110
    Top = 6
  end
  object UserSource: TDataSource
    DataSet = UserQuery
    Left = 174
    Top = 6
  end
  object AdmiConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;User ID=usergroup;Initial Catalog=qyyfy_run;Data Source' +
      '=QY_NT;Use Procedure for Prepare=1;Auto Translate=True;Packet Si' +
      'ze=4096;Workstation ID=NEWWH'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 30
    Top = 7
  end
  object YpSource: TDataSource
    DataSet = YpQuery
    Left = 64
    Top = 54
  end
  object XyReSource: TDataSource
    DataSet = XyReQuery
    Left = 336
    Top = 56
  end
  object LossValiQuery: TADOQuery
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'UserName'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = 'wh'
      end>
    SQL.Strings = (
      'select XyDkLoss.my_id,'
      '       XyId.yp_name,'
      '       XyId.yp_spec,'
      '       XyId.yp_unit,'
      '       XyDkInId.sc_fact,'
      '       XyDkInId.yp_batch,'
      '       XyDkLoss.ls_price,'
      '       XyDkLoss.loss_amou,'
      '       XyDkLoss.loss_date,'
      '       XyDkLoss.cz_man, '
      '       XyDkLoss.qr_man,'
      '       XyDkLoss.loss_reas'
      'from XyDkLoss,XyId,XyDkInId'
      'where XyDkLoss.in_id=XyDkInId.in_id and'
      '      XyId.yp_id=XyDkInId.yp_id and'
      '      XyDkLoss.qr_man is null ')
    Left = 128
    Top = 56
  end
  object LossValiSource: TDataSource
    DataSet = LossValiQuery
    Left = 200
    Top = 56
  end
  object LossHzSource: TDataSource
    DataSet = LossHzQuery
    Left = 90
    Top = 106
  end
  object LossQuery: TADOQuery
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = LossHzSource
    Parameters = <
      item
        Name = 'YpId'
        Attributes = [paSigned]
        DataType = ftSmallint
        Precision = 5
        Size = 2
        Value = Null
      end
      item
        Name = 'SDate'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'Edate'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end>
    SQL.Strings = (
      'select XyDkLoss.my_id,'
      '       loss_date,'
      '       XyDkInId.yp_batch,'
      '       XyDkInid.sc_fact,'
      '       XyDkLoss.ls_price,'
      '       XyDkLoss.cz_man, '
      '       XyDkLoss.qr_man,'
      '       loss_amou,'
      '       loss_reas '
      'from XyDkLoss,XyDkInId,XyId '
      'where XyDkInId.yp_id=XyId.yp_id and'
      '      XyDkInId.in_id=XyDkLoss.in_id and '
      '      XyDkInId.yp_id=:YpId and '
      '      XyDkLoss.qr_man is not null and '
      '      XyDkLoss.loss_date>=:SDate and '
      '      XyDkLoss.loss_date<=:Edate ')
    Left = 154
    Top = 106
    object LossQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object LossQueryloss_date: TDateTimeField
      FieldName = 'loss_date'
    end
    object LossQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object LossQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
    object LossQueryls_price: TBCDField
      FieldName = 'ls_price'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object LossQuerycz_man: TStringField
      FieldName = 'cz_man'
      FixedChar = True
      Size = 8
    end
    object LossQueryqr_man: TStringField
      FieldName = 'qr_man'
      FixedChar = True
      Size = 8
    end
    object LossQueryloss_amou: TIntegerField
      FieldName = 'loss_amou'
    end
    object LossQueryloss_reas: TStringField
      FieldName = 'loss_reas'
      FixedChar = True
      Size = 30
    end
  end
  object LossSource: TDataSource
    DataSet = LossQuery
    Left = 211
    Top = 106
  end
  object PassCommand: TADOCommand
    Connection = XyMzValiConnection
    Parameters = <>
    Left = 450
    Top = 58
  end
  object YpClassQuery: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 130
    Top = 158
  end
  object YpClassSource: TDataSource
    DataSet = YpClassQuery
    Left = 203
    Top = 158
  end
  object YpClassaQuery: TADOQuery
    Connection = XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 270
    Top = 157
  end
  object YpClassaSource: TDataSource
    DataSet = YpClassaQuery
    Left = 356
    Top = 159
  end
  object LossHzQuery: TADOStoredProc
    Connection = XyMzValiConnection
    ProcedureName = 'Wh_XyDkLossQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Sdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@Edate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@MinYpClass'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpClass'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MinYpClassa'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpClassa'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MinYpId'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end
      item
        Name = '@MaxYpId'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end>
    Left = 20
    Top = 106
    object LossHzQueryypid: TSmallintField
      FieldName = 'ypid'
      ReadOnly = True
    end
    object LossHzQueryypname: TStringField
      FieldName = 'ypname'
      ReadOnly = True
      Size = 24
    end
    object LossHzQueryypspec: TStringField
      FieldName = 'ypspec'
      FixedChar = True
    end
    object LossHzQueryypunit: TStringField
      FieldName = 'ypunit'
      FixedChar = True
      Size = 4
    end
    object LossHzQueryinamou: TIntegerField
      FieldName = 'inamou'
      ReadOnly = True
    end
    object LossHzQueryinmoney: TBCDField
      FieldName = 'inmoney'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 32
      Size = 5
    end
  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 = 12
    Top = 160
    object StringField4: TStringField
      DisplayWidth = 18
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object StringField5: TStringField
      DisplayWidth = 12
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object StringField6: TStringField
      DisplayWidth = 4
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object SmallintField1: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource1: TDataSource
    DataSet = YpQuery1
    Left = 68
    Top = 158
  end
  object GzlProc: TADOStoredProc
    Connection = XyMzValiConnection
    ProcedureName = 'Wh_GzlQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@SDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@EDate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end>
    Left = 275
    Top = 106
  end
  object YpQuery: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyQuery;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@YpCode'
        Attributes = [paNullable]
        DataType = ftString
        Size = 16
        Value = ''
      end
      item
        Name = '@ZjIden'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end>
    Left = 20
    Top = 56
    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 YpQueryin_id: TAutoIncField
      FieldName = 'in_id'
      ReadOnly = True
    end
  end
  object XyReQuery: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyDkTj;1'
    Parameters = <
      item
        Name = 'RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end>
    Left = 268
    Top = 56
  end
  object TjUp: TADOStoredProc
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    ProcedureName = 'Wh_XyDkTj_up;1'
    Parameters = <>
    Left = 388
    Top = 56
  end
  object XyDkOutSource: TDataSource
    DataSet = XyDkOutQuery
    Left = 101
    Top = 208
  end
  object XyDkOutQuery: TADOQuery
    Connection = XyMzValiConnection
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'UserName'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 8
        Value = 'wh'
      end>
    SQL.Strings = (
      'select XyDkOut.my_id,'
      '       XyId.yp_name,'
      '       XyId.yp_spec,'
      '       XyId.yp_unit,'
      '       XyDkInId.yp_batch,'
      '       XyDkInId.sc_fact,'
      '       XyDkOut.ls_price,'
      '       XyDkOut.out_amou,'
      '       XyDkOut.out_date,'
      '       XyDkOut.cz_man, '
      '       XyDkOut.qr_man,'
      '       XyDkOut.corp_man'
      'from XyDkOut,XyId,XyDkInId'
      'where XyDkOut.in_id=XyDkInId.in_id and'
      '      XyId.yp_id=XyDkInId.yp_id and'
      '      XyDkOut.qr_man is null ')
    Left = 21
    Top = 208
    object XyDkOutQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object XyDkOutQueryyp_name: TStringField
      FieldName = 'yp_name'
      FixedChar = True
      Size = 24
    end
    object XyDkOutQueryyp_spec: TStringField
      FieldName = 'yp_spec'
      FixedChar = True
    end
    object XyDkOutQueryyp_unit: TStringField
      FieldName = 'yp_unit'
      FixedChar = True
      Size = 4
    end
    object XyDkOutQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object XyDkOutQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
    object XyDkOutQueryls_price: TBCDField
      FieldName = 'ls_price'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object XyDkOutQueryout_amou: TIntegerField
      FieldName = 'out_amou'
    end
    object XyDkOutQueryout_date: TDateTimeField
      FieldName = 'out_date'
    end
    object XyDkOutQuerycz_man: TStringField
      FieldName = 'cz_man'
      FixedChar = True