软件工程课程设计
―――事理系统
指导老师:
班 级:
姓 名
学 号:
前 言
着社会计算机断发展开发优质软件力落计算机硬件日新月异进展社会计算机软件断增长需求种状况已严重妨碍计算机技术进步软件工程学产生现已成计算机科学技术重分支异常活跃研究领域严格遵循软件工程方法增高软件开发成功率够显著减少软件开发维护中问题
软件工程学研究范围非常广泛包括技术方法工具理等许方面软件工程门迅速发展新兴学科新技术方法工具断涌现
系 统 分 析
11 系统开发背景
着计算机普计算机实际需求明显增加计算机量信息理优势更显易见员工理系统理员工作务事半功倍
12 系统开发目
需求编写目研究理系统软件开发途径应方法开发工作提供该员工理系统套操作简便实员工理软件包括员工工资查询 员工调度查询 员工基信息三功实现日常员工全面动理提高工作质量等方面成员工理员获缺工具
1 3务概述
该员工理系统目前已较完善理功员工理系统软件满足理员方便员工具体信息工资理
131开发意图
员工理更完善
员工理更方便
减轻员工理工作员工作负担
加强员工方面正规化理
132应目标
通系统软件帮员工理员利计算机快速方便员工进行理例员工基信息福利工资查询需操作
133作范围
软件工厂员工理方便员工理软件员工工资时进行删添加查询处理节省员工理员力财力
事理系统需求分析
数库信息理系统中占非常重位数库结构设计坏直接应系统效率实现效果产生影响合理数库结构设计提高数存存储效率保证数完整致时合理数库结构利程序实现
事理系统套功强操作简单实事理软件包括事理考勤理工资理系统维护理功实现某单位日常营运全面动理种事业性单位进行电脑信息理理想选择根计算机数处理严密特机制改善单位财物理降低理员事务员工作强度提高工作质量等方面该工资理软件成缺助手工具
户特点:
该系统工作员项目理员操作员等
背景:
软件系统名称: 某单位事工资理系统
项目务提出者: 太原科技学
项目开发者: 计算机0257
系统户: 某单位理员
系统配置:
(1)软件配置:
操作系统:Windows 98中文版Windows2000中文版更高
数库选择:SQL Server 2000
开发台:Visual Basic 60
(2)硬件配置:
CPU:Pentiun Ⅱ 266者更高
存:64M
硬盘:2G
显示器:VGA更高
系统总体功需求
该事理系统包括事理考勤理工资理系统维护理五部分(图1)
事理系统
事理
考勤理
工资理
系统维护
图1 系统总体功需求框图
事理系统
事理
考勤理
工资理
系统维护
员工信息
员调动
福利信息
正常出勤
异常出勤
加班处理
工资查询
系
统登录
操作员授权
图2 系统详细功需求框图
<1>事理系统
理系统包括员工信息员调动福利信息三功模块员工信息功模块该单位员工基信息进行理够员工基信息进行查询便修改删员调动模块实现单位事调动理该模块设置员工基信息表操作员够该表中直接获员工基信息进行员调动操作时保存员调动历史信息福利信息单位员工福利信息进行理
<2>考勤理系统
理系统包括正常出勤异常出勤加班处理三功模块正常出勤员工迟早退进行理时够查询员信息查询员信息进行添加异常出勤员工病假事假进行理加班处理包括加班理员信息加班费率设置三部分组成该模块员工加班进行理员工加班费进行统计续功模块提供数
<3>工资理系统
理系统员工工资进行理功员工基工资福利信息迟扣款请假扣款加班费进行查询
<4>系统维护
理系统包括系统登录操作员授权两功模块
事理系统
(1)员工信息
员工信息功模块包括新增员工删员工修改员工查询员工基信息该功模块系统初始化员工基信息进行理维护员工基信息查询操作员员工编号姓名进行查询查询结果进行维护
员工信息包括(员工编号员工姓名姓部门身份证号址邮编电话)员工信息ER图图:
员工信息
姓名
编号
性
部门
身份证号
电话
邮编
址
(2)员调动功
员调动功模块包括员工基信息查询员调动两部分组成员工基信息查询方便进行员调动操作员进行员调动时单击查询员信息直接进行部门调动历史调动信息保存次员调动操作便查询员调动信息
员调动包括(员工编号员工姓名原属部门现属部门)员调动ER图图:
员调动
员工编号
原属部门
现属部门
员工姓名
(3)福利信息功
该功模块单位员工福利信息进行维护增加删员工福利情况
福利信息包括(员工编号员工姓名福利信息)福利信息ER图图:
福利信息
员工编号
员工姓名
福利信息
事理系统总ER图图:
福利
调动支 动
查询询
查询询
正常出勤
查询询
查询询
异常出勤
加班处理
工资查询
福利信息
员工信息
操作员信息
员调动
维护护
操作员年龄
操作员姓名
操作员编码
员工姓名
员工编号
员工姓名
员工编号
原部门
身份证号
现部门
址
员工编号
员工姓名
员工年龄
身份证号
员工姓名
员工姓名
员工编号
员工编号
福利类型
员工编号
员工姓名
基工资
请假类型
迟时间
请假扣款
请假时间
迟扣款
加班时间
迟否
加班费
员工姓名
员工编号
业务流程图图:
事理系统顶层数流图图:
细化事理系统数流图图:
数字典:
数流定义:
数流名称:登陆验证
位置:操作员登陆处理
定义:登陆验证=操作员姓名+密码
说明:操作员系统进行维护必先登陆界面必须合法操作员姓名密码
数流名称:验证结果
位置:登陆处理操作员
定义:验证结果=[登陆成功|户未注册|密码错误]
说明:告知操作员登陆结果成功登陆直接操作系统
数流名称:登记信息
位置:登记处理事理基信息
定义:登记信息=事理基信息
说明:登记新员工基信息员调动信息福利信息正常出勤信息请假处理信息加班处理信息基工资信息操作员授权信息等
数流名称:登记结果
位置:事理基信息登陆处理
定义:登陆结果=[成功|失败]
说明:告知系统操作员登记成功否
数流名称:员工注册
位置:员工登陆处理
定义:员工注册=员工基信息+密码
说明:员工登陆页面必须先注册合法户名密码
数流名称:注册结果
位置:登陆处理员工
定义:注册结果=[注册成功|注册失败]
说明:告知员工注册成功否
数流名称:员工登陆
位置:员工登陆处理
定义:登陆验证=员工姓名+密码
说明:员工员工信息进行查询必先登陆界面必须合法员工姓名密码
数流名称:登记结果
位置:登记处理员工处理
定义:登陆结果=[成功|失败]
说明:告知员登记成功否
数流名称:查询求
位置:员工处理事理基信息
定义:查询求=员工姓名
说明:户查询员工姓名
数流名称:查询结果
位置:事理基信息员工处理
定义:查询结果=[事理基信息|失败]
说明:员工查询事理基信息失败提示
数流名称:系统维护
位置:登记处理事理基信息
定义:登记新员工基信息员调动信息福利信息正常出勤信息请假处理信息加班处理信息基工资信息操作员授权信息等
说明:登记新员工基信息员调动信息福利信息正常出勤信息请假处理信息加班处理信息基工资信息操作员授权信息等
数流名称:维护结果
位置:事理基信息登记处理
定义:登记员工基信息员调动信息福利信息正常出勤信息请假处理信息加班处理信息基工资信息操作员授权信息等反馈操作员
说明:登记员工基信息员调动信息福利信息正常出勤信息请假处理信息加班处理信息基工资信息操作员授权信息等反馈操作员
数存储定义:
数存储名称:操作员授权
输出:P1
数结构:操作员姓名+密码
说明:系统操作员姓名密码系统操作员登陆系统钥匙
数存储名称:事理基信息
输入:P1
输出 P3
数结构:员工基信息员调动信息福利信息正常出勤信息请假处理信息加班处理信息基工资信息操作员授权信息等
说明:员工基信息员调动信息福利信息正常出勤信息请假处理信息加班处理信息基工资信息操作员授权信息等
数存储名称:员工信息
输出:P2
数结构:员工姓名+密码
说明:员工姓名密码员工登陆系统钥匙
数项:
员工信息数项表:
数项名
数代码
类型
长度
否空
员工编号
员工编号
整型
100
否
员工姓名
员工姓名
字符型
100
否
性
性
字符型
100
否
部门
部门
字符型
100
否
身份证号
身份证号
长整型
100
否
址
址
字符型
100
邮编
邮编
长整型
100
电话
电话
长整型
100
员调动数项表:
数项名
数代码
类型
长度
否空
员工编号
员工编号
整型
100
否
员工姓名
员工姓名
字符型
100
否
原属部门
原属部门
字符型
100
否
现属部门
现属部门
字符型
100
否
福利信息数项表:
数项名
数代码
类型
长度
否空
员工编号
员工编号
整型
100
否
员工姓名
员工姓名
字符型
100
否
福利信息
福利信息
字符型
100
否
基工资数项表:
数项名
数代码
类型
长度
否空
员工编号
员工编号
整型
100
否
员工姓名
员工姓名
字符型
100
否
基工资
基工资
字符型
100
否
操作员数项表:
数项名
数代码
类型
长度
否空
操作员编号
操作员编号
整型
100
否
操作员姓名
操作员姓名
字符型
100
否
性
性
字符型
100
否
年龄
年龄
整型
100
否
身份证号
身份证号
长整型
100
否
址
址
字符型
100
邮编
邮编
长整型
100
电话
电话
长整型
100
系统界面:
界面图:
户登陆界面图:
户注册界面图:
注册成功界面图:
户选择界面图:
员工信息查询界面图:
员调动查询界面图:
福利信息查询界面图:
基工资查询界面图:
操作员登陆界面图:
操作员选择界面图:
员工信息维护界面图:
员调动维护界面图:
福利信息维护界面图:
基工资维护界面图:
操作员授权界面图:
原代码:
界面代码:
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
MeHide
户选择界面Show
End Sub
Private Sub Command3_Click()
MeHide
frmLoginShow
End Sub
Private Sub 操作员_Click(Index As Integer)
MeHide
frmLoginShow
End Sub
Private Sub 户_Click(Index As Integer)
MeHide
户选择界面Show
End Sub
户选择界面代码:
Private Sub Command1_Click()
MeHide
员工信息Show
End Sub
Private Sub Command2_Click()
MeHide
员调动Show
End Sub
Private Sub Command3_Click()
MeHide
员福利Show
End Sub
Private Sub Command4_Click()
MeHide
正常出勤Show
End Sub
Private Sub Command5_Click()
MeHide
请假处理Show
End Sub
Private Sub Command6_Click()
MeHide
加班处理Show
End Sub
Private Sub Command7_Click()
MeHide
基工资Show
End Sub
Private Sub Command8_Click()
MeHide
界面Show
End Sub
Private Sub 福利信息_Click(Index As Integer)
MeHide
员福利Show
End Sub
Private Sub 基工资_Click(Index As Integer)
MeHide
基工资Show
End Sub
Private Sub 加班处理_Click(Index As Integer)
MeHide
加班处理Show
End Sub
Private Sub 请假处理_Click(Index As Integer)
MeHide
请假处理Show
End Sub
Private Sub 员调动_Click(Index As Integer)
MeHide
员调动Show
End Sub
Private Sub 员工基信息_Click(Index As Integer)
MeHide
员工信息Show
End Sub
Private Sub 正常出勤_Click(Index As Integer)
MeHide
正常出勤Show
End Sub
员工信息查询界面代码:
Private Sub Command1_Click()
MeHide
户选择界面Show
End Sub
Private Sub Command2_Click()
Dim n
n Text1Text
Adodc1RecordSource select * from 员工信息 where 员工姓名' & n & '
Adodc1Refresh
MSHFlexGrid1Refresh
End Sub
员调动查询界面代码:
Private Sub Command1_Click()
Dim n
n Text1Text
Adodc1RecordSource select * from 员调动 where 员工姓名' & n & '
Adodc1Refresh
MSHFlexGrid1Refresh
End Sub
Private Sub Command2_Click()
MeHide
户选择界面Show
End Sub
福利信息查询界面代码:
Private Sub Command1_Click()
Dim n
n Text1Text
Adodc1RecordSource select * from 福利信息 where 员工姓名' & n & '
Adodc1Refresh
MSHFlexGrid1Refresh
End Sub
Private Sub Command2_Click()
MeHide
户选择界面Show
End Sub
基工资查询界面代码:
Private Sub Command1_Click()
Dim n
n Text1Text
Adodc1RecordSource select * from 基工资 where 员工姓名' & n & '
Adodc1Refresh
MSHFlexGrid1Refresh
End Sub
Private Sub Command2_Click()
MeHide
户选择界面Show
End Sub
员工信息维护界面代码:
Private Sub Command1_Click()
员工信息Show
End Sub
Private Sub Form_Load()
Set grdDataGridDataSource datPrimaryRSRecordset(ChildCMD)UnderlyingValue
End Sub
Private Sub Form_Resize()
On Error Resume Next
'窗体调整时会调整网格
grdDataGridWidth MeScaleWidth
grdDataGridHeight MeScaleHeight grdDataGridTop datPrimaryRSHeight 30 picButtonsHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
ScreenMousePointer vbDefault
End Sub
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long Description As String ByVal Scode As Long ByVal Source As String ByVal HelpFile As String ByVal HelpContext As Long fCancelDisplay As Boolean)
'错误处理程序代码置处
'想忽略错误注释掉行
'想捕获添加代码处理
MsgBox Data error event hit err & Description
End Sub
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODBEventReasonEnum ByVal pError As ADODBError adStatus As ADODBEventStatusEnum ByVal pRecordset As ADODBRecordset)
' recordset 显示前记录位置
datPrimaryRSCaption Record & CStr(datPrimaryRSRecordsetAbsolutePosition)
End Sub
Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODBEventReasonEnum ByVal cRecords As Long adStatus As ADODBEventStatusEnum ByVal pRecordset As ADODBRecordset)
'验证代码置处
'列动作发生时该事件调
Dim bCancel As Boolean
Select Case adReason
Case adRsnAddNew
Case adRsnClose
Case adRsnDelete
Case adRsnFirstChange
Case adRsnMove
Case adRsnRequery
Case adRsnResynch
Case adRsnUndoAddNew
Case adRsnUndoDelete
Case adRsnUndoUpdate
Case adRsnUpdate
End Select
If bCancel Then adStatus adStatusCancel
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
datPrimaryRSRecordsetAddNew
Exit Sub
AddErr
MsgBox ErrDescription
End Sub
Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With datPrimaryRSRecordset
Delete
MoveNext
If EOF Then MoveLast
End With
Exit Sub
DeleteErr
MsgBox ErrDescription
End Sub
Private Sub cmdRefresh_Click()
'户应程序需
On Error GoTo RefreshErr
datPrimaryRSRefresh
Set grdDataGridDataSource datPrimaryRSRecordset(ChildCMD)UnderlyingValue
Exit Sub
RefreshErr
MsgBox ErrDescription
End Sub
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr
datPrimaryRSRecordsetUpdateBatch adAffectAll
Exit Sub
UpdateErr
MsgBox ErrDescription
End Sub
Private Sub cmdClose_Click()
Unload Me
操作员选择界面Show
End Sub
员调动维护界面代码:
Private Sub Command1_Click()
员调动Show
End Sub
Private Sub Form_Load()
Set grdDataGridDataSource datPrimaryRSRecordset(ChildCMD)UnderlyingValue
End Sub
Private Sub Form_Resize()
On Error Resume Next
'窗体调整时会调整网格
grdDataGridWidth MeScaleWidth
grdDataGridHeight MeScaleHeight grdDataGridTop datPrimaryRSHeight 30 picButtonsHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
ScreenMousePointer vbDefault
End Sub
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long Description As String ByVal Scode As Long ByVal Source As String ByVal HelpFile As String ByVal HelpContext As Long fCancelDisplay As Boolean)
'错误处理程序代码置处
'想忽略错误注释掉行
'想捕获添加代码处理
MsgBox Data error event hit err & Description
End Sub
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODBEventReasonEnum ByVal pError As ADODBError adStatus As ADODBEventStatusEnum ByVal pRecordset As ADODBRecordset)
' recordset 显示前记录位置
datPrimaryRSCaption Record & CStr(datPrimaryRSRecordsetAbsolutePosition)
End Sub
Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODBEventReasonEnum ByVal cRecords As Long adStatus As ADODBEventStatusEnum ByVal pRecordset As ADODBRecordset)
'验证代码置处
'列动作发生时该事件调
Dim bCancel As Boolean
Select Case adReason
Case adRsnAddNew
Case adRsnClose
Case adRsnDelete
Case adRsnFirstChange
Case adRsnMove
Case adRsnRequery
Case adRsnResynch
Case adRsnUndoAddNew
Case adRsnUndoDelete
Case adRsnUndoUpdate
Case adRsnUpdate
End Select
If bCancel Then adStatus adStatusCancel
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
datPrimaryRSRecordsetAddNew
Exit Sub
AddErr
MsgBox ErrDescription
End Sub
Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With datPrimaryRSRecordset
Delete
MoveNext
If EOF Then MoveLast
End With
Exit Sub
DeleteErr
MsgBox ErrDescription
End Sub
Private Sub cmdRefresh_Click()
'户应程序需
On Error GoTo RefreshErr
datPrimaryRSRefresh
Set grdDataGridDataSource datPrimaryRSRecordset(ChildCMD)UnderlyingValue
Exit Sub
RefreshErr
MsgBox ErrDescription
End Sub
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr
datPrimaryRSRecordsetUpdateBatch adAffectAll
Exit Sub
UpdateErr
MsgBox ErrDescription
End Sub
Private Sub cmdClose_Click()
Unload Me
操作员选择界面Show
End Sub
Private Sub grdDataGrid_Click()
End Sub
福利信息维护界面代码:
Dim WithEvents adoPrimaryRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Private Sub Command1_Click()
员福利Show
End Sub
Private Sub Form_Load()
Dim db As Connection
Set db New Connection
dbCursorLocation adUseClient
dbOpen PROVIDERMSDataShapeData PROVIDERMSDASQLdsn194学录uidpwddatabase事理系统
Set adoPrimaryRS New Recordset
adoPrimaryRSOpen SHAPE {select 员工编号员工姓名福利信息 from 福利信息} AS ParentCMD APPEND ({select 员工编号员工姓名福利信息 from 福利信息 } AS ChildCMD RELATE 员工编号 TO 员工编号) AS ChildCMD db adOpenStatic adLockOptimistic
Dim oText As TextBox
'绑定文框数提供者
For Each oText In MetxtFields
Set oTextDataSource adoPrimaryRS
Next
Set grdDataGridDataSource adoPrimaryRS(ChildCMD)UnderlyingValue
mbDataChanged False
End Sub
Private Sub Form_Resize()
On Error Resume Next
'窗体调整时会调整网格
grdDataGridWidth MeScaleWidth
grdDataGridHeight MeScaleHeight grdDataGridTop 30 picButtonsHeight picStatBoxHeight
lblStatusWidth MeWidth 1500
cmdNextLeft lblStatusWidth + 700
cmdLastLeft cmdNextLeft + 340
End Sub
Private Sub Form_KeyDown(KeyCode As Integer Shift As Integer)
If mbEditFlag Or mbAddNewFlag Then Exit Sub
Select Case KeyCode
Case vbKeyEscape
cmdClose_Click
Case vbKeyEnd
cmdLast_Click
Case vbKeyHome
cmdFirst_Click
Case vbKeyUp vbKeyPageUp
If Shift vbCtrlMask Then
cmdFirst_Click
Else
cmdPrevious_Click
End If
Case vbKeyDown vbKeyPageDown
If Shift vbCtrlMask Then
cmdLast_Click
Else
cmdNext_Click
End If
End Select
End Sub
Private Sub Form_Unload(Cancel As Integer)
ScreenMousePointer vbDefault
End Sub
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODBEventReasonEnum ByVal pError As ADODBError adStatus As ADODBEventStatusEnum ByVal pRecordset As ADODBRecordset)
' recordset 显示前记录位置
lblStatusCaption Record & CStr(adoPrimaryRSAbsolutePosition)
End Sub
Private Sub adoPrimaryRS_WillChangeRecord(ByVal adReason As ADODBEventReasonEnum ByVal cRecords As Long adStatus As ADODBEventStatusEnum ByVal pRecordset As ADODBRecordset)
'验证代码置处
'列动作发生时该事件调
Dim bCancel As Boolean
Select Case adReason
Case adRsnAddNew
Case adRsnClose
Case adRsnDelete
Case adRsnFirstChange
Case adRsnMove
Case adRsnRequery
Case adRsnResynch
Case adRsnUndoAddNew
Case adRsnUndoDelete
Case adRsnUndoUpdate
Case adRsnUpdate
End Select
If bCancel Then adStatus adStatusCancel
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
With adoPrimaryRS
If Not (BOF And EOF) Then
mvBookMark Bookmark
End If
AddNew
lblStatusCaption 添加记录
mbAddNewFlag True
SetButtons False
End With
Exit Sub
AddErr
MsgBox ErrDescription
End Sub
Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With adoPrimaryRS
Delete
MoveNext
If EOF Then MoveLast
End With
Exit Sub
DeleteErr
MsgBox ErrDescription
End Sub
Private Sub cmdRefresh_Click()
'户应程序需
On Error GoTo RefreshErr
Set grdDataGridDataSource Nothing
adoPrimaryRSRequery
Set grdDataGridDataSource adoPrimaryRS(ChildCMD)UnderlyingValue
Exit Sub
RefreshErr
MsgBox ErrDescription
End Sub
Private Sub cmdEdit_Click()
On Error GoTo EditErr
lblStatusCaption 编辑记录
mbEditFlag True
SetButtons False
Exit Sub
EditErr
MsgBox ErrDescription
End Sub
Private Sub cmdCancel_Click()
On Error Resume Next
SetButtons True
mbEditFlag False
mbAddNewFlag False
adoPrimaryRSCancelUpdate
If mvBookMark > 0 Then
adoPrimaryRSBookmark mvBookMark
Else
adoPrimaryRSMoveFirst
End If
mbDataChanged False
End Sub
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr
adoPrimaryRSUpdateBatch adAffectAll
If mbAddNewFlag Then
adoPrimaryRSMoveLast '移新记录
End If
mbEditFlag False
mbAddNewFlag False
SetButtons True
mbDataChanged False
Exit Sub
UpdateErr
MsgBox ErrDescription
End Sub
Private Sub cmdClose_Click()
Unload Me
操作员选择界面Show
End Sub
Private Sub cmdFirst_Click()
On Error GoTo GoFirstError
adoPrimaryRSMoveFirst
mbDataChanged False
Exit Sub
GoFirstError
MsgBox ErrDescription
End Sub
Private Sub cmdLast_Click()
On Error GoTo GoLastError
adoPrimaryRSMoveLast
mbDataChanged False
Exit Sub
GoLastError
MsgBox ErrDescription
End Sub
Private Sub cmdNext_Click()
On Error GoTo GoNextError
If Not adoPrimaryRSEOF Then adoPrimaryRSMoveNext
If adoPrimaryRSEOF And adoPrimaryRSRecordCount > 0 Then
Beep
'已返回
adoPrimaryRSMoveLast
End If
'显示前记录
mbDataChanged False
Exit Sub
GoNextError
MsgBox ErrDescription
End Sub
Private Sub cmdPrevious_Click()
On Error GoTo GoPrevError
If Not adoPrimaryRSBOF Then adoPrimaryRSMovePrevious
If adoPrimaryRSBOF And adoPrimaryRSRecordCount > 0 Then
Beep
'已返回
adoPrimaryRSMoveFirst
End If
'显示前记录
mbDataChanged False
Exit Sub
GoPrevError
MsgBox ErrDescription
End Sub
Private Sub SetButtons(bVal As Boolean)
cmdAddVisible bVal
cmdEditVisible bVal
cmdUpdateVisible Not bVal
cmdCancelVisible Not bVal
cmdDeleteVisible bVal
cmdCloseVisible bVal
cmdRefreshVisible bVal
cmdNextEnabled bVal
cmdFirstEnabled bVal
cmdLastEnabled bVal
cmdPreviousEnabled bVal
End Sub
基工资维护界面代码:
Private Sub Command1_Click()
基工资Show
End Sub
Private Sub Form_Load()
Set grdDataGridDataSource datPrimaryRSRecordset(ChildCMD)UnderlyingValue
End Sub
Private Sub Form_Resize()
On Error Resume Next
'窗体调整时会调整网格
grdDataGridWidth MeScaleWidth
grdDataGridHeight MeScaleHeight grdDataGridTop datPrimaryRSHeight 30 picButtonsHeight
End Sub
Private Sub Form_Unload(Cancel As Integer)
ScreenMousePointer vbDefault
End Sub
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long Description As String ByVal Scode As Long ByVal Source As String ByVal HelpFile As String ByVal HelpContext As Long fCancelDisplay As Boolean)
'错误处理程序代码置处
'想忽略错误注释掉行
'想捕获添加代码处理
MsgBox Data error event hit err & Description
End Sub
Private Sub datPrimaryRS_MoveComplete(ByVal adReason As ADODBEventReasonEnum ByVal pError As ADODBError adStatus As ADODBEventStatusEnum ByVal pRecordset As ADODBRecordset)
' recordset 显示前记录位置
datPrimaryRSCaption Record & CStr(datPrimaryRSRecordsetAbsolutePosition)
End Sub
Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODBEventReasonEnum ByVal cRecords As Long adStatus As ADODBEventStatusEnum ByVal pRecordset As ADODBRecordset)
'验证代码置处
'列动作发生时该事件调
Dim bCancel As Boolean
Select Case adReason
Case adRsnAddNew
Case adRsnClose
Case adRsnDelete
Case adRsnFirstChange
Case adRsnMove
Case adRsnRequery
Case adRsnResynch
Case adRsnUndoAddNew
Case adRsnUndoDelete
Case adRsnUndoUpdate
Case adRsnUpdate
End Select
If bCancel Then adStatus adStatusCancel
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
datPrimaryRSRecordsetAddNew
Exit Sub
AddErr
MsgBox ErrDescription
End Sub
Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With datPrimaryRSRecordset
Delete
MoveNext
If EOF Then MoveLast
End With
Exit Sub
DeleteErr
MsgBox ErrDescription
End Sub
Private Sub cmdRefresh_Click()
'户应程序需
On Error GoTo RefreshErr
datPrimaryRSRefresh
Set grdDataGridDataSource datPrimaryRSRecordset(ChildCMD)UnderlyingValue
Exit Sub
RefreshErr
MsgBox ErrDescription
End Sub
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr
datPrimaryRSRecordsetUpdateBatch adAffectAll
Exit Sub
UpdateErr
MsgBox ErrDescription
End Sub
Private Sub cmdClose_Click()
Unload Me
操作员选择界面Show
End Sub
系统维护
事理系统直接面员员计算机时非常熟悉求系统够提供良户接口易机交互界面实现点求系统应该量户熟悉术语中文信息界面针户出现问题提供足够线帮助缩短户系统熟悉程
事理系统中涉数员工重信息系统提供方便手段供系统维护员进行数备份日常安全理系统意外崩溃时数恢复等工作
设计结
三周时间里老师指导进行曲关数库课程设计项目通次课程设计数库进步解加深数库基础理基础知识理解初步掌握软件系统设计全程数库进行软件设计基方法特简单数库设计涉问题
紧张设计出中模块功数库中功分三模块户查询户意见理系统维护三模块中致概括该数库系统包含功做交通理系统程
参考资料
书名:PowerDesigner软件分析设计技术
作者:白尚旺
出版社:电子工业出版社
书名:VisualBasic程序设计教程
作者:龚沛 陆慰民 杨志强
出版社:高等教育出版社
书名:软件工程导
作者:张海藩
出版社:清华学出版社
文档香网(httpswwwxiangdangnet)户传
《香当网》用户分享的内容,不代表《香当网》观点或立场,请自行判断内容的真实性和可靠性!
该内容是文档的文本内容,更好的格式请下载文档