企业管理软件设计开发部门维护系统设计文档.pdf

《企业管理软件设计开发部门维护系统设计文档.pdf》由会员分享，可在线阅读，更多相关《企业管理软件设计开发部门维护系统设计文档.pdf（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、企业管理软件设计开发（部门维护系统）设计文档企业管理软件设计开发（部门维护系统）设计文档设计者:罗红亮时间:200956目录目录1 1系统介绍系统介绍.3 31。1 软件操作流程图.31。2 VB 下方法调用流程图.42 2数据库操作部分数据库操作部分.5 52。1 数据库连接.52.2 VB 下对数据库操作语句（提取、插入、删除等）.53 3部门数据编辑操作部分部门数据编辑操作部分.6 63.1 在选中部门下添加部门信息.63.2 修改选中部门信息.73。3 删除选中部门信息.84 4部门信息保存操作部分部门信息保存操作部分.1 10 05 5关于该系统关于该系统.1 11 15.1 系统所

2、存在的不足.116 6设计总结设计总结.1 12 21 1前言前言1。1 软件操作流程图图 1.1 软件图形界面第 1 页 共 8 页系统界面文件/连接数据库点击 TreeView控件下欲操作部门编号编辑/添加部门信息编辑/修改部门信息编辑/删除选中部门信息图 1。2 软件操作流程图1.2 VB 下方法调用流程视图第 2 页 共 8 页BMWHmiSaveFm_ConnectSQL.ShowFm_miAdd.ShowFm_miDelete.ShowFm_miModify.ShowFm_miAbout.ShowConnectSQL()CommBOk_Click()CommBOk_Click()C

3、ommBOk_Click()CommBOk_Click()BMWH.Form_Load()BMWH.Form_Load()BMWH.Form_Load()BMWH.Form_Load()BMWH.Form_Load()图 1.3 方法调用流程图2 2数据库操作部分数据库操作部分2。1 数据库连接在软件打开时界面所有控件内容为空,通过“文件/连接数据库”从数据库下载数据到 TreeView 控件和 MSFlexGrid 控件,从而有如图 1.1 所示的效果。连接数据库通过如下配置实现：Public conn As Variant定义数据库连接字符Public rs As Variant定义创建

4、Recordset 对象Set conn=New ADODB。ConnectionSet rs=New ADODB。RecordsetSet rs1=New ADODB.Recordsetconn。ConnectionString=Driver=sql server；server=USER-EF373E3BAF；uid=sa;pwd=123456；database=BMDB”conn.ConnectionTimeout=30conn.Open在连接数据库前首先要在 VB 菜单中“工程/引用”从中选择 microsoftactiveX Data objects 2。6 library 和 mic

5、rosoft activeX Data objects recordset2.8 library 两个组件，这是在连接数据前所必做的工作。目的要为接下来定义 ADO的连接对象做好准备。第 3 页 共 8 页2.2 VB 下对数据库操作语句（提取、插入、删除等)提取语句：提取语句：rs。Open select from BMDM”,conn，adOpenStatic,adLockReadOnly，adCmdText插入语句插入语句:sql=”insert into BMDM（表元素)values(待插入值)”conn.Execute(sql)执行上面的 sql 语句删除语句：删除语句：sql=”

6、delete from BMDM where 条件表达式conn。Execute（sql）3 3部门数据编辑操作部分部门数据编辑操作部分3。1 在选中部门下添加部门信息部分程序如下：部分程序如下：判断部门编号在组织机构中是否有同编号处理代码：判断部门编号在组织机构中是否有同编号处理代码：rs.Open select*from BMDM”，conn,adOpenStatic,adLockReadOnly,adCmdTextWhile Not rs.EOFIf txt5=”0000”ThenBMID_Flag=TrueEnd IfIf txt5=rs(”BMID)ThenBMID_Flag=Tru

7、eEnd Ifrs.MoveNextWendrs.Close判断部门名称在同级下是否同名处理代码：判断部门名称在同级下是否同名处理代码：rs。Open select BMMC from BMDM where SJBMID=”&BMWH.TV_Select&”，conn，adOpenStatic,adLockReadOnly,adCmdTextWhile Not rs。EOFIf txt6=rs(BMMC）ThenBMMC_Flag=TrueEnd Ifrs。MoveNextWendrs.Close做插入处理部分代码：做插入处理部分代码：If BMID_Flag=True ThenMsgBox

8、部门编号在组织机构中有同编号的同名冲突，请重设！,vbOKOnly，冲突提示”txt（5）.Text=”txt（5）。SetFocusBMID_Flag=FalseElse第 4 页 共 8 页If BMMC_Flag=True ThenMsgBox 部门名称与同级目录下部门名称有同名冲突，请重设！”，vbOKOnly，”冲突提示txt（6）.Text=txt（6）.SetFocusBMMC_Flag=FalseElseIf txt5=”ThenMsgBox”部门编号不能为空,请设置!，vbOKOnly，”非空提示txt(5）.SetFocusElseIf txt6=”ThenMsgBox 部

9、门名称不能为空，请设置！,vbOKOnly，”非空提示txt（6）.SetFocusElsesql=”insert into BMDM(BMID,BMMC,BZ，SJBM,SJBMID）values(”&txt5&，&txt6 ，”txt7&”,”txt8&”，txt9&”)”conn。Execute（sql)txt(5）。Text=”txt（6）。Text=”txt(7）.Text=”MsgBox 部门已经成功添加！”，vbOKOnly,OKBMWH.Form_LoadUnload MeEnd IfEnd IfEnd IfEnd If先判断整个组织机构中是否有同编号，如果有则将存在同编号标志

10、BMID_Flag置为 True,然后再判断同级下是否有同部门名称，如果有则将同部门名称标志置BMMC_Flag 置为 True.接下来就根据标志位的取值做部门的插入操作。3。2 修改选中部门信息做修改处理部分代码：If BMID_Flag=True ThenMsgBox 部门编号在组织机构中有同编号的同名冲突，请重设！”，vbOKOnly，冲突提示Txt(5）.Text=txt5Txt（5).SetFocusBMID_Flag=FalseElseIf BMMC_Flag=True ThenMsgBox 部门名称与同级目录下部门名称有同名冲突，请重设！”,vbOKOnly，”冲突提示”Txt(

11、6）.Text=txt6Txt(6）.SetFocus第 5 页 共 8 页BMMC_Flag=FalseElseIf txt5=”ThenMsgBox”部门编号不能为空，请设置！,vbOKOnly，非空提示”Txt(5).SetFocusElseIf txt6=”ThenMsgBox”部门名称不能为空，请设置！,vbOKOnly，非空提示Txt（6）.SetFocusElsesql=”update BMDM set BMID=&txt5&”,BMMC=txt6 ”,BZ=txt7 ”where BMID=txt5&rs.Open select from BMDM where SJBMID=T

12、xt(0）。Text ”，conn,adOpenStatic，adLockReadOnly,adCmdTextWhile Not rs。EOF将其子部门的 SJBMID 对应的修改成修改项txt0=rs（”BMID)txt1=rs（BMMC)txt2=rs(BZ”）txt3=rs（SJBM”）txt4=txt5sql=delete from BMDM where BMID=&txt0&”conn.Execute(sql)sql=”insert into BMDM(BMID，BMMC,BZ，SJBM,SJBMID)values(”&txt0&”，&txt1&”,”&txt2 ”，”&txt3 ”

13、，”txt4&)”conn。Execute（sql）rs。MoveNextWendrs.Closesql=delete from BMDM where BMID=Txt(0)。Text conn。Execute（sql)sql=insert into BMDM(BMID,BMMC,BZ,SJBM，SJBMID)values(”Txt（5）。Text ”,”&Txt(6).Text ”,&Txt(7）。Text&”，Txt（8）。Text ”,&Txt（9)。Text&”)”conn。Execute（sql)BMWH。Form_LoadMsgBox”部门已经成功修改！,vbOKOnly，”OKU

14、nload MeEnd IfEnd IfEnd IfEnd If在做修改操作之前也和插入操作一样要做组织机构是否有同编号判断和同级下是否有同部门名称判断，然后再依据判断得到的标志位进行修改操作。3。3 删除选中部门信息第 6 页 共 8 页做删除处理部分代码：做删除处理部分代码：将确定待删除的数据以数组的形式存储下来将确定待删除的数据以数组的形式存储下来:rs.Open select BMID from BMDM where SJBMID=txt1 ”,conn，adOpenStatic,adLockReadOnly,adCmdTextWhile Not rs。EOFI=I+1ReDim Pr

15、eserve DelSQL(I)DelSQL(I-1)=rs（BMID)rs。MoveNextWendrs。Closen=II=1从第二个数据开始遍历While I nrs.Open”select BMID from BMDM where SJBMID=”&DelSQL(I)&,conn,adOpenStatic，adLockReadOnly，adCmdTextWhile Not rs。EOFn=n+1ReDim Preserve DelSQL(n)数据再次加载DelSQL（n 1)=rs（”BMID”）rs。MoveNextWendrs.CloseI=I+1Wend做删除处理部分代码：做删除

16、处理部分代码：While I nsql=delete from BMDM where BMID=&DelSQL(I）&”逐个删除记录conn。Execute（sql)I=I+1Wend其实在做这一块的时候最重要的是要加载选中部门的下级部门信息，然后再做级联删除，完成这一块所用到的一个处理方法是通过数组多次加载来实现。具体做法是先将数组的第一个数据保存为当前获取的部门编号信息，然后通过遍历数组中的部门编号信息从数据库中查找到上级部门编号与当前遍历到的数组中编号相匹配的部门信息，然后扩大数组空间,将查找到的匹配的部门编号信息再加载到数组中，直到数据库遍历结束，这样所有待删除的信息也就全部加载到数组

17、中了，然后要做的工作就是逐个删除与数组中编号相同的数据库信息了。4 4部门信息保存操作部分部门信息保存操作部分做保存处理部分代码：做保存处理部分代码：rs。Open select*from BMDM,conn，adOpenStatic,adLockReadOnly,adCmdTextCommD。CancelError=TrueOn Error GoTo ErrHandle 取消”异常处理第 7 页 共 8 页CommD。FileName=”BMWHCommD.DefaultExt=BMWHCommD.Filter=(.doc）|。doc”CommD.InitDir=”C：Documents a

18、nd SettingsAll UsersDocuments”CommD.Action=2Open CommD。FileName For Output As 1While Not rs。EOFPrint#1，部门编号：,rs（BMID”)Print#1,部门名称:”，rs(BMMC”）Print 1,备注：,rs(BZ)Print#1,上级部门名称:,rs(SJBM”）Print#1,上级部门编号：，rs（SJBMID”)Print#1,”rs.MoveNextWendErrHandle:rs。Close做这一块相当于就是对文件的一个操作,通过加载一个 CommonDialog 控件，然后调用

19、Windows 自带的保存对话框就可以做到了，对文本操作关键一步是打开文本和写操作，如上述代码所示。5 5关于该系统关于该系统5.1 系统所存在的不足在这个系统中有两个明显的不足之处：问题问题 1 1 描述：描述：TreeView控件在加载数据显示整个部门信息时没有做到以部门名称为树的显示节点，而是以部门编号作为树的显示节点,这样在操作的时候就缺少了直观性。问题问题 1 1 原因：原因：从数据库提取数据加载到 TreeView控件的过程中，要求判断节点的唯一性，然而在部门中不同部门的下属部门可能会出现同名称的部门，因此在加载的时候不能保证节点的唯一性，所以加载时选择数据库中的主键信息（部门编号

20、）。问题问题 2 2 描述：描述：数据库的连接信息应该是可配置的，然而在这个系统中数据库的连接字符串是固定的,没能很好的做到程序可移植性,只做到了在固定的操作系统上面运行.问题问题 2 2 原因：原因：其实这个配置原则上是能够实现的，只是在设计的时候没有找到这个方法。6 6设计总结设计总结虽然这个系统设计出来后存在各种各样的问题，但是在设计过程中完全是凭借自己的能力来做的，从设计的思路到代码的编写我都花了不少的时间与精力,直到程序设计到目前这样，尽管存在这么多的不足,我还是得说我尽了很大的努力.非常感谢金舟软件公司的老师们能够给我这次软件设计的机会，不管我的成绩如何,我都会将这次机会作为我人生路上奋力拼搏的一次宝贵经验，谢谢！第 8 页 共 8 页