《药房管理系统》doc版.doc

1系统功能分析 在实际开发中，系统功能分析需要开发小组的系统设计人员与用户进行全面、深入的交流，以切实了解用户对整个系统功能的期望，并分析用户行业营运的特点，与用户共同决定系统应具有哪些功能。 本实例中的管理系统主要具有以下功能： “ 系统用户管理：药房的使用人员涉及前台销售员、收银员、取药员、采购员以及系 统高级管理员。系统用户管理完成各类使用人员在使用系统时对账户的添加、修改、 删除和查询。 药品信息管理：管理药品的基本信息，包括添加、修改、删除和查询。 库存信息管理：管理药品的入库库存量修改与查询，制订库存报表。 前台销售管理：管理客户购物车的创建、添加、修改和查询，以及根据用户要求查 询特定的药品信息。 购买结算管理：根据客户购物车结算购药费用，并可对购物车进行修改。 取药管理：客户结算之后，取药人员根据客户购物车从库房为用户取药，并完成购 物车的注销操作。 制订采购计划：采购人员根据药品库存量和药品销售情况制订采购计划。 销售报表管理：根据每月药品的销售情况产生药品销售报表，药房高级管理人员可 以根据报表调整销售策略。 2系统模块设计 根据系统功能分析和药房的管理特点，经过模块化的分析得到如图lO13所示的药房销售管理系统功能模块结构图。3系统实现过程分析 在实现过程中，首先需要根据系统功能分析设计出需要的数据库和各个数据表的详细结构，然后创建系统项目，并在项目中创建数据库和各个表。 在实现各个功能模块时，也采用先模块后系统集成的方式，即各个系统功能模块分别独立设计和调试，在创建系统主表单时才将各个功能模块通过主表单的各个命令按钮集成到一起，最后进行系统整体设计和调试。 在使用数据库中的表时，使用表单的数据环境统一管理表单中用到的各个表，这样，数据环境可在表单加载和关闭时，自动打开和关闭使用的表，从而简化了代码中对表的打开和关闭操作。 为表单中浏览记录创建一个统一的记录导航条，该记录导航条与实例9中创建的记录导航条类似。根据系统数据流图以及一般药房销售管理系统的需求，总结出下面的数据字典： 系统用户数据：系统用户数据包含的数据项有系统用户名、登录口令和权限代码。 药品基本信息数据：药品基本信息数据包含的数据项有药品编号、名称、售价、进 价、种类和厂家等。 ” 药品销售数据：药品销售数据包含的数据项有销售编号、日期、药品编号、数量等。 药品库存数据：药品库存数据包含的数据项有药品编号、库存量、库存下限等。 客户购物车数据：客户购物车数据包含的数据项有购物车编号、客户名、药品编号、 数量、结算、日期等。 第二步，定义数据库结构 根据前面定义的数据字典，设计出药房销售管理系统数据库中各个数据表，包括系统用户数据表、药品信息数据表、药品销售数据表、药品库存数据表、客户购物车数据表和购物车记录表共6个数据表，各个数据表的结构分别如下： 系统用户数据表：系统用户数据表用于保存系统用户的帐户信息，包括用户名、口 令和权限代码，数据表命名为SysUserData，结构如表10一l所示。系统用户编号形 式如00000、0000l，用户权限使用04分别代表系统管理员、销售员、收银员、表10一1 系统用户数据表结构 字段名 数据类型 宽 度 是否允许为NULL 用户名 字符型 5 否 口令 字符型 6 否 权限 字符型 l 否 药品信息数据表：药品信息数据表用于保存每种药的基本信息，包括编号、名称、 售价、进价、种类和厂家，数据表命名为Druglnfo，结构如表10-2所示。编号形式 如Z00001、ZC0001。表1 0-2药品信息数据表结构 字段名 数据类型 宽 度 是否允许为NULL 编号 字符型 6 否 名称 字符型 25 否 售价 数值型 6(2为小数) 否 进价 数值型 6(2为小数) 否 种类 字符型 10 否 厂家 字符型 50 否 药品销售数据表：药品销售数据表用于保存每种药的销售记录数据，包括销售记录 编号、日期、药编号，命名为DrugSales，结构如表10-3所示。“编号，用于惟一标 识一种药的单笔销售记录，形式如0310170000l、03101700002，其中03为年、10 为月、17为日。在客户结算取药之后，其购物车数据表和购物车记录将被删除，购阻雕瞰雕吲豳匪雕毗岬&买数据则被保存到药品销售表中。表1 0-3药品销售数据表结构 字段名 数据类型 宽 度 是否允许为NULL 编号 字符型 ll 否 药编号 字符型 6 否 数量 数值型 4 否 日期 日期时间型 否库存数据表：库存数据表用于保存每种药的库存信息，包括库存编号、库存量和库 存下限，数据表命名为DmgStore，结构如表104所示。每种药的库存编号与药品 信息表中的药品编号一致。表10-4库存数据表结构 字段名 数据类型 宽 度 是否允许为NULL 编号 字符型 6 否 存量 数值型 4 否 下限 数值型 3 否客户购物车记录表：购物车记录表用于保存客户购物车记录，包括购物车编号、客 户、日期和结算，数据表命名为ShoppingCars，结构如表105所示。每个客户的购 物车记录使用一个惟一的编号来标识，形式如03081700001、03081700002。结算字 段用于标识客户是否已执行过结算操作，默认值设置为F。表1 0-5客户购物车记录表结构 字段名 数据类型 宽 度 是否允许为NULL 编号 字符型 11 否 客户 字符型 lO 否 日期 日期时间型 否 结算 逻辑型 否客户购物车数据表：每个客户有自己的购物车数据表，用于保存客户选购药品的编 号、数量。光临药房购药的顾客是动态的，所以数据库中客户购物车数据表的数量 也是动态的，对于每一个打算购买的顾客首先在客户购物车记录表中添加一个记 录，并分配一个惟一的编号来标识，然后使用该编号来命名为客户创建的购物车数 据表，结构如表106所示。表10-6客户购物车数据表结构 字段名 数据类型 宽 度 是否允许为NULL 编号 字符型 6 否 数量 数值型 6(2为小数) 否 首先创建一个项目命名为DrugManage，项目文件保存在D：VfdataprolO文件夹中，然后在其中创建药房销售管理数据库和属于数据库的数据表，具体操作请读者参考实例1中的数据库创建过程，这里不再详细叙述。 本例中创建的数据库命名为DrugManage，数据库文件保存为d：Vfdatapro10dataDrugManagedbc，各个表也保存在d：vfdatapro10data文件夹中，表名称和文件名如表10-7所示。表10-7表名称与文件名 数据表 表名称 文件名 系统用户数据表 SysUserData SysUserDatadbf 药品信息数据表 DrugInfo DrugInfodbf 药品销售数据表 DrugSales DrugSalesdbf 药品库存数据表 DrugStore DrugStoredbf 购物车记录表 ShoppingCars ShoppingCarsdbf 在本例中的药房销售管理系统启动时，首先显示系统用户登录表单，用户必须登录之后才能够使用系统功能。系统用户的登录信息保存在SysUserData数据表中。 第一步，创建系统用户登录表单 在设计表单时，首先在表单的数据环境设计器中添加SysUserData表，然后为表单添加各个需要的控件，系统用户登录表单设计如图1015所示。 图10-15系统用户登录表单设计 表单文件保存为D：Vfdataprol呻rDlSSysUserLogSCX，表单以及表单中各个控件的属性设置如表10-8所示。表1 0-8表单以及表单中各个控件的属性设置 对 象 属 性 属性值 对 象 属 性 属性值 AlwaysOnTop T Caption 确定 AutoCenter T CommandI Default T BorderStyle 2 Tabindex 2 Forml Caption 用户登录 Cancel T Contorlbox F Command2 Caption 取消 ShowWindow 2 Tabindex 3 WindowType 1 Name txtName Textboxl Autosize T Tabindex 0 Labell txtPassword Caption 用户名 Textbox2 Name Autosize T Passwordchar Caption 药房销售管理蚕统 Tabindex 1 Label3 Fontname 隶书 Autosize T Label2 Fontsize 20 Caption 口令 第二步，实现系统用户登录表单功能 (1)为表单定义新的属性 为表单定义两个新的属性nMaxLogTimes和nLogTimes，分别用于保存允许用户最大登录次数和当前登录次数的变量，初始值分别设置为3(即最多允许当前用户尝试3次口令验证操作)和O。 (2)实现登录信息验证 在用户单击圃圈按钮时，对用户输入的登录信息进行验证。首先，检查当前登录次数是否大于允许用户的最大登录次数，如果大于，则显示提示信息，并关闭登录表单。否则进一步验证用户名是否正确。使用输入的用户名在SysUserData表中使用Locate命令查找该用户对应的记录，如果没有对应的记录，则说明用户名不正确，显示相应的提示信息。如果找到对应的记录，则比较记录中的口令是否与用户输入口令一致，如果不一致，则说明口令不正确，显示相应的提示信息。如果口令一致，则显示登录成功的提示，并将用户名、口令和权限代码保存到系统变量中，以便在显示系统主表单时，用于禁用该用户无权访问的命令按钮。上述验证操作在菡圈按钮的Click事件中完成。代码如下：。首先检查是否超过允许的最多登录次数thisformnLogTimes=“sformnLogTimes+1 当前登录次数加1if thisformnLclgTiruesnlisformnMaxLogTimes +在超过允许的晟多登录次数时显示提示信息，并关闭登录对话框 cstr=t你已超过允许的最多登录次数，登录对话框将关闭” messagebox(cstr,16，”用户登录验证”) &显不提不 thisformrelease &关闭登录对话框+在允许的最多登录次数范围内，首先获得用户输入的登录信息cName=alltrimf锄sformtxtNamevalue)认4添加记录导航条类 在实例9的“高校图书管理系统”中，我们创建了一个通用的记录导航条类，为了在药房销售管理系统中使用该类，可将该类添加到项目中。首先，将记录导航条类的类文件mynavigatorvct和mynavigatorvcx复制到d：vfdatapro10data文件夹中。然后打开“项目管理器”的“类”选项卡，单击翎翰醚麟按钮，将类添加到项目中。 在设计表单时，单击“表单控件”工具栏中的瓣按钮，在打开的菜单中选择“添加”命令，在打开的“打开”的对话框中选中导航条类文件mynavigatorvcx，将其添加到“表单控件”工具栏。Mynavigator类在工具栏中显示为瓣按钮，如图1016所示。 图10-16将英添加钊工具栏 5实现系统用户数据管理功能 、 V 系统用户数据管理指对DrugManage数据库中的SysUserData表执行添加、修改或删除操作。 第一步，创建系统用户数据管理表单 在设计表单时，在表单的数据环境中添加需要使用的SysUserData表，这样在表单加载或关闭时，使用的表可被自动打开和关闭。将表对应的Cursorl的Exclusive属性设置为T，即以独占的方式访问表。从“数据环境设计器”中将SysUserData表的各个字段拖动到表单设计窗口中。然后为表单添加一个记录导航条和用于执行添加、删除、修改、保存、退出添加修改以及关闭表单操作的命令按钮。 系统用户数据管理表单设计如图10-17所示图10-17系统用户数据管理表单设计 表单文件保存为D：Wfdatapro10formsSysUserManagescx，表单和各个控件的属性设置如表10-9所示。6实现当前用户口令修改功能x 第一步，设计口令修改表单 在口令修改表单中，显示当前用户的用户名和旧口令，并提供两个文本框用于输入新 的口令，3个命令按钮分别用于保存新口令、清除新口令和关闭口令修改表单。在设计表单 时，在表单的数据环境中添加需要使用的sysuserData表。 口令修改表单的设计如图10-18所示。 照 图10-18口令修改表单设计 表单文件保存为D：Vfdatapro、10kf01TflskEditPasswordSCX，表单和各个控件的属性如表1010。 表10-10表单和控件的属性设置 第二步，实现口令修改功能 (1)实现表单初始化 事中囊瓣淼雾霎将ca用pp户_c名和urren日tu菩鬈掌篙蒜罐筹藏UUL表中获得用户的旧口令，并将用户名和旧口令显不在表单中。返些酬始化猓作仕衣旱制事件过程中完成。代码如下：+显示用户名thisformtxtNamevalue=capp-currentuser+显示用户口令select sysuserdatalocate for allU_ra(用户名)=capp_currentuserthisformtxtOldPwdvalue=口令(2)实现清除口令功能 。当用户单击粼按钮时，可清除输入的新口令。潮按钮的Click事件过程代码如下：+清除新口令thisformtxtnewpwdlvalue=”thisformtxtnewpwd2value=” (3)实现保存新口令功能 当用户单击图按钮时，首先检验两次输入的新口令是否相同，如果不相同，则显示相应的提示信息，否则将新口令保存到sysuserdata表中。豳按钮的Click事件过程代码如下：。检查两次输入的口令是否相同with thisform mewpwdlvaluetxtnewpwd2value messagebox(”两次输入的新口令不相同”，16，”口令修改。t) txtnewpwd2format=”K” &K表示在文本框获得焦点时选中全部文本 txtnewpwd2setfocus retulTl endif *获得输入的新口令 cpwd=Mlm(mewpwdltext) +修改口令 select sysuserdata replace口令with cpwd while用户名=capp_currenmser capp_curren印wd=cpwd messagebox(”口令修改成功”，64，”口令修改”) txtoldpwdvMue=cpwd txtnewpwdlvMue= txmewpwd2value=endwith(4)实现关闭表单功能当用户单击潮按钮时，关闭表单。潮按钮的Click事件过程代码如下： ifmessagebox(”是否退出口令修改?7实en现di品信息管理7实现药品信息管理 V，36，”口令修改”)=6 &关闭口令修改表单 药品信息管理包括药品信息的录入、修改和删除。 第一步，创建药品信息管理表单 在实现药品信息管理表单时，首先在表单的数据环境中添加SysUserData表，将表对应的Cursorl的ExclusiVe属性设置为Z。然后从“数据环境设计器中将SysUserData表的各+l下：4显示E代码表对应表的各个字段拖动到表单设计窗口中，并为表单添加一个记录导航条和用于执行添加、删除、修改、保存、退出以及关闭表单操作的命令按钮。 将药品种类对应的文本框“txt种类”删除，用一个组合框(ComboBox控件)代替，其列表为药品种类。这样，在添加或修改药品的“种类”字段时，可从列表中选择。 药品信息管理表单设计如图10一19所示。 。 图1019设计药品信息管理表单 表单文件保存为D：Wfdatapro10kformski)mgIllf0MaIlagescx，表单及控件的属性设置如表1011所示。表101 1表单及控件的属性设置 对 象 属 性 属性值 对 象 属 性 属性值 AutoeenterTDisableBacldCOlor 255.255,255Forml Borderstyle 2 DisableForeColor O，0,0 Capfion药品信息管理坎t编号Format!T ShowWindow l Maxlength 6 Commandl Capfion添加ReadOnlyTNalltle cmdAdd DisableBackColor 255.255.255 Command2 Capron修改DisableFo删Colof O，0,0 Name cmdEdit ReadOnlTComlnand3 Capfion删除 CombolNallle cmbType Nanle cmdDelete SortedTCommand4 Capron保存RowSourceType 3一sQL语句Name cmdSave ControlSource drufo种类Command5 Capfion退出DisableBackCOlor 255,255,255 N锄e cmdEsc DisableF0reColor O，O，O Comlnand6 Capfion关闭眦进价InputMask 9999.99 Nanle cmdExit Alignment 0一左Dis曲kBackColor 255.255,255 ReadOnlvTtxl厂家DisableForeColor 0,0，O txt售价DisabkBackCOlor 255.255,255 ReadOnlyTDisableForeC010r 0。O，0实现药品入库功能 第一步，设计药品入库表单 在药品入库表单中，显示药品名称和编号列表。执行药品入库操作时，可从列表中选择药品名称或药品编号，然后输入药品入库数量，完成药品入库操作。在表单的数据环境中添加DrugStore表。 药品入库表单设计如图lO一20所示。图1020设计药品入库表单 表单文件保存为D：Vfdatapro10formsDmgToStoresex，表单及控件的属性设置如表1012所示。表10-12表单及控件的属-I生设置 对 象 属 性 属性值 AutocenterTFormlBorderstyle 2 Caption药品入库ShowWindow l Commandl Caption保存Name cmdSave Command2 Caption关闭Name cmdExit Comb01 Name cmbName Style 2一下拉列表框Comb02 Name cmbNum Style 2一下拉列表框f化操!的!记理系统开发篇o-墅墨nSum=val(thisformtxtsumtext)if nsum=0 messagebox(”请输入药品入库数量!”，16，药品入库”) thisformtxtsumseffocus return endif。检查药品是否存在库存记录select drugstorelocate for编号-=cnumiffound() t修改药品库存记录 nsum=nsum+存量 update Drugstore set存量=nsum where编号=cnumelse 。添加新的药品库存记录 insert into Drugstore(编号，存量，卞限)values(cnum,nsum,0) messagebox(”药品入库数据保存完成!”，64，”药品入库t) (3)实现药品名称与药品编号列表的互动，套蓼品予称下拉列表中选择时，自动选中药品编号列表中的对应编号；反过来，在选堂塑号翌，自动选中对应的名称。在药品名称与药品编号下拉列表的单击事件过程完成运二功能。药品名称下拉列表的单击事件过程代码如下： 。选中药品名称对应的编号 thisformcmbnum1istindex=thisformcmbname1istindex药品编号下拉列表的单击事件过程代码如下：t选中药品编号对应的名称thisformcmbname1istindex=thisformcmbnum1istindex(4)实现关闭表单功能当用户单击蠲幽按钮时，关闭表单。幽幽按钮的Click事件过程代码如下： ifmessagebox(”是否退出药品入库?”，36，”药品入库”)：6 thisformrelease &关闭药品入库表单9实现药品库存数据管理 第一步，设计药品库存数据管理表单 对药品库存数据允许修改其库存量和设置库存量下限，以及删除库存记录操作。在设计表单时，首先在表单的数据环境中添加D11lgStore表，将表对应的Cursorl的Exclusive属性设置为T。然后从“数据环境设计器中将D11lgStore表的各个字段拖动到表单设计窗口中，并为表单添加一个记录导航条和用于执行删除、修改、保存、退出以及关闭表单操作的命令按钮。 药品库存数据管理表单设计如图1021所示。 图1021设计药品库存数据管理表单 表单文件保存为D：Vfdatapro10Xforms、DmgStoreMaIlageSCX，表单及控件的属性设置如表1013所示。 表10-13表单及控件的属性设置 对 象 属 性 属性值 对 象 属 性 属性值 Autocenter T DisableBackColor 255,255,255 Forml BordersWle 2 txt编号 DisableForeColor 0,0，O Caption 药品库存数据管理 ReadOnlv T ShowWindow 1 DisableBackColor 255,255,255 Commandl Caption 修改 DisableForeColor O，0,0 Name cmdEdit 坎t存量 InputMask 9999 Command2 Caption 删除 Alignment 0左 Name cmdDelete ReadOnly T Command3 Capfion 保存 DisableBackColor 255,255,255 Name cmdSave DisableForeColo 0,0,0 Conumnd4 Caption 退出 坎t下限 InputMask 999 Name cmdEsc Alignment 0一左 Command5 Caption 关闭 ReadOnly T Name cmdExit 第二步，实现药品库存数据管理功能 (1)为表单创建用于表示编辑状态的属性IsEcIitting (2)实现表单初始化 在表单加载时，检验DmgStore表中是否有药品信息记录，在表单标题栏中显示记录信息。在表单的Init事件过程中完成初始化操作。代码如下： uustormcaption=cmsg(8)实现关闭表单功能当用户单击幽幽按钮时，关闭表单。潮按钮的Click事件过程代码如下： 。“圮。：ag：b。x(”是否退出药品库存数据管理?”，36，药品库存数据管)-6 tlustbrmrelease &关闭药品库存数据管理表单 endt 。1 0实现创建客户购物车功能 、第一步，设计创建客户购物车表单录，：数7车坎口执行Create Table命令创建购物车表CREATE TABLE&cNumber(编号c(12)NOT NULL，单价n(6,2)NOT NULL,数量n(4)messagebox(”购物车创建成功!”，64，”创建客户购物车”)。在ShoppingCars表中添加购物车记录insert into ShoppingCars(编号，客户，日期)vues(cnumber,cname,date()+执行刷新，产生新的购物车编号thisformcmdRefreshclick (3)实现购物车表单刷新操作 如果需要继续创建购物车，可单击幽幽按钮获得一个新的购物车编号，萱糊幽按钮的单击事件过程代码与表单的Init事件过程代码完全相同。 (4)实现关闭表单功能 当用户单击渤幽按钮时，关闭表单。幽按钮的Click事件过程代码如下： ifmessagebox(”是否退出创建客户购物车表单?”，36，”创建客户购物车”)=6 thisformrelease &关闭创建客户购物车表单 endif 1 1实现药品销售功能 、 V 第一步，设计药品销售表单 在药品销售表单中，可执行打开和关闭购物车、向购物车添加、修改或删除项目，以及删除购物车操作。设计药品销售表单时，在表单的数据环境中添加DmgInf0、DrugStore、ShoppingCars表，将各个表对应Cursor的Exclusive属性设置为T。设计如图1023所示。图10-23设计药品销售表单 表单文件保存为D：Vfdatapro10kfoHllSDmgSalescx，表单及控件的属性设置如表1015 select名称，&cPrice，&cSam,&c皿ce&cSum as合计，dmginfo编号； From druginf0，&cCar where&cNumbednl百nf0编号； IrIt0 CursortempCar ndsformgdshoppngc札Rec。msourceTmpCar 12实现购药结算管理 购药结算管理根据客户购物车进行金额结算，管理表单应具备购物车打开、关闭功能，能够显示购物车项目，并且允许对购物车项目进行修改或删除。 第一步，设计购药结算表单 设计药品结算表单时，在表单的数据环境中添加DrugIllfo、DmgSales、DrugStore、ShoppingCars表，将各个表对应Cursor的Exclusive属性设置为T。 购药结算表单设计如图1024所示，文件保存为D：Wfdatapro10怕rmsSale Charginlgsex。 图10-24设计购药结算表单表单及控件属性设置如表10一16所示。表10-16表单及控件属性设置 控 件 属 性 属性值 控 件 属 性 属性值 AutocenterBorderstyleT 2Commandl Caption打开 Forml Name cmdOpen Caption购药结算 Caption关闭购物车ShowWindow 1Command2 EnabledFLabell AutoSizeTName cmdClose Caption购物车编号Command3 Caption删除购物车Label2 AutoSizeTName cmdDeleteCar Caption AutoSize客户TCommand4 Caption刷新Label3Name cmdRefresh Caption总计Command5 Caption退出Textl Name txtName Name cmdExit Text2 Name txtTotal Command6 Caption删除项目修改购物车结算标记update ShoppingCars set结算=T where-=cCarthisformcmdChargeenabled=E messageboxC结算操作13实现取药管理功能结算”) 在取药管理表单中，可选择打开已经结算的客户购物车，客户取药之后，可将其购物车从数据库中注销。取药管理表单设计如图10-25所示。图10-25设计客户取药管理表单 设计取药管理表单时，在表单的数据环境中添加Druglnfo、ShoppingCars表，将各表对应的Cursor的Exclusive属性设置为T。 表单和控件的属性设置，以及实现取药管理功能的步骤和代码与设计购药结算表单的实现基本相同，读者可参考实现客户取药管理功能。实现客户取药管理功能的代码见本书配套光盘，这里不再列出。 14制订采购计划 第一步，设计制订采购计划表单 制订采购计划表单可分别显示有库存和无库存药品的信息，采购员根据这些信息制订采购计划，制订采购计划表单如图10-26所示。采购员在表单中选定的采购项目保存在buyreport表中，该表将用于创建采购计划报表。 图10-26设计客户购药管理表单在设计表单时，为表单的数据环境添加DrugStore、Druglnfo、DrugSales、buyepo表， 剖(5)打印采购计划书单击逖毯幽按钮，可打印采购计划书，渊按钮