助理企业信息管理师技能试题三

技能试题三

题目：工资管理项目的设计与实现

1、创建工资管理项目，名称为第xx组拼音首字母，否则不得分。（如第一组）。（5分）

2、工资管理系统主界面设计。（15分）

3、MDI应用系统基本框架设计。（20分）

4、职工信息管理功能设计。（25分）

5、月工资发放功能设计。（25分）

6、查询功能设计。（10分）

技能试题三参考答案

1、创建工资管理项目，名称为第xx组拼音首字母，否则不得分。（如第一组）。（5分）

2、工资管理系统主界面设计（15分）

3、MDI应用系统基本框架设计。（20分）

只要实现功能即可得分，参考代码如下。

Public Class frmUserManage

Dim UserDa As SqlClient.SqlDataAdapter

Dim UserDs As New DataSet("UserDB")

Private Sub frmUserManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'从数据库中获取用户表信息

UserDa = New SqlClient.SqlDataAdapter("Select * From 用户WHERE (用户<> 'ADMIN')",

MyApp.DB.DBConnString)

UserDa.Fill(UserDs, "用户")

Dim mcb As SqlClient.SqlCommandBuilder

mcb = New SqlClient.SqlCommandBuilder(UserDa)

'将用户表绑定到UserBindingSource组件上

http://www.77cn.com.cnerBindingSource.DataSource = UserDs

http://www.77cn.com.cnerBindingSource.DataMember = "用户"

'将UserBindingSource组件绑定到DatagridView控件和窗体的MyBindingsource上

http://www.77cn.com.cnerDataGridView.DataSource = http://www.77cn.com.cnerBindingSource

Me.MyBindingsource = http://www.77cn.com.cnerBindingSource

'设置"密码", "、操作人", "操作时间"只独

For i As Integer = 0 To http://www.77cn.com.cnerDataGridView.Columns.Count - 1

Select Case http://www.77cn.com.cnerDataGridView.Columns(i).DataPropertyName

Case "密码", "操作人", "操作时间"

http://www.77cn.com.cnerDataGridView.Columns(i).ReadOnly = True

End Select

Next

End Sub

Private Sub UserBindingSource_AddingNew(ByVal sender As Object, ByVal e As

http://www.77cn.com.cnponentModel.AddingNewEventArgs) Handles UserBindingSource.AddingNew

With UserDs.Tables("用户")

.Columns("用户").DefaultValue = UserBindingSource.Count.ToString

.Columns("用户名").DefaultValue = UserBindingSource.Count.ToString

.Columns("密码").DefaultValue = MyApp.GetEnPassword("123")

.Columns("操作人").DefaultValue = http://www.77cn.com.cnerID

.Columns("操作时间").DefaultValue = MyApp.GetServerTime

End With

End Sub

Private Sub UserBindingSource_DataError(ByVal sender As Object, ByVal e As

System.Windows.Forms.BindingManagerDataErrorEventArgs) Handles UserBindingSource.DataError

MessageBox.Show("数据出错！原因：" & e.Exception.Message, "错误提示：", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Sub

Private Sub UserDataGridView_DataError(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles UserDataGridView.DataError

MessageBox.Show("数据出错！原因：" & e.Exception.Message, "错误提示：", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Sub

Overrides Sub Bar_UpdateData()

http://www.77cn.com.cnerBindingSource.EndEdit()

Me.MyUpdataDataWithDataAdpater(UserDa, UserDs.Tables("用户").GetChanges)

UserDs.Tables("用户").AcceptChanges()

End Sub

Public Overrides Sub Bar_ExcelInfo()

With Me.MyExcelInfo

.ReportTitle = http://www.77cn.com.cn.Unit

.ReportSubTitle = "用户明细表"

.PrintUnit = http://www.77cn.com.cnerName

.XlsFileName = Application.StartupPath & "\" & .ReportSubTitle & ".xls"

.ExcelKey = "123"

End With

End Sub

Public Overrides Sub Bar_DataExport()

With Me.MyDataExport

.FilePath = Application.StartupPath

.FileName = "用户"

End With

End Sub

End Class

4、职工信息管理功能设计（25分）

Private Sub DataTreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As

System.Windows.Forms.TreeViewEventArgs) Handles DataTreeView1.AfterSelect

MyApp.LoadTreeLeaf(Me.DataTreeView1, 1)

_CurrentTreeLevel = Me.DataTreeView1.GetNodeLevel(DataTreeView1.SelectedNode)

_CurrentDept = DataTreeView1.SelectedNode.Text

End Sub

Private Sub 单项维护DataGridView_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles 单项维护DataGridView.ColumnHeaderMouseClick

If e.Button = Windows.Forms.MouseButtons.Middle Then

Me.CaptionBar1.ShowLabelHeader(e.ColumnIndex)

End If

End Sub

Private Sub 单项维护DataGridView_RowValidated(ByVal sender As Object, ByVal e As

System.Windows.Forms.DataGridViewCellEventArgs) Handles 单项维护DataGridView.RowValidated

Dim mDr As DataRow = CType(Me.单项维护BindingSource.Current, DataRowView).Row

If mDr(Me.项目.ToString, DataRowVersion.Original) <> mDr(Me.项目.ToString, DataRowVersion.Current) Then

mDr("操作人") = http://www.77cn.com.cnerID

mDr("操作时间") = MyApp.GetServerTime

Else

mDr.RejectChanges()

End If

End Sub

Private Function GetDtdx() As DataTable

Dim mDt As DataTable = 工资管理DataSet.单项维护.Copy

Dim mCount As Integer …… 此处隐藏：6239字，全部文档内容请下载后查看。喜欢就下载吧 ……