datamodule.pas

某大型医院护士站

unit DataModule;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Wwquery, Wwtable, wwstorep, Wwdatsrc, Wwintl ,Inifiles;

const
   ModID = '1000';

type
  TDM = class(TDataModule)
    PROJHISADT: TDatabase;
    Operator: TwwTable;
    qryWardBed: TwwQuery;
    qryWardBedWARDID: TStringField;
    qryWardBedBED: TStringField;
    qryWardBedINID: TIntegerField;
    qryWardBedNAME: TStringField;
    qryWardBedSEX: TIntegerField;
    qryWardBedNURCLASS: TIntegerField;
    qryWardBedROOMFEE: TFloatField;
    qryWardBedCHECKFEE: TFloatField;
    qryWardBedTVFEE: TFloatField;
    qryWardBedACFEE: TFloatField;
    qryWardBedTELFEE: TFloatField;
    qryWardBedPREOUT: TIntegerField;
    HISLOCAL: TDatabase;
    Ward: TwwTable;
    Frequency: TwwTable;
    Usage: TwwTable;
    OrderCost: TwwTable;
    BMOrderCost: TBatchMove;
    BMFrequency: TBatchMove;
    BMUsage: TBatchMove;
    RFrequency: TwwTable;
    RUsage: TwwTable;
    ROrderCost: TwwTable;
    spServerTime: TwwStoredProc;
    WardWARDID: TStringField;
    WardNAME: TStringField;
    WardDEPT: TStringField;
    WardINCHARGE: TStringField;
    WardEQUKIND: TSmallintField;
    WardWKIND: TSmallintField;
    spInWard: TwwStoredProc;
    qryInWard: TwwQuery;
    qryInWardAGE: TIntegerField;
    qryEmptyBed: TwwQuery;
    qryEmptyBedBED: TStringField;
    srcInWard: TwwDataSource;
    srcEmptyBed: TwwDataSource;
    OrderItem: TwwTable;
    ExOrderItem: TwwTable;
    tblPatientSub: TwwTable;
    spChgcharge: TwwStoredProc;
    tblFixedcode: TwwTable;
    tblDoctor: TwwTable;
    srcPatientBedno: TwwDataSource;
    IPINTERNET: TwwIntl;
    qryPatientBedNo: TwwQuery;
    srcPatientSub: TwwDataSource;
    srcOrderItem: TwwDataSource;
    srcExOrderitem: TwwDataSource;
    tblPatientSubINID: TIntegerField;
    tblPatientSubTIMES: TSmallintField;
    tblPatientSubSQID: TSmallintField;
    tblPatientSubPATDESC: TStringField;
    tblPatientSubBIRTHDAY: TDateField;
    tblPatientSubSEXNAME: TStringField;
    tblPatientSubWARDID: TStringField;
    tblPatientSubDEPTNUM: TStringField;
    tblPatientSubINSTATE: TSmallintField;
    tblPatientSubENABLED: TSmallintField;
    tblPatientSubBEDID: TStringField;
    tblPatientSubISBABY: TSmallintField;
    qryBed: TwwQuery;
    qryBedINID: TIntegerField;
    OrderItemINID: TIntegerField;
    OrderItemTIMES: TSmallintField;
    OrderItemSQID: TSmallintField;
    OrderItemWARDID: TStringField;
    OrderItemBEDID: TStringField;
    OrderItemSERIALID: TStringField;
    OrderItemDISPLAYID: TDateTimeField;
    OrderItemSTARTTIME: TDateTimeField;
    OrderItemKINDID: TSmallintField;
    OrderItemITEMID: TStringField;
    OrderItemITEMNAME: TStringField;
    OrderItemDOSAGE: TFloatField;
    OrderItemDOSEUNIT: TStringField;
    OrderItemUSETIMES: TSmallintField;
    OrderItemUSAGEID: TStringField;
    OrderItemEXCUPLACE: TSmallintField;
    OrderItemENDTIME: TDateTimeField;
    OrderItemOPERATOR: TStringField;
    OrderItemCONFIRMOP: TStringField;
    OrderItemCONFIRM: TSmallintField;
    OrderItemEXECUTIME: TDateTimeField;
    OrderItemHANDLE: TStringField;
    OrderItemMSGTIME: TDateTimeField;
    OrderItemSENDMSG: TSmallintField;
    OrderItemATONCE: TSmallintField;
    OrderItemSTOPTYPE: TSmallintField;
    OrderItemSTDSTATIME: TDateTimeField;
    OrderItemSTDENDTIME: TDateTimeField;
    OrderItemINACTUAL: TSmallintField;
    OrderItemAOMSG: TDateTimeField;
    OrderItemAOACTUAL: TSmallintField;
    OrderItemMODI: TSmallintField;
    OrderItemOPENDOC: TStringField;
    OrderItemCLOSEDOC: TStringField;
    OrderItemUSAGENAME: TStringField;
    OrderItemUSETIMESNAME: TStringField;
    OrderItemDOSUNIT1: TStringField;
    OrderItemEXCUPLACENAME: TStringField;
    tblExcutepos: TwwTable;
    OrderItemOPENDOCNAME: TStringField;
    ExOrderItemINID: TIntegerField;
    ExOrderItemTIMES: TSmallintField;
    ExOrderItemSQID: TSmallintField;
    ExOrderItemORDERKIND: TSmallintField;
    ExOrderItemKINDID: TSmallintField;
    ExOrderItemEXITEM: TStringField;
    ExOrderItemQTY: TFloatField;
    ExOrderItemPRICE: TFloatField;
    ExOrderItemTOTAL: TFloatField;
    ExOrderItemSTDSTATIME: TDateTimeField;
    ExOrderItemSERIALID: TStringField;
    ExOrderItemITEMNAME: TStringField;
    ExOrderItemDOSUINT: TStringField;
    qryPatientBedNoBED: TStringField;
    qryPatientBedNoINID: TIntegerField;
    qryPatientBedNoTIMES: TSmallintField;
    qryPatientBedNoNAME: TStringField;
    qryPatientBedNoSEX: TSmallintField;
    qryPatientBedNoBIRTHDAY: TDateField;
    qryPatientBedNoPREOUT: TSmallintField;
    qryPatientBedNoPATIENTDATA: TSmallintField;
    qryPatientBedNoNMNT: TSmallintField;
    tblPatientSubAGE: TSmallintField;
    qryGetSerialID: TwwQuery;
    qrySelOrderCost: TwwQuery;
    OrderItemORDERKIND: TSmallintField;
    spSdTime: TwwStoredProc;
    spStopMulti: TwwStoredProc;
    qryWardBedTIMES: TIntegerField;
    spChangeBed: TwwStoredProc;
    qryCheckKindID: TwwQuery;
    qryCheckKindIDUSAGEID: TStringField;
    qryCheckKindIDUSETIMES: TSmallintField;
    qryCheckKindIDSERIALID: TStringField;
    qryInWardINID: TIntegerField;
    qryInWardTIMES: TSmallintField;
    qryInWardSQID: TSmallintField;
    qryInWardPATDESC: TStringField;
    qryInWardSEXNAME: TStringField;
    qryInWardBIRTHDAY: TDateField;
    qryInWardWARDID: TStringField;
    qryInWardDEPTNUM: TStringField;
    qryInWardISBABY: TSmallintField;
    qryInWardWARDNAME: TStringField;
    qryInWardDEPTNAME: TStringField;
    qryEmptyBedINID: TIntegerField;
    qryEmptyBedDEPTNUM: TStringField;
    OrderCostCOSTID: TStringField;
    OrderCostCNAME: TStringField;
    OrderCostENAME: TStringField;
    OrderCostSPEC: TStringField;
    OrderCostDOSEUNIT: TStringField;
    OrderCostUSEUNIT: TStringField;
    OrderCostUSAGEID: TStringField;
    OrderCostDOSAGE: TFloatField;
    OrderCostBASEDOSE: TFloatField;
    OrderCostPRICE: TFloatField;
    OrderCostUSETIMES: TSmallintField;
    OrderCostREUSE: TSmallintField;
    OrderCostEXCOST: TSmallintField;
    OrderCostSELFPAY: TSmallintField;
    OrderCostICLASS: TStringField;
    OrderCostSCLASS: TStringField;
    OrderCostBCLASS: TStringField;
    OrderCostEXCODE1: TStringField;
    OrderCostEXCODE2: TStringField;
    OrderCostEXCODE3: TStringField;
    OrderCostWORKITEM: TSmallintField;
    OrderCostEXCUPLACE: TSmallintField;
    OrderCostITEMTYPE: TSmallintField;
    OrderCostQFLAG: TSmallintField;
    OrderCostCH_PRICE: TFloatField;
    OrderCostIS_DANGER: TSmallintField;
    OrderCostGREENEND: TSmallintField;
    OrderCostOMCLASS: TStringField;
    OrderCostEXPRICE: TFloatField;
    OrderCostPRICEMD: TStringField;
    OrderCostISPAYBILL: TSmallintField;
    OrderCostENABLED: TSmallintField;
    OrderCostMADEIN: TStringField;
    OrderItemItemNameT: TStringField;
    OrderItemPrice: TFloatField;
    OrderItemSpec: TStringField;
    OrderItemIsExcost: TSmallintField;
    OrderItemIsSelfPay: TSmallintField;
    OrderItemMadeIn: TStringField;
    OrderItemIsReuse: TSmallintField;
    OrderItemIsDanger: TSmallintField;
    OrderItemIsPayBill: TSmallintField;
    OrderItemEname: TStringField;
    OrderItemIsQflag: TSmallintField;
    OrderItemUSEUNIT: TStringField;
    spConfirm: TwwStoredProc;
    spEmergency: TwwStoredProc;
    qryPatientAtonce: TwwQuery;
    scrPatientAtonce: TwwDataSource;
    qryPatientAtonceINID: TIntegerField;
    qryPatientAtonceBEDID: TStringField;
    qryPatientAtonceSERIALID: TStringField;
    qryPatientAtonceSTARTTIME: TDateTimeField;
    qryPatientAtonceORDERKIND: TSmallintField;
    qryPatientAtonceITEMID: TStringField;
    qryPatientAtonceSTDSTATIME: TDateTimeField;
    qryPatientAtonceDOSAGE: TFloatField;
    qryPatientAtonceDOSEUNIT: TStringField;
    qryPatientAtonceUSETIMES: TSmallintField;
    qryPatientAtonceUSAGEID: TStringField;
    qryPatientAtonceEXCUPLACE: TSmallintField;
    qryPatientAtonceKINDID: TSmallintField;
    qryPatientAtonceSELECTED: TBooleanField;
    qryPatientAtonceITEMNAME: TStringField;
    qryPatientAtonceOrderKindName: TStringField;
    qryPatientAtonceEXCUTEPLACE: TStringField;
    qryPatientAtonceENDTIME: TDateTimeField;
    qryPatientAtonceUSAGENAME: TStringField;
    qryPatientAtonceUSETIMENAME: TStringField;
    spRecall: TwwStoredProc;
    OrderItemDEPTNUM: TStringField;
    OrderItemPAYTIME: TDateTimeField;
    qryPatientBedNoDEPTNUM: TStringField;
    qryChkConfirm: TwwQuery;
    qryChkConfirmNO_CONFIRMNUM: TIntegerField;
    qryOrderCost: TwwQuery;
    qryOrderCostCOSTID: TStringField;
    qryOrderCostCNAME: TStringField;
    qryOrderCostENAME: TStringField;
    qryOrderCostSPEC: TStringField;
    qryOrderCostPRICE: TFloatField;
    qryOrderCostMADEIN: TStringField;
    qryOrderCostEXCODE1: TStringField;
    qryOrderCostEXCODE2: TStringField;
    qryOrderCostEXCODE3: TStringField;
    spPatientOut: TwwStoredProc;
    spSendMsg: TwwStoredProc;
    Ins_Aomsg: TwwQuery;
    qryPreTotal: TwwQuery;
    qryFeeTotal: TwwQuery;
    qryPreTotalPREPAYTOTAL: TFloatField;
    qryFeeTotalFEETOTAL: TFloatField;
    qryPatientBedNoINDATE: TDateTimeField;
    qryDeptSub: TwwQuery;
    qryDeptSubWARDID: TStringField;
    qryDeptSubWARDNAME: TStringField;
    qryDeptSubDEPTNUM: TStringField;
    qrySendPat: TwwQuery;
    scrSendPat: TwwDataSource;
    qrySendPatINID: TIntegerField;
    qrySendPatTIMES: TSmallintField;
    qrySendPatSQID: TSmallintField;
    qrySendPatBEDID: TStringField;
    qrySendPatDEPTNUM: TStringField;
    qrySendPatPATNAME: TStringField;
    qrySendPatDEPTNAME: TStringField;
    qrySendPatSEXNAME: TStringField;
    qrySendPatSELECTED: TBooleanField;
    qrySendPatINSTATE: TSmallintField;
    qrySendPatSTATENAME: TStringField;
    OrderCostYBCLASS: TStringField;
    qryOrderCostDOSAGE: TFloatField;
    qryOrderCostBASEDOSE: TFloatField;
    qrySendPatCONFIRM: TSmallintField;
    qryDeptSubISALL: TIntegerField;
    qryDeptSubDEPTNAME: TStringField;
    qryWardBedDEPTNUM: TStringField;
    qryWardBedPAYED: TIntegerField;
    qryCanOutBedNo: TwwQuery;
    tblDtlPatSub: TwwTable;
    scrCanOutBedNo: TwwDataSource;
    qryCanOutBedNoBED: TStringField;
    qryCanOutBedNoDEPTNUM: TStringField;
    qryCanOutBedNoINID: TIntegerField;
    qryCanOutBedNoTIMES: TSmallintField;
    qryCanOutBedNoNAME: TStringField;
    qryCanOutBedNoSEX: TSmallintField;
    qryCanOutBedNoBIRTHDAY: TDateField;
    qryCanOutBedNoPREOUT: TSmallintField;
    qryCanOutBedNoPATIENTDATA: TSmallintField;
    qryCanOutBedNoNMNT: TSmallintField;
    qryCanOutBedNoINDATE: TDateTimeField;
    qryCanOutBedNoPAYED: TSmallintField;
    tblDtlPatSubINID: TIntegerField;
    tblDtlPatSubTIMES: TSmallintField;
    tblDtlPatSubSQID: TSmallintField;
    tblDtlPatSubPATDESC: TStringField;
    tblDtlPatSubBIRTHDAY: TDateField;
    tblDtlPatSubSEXNAME: TStringField;
    tblDtlPatSubWARDID: TStringField;
    tblDtlPatSubDEPTNUM: TStringField;
    tblDtlPatSubINSTATE: TSmallintField;
    tblDtlPatSubENABLED: TSmallintField;
    tblDtlPatSubBEDID: TStringField;
    tblDtlPatSubISBABY: TSmallintField;
    tblDtlPatSubDRIPTIME: TDateTimeField;
    tblDtlPatSubCLINICID: TStringField;
    spBlankBed: TwwStoredProc;
    qryOtherBill: TwwQuery;
    srcOtherBill: TwwDataSource;
    qryOtherBillINSDT: TDateTimeField;
    qryOtherBillCOSTDATE: TDateField;
    qryOtherBillINID: TIntegerField;
    qryOtherBillTIMES: TSmallintField;
    qryOtherBillSQID: TSmallintField;
    qryOtherBillWARDID: TStringField;
    qryOtherBillKINDID: TSmallintField;
    qryOtherBillITEMID: TStringField;
    qryOtherBillSERIALID: TStringField;
    qryOtherBillQTY: TFloatField;
    qryOtherBillPRICE: TFloatField;
    qryOtherBillICLASS: TStringField;
    qryOtherBillBCLASS: TStringField;
    qryOtherBillSCLASS: TStringField;
    qryOtherBillSELFPAY: TSmallintField;
    qryOtherBillPAY: TSmallintField;
    qryOtherBillORDERKIND: TSmallintField;
    qryOtherBillOPNO: TStringField;
    qryOtherBillEXPRICE: TFloatField;
    qryOtherBillACTYPE: TSmallintField;
    qryOtherBillFEETYPE: TStringField;
    qryOtherBillOPID: TStringField;
    qryOtherBillPNTBLDATE: TDateField;
    qryOtherBillDOCID: TStringField;
    qryOtherBillEXDEPT: TStringField;
    qryOtherBillBEDID: TStringField;
    qryOtherBillDEPTNUM: TStringField;
    qryOtherBillITEMNAME: TStringField;
    qryOtherBillI_PRICE: TFloatField;
    qryOtherBillATM: TFloatField;
    qryOtherBillUSEUNIT: TStringField;
    qryOtherBillSPEC: TStringField;
    qryPasswd: TwwQuery;
    spChgPass: TwwStoredProc;
    bmDoctor: TBatchMove;
    bmExcutePos: TBatchMove;
    tblDept: TTable;
    bmWard: TBatchMove;
    bmDept: TBatchMove;
    Doctor: TTable;
    ExcutePos: TTable;
    tblWard: TTable;
    Dept: TTable;
    spPatDayfee: TwwStoredProc;
    spBedfeecrt: TwwStoredProc;
    qryItemFeeDtl: TwwQuery;
    srcItemFeeDtl: TwwDataSource;
    qryItemFeeDtlINSDT: TDateTimeField;
    qryItemFeeDtlCOSTDATE: TDateField;
    qryItemFeeDtlINID: TIntegerField;
    qryItemFeeDtlTIMES: TSmallintField;
    qryItemFeeDtlSQID: TSmallintField;
    qryItemFeeDtlWARDID: TStringField;
    qryItemFeeDtlKINDID: TSmallintField;
    qryItemFeeDtlITEMID: TStringField;
    qryItemFeeDtlSERIALID: TStringField;
    qryItemFeeDtlQTY: TFloatField;
    qryItemFeeDtlPRICE: TFloatField;
    qryItemFeeDtlICLASS: TStringField;
    qryItemFeeDtlBCLASS: TStringField;
    qryItemFeeDtlSCLASS: TStringField;
    qryItemFeeDtlSELFPAY: TSmallintField;
    qryItemFeeDtlPAY: TSmallintField;
    qryItemFeeDtlORDERKIND: TSmallintField;
    qryItemFeeDtlOPNO: TStringField;
    qryItemFeeDtlEXPRICE: TFloatField;
    qryItemFeeDtlACTYPE: TSmallintField;
    qryItemFeeDtlFEETYPE: TStringField;
    qryItemFeeDtlOPID: TStringField;
    qryItemFeeDtlPNTBLDATE: TDateField;
    qryItemFeeDtlDOCID: TStringField;
    qryItemFeeDtlEXDEPT: TStringField;
    qryItemFeeDtlBEDID: TStringField;
    qryItemFeeDtlDEPTNUM: TStringField;
    qryItemFeeDtlITEMNAME: TStringField;
    qryItemFeeDtlSPEC: TStringField;
    qryItemFeeDtlUSEUNIT: TStringField;
    tblDtlPatSubAGE: TIntegerField;
    srcDtlPatSub: TwwDataSource;
    spFeeChg: TwwStoredProc;
    spCancelOrder: TwwStoredProc;
    tblPatientSubFEELOWLEVEL: TFloatField;
    qryWardBedINDATE: TDateTimeField;
    qryWardBedOUTDATE: TDateTimeField;
    qryPatInfo: TwwQuery;
    srcPatInfo: TwwDataSource;
    qryPatInfoBED: TStringField;
    qryPatInfoINID: TIntegerField;
    qryPatInfoTIMES: TSmallintField;
    qryPatInfoNAME: TStringField;
    qryPatInfoSEX: TSmallintField;
    qryPatInfoBIRTHDAY: TDateField;
    qryPatInfoINDATE: TDateTimeField;
    qryPatInfoINCOND: TSmallintField;
    qryPatInfoMARRIAGE: TSmallintField;
    qryPatInfoCAREER: TSmallintField;
    qryPatInfoCOUNTRY: TSmallintField;
    qryPatInfoNATION: TSmallintField;
    qryPatInfoICID: TStringField;
    qryPatInfoBIRTHADDR: TStringField;
    qryPatInfoADDRESS: TStringField;
    qryPatInfoADDRZIPCODE: TIntegerField;
    qryPatInfoCORPNAME: TStringField;
    qryPatInfoCORPADDR: TStringField;
    qryPatInfoCORPPHONE: TStringField;
    qryPatInfoCORPZIPCODE: TIntegerField;
    qryPatInfoRLNAME: TStringField;
    qryPatInfoRELATION: TSmallintField;
    qryPatInfoRLADDR: TStringField;
    qryPatInfoRLPHONE: TStringField;
    qryPatInfoRLZIPCODE: TIntegerField;
    qryPatInfoBALKIND: TStringField;
    qryPatInfoSEXNAME: TStringField;
    qryPatInfoMarrStat: TStringField;
    qryPatInfoCAREERNM: TStringField;
    spOutRecall: TwwStoredProc;
    qryPatientBedNoPAYED: TSmallintField;
    qryPatientBedNoBALMTHD: TSmallintField;
    qryPatientBedNoBALNAME: TStringField;
    qryNoConfirmStop: TwwQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure tblPatientSubCalcFields(DataSet: TDataSet);
    procedure OrderItemNewRecord(DataSet: TDataSet);