医院药品信息管理系统的设计与开发.doc

《医院药品信息管理系统的设计与开发.doc》由会员分享，可在线阅读，更多相关《医院药品信息管理系统的设计与开发.doc（31页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、摘要软件是利用Delphi 7.0设计开发的医院药品管理系统，系统的前台采用了Delphi 7.0为开发工具，后台使用大型关系数据库SQL Server 2008。此系统的设计特点是人机交互界面友好，操作简单方便。关键词: 药品管理；数据库；Delphi；SQL目 录一、前言4二、开发工具及运行环境4(一)Delphi 简介4(二)SQL Server 2008简介4(三)运行环境41、软件环境42、硬件环境4三、系统分析与设计5(一)功能模块分析51、系统功能结构52、各模块功能的简介5(二)系统流程图7(三)功能分析71、信息管理功能72、用户浏览功能7(四)数据库设计71、创建数据库和数

2、据表72、创建基本信息表8四、程序设计说明12(一)建立系统主窗体12(二)创建公用单元14(三)用户登录15(四)用户设置15(五)权限设置18(六)更改密码18(七)药品字典19(八)药商字典20(九)采购管理21(十)入库管理26(十一)出库管理28(十二)库存盘点30(十三)药库查询31五、参考文献32一、 前言随着计算机技术的飞速发展和经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。医院药品管理系统以医院医疗用药管理为主线，实现全面的信息化。系统设计主要突出强化了系统与数据的安全性，构架、构件设计的标准化，实时响应速度的快速

3、化，及人机界面设计的友善性等方面。医院管理系统是用计算机管理医院药品，从功能上覆盖了系统设置，基础资料，药品采购，药品入库，药品出库，药品盘点，药品查询等。二、 开发工具及运行环境(一) Delphi 简介Delphi是Inprise公司(即原Borland)推出的基于真正面向对象语言Object Pascal语言的可视化编程工具，是当今世界上最快的编译器。能大大提高编程效率。面向对象的程序设计(Object-Oriented Programming，简写为OOP)是现在最成功的高级语言程序设计方法，面向对象的程序设计的目的是创建可重用代码，通过把属性和方法封装进“对象”中，以更好地模拟现实世

4、界。“真正的程序员用C，聪明的程序员用Delphi”，这句话是对Delphi最经典、最实在的描述1。(二) SQL Server 2008简介SQL Server 2008是一个重大的产品版本，它推出了许多新的特性和关键的改进，使得它成为至今为止的最强大和最全面的SQL Server版本。SQL Server 2008 数据库引擎为关系型数据和结构化数据提供了更安全可靠的存储功能，使您可以构建和管理用于业务的高可用和高性能的数据应用程序。(三) 运行环境1、 软件环境服务器：Windows Server 2003（标准版或企业版）/WINDOWS XP，SQL Server 2008。工作站：

5、WINDOWS XP/ Windows 7专业版，TCP/IP协议，Delphi 7.0。2、 硬件环境工作站：硬盘120G，内存1G以及通讯电缆、集线器、网卡及相应设备。服务器：Intel C602芯片组或更高，8个.3.5寸SATA/SAS硬盘位/可扩展，内存，内存16根内存槽/最大支持512GB。三、 系统分析与设计(一) 功能模块分析1、 系统功能结构 系统功能结构图如图3-1所示。药品进销存管理系统设置基础资料采购管理药库查询出库管理入库管理采购单审核采购单建立厂商字典药品字典权限设定用户设定库存盘点密码设定 图3-1 药品信息管理系统功能模块划分图3-1概括了系统的功能模块，可以看

6、出,不同类型的用户对系统有不同的权限，对系统的操作内容也不同。2、 各模块功能的简介(1) 用户设定：维护和设置药品进销存管理系统用户基本信息。（如图3-2所示）(2) 权限设定：设置系统用户对各个模块所拥有的使用权限。(3) 密码设定：为当前已经登陆的用户修改密码。 系统设置用户设定更改密码权限设定图3-2 系统设置(4) 药品字典：维护药品的基本信息，如药品的名称、药品的类型、规格、单位、和药品描述、药品用法以及零售转换率等，如图3-3所示。(5) 药商字典：维护药品供货厂商的基本资料，如厂商名称、联系方式、厂商地址、负责人和联系电话等。基础资料药品字典厂商字典图3-3 基础资料模块(6)

7、 采购管理：记录采购单的详细信息，包括采购日期和采购厂商以及各种药品的信息和购入价格、购入数量，并实现采购单据的审核等。可以实现管理医院或诊所内药品采购信息，如图3-4所示。(7) 入库管理：对采购或退药的药品进行入库登记，包括入库类别、入库日期、药品的入库信息等。可以实现管理医院或诊所内药品入库信息。(8) 出库管理：药房领药或药品销售领药出库的登记，包括出库日期、出库类别、销售价格和销售数量，以及出库单据的审核等。能够实现管理医院或诊所内药品出库信息。(9) 库存盘点：定期对药库中的药品进行盘点登记，核对药品账面数量和药品实际数量，统计盈亏等。可以保证数据库的正确性(10) 药库查询：快捷

8、方便地查询当前药库中药品的库存数量和药品的其他信息等。图3-4 药品进销存业务模块(二) 系统流程图如图3-5所示,实现了该系统的登录流程。填写登录用户名输入密码正确？管理员?进入可使用所有功能的主界面进入可使用部分功能的主界面重新输入?退出系统NNNYYY 图3-5 系统登录流程图(三) 功能分析本系统主要是实现了信息管理功能和信息浏览功能。1、 信息管理功能管理人员进入系统后，可看到系统的全部内容，可以对用户权限进行管理，并把操作后的信息重新写进数据库。此系统还可以进行药品入库管理、出库管理、药品库存管理。具有不同权限的人可以对系统进行相对应的操作，从而保证了系统的安全性。2、 用户浏览功

9、能本系统可以让用户浏览信息，例如供用户检索药品信息、药品库存信息和药商信息等。(四) 数据库设计1、 创建数据库和数据表首先用Microsoft SOL Server 2008创建数据库，根据需求分析创建，药品进销存管理系统总共需要13个表，各表的含义如表3-1所示。表3-1 药品进销存管理系统数据表说明数据表名数据表中文名称数据表用途Medicine药品信息表保存药品的基本信息Provider药商信息表保存药品供应商的基本信息User用户信息表保存登陆用户的基本信息StockHeader采购主表保存采购主表信息StockBody采购明细表保存采购药品的明细资料SaleHeader销售主表保存

10、销售主表信息SaleBody销售明细表保存销售药品的明细资料InDepotHeader入库主表保存药品入库的基本信息InDepotBody入库明细表保存药品入库的明细资料CheckHeader盘点主表保存药品盘点的基本信息CheckBody盘点明细表保存药品盘点的明细资料Storage库存表保存药品的库存信息Popedom权限表保存权限模块信息2、 创建基本信息表药品进销存管理系统的基本信息表包括药品信息表、药商信息表和用户信息表，用户的权限表，采购主表和采购明细表，入库主表和入库明细表，销售主表和销售明细表，盘点主表和盘点明细表，以及库存主表等等，各信息表的具体的描述和说明如下。(1) 药品

11、信息表（Medicine）的定义如表3-2所示。表3-2 药品信息表说明字段名称字段描述数据类型可否为空说明Type药品类别Varchar(10)Medicine药品编号Varchar(10)主键系统自动取得流水单号MedName名称Varchar(30)Spec规格Varchar(20)Unit单位Varchar(10)ChangRate零售价格换算FloatDescribe描述TextUseage用法TextRemark备注Text(2) 药商信息表（Provider）的定义如表3-3所示。表3-3 药商信息表说明字段名称字段描述数据类型可否为空ProviderID公司编号Varchar(

12、10)主键ProName公司名称Varchar(30)Address地址Varchar(30)Principal负责人Varchar(8)Telephone电话Varchar(20)(3) 用户信息表（User）的定义如表3-4所示。表3-4 用户信息表说明字段名称字段描述数据类型可否为空LoginID登录编号Varchar(10)主键LogName用户名称Varchar(8)Password密码Varchar(8)PopedomID权限编号Varchar(8)(4) 权限表（Popedom）的定义如表3-5所示。表3-5 权限表说明字段名称字段描述数据类型可否为空UserID权限编号Varc

13、har(8)主键MenuName菜单名称Varchar(20)(5) 采购主表（StockHeader）的定义如表3-6所示。表3-6 采购主表说明字段名称字段描述数据类型可否为空StockID采购编号Varchar(10)主键ProviderID公司编号Varchar(10)StockDateTime采购时间DatetimeTabMan制表人Varchar(8)Auditing是否审核Bit(1)Remark备注Text(6) 采购明细表（StockBody）的定义如表3-7所示。表3-7 采购明细表说明字段名称字段描述数据类型可否为空StockID采购编号Varchar(10)主键+外键M

14、edicineID药品编号Varchar(10)主键ByPrice购进价格MoneyJobPrice批发价格MoneyRetailPrice零售价格MoneyAmount购进数量Numeric(7) 入库主表（InDepotHeader）的定义如表3-8所示。表3-8 入库主表说明字段名称字段描述数据类型可否为空StockID采购编号Varchar(10)主键InDepotID入库编号Varchar(10)主键ProviderID公司编号Varchar(10)InTime入库时间DatetimeInDepotType入库类别Varchar(10)Auditing审核员Varchar(8)Aud

15、iting是否审核Bit(1)Remark备注Text(8) 入库明细表（InDepotBody）的定义如表3-9所示。表3-9 入库明细表说明字段名称字段描述数据类型可否为空InDepotID入库编号Varchar(10)主键+外键ValidityDatetime有效日期Datetime主键MedicineID药品编号Varchar(10)ByPrice购进价格MoneyJobPrice批发价格MoneyRetailPrice零售价格MoneyAmount购进数量NumericBatchCode批号Varchar(20)(9) 销售主表（SaleHeader）的定义如表3-10所示。表3-1

16、0 销售主表说明字段名称字段描述数据类型可否为空SaleID销售编号Varchar(10)主键SaleType销售类别Varchar(10)SaleDatetime销售时间DatetimeSaleMan销售人员Varchar(8)Auditing是否审核Bit(1)Remark备注Text(10) 销售明细表（SaleBody）的定义如表3-11所示。表3-11 销售明细表说明字段名称字段描述数据类型可否为空SaleID销售编号Varchar(10)主键+外键ValidityDatetime有效日期Datetime主键MedicineID药品编号Varchar(10)RetailPrice零售

17、价格MoneyAmount销售数量Numeric(11) 盘点主表（CheckHeader）的定义如表3-12所示。表3-12 盘点主表说明字段名称字段描述数据类型可否为空CheckID盘点编号Varchar(10)主键CheckDatetime盘点时间DatetimeCheckMan盘点人员Varchar(8)续表3-12 盘点主表说明字段名称字段描述数据类型可否为空Remark备注TextAuditingPeople审核人员Varchar(8)Auditing是否审核Bit(1)(12) 盘点明细表（CheckBody）的定义如表3-13所示。表3-13 盘点明细表说明字段名称字段描述数据

18、类型可否为空CheckID盘点编号Varchar(10)主键MedType药品类别Varchar(30)ValidityDatetime有效日期Datetime主键MedicineID药品编号Varchar(10)CheckAmount盘点数量Numeric(13) 库存表（Storage）的定义如表3-14所示。表3-14 库存表说明字段名称字段描述数据类型可否为空ValidityDatetime有效日期Datetime主键MedicineID药品编号Varchar(10)主键RetailPrice零售价格MoneyStorageAmount库存数量Numeric以上表是系统所要求数据库中应

19、有的几个重要的表，医院药品管理人员对相关数据信息的操作其实是对这些表的相应内容的操作，表的设计的优劣直接关系到系统的性能。四、 程序设计说明(一) 建立系统主窗体系统主窗体的设计界面如图4-1所示。图4-1 药品进销存管理系统主界面(1) 添加主窗体的MainMenu菜单和快捷按钮对应的事件，这些事件分别发打不同的模块窗体。(2) 添加主窗体的GetADOConnStr方法，此方法的功能适当数据库连接不存在时自动弹出“数据库连接属性”对话框，用于设置数据库连接字符串，并将连接信息保存在INI文件中。其代码如下：procedure TfrmLeechdomMain.GetADOConnStr(F

20、ileName: string);var ADOConnStr: string;begin ADOConnStr := ; try /动态加载DLL,DLL中包含了读取INI文件的函数 if ReadIni(FileName,BDConn,DBConFileName) = then begin/弹出UDL连接数据窗体 ADOConnStr := PromptDataSource(Application.Handle, ADOConn.ConnectionString); WriteIni(FileName,BDConn,DBConFileName,ADOConnStr); end else A

21、DOConnStr := ReadIni(FileName,BDConn,DBConFileName); finally try ADOConn.Close; ADOConn.ConnectionString := ADOConnStr; ADOConn.Open; except Application.MessageBox(连接数据库失败!,提示,16); WriteIni(FileName,BDConn,DBConFileName,); end; end;end;(3) 添加主窗体的OnShow事件，此事件的功能是启动主程序时调用数据库连接方法，然后显示登陆窗体。其代码如下：procedu

22、re TfrmLeechdomMain.FormShow(Sender: TObject);begin/连接数据库 GetADOConnStr(FileName);/登录窗体的现实 frmLogin := TfrmLogin.Create(Self); frmLogin.ShowModal;procedure TfrmLeechdomMain.GetADOConnStr(FileName: string);var ADOConnStr: string;begin ADOConnStr := ; try /动态加载DLL,DLL中包含了读取INI文件的函数 if ReadIni(FileName

23、,BDConn,DBConFileName) = then begin/弹出UDL连接数据窗体 ADOConnStr := PromptDataSource(Application.Handle, ADOConn.ConnectionString); WriteIni(FileName,BDConn,DBConFileName,ADOConnStr); end else ADOConnStr := ReadIni(FileName,BDConn,DBConFileName); finally try ADOConn.Close; ADOConn.ConnectionString := ADOC

24、onnStr; ADOConn.Open; except Application.MessageBox(连接数据库失败!,提示,16); WriteIni(FileName,BDConn,DBConFileName,); end; end;end;(二) 创建公用单元通过公用单元来调用存储过程，实现对数据库的操作。公用单元主要实现调用存储过程打开数据集，执行SQL语句更新数据库信息和通过SQL语句查询信息等。公用单元中函数和方法的功能描述如下所示。(1) WriteIni方法：将数据字符串保存在初始化INI文件中。(2) ReadIni函数：初始化数据库连接并保存连接。(3) FileName

25、函数：用于获取初始化文件路径。(4) OpenDataSQL方法：通过传入指定的SQL语句打开数据集。(5) FindSQL函数：执行SQL语句，查询数据。(6) ExecSQL方法：用于执行插入、更新或删除等数据库操作。(三) 用户登录此模块通过验证用户的编号和密码来实现用户登录功能。“用户登录”窗体，主要用于验证用户编号和密码的合法性并登录主系统。为了实现这些功能，需要如下控件：1个TImage控件，显示登录画面；2个TBitBtn控件，装载按钮图片，分别执行登录和放弃功能；2个TEdit控件，分别显示用户输入的用户编码和密码；2个TLabel控件，显示用户提示信息；1个TADOQuery

26、控件，获取用户登陆权限。窗体的设计界面如图4-2所示。图4-2 用户登录界面(1) 在“proc_Base”存储过程中添加判断用户登录和用户权限的SQL语句。(2) 添加“登录”按钮的单击事件，此事件的功能首先是调用proc Base存储过程中的判断用户登录方法，当用户登录成功后判断用户所拥有的模块权限，通过权限来控制菜单模块是否可以使用。(3) 添加“放弃”按钮的单击事件，此事件的功能是放弃登录并关闭应用程序。(4) 添加edtUserID控件的OnKeyPress事件，使用回车键控制光标的焦点。(四) 用户设置用户设置模块实现了系统用户维护功能。“用户设定”窗体主要实现对“药品进销存管理系

27、统”中的使用者进行管理，其中包含了用户编号、用户姓名和初始密码以及备注等基本信息。为了实现这些功能，需要如下控件：1个TDBGrid控件，显示用户信息；4个TBitBtn控件，装载按钮图片，分别执行添加、修改、删除和保存功能；2个TDBEdit控件，分别显示用户输入的用户名称和密码；1个TADOQuery控件，数据查询控件，用来执行SQL语句，查询用户数据；1个TDBText控件，用于显示登陆编号信息；1个TDataSource控件，数据源控件。窗体的设计界面如图4-3所示。图4-3 “用户设定”窗体(1) 向存储过程proc_Base中添加一段用于检查用户编号是否存在的SQL语句。其代码如下

28、：if Flag=Select_LoginID_Max -药商的最大编号beginSelect ISNULL(Max(LoginID), LoginID) + 1 as LoginID From User end(2) 依次添加“添加”、“修改”、“删除”和“保存”按钮的单击事件，这些事件的功能主要是对数据库执行添加、删除、修改、保存等基本的数据库操作。其代码如下：procedure TfrmUserSet.btnAddClick(Sender: TObject);var SQLMaxID, MaxID, LoginID: string;begin qryUser.Insert; LoginI

29、D := 1000; SQLMaxID := Exec proc_Base Flag=Select_LoginID_Max + ,LoginID= + Quotedstr(LoginID); /调用存储过程 OpenDataSQL(frmLeechdomMain.qryMaxID, SQLMaxID); /执行SQL语句的过程 MaxID := frmLeechdomMain.qryMaxID.FieldByName(LoginID).AsString; txtLoginID.Caption := MaxID; qryUser.FieldByName(LoginID).AsString :=

30、MaxID;end;procedure TfrmUserSet.btnModifyClick(Sender: TObject);begin qryUser.Edit;end;procedure TfrmUserSet.btnDeleteClick(Sender: TObject);begin if Application.MessageBox(确定要删除此条记录吗?,提示,68) = IDNo then Exit; qryUser.Delete; qryUser.UpdateBatch;end;procedure TfrmUserSet.btnSaveClick(Sender: TObject

31、);begin if qryUser.State in dsInsert,dsEdit then qryUser.UpdateBatch;end;(3) 在窗体的OnShow事件中调用公用单元的OpenDataSQL方法打开用户信息表数据集。其代码如下所示。procedure TfrmUserSet.FormShow(Sender: TObject);begin OpenDataSQL(qryUser, Select * From User);end;(4) 在窗体的OnClose事件中释放窗体实例。(五) 权限设置此模块实现了设置系统使用者权限的功能。“权限设定”窗体主要实现对用户进行权限管

32、理，控制用户在药品进销存管理系统中拥有的权限。为了实现这些功能，需要如下控件：1个TTreeView控件，用来显示用户信息的树形列表；2个TBitBtn控件，确定和取消权限操作按钮；1个TCheckListBox控件，权限列表框；1个TADOQuery控件，用于获取数据集。窗体的设计界面如图4-4所示。图4-4 权限设定(1) 添加窗体的OnShow事件，此事件的功能主要是当窗体打开时初始化TCheckListBox控件和TTreeView控件，分别显示权限列表和当前系统中的用户信息。(2) 添加“权限列表”的单击事件，此事件的功能主要是当选择某一用户是调用存储过程，查询处当前用户所拥有的权限

33、并显示在列表框中。(六) 更改密码“更改密码”窗体主要实现对当前已经登录了的用户修改密码。用户通过输入原密码，再通过一次输入新密码，之后再一次确认输入新密码，来更改之前所使用的密码。为了实现这些功能，需要如下控件：2个TBitBtn控件，分别用来保存数据和关闭模块窗体；3个TEdit控件，分别用来输入“原密码”、“新密码”和“确认新密码”；5个TLabel控件，显示信息描述简介；1个TADOQuery控件，用于获取数据集。窗体的设计界面如图4-5所示。图4-5 更改密码(1) 向“proc_Base”存储过程中添加更新密码的SQL语句。其实现代码如下：(2) 添加“确定”按钮的单击事件，此事件

34、的功能主要是调用“proc_Base”存储过程中修改密码的SQL语句，通过传入制定的用户编号和密码来实现密码修改。其实现代码如下：if Flag1 =Password -修改密码的时候beginupdate User set Password = Pass where LoginID=LoginIDendend(3) 添加窗体的OnShow事件，此事件的功能主要是显示当前登录的用户的编号信息。添加窗体的OnClose事件和“取消”按钮的单击事件，这两个事件分别用来释放窗体实例和关闭窗体。(七) 药品字典“药品字典维护”窗体主要用于药品基本信息的建立和维护。为了实现这些功能，需要如下控件：1个T

35、DBGrid控件，用来显示数据表格；5个TBitBtn控件，分别用来实现添加、修改、删除、保存和取消操作；3个TDBEdit控件，用来输入或显示数据字段值；1个TDBText控件，用于显示编号信息；2个TComboBox控件，用来选择药品单位和药品类型；9个TLabel控件，显示信息描述简介；3个TDBMemo控件，用来输入或显示药品描述，用法，备注信息；1个TDataSource控件，数据源控件；1个TADOQuery控件，用于获取数据集。窗体的设计界面如图4-6所示。图4-6 药品字典维护(1) 添加窗体的OnShow事件，在此事件中调用公用单元的OpenDataSQL方法，通过传入指定的

36、SQL语句打开药品字典数据集。添加窗体的OnClose事件，其主要功能是释放窗体实例。(2) 依次添加“添加”、“修改”、“删除”、“保存”和“取消”按钮的单击事件，这些事件的功能主要是对数据库执行添加、删除、修改、保存等基本的数据库操作。(3) 添加edtChangeRate控件的OnKeyPress事件，此事件限制了在edtChangeRate控件中只能输入数字类型数据。(八) 药商字典“药商字典维护”窗体主要实现对供药厂商基本资料的维护。为了实现这些功能，需要如下控件：1个TDBGrid控件，用来显示数据表格；5个TBitBtn控件，分别用来实现添加、修改、删除、保存和取消操作；4个TD

37、BEdit控件，用来输入或显示数据字段值；1个TDBText控件，用于显示编号信息；5个TLabel控件，显示信息描述简介；1个TDataSource控件，数据源控件；1个TADOQuery控件，用于获取数据集。窗体的设计界面如图4-7所示。图4-7 药商字典维护(1) 添加窗体的OnShow事件，在此事件中调用公用单元的OpenDataSQL方法，通过传入指定的SQL语句打开药商字典数据集。添加窗体的OnClose事件，其主要功能是释放窗体实例。(2) 依次添加“添加”、“修改”、“删除”、“保存”和“取消”按钮的单击事件，这些事件的功能主要是对数据库执行添加、删除、修改、保存等基本的数据库

38、操作。(九) 采购管理“采购建立”窗体主要实现采购管理，其中包含了采购主单据的录入和药品明细的录入。为了实现这些功能，需要如下控件：2个TComboBox控件，用来选择采购公司编号和药品编号；5个TBitBtn控件，分别用来实现对数据库的添加、修改、删除、保存和查找，报表的打印和审核；4个TEdit控件，分别用来输入；1个TDateTimePicker控件，用来输入采购时间；1个TDBMemo控件，显示输入备注信息；1个TDBGrid控件，用来显示采购数据。窗体的设计界面如图4-8所示。图4-8 采购建立(1) 在数据库中添加名为“proc_StockTask”的存储过程，此过程主要用来实现采

39、购模块后台数据库所有的业务逻辑。在存储过程中使用“Flag”将代码分为了七大段，分别处理不同的采购业务数据。其中，SelectMaxID用于获取最大的单据号；InsertHeader、InsertBody和DelHeader、DelStock分别用于向采购主表和明细表添加记录及删除记录；Auditing用于更改单据审核字段状态；SelectStock用于查询采购单。(2) 添加窗体的OnShow事件，此事件的功能主要是初始化采购模块一些控件的初值。(3) 添加“添加”按钮的单击事件，此事件的功能主要是调用存储过程，清空输入条件并新建采购流水单号，实现添加操作。其实现代码如下：procedure

40、 TfrmStock.btnAddClick(Sender: TObject);var InsertHeaderStr, MaxID: string;begin qryStockBody.Close; cmbxProviderID.Text := ; cmbxMedicineID.Text := ; edtByPrice.Text := ; edtJobPrice.Text := ; edtRetailPrice.Text := ; edtAmount.Text := ; lblAuditing.Caption := 未审核; MaxID := Exec proc_StockTask Flag

41、=SelectMaxID ; OpenDataSQL(frmLeechdomMain.qryMaxID, MaxID); if frmLeechdomMain.qryMaxID.FieldByName(MaxID).AsString = then lblStockID.Caption := PR + FormatDatetime(yyyymm,Date) + 0001 else lblStockID.Caption:=PR+frmLeechdomMain.qryMaxID.FieldByName(MaxID).AsString;end;(4) 添加“删除”按钮的单击事件，此事件的功能主要是判断单据是否已经审核，当单据还未审核时可以删除单据信息。通过调用“proc_StockTask”存储过程，当“Flag”变量标记为“DelStock”和“DelHeader”时删除从表和主表数据，维持主从表数据的完整性。其实现代码如下：procedure TfrmStock.btnDelClick(Sender: TObject);var DelBodyStr,DelHeadStr, SelectBody,