管理信息系统课程设计 医药管理信息系统Word文件下载.docx
- 文档编号:16779647
- 上传时间:2022-11-26
- 格式:DOCX
- 页数:46
- 大小:542.49KB
管理信息系统课程设计 医药管理信息系统Word文件下载.docx
《管理信息系统课程设计 医药管理信息系统Word文件下载.docx》由会员分享,可在线阅读,更多相关《管理信息系统课程设计 医药管理信息系统Word文件下载.docx(46页珍藏版)》请在冰豆网上搜索。
xx,进行系统程序设计,完成连编,组织成员任务分配等系列工作。
文秘:
xxx,负责课程设计报告,指导成员工作,负责打印等工作。
组员:
xxx,负责部分表单设计,制作表格等工作。
xx,负责部分表单设计,制作表格等工作。
(2)进度:
2012年6月5日:
分配小组,组织成员,进行讨论。
2012年6月6日:
到图书馆查阅资料,确定主题,并进行讨论。
2012年6月7日至8号:
完成系统设计,并完成连编,成功运行系统。
2012年6月9号至10号:
系统程序的检验,完成课程设计报告,并检查相关系统。
2、系统分析
(1)组织模块功能图
医药销售系统
备忘录
药品出库
药品入库
客户信息
退出系统
密码管理
系统管理
信息管理
药品管理
记录查询
其它
供应信息
(二)系统流程图
入库单
3、系统设计
(一)数据库的设计
在创建应用系统之前,必须先考虑与数据有关的一些问题。
比如系统需要使用和处理哪些数据,这些数据组织成几个表才方便程序的设计和用户的使用,每个表需要设计哪些字段合适,每个字段应该定义成什么数据类型,需要建立哪些索引才便于操作等等。
本系统共设计了7个表,分别是、药品信息表(yaopinxinxi)、客户信息表(kehuxinxi)、供应商表(gongyingshang)、备忘录信息表(beiwangluxinxi)、药品入库信息表(rukuxinxi)和药品出库信息表(chukuxinxi)。
用户密码表(pass)
数据库7个表的结构分别如下:
药品信息表
字段名
字段类型
宽度
标题
ypbh
字符型
4
药品编号
ypmch
16
药品名称
jj
货币型
8
进价
shj
售价
pfj
批发价
zhl
质量
shl
整型
数量
jyy
检验员
yply
14
药品来源
lxr
联系人
yxrq
日期型
有效日期
jhrq
日期时间型
进货日期
客户信息表
字段名
bh
编号
xm
姓名
dh
20
电话
dzh
地址
yx
24
邮箱
供应商表
gsmch
公司名称
30
wzh
网址
jyyl
经营药类
备忘录信息表
xh
序号
nr
254
内容
zdsj
制定时间
zdr
10
制定人
药品入库信息表
pfj
日期时间型
药品出库信息表
数值型
6
khlb
客户类别
khmch
1
客户名称
yfje
应付金额
shfe
实付金额
zhb
找补
xshrq
销售日期
用户密码表
yhm
用户名
yhmm
用户密码
yhlx
用户类型
选择系统菜单中“数据库”菜单下的“新建表…”选项建立新的数据库后,“新建表”对话框中单击“新建表”按钮,按照如上分别建立这7个数据表。
数据表都建立完成后,截图如下:
(二)创建主程序
打开mis项目文件,在“项目管理器-mis”窗口中,单击“代码”选项卡,选中“程序”项,单击项目管理器窗口右边的“新建”按钮。
就可在新弹出的程序代码编辑窗口中输入程序的以下代码内容,保存即可。
publicbwl
bwl=substr(alltrim(sys(5)+curdir()),1,len(alltrim(sys(5)+curdir()))-1)
setdefaultto&
bwl
Setpathtoforms;
progs;
reports;
menus;
data;
graphics;
graphics\pic;
graphics\ico
setexacton
setconfirmoff
setescapeon
setsafetyon
setstatusoff
setscoreboardoff
setdecimalsto3
settalkoff
setsysformatson
setcenturyon
setdatetoansi
zoomwindowscreenmax
closeall
releasewindow常用
setsysmenuto
_screen.caption="
欢迎使用医药营销系统"
_screen.picture="
14.jpg"
_screen.minbutton=.f.
_screen.maxbutton=.f.
_screen.controlbox=.f.
doformfm.scx
readeven
(三)Fm.scx系统密码验证主表单设计
控件设置:
(1)表单的“Load”代码:
publicca,cb,cc&
&
设置全局变量,记录RGB()函数的自变量的值
ca=0
cb=0
cc=0
(2)表单的“Unload”代码:
releaseca,cb,cc&
释放全局变量
标签主要属性设置
Label1
Label2
Label3
Label4
Label5
Caption
医药销售系统
欢迎使用
用户名称:
用户密码:
开发设计:
工商管理⒁小组 Ver1.02012年06月
AutoSize
.T.
BackStyle
0-透明
FontBold
文本框的主要属性设置
Alignment
Enabled
FontSize
Height
Left
PasswordChar
Text1
0-左
12
26
224
Text2
*
命令按钮的主要属性设置
Cancel
Default
Width
Command1
.F.
确定
18
79
Command2
取消
(1)“确定”按钮的“Click”事件代码如下:
publicyhkl,yhname&
定义全局变量,记录登录用户的名称和密码,以便系统分配用户权限
yhkl=alltrim(thisform.text2.value)&
保存用户输入的名称和密码
yhname=alltrim(thisform.text1.value)
usepass&
打开保存已注册用户的用户名和密码的表文件
*以下代码是检验用户名称和密码
locaallforlower(alltrim(yhm))=lower(alltrim(yhname))
ifeof()
*不是合法注册用户,给出警告
=messagebox('
你不是合法注册用户!
'
0,'
真遗憾'
)
return
thisform.text1.setfocus
else
*用户名正确,再检验用户密码
lsyhlx=alltrim(yhlx)
iflower(alltrim(yhmm))=lower(alltrim(yhkl))
use
thisform.release
setdeleon
setnotifyoff
setcenton
setdatetoansi
closeall
RELEASEWINDOW常用
MODIFYWINDOWSCREENTITLE"
医药销售系统ver1.0
登录用户:
"
+yhname+"
("
+lsyhlx+"
)"
+"
今天是:
+dtoc(date())
_SCREEN.ICON="
face05.ico"
_SCREEN.picture="
pc1.jpg"
ZOOMWINDOWSCREENMAX
_SCREEN.controlbox=.f.
domainmenu.mpr&
当用户名和密码都正确时,关闭当前表单,运行主菜单进行系统
密码不正确,请你再好好想想!
thisform.text2.setfocus
endif
Endif
(2)“取消”按钮的“Click”事件代码如下:
thisform.release
cleareven
Quit
(3)“计时器”控件Interval属性为100。
“Timer”代码如下:
ifca<
255
ca=ca+1
ca=90
endif
ifcb<
cb=cb+1
cb=180
ifcc<
cc=cc+1
cc=1
IfThisform.Label2.left>
thisform.width
thisform.label2.forecolor=rgb(ca,cb,cc)
Thisform.Label2.left=-199
thisform.label2.left=Thisform.Label2.left+10
Else
Thisform.Label2.left=Thisform.Label2.left+10
EndIf
IfThisform.Label5.Left<
=-394
Thisform.Label5.Left=thisform.width
Thisform.Label5.Left=Thisform.Label5.Left-10
Thisform.refresh
(三)系统菜单的设计
(1)“系统管理”子菜单编辑为“密码管理”、“\-”“退出系统”
①“密码管理”的过程代码:
setdeleon
deleallforlen(alltrim(yhm))=0
locaallforalltrim(yhm)=alltrim(yhname)
ifalltrim(yhlx)="
系统管理员"
doformmmgl
nAnswer=messagebox('
很抱歉!
您不是系统管理员无权查阅和更改用户名和密码!
警告!
use
Endif
②“退出系统”的过程代码:
ans=messagebox("
确信要退出系统吗?
4,"
确认信息"
ifans=6
clearevent
quit
(2)“信息操作管理”子菜单编辑为“客户信息管理”和“供应商信息管理”
①“客户信息管理”的过程代码:
usekehuxinxi
pack
doformkehu
②“供应商信息管理”的过程代码:
usegongyingshang
doformgys
(3)“药品管理”子菜单编辑为“药品入库管理”和“药品出库管理”
①“药品入库管理”的过程代码:
userukuxinxi
doformyprk
②“药品出库管理”的过程代码:
usechukuxinxi
doformypck
(4)“记录查询”子菜单编辑为“药品入库查询”和“药品出库查询”
①“药品入库查询”的过程代码:
doformrkjl
②“药品出库查询”的过程代码:
doformckjl
(5)“其他”子菜单编辑为“备忘录”
①“备忘录”的过程代码:
usebeiwangluxinxi
doformbwl
4、程序设计
本系统除去主表单设计外,内容表单分别有密码管理表单、客户信息表单、供应商表单、药品入库表单、药品出库表单、入库记录查询表单、出库记录查询表单、备忘录表单等8个项目表单。
其主要程序设计如下:
(一)Mmgl.scx密码管理表单设计
(1)表单的主要属性:
AutoCenter=.T.
BorderStyle=“2-固定对话框”
Caption=“用户密码管理”
Height=299
Icon=“c:
\mis\graphics\ico\controlpanel.ico”
MaxButton=.F.
MinButton=.F.
Width=582
WindowState=0-普通
(2)文本框的主要属性:
ControlSource=“无”
Enabled=.f.
FontName=“宋体”
FontSize=11
Height=25
(3)组合框的主要属性:
BoundColumn=1
ColumnWidths=“无”
FirstElement=1
Left=380
ReadOnly=.f.
RowSource=“系统管理员,普通用户”
RowSourceType=“1-值”
SelectOnEntry=.t.
Style=“0-下拉组合框”
Top=258
Width=114
(4)表格控件的主要属性:
ColumnCount=3
DeleteMark=.f.
Enabled=.t.
GridLineColor=“0,0,255”
GridLineWidth=1
HeaderHeight=20
Height=223
Left=9
ReadOnly=.t.
RecordMark=.t.
RecordSource=“pass”
RecordSourceType=“1-别名”
RowHeight=20
Top=27
Width=485
(5)表单的“Init”事件代码:
publicxgbzhi,rec
xgbzhi=.f.
rec=0
setdeletedon
mand2.enabled=.t.
mand1.enabled=.t.
mand3.enabled=.t.
mand4.enabled=.f.
mand5.enabled=.t.
mand6.enabled=.f.
mand2.setfocus
(6)“删除”命令按钮的“Click”事件代码:
selepass
ifeof().or.bof()
你还没有选择要删除的注册用户记录!
请选定一个要删除的用户!
警告!
dele
Thisform.refresh
(7)“修改”命令按钮的“Click”事件代码:
你还没有选择要修改的注册用户记录!
请选定一个要修改的用户!
thisform.text1.enabled=.t.
thisform.text2.enabled=.t.
bo1.enabled=.t.
mand2.enabled=.f.
mand1.enabled=.f.
mand3.enabled=.f.
mand4.enabled=.t.
mand6.enabled=.t.
thisform.grid1.enabled=.f.
rec=recno()
thisform.text1.value=yhm
thisform.text2.value=yhmm
bo1.value=yhlx
xgbzhi=.t.
thisform.text1.setfocus
(8)“增加”命令按钮的“Click”事件代码:
mand3.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 管理信息系统课程设计 医药管理信息系统 管理信息系统 课程设计 医药