📄 datamodule.dfm

📁 delphi＋sql编写的医院信息系统
💻 DFM
字号:
object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 266
  Top = 145
  Height = 342
  Width = 487
  object ADOConnection: TADOConnection
    CommandTimeout = 5
    ConnectionTimeout = 5
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 16
  end
  object AT_Assis: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'Company'
    Left = 24
    Top = 80
  end
  object DS_Assis: TDataSource
    DataSet = AT_Assis
    Left = 24
    Top = 136
  end
  object AQ_Person: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Person')
    Left = 89
    Top = 200
    object AQ_PersonPer_ID: TIntegerField
      FieldName = 'Per_ID'
    end
    object AQ_PersonPer_Name: TWideStringField
      FieldName = 'Per_Name'
      FixedChar = True
      Size = 10
    end
    object AQ_PersonPer_Bra: TWideStringField
      FieldName = 'Per_Bra'
      FixedChar = True
    end
    object AQ_PersonPer_Duty: TWideStringField
      FieldName = 'Per_Duty'
      FixedChar = True
    end
    object AQ_PersonPer_Tel: TWideStringField
      FieldName = 'Per_Tel'
      FixedChar = True
      Size = 18
    end
    object AQ_PersonWork_Mon: TBooleanField
      FieldName = 'Work_Mon'
    end
    object AQ_PersonWork_Tue: TBooleanField
      FieldName = 'Work_Tue'
    end
    object AQ_PersonWork_Wen: TBooleanField
      FieldName = 'Work_Wen'
    end
    object AQ_PersonWork_Thu: TBooleanField
      FieldName = 'Work_Thu'
    end
    object AQ_PersonWork_Fri: TBooleanField
      FieldName = 'Work_Fri'
    end
    object AQ_PersonWork_Sat: TBooleanField
      FieldName = 'Work_Sat'
    end
    object AQ_PersonWork_Sun: TBooleanField
      FieldName = 'Work_Sun'
    end
    object AQ_PersonMon_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Mon_Name'
      LookupDataSet = AT_OFWork
      LookupKeyFields = 'Work_Flag'
      LookupResultField = 'Work_Value'
      KeyFields = 'Work_Mon'
      LookupCache = True
      Lookup = True
    end
    object AQ_PersonTue_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Tue_Name'
      LookupDataSet = AT_OFWork
      LookupKeyFields = 'Work_Flag'
      LookupResultField = 'Work_Value'
      KeyFields = 'Work_Tue'
      LookupCache = True
      Lookup = True
    end
    object AQ_PersonWen_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Wen_Name'
      LookupDataSet = AT_OFWork
      LookupKeyFields = 'Work_Flag'
      LookupResultField = 'Work_Value'
      KeyFields = 'Work_Wen'
      LookupCache = True
      Lookup = True
    end
    object AQ_PersonThu_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Thu_Name'
      LookupDataSet = AT_OFWork
      LookupKeyFields = 'Work_Flag'
      LookupResultField = 'Work_Value'
      KeyFields = 'Work_Thu'
      LookupCache = True
      Lookup = True
    end
    object AQ_PersonFri_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Fri_Name'
      LookupDataSet = AT_OFWork
      LookupKeyFields = 'Work_Flag'
      LookupResultField = 'Work_Value'
      KeyFields = 'Work_Fri'
      LookupCache = True
      Lookup = True
    end
    object AQ_PersonSat_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Sat_Name'
      LookupDataSet = AT_OFWork
      LookupKeyFields = 'Work_Flag'
      LookupResultField = 'Work_Value'
      KeyFields = 'Work_Sat'
      LookupCache = True
      Lookup = True
    end
    object AQ_PersonSun_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Sun_Name'
      LookupDataSet = AT_OFWork
      LookupKeyFields = 'Work_Flag'
      LookupResultField = 'Work_Value'
      KeyFields = 'Work_Sun'
      LookupCache = True
      Lookup = True
    end
  end
  object DS_Person: TDataSource
    DataSet = AQ_Person
    Left = 89
    Top = 256
  end
  object AT_Count: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'Count'
    Left = 90
    Top = 80
    object AT_CountCount_Name: TWideStringField
      FieldName = 'Count_Name'
      FixedChar = True
    end
    object AT_CountCount_Value: TIntegerField
      FieldName = 'Count_Value'
    end
  end
  object DS_Count: TDataSource
    DataSet = AT_Count
    Left = 90
    Top = 136
  end
  object AT_OFWork: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'On_Off_Work'
    Left = 154
    Top = 80
  end
  object DS_OFWork: TDataSource
    DataSet = AT_OFWork
    Left = 154
    Top = 136
  end
  object AQ_CDrug: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM CDrug')
    Left = 23
    Top = 200
  end
  object DS_CDrug: TDataSource
    DataSet = AQ_CDrug
    Left = 23
    Top = 256
  end
  object AQ_SQL: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 405
    Top = 256
  end
  object AQ_PInputB: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM PInputB')
    Left = 155
    Top = 200
  end
  object DS_PInputB: TDataSource
    DataSet = AQ_PInputB
    Left = 155
    Top = 256
  end
  object DS_PInput: TDataSource
    DataSet = AT_PInput
    Left = 226
    Top = 136
  end
  object AQ_PKucun: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM PKucun')
    Left = 227
    Top = 200
    object AQ_PKucunPK_No: TIntegerField
      FieldName = 'PK_No'
    end
    object AQ_PKucunPK_INumber: TIntegerField
      FieldName = 'PK_INumber'
    end
    object AQ_PKucunPK_ONumber: TIntegerField
      FieldName = 'PK_ONumber'
    end
    object AQ_PKucunPK_TNumber: TIntegerField
      FieldName = 'PK_TNumber'
    end
    object AQ_PKucunNo_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'No_Name'
      LookupDataSet = AQ_CDrug
      LookupKeyFields = 'CDrug_No'
      LookupResultField = 'CDrug_Name'
      KeyFields = 'PK_No'
      LookupCache = True
      Lookup = True
    end
    object AQ_PKucunNo_Kind: TStringField
      FieldKind = fkLookup
      FieldName = 'No_Kind'
      LookupDataSet = AQ_CDrug
      LookupKeyFields = 'CDrug_No'
      LookupResultField = 'CDrug_Kind'
      KeyFields = 'PK_No'
      LookupCache = True
      Lookup = True
    end
    object AQ_PKucunNo_Unit: TStringField
      FieldKind = fkLookup
      FieldName = 'No_Unit'
      LookupDataSet = AQ_CDrug
      LookupKeyFields = 'CDrug_No'
      LookupResultField = 'CDrug_Unit'
      KeyFields = 'PK_No'
      LookupCache = True
      Lookup = True
    end
  end
  object DS_PKucun: TDataSource
    DataSet = AQ_PKucun
    Left = 227
    Top = 256
  end
  object DS_CReg: TDataSource
    DataSet = AT_CReg
    Left = 294
    Top = 136
  end
  object AT_CReg: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'CRegister'
    Left = 294
    Top = 79
  end
  object DS_TCMoney: TDataSource
    DataSet = AQ_TCMoney
    Left = 311
    Top = 256
  end
  object AT_CMoney: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    IndexFieldNames = 'CM_ID'
    MasterFields = 'TCM_ID'
    MasterSource = DS_TCMoney
    TableName = 'CMoney'
    Left = 362
    Top = 79
    object AT_CMoneyCM_ID: TIntegerField
      FieldName = 'CM_ID'
    end
    object AT_CMoneyCM_Name: TWideStringField
      FieldName = 'CM_Name'
      FixedChar = True
      Size = 40
    end
    object AT_CMoneyCM_Num: TIntegerField
      FieldName = 'CM_Num'
    end
    object AT_CMoneyCM_Price: TBCDField
      FieldName = 'CM_Price'
      Precision = 19
    end
    object AT_CMoneyCM_Tatol: TBCDField
      FieldName = 'CM_Tatol'
      Precision = 19
    end
  end
  object DS_CMoney: TDataSource
    DataSet = AT_CMoney
    Left = 362
    Top = 136
  end
  object AT_HReg: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'HRegister'
    Left = 430
    Top = 79
  end
  object DS_HReg: TDataSource
    DataSet = AT_HReg
    Left = 430
    Top = 136
  end
  object ASP_HMIS: TADOStoredProc
    Connection = ADOConnection
    ProcedureName = 'MRegister;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@time_start'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 37774d
      end
      item
        Name = '@end_start'
        Attributes = [paNullable]
        DataType = ftDateTime
        Value = 37774.9583333333d
      end
      item
        Name = '@tmoney'
        Attributes = [paNullable]
        DataType = ftBCD
        Direction = pdInputOutput
        Precision = 19
        Value = 25000c
      end>
    Left = 410
    Top = 200
  end
  object AT_PInput: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'PInput'
    Left = 224
    Top = 74
    object AT_PInputPIN_ID: TIntegerField
      FieldName = 'PIN_ID'
    end
    object AT_PInputPIN_PID: TIntegerField
      FieldName = 'PIN_PID'
    end
    object AT_PInputPIN_Name: TIntegerField
      FieldName = 'PIN_Name'
    end
    object AT_PInputPIN_Kind: TWideStringField
      FieldName = 'PIN_Kind'
      FixedChar = True
    end
    object AT_PInputPIN_Unit: TWideStringField
      FieldName = 'PIN_Unit'
      FixedChar = True
      Size = 10
    end
    object AT_PInputPIN_Company: TIntegerField
      FieldName = 'PIN_Company'
    end
    object AT_PInputPIN_UPrice: TBCDField
      FieldName = 'PIN_UPrice'
      Precision = 19
    end
    object AT_PInputPIN_Number: TIntegerField
      FieldName = 'PIN_Number'
    end
    object AT_PInputPIN_TPrice: TBCDField
      FieldName = 'PIN_TPrice'
      Precision = 19
    end
    object AT_PInputComp_Name: TStringField
      FieldKind = fkLookup
      FieldName = 'Comp_Name'
      LookupDataSet = AT_Assis
      LookupKeyFields = 'Company_No'
      LookupResultField = 'Company_Name'
      KeyFields = 'PIN_Company'
      LookupCache = True
      Lookup = True
    end
    object AT_PInputName_Physic: TStringField
      FieldKind = fkLookup
      FieldName = 'Name_Physic'
      LookupDataSet = AQ_CDrug
      LookupKeyFields = 'CDrug_No'
      LookupResultField = 'CDrug_Name'
      KeyFields = 'PIN_Name'
      LookupCache = True
      Lookup = True
    end
    object AT_PInputName_kind: TStringField
      FieldKind = fkLookup
      FieldName = 'Name_kind'
      LookupDataSet = AQ_CDrug
      LookupKeyFields = 'CDrug_No'
      LookupResultField = 'CDrug_Kind'
      KeyFields = 'PIN_Name'
      LookupCache = True
      Lookup = True
    end
    object AT_PInputName_Unit: TStringField
      FieldKind = fkLookup
      FieldName = 'Name_Unit'
      LookupDataSet = AQ_CDrug
      LookupKeyFields = 'CDrug_No'
      LookupResultField = 'CDrug_Unit'
      KeyFields = 'PIN_Name'
      LookupCache = True
      Lookup = True
    end
  end
  object AQ_TCMoney: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TCMoney')
    Left = 312
    Top = 200
    object AQ_TCMoneyTCM_ID: TIntegerField
      FieldName = 'TCM_ID'
    end
    object AQ_TCMoneyTCM_RID: TIntegerField
      FieldName = 'TCM_RID'
    end
    object AQ_TCMoneyTCM_Name: TWideStringField
      FieldName = 'TCM_Name'
      FixedChar = True
      Size = 10
    end
    object AQ_TCMoneyTCM_Date: TDateTimeField
      FieldName = 'TCM_Date'
    end
    object AQ_TCMoneyTHM_Doctor: TWideStringField
      FieldName = 'THM_Doctor'
      FixedChar = True
      Size = 10
    end
    object AQ_TCMoneyTCM_WMDrug: TBCDField
      FieldName = 'TCM_WMDrug'
      Precision = 19
    end
    object AQ_TCMoneyTCM_CMDrug: TBCDField
      FieldName = 'TCM_CMDrug'
      Precision = 19
    end
    object AQ_TCMoneyTCM_HMDrug: TBCDField
      FieldName = 'TCM_HMDrug'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MExam: TBCDField
      FieldName = 'TCM_MExam'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MInject: TBCDField
      FieldName = 'TCM_MInject'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MEmit: TBCDField
      FieldName = 'TCM_MEmit'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MDiag: TBCDField
      FieldName = 'TCM_MDiag'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MChem: TBCDField
      FieldName = 'TCM_MChem'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MCure: TBCDField
      FieldName = 'TCM_MCure'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MSurgery: TBCDField
      FieldName = 'TCM_MSurgery'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MBlood: TBCDField
      FieldName = 'TCM_MBlood'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MOxygen: TBCDField
      FieldName = 'TCM_MOxygen'
      Precision = 19
    end
    object AQ_TCMoneyTCM_MOther: TBCDField
      FieldName = 'TCM_MOther'
      Precision = 19
    end
    object AQ_TCMoneyTCM_Total: TBCDField
      FieldName = 'TCM_Total'
      Precision = 19
    end
  end
end
⌨️ 快捷键说明

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