datamz2.~dfm

来自「本文重点研究的是医院西药药房管理系统」· ~DFM 代码 · 共 542 行

~DFM
542 行
字号 
object DataMzf2: TDataMzf2
  OldCreateOrder = False
  Left = 19
  Top = 4
  Height = 422
  Width = 637
  object PassCommand: TADOCommand
    Connection = DataMzf.XyMzValiConnection
    Parameters = <>
    Left = 264
    Top = 49
  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 = 97
    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 = 95
  end
  object YpClassQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_class,'
      '       class_name'
      'from XyClass')
    Left = 130
    Top = 95
  end
  object YpClassSource: TDataSource
    DataSet = YpClassQuery
    Left = 203
    Top = 95
  end
  object YpClassaQuery: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select yp_classa,'
      '       classa_name'
      'from XyClassa')
    Left = 270
    Top = 94
  end
  object YpClassaSource: TDataSource
    DataSet = YpClassaQuery
    Left = 356
    Top = 96
  end
  object YpQuery1: 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 = 328
    Top = 47
    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 XyMzValiQuery: TADOQuery
    Connection = DataMzf.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'
      'from XyMzVali,XyId'
      'where XyMzVali.yp_id=XyId.yp_id and'
      '      XyMzVali.hj_id=:hjid'
      ' ')
    Left = 16
    Top = 141
  end
  object XyMzXmValiQuery: TADOQuery
    Connection = DataMzf.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 = 182
    Top = 141
  end
  object XyMzValiSource: TDataSource
    DataSet = XyMzValiQuery
    Left = 94
    Top = 141
  end
  object XyMzXmValiSource: TDataSource
    DataSet = XyMzXmValiQuery
    Left = 284
    Top = 141
  end
  object XyMzLsConnection: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=wh;Initi' +
      'al Catalog=qyyfy_run;Data Source=Qy_Nt;Locale Identifier=2052;Co' +
      'nnect Timeout=0;Use Procedure for Prepare=1;Auto Translate=True;' +
      'Packet Size=4096;Workstation ID=NEWWH'
    ConnectionTimeout = 0
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 36
    Top = 187
  end
  object XyMzLsUser: TADOQuery
    Connection = XyMzLsConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select suser_sname()')
    Left = 124
    Top = 187
  end
  object XyMzLsUserSource: TDataSource
    DataSet = XyMzLsUser
    Left = 212
    Top = 187
  end
  object XyMzValiQuery1: TADOQuery
    Connection = DataMzf.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'
      'from XyMzVali,XyId'
      'where XyMzVali.yp_id=XyId.yp_id and'
      '      XyMzVali.hj_id=:hjid'
      ' ')
    Left = 24
    Top = 233
  end
  object XyMzValiSource1: TDataSource
    DataSet = XyMzValiQuery1
    Left = 110
    Top = 233
  end
  object XyMzXmValiQuery1: TADOQuery
    Connection = DataMzf.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 = 206
    Top = 233
  end
  object XyMzXmValiSource1: TDataSource
    DataSet = XyMzXmValiQuery1
    Left = 308
    Top = 233
  end
  object XyMzLsConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=wh;Initi' +
      'al Catalog=qyyfy_run;Data Source=Qy_Nt;Locale Identifier=2052;Co' +
      'nnect Timeout=0;Use Procedure for Prepare=1;Auto Translate=True;' +
      'Packet Size=4096;Workstation ID=NEWWH'
    ConnectionTimeout = 0
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 312
    Top = 187
  end
  object XyMzLsUser1: TADOQuery
    Connection = XyMzLsConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select suser_sname()')
    Left = 460
    Top = 141
  end
  object XyMzLsSource1: TDataSource
    DataSet = XyMzLsUser1
    Left = 380
    Top = 141
  end
  object DateRecipeQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    ProcedureName = 'Wh_DateRecipe;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 = '@Sdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@Edate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end>
    Left = 406
    Top = 189
  end
  object DateRecipeSource: TDataSource
    DataSet = DateRecipeQuery
    Left = 408
    Top = 235
  end
  object YpQuery2: 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 = 20
    Top = 280
    object StringField7: 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 SmallintField2: TSmallintField
      FieldName = 'yp_id'
      ReadOnly = True
    end
  end
  object YpSource2: TDataSource
    DataSet = YpQuery2
    Left = 76
    Top = 278
  end
  object XyQuery2: TADOQuery
    Connection = DataMzf.XyMzValiConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select YpId=yp_id,'
      '       yp_name,'
      '       yp_spec,'
      '       yp_unit'
      'from XyId'
      '')
    Left = 142
    Top = 281
  end
  object XySource2: TDataSource
    DataSet = XyQuery2
    Left = 210
    Top = 281
  end
  object TjSource: TDataSource
    DataSet = TjQuery
    Left = 336
    Top = 278
  end
  object TjQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    LockType = ltBatchOptimistic
    DataSource = XySource2
    ProcedureName = 'Wh_TjQuery;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 = 'YpId'
        Attributes = [paNullable]
        DataType = ftSmallint
        Precision = 5
        Value = 0
      end>
    Left = 276
    Top = 280
    object TjQuerymy_id: TAutoIncField
      FieldName = 'my_id'
      ReadOnly = True
    end
    object TjQueryjc_date: TDateTimeField
      FieldName = 'jc_date'
    end
    object TjQueryin_id: TIntegerField
      FieldName = 'in_id'
    end
    object TjQuerysc_fact: TStringField
      FieldName = 'sc_fact'
      FixedChar = True
      Size = 36
    end
    object TjQueryyp_batch: TStringField
      FieldName = 'yp_batch'
      FixedChar = True
      Size = 10
    end
    object TjQueryjc_price: TBCDField
      FieldName = 'jc_price'
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
    object TjQuerytq_price: TBCDField
      FieldName = 'tq_price'
      ReadOnly = True
      DisplayFormat = '############0.00###'
      Precision = 18
      Size = 5
    end
  end
  object Date_QrSource: TDataSource
    DataSet = Date_QrQuery
    Left = 456
    Top = 51
  end
  object Date_QrQuery: TADOStoredProc
    Connection = DataMzf.XyMzValiConnection
    ProcedureName = 'Wh_XyMzDateQrRecipe;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 = '@Sdate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end
      item
        Name = '@Edate'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 0d
      end>
    Left = 438
    Top = 101
  end
end

datamz2.~dfm - 源码说明

本页面展示了「本文重点研究的是医院西药药房管理系统」中的 datamz2.~dfm 源码文件，采用 ~DFM 编程语言编写，共 542 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?