《药店信息管理系统》.docVIP

药店信息管理系统 PBRBR4．2．后台模块BR．后台管理首页简介药店信息管理系统 BR进入后台管理，进行管理员登录（index1.asp），进入药店信息管理系统 管理首页（glzx.asp）。BR整个后台分为四个模块：B药店信息管理系统 R（1）新闻管理BR包括对新闻的添加、修改与删除。BR（2药店信息管理系统 ）产品管理BR包括对产品的添加与修改。BR（3）订单管药店信息管理系统 理BR包括对订单的确认与删除。BR（4）留言管理B药店信息管理系统 R包括删除留言内容。/P P管理员登录界面BRnb药店信息管理系统 sp;BR超级管理员可对注册申请管理员信息进行审核，审核通过药店信息管理系统 后便可任命为正式管理员。BR超级管理员可以接收定单，进行留言板药店信息管理系统 管理，订单管理，进行新闻发布，修改账号资料等。BR③、普通药店信息管理系统 管理员进入后台后，可以进行对产品的订单，还可以进行新闻了布，当然也可药店信息管理系统 以修改自已的账号。BR④、注册用户登陆后，能对自已的账号药店信息管理系统 信息等资料进行修改。BR普通用户可以提交定单，可以进行留言，并且药店信息管理系统 实现反馈到留言板上，使的管理员能收到定单，也能收到留言。BR药店信息管理系统 ⑤、注册用户、普通管理员和超级管理员登陆后，分别显视登陆用户的药店信息管理系统 用户名，且都可以修改账号信息。BR2、新闻发布BR超级药店信息管理系统 管理员可实现新闻的发布，订单接收等功能BR3、产品在线分页显视药店信息管理系统 BR可以在cp产品页面上进行动态产品发布，连接数据库，将数据库中药店信息管理系统 的信息显视到产品页面下，包括图片信息，也是要动态连接数据库。BR药店信息管理系统 /P/pbr / BRBR药店信息管理系统 BRBR本窗口共添加了3个Label组件，1个Combo药店信息管理系统 Box组件，1个Edit组件，1个Bevel组件，1个Ima药店信息管理系统 ge组件，2个BitBtn组件和1个GroupBox组件，并安排药店信息管理系统 布局如下图。BRnbsp;BR完成了登录窗体的设计之后，药店信息管理系统 需要进行事件的分析和处理。首先对主页中的Label3的OnCli药店信息管理系统 ck和OnMouseDown事件添加以下的代码，功能是当用户将鼠标移药店信息管理系统 动到该组件上时，出现超链接的效果，同时启动邮件收发程序向指定药店信息管理系统 的电子邮件地址发信息。BRprocedure TPassword药店信息管理系统 dlg.Label4Click(Sender: TObject药店信息管理系统 );BRbeginBRShellExecute(handl药店信息管理系统 e,nil,pchar(mailto:qijingang19药店信息管理系统 74@),nil,nil,sw_shownorma药店信息管理系统 l);BRend;BRprocedure TPass药店信息管理系统 worddlg.FormMouseMove(Sender: TOb药店信息管理系统 ject; Shift: TShiftState; X,BR药店信息管理系统 nbsp; Y: Integer);BRbeginBR药店信息管理系统 Label4.Font.Color :=clmaroon;药店信息管理系统 BRend;BR接下来在系统登录窗体的OnCreate事件药店信息管理系统 中进行INI配置文件的设置与初始化。在事件的右边窗格中双击鼠标，即可药店信息管理系统 打空的事件处理句柄，用户可在此进行编辑。程序代码如下。BRp药店信息管理系统 rocedure TPassworddlg.FormCrea药店信息管理系统 te(Sender: TObject);BRvarBR药店信息管理系统 nbsp;nbsp; datafile:file;BRnb药店信息管理系统 sp;nbsp; NumRead,NumWrite,ii:in药店信息管理系统 teger;BRnbsp;nbsp; siz:longin药店信息管理系统 t;BRnbsp;nbsp; FileOk:boolea药店信息管理系统 n;BRnbsp;nbsp; buf:string[60];药店信息管理系统 BRbeginBRnbsp;FileOk:=tru药店信息管理系统 e;BRnbsp;assignfile(datafile,s药店信息管理系统 ys.ini);BRnbsp;if fileexist药店信息管理系统 s(sys.ini)=false thenBRnbsp药店信息管理系统 ;fileok:=falseBRnbsp;elseBR药店信息管理系统 nbsp;beginBRn