1、 课程设计报告课程设计报告 课程设计题目：工资管理系统课程设计题目：工资管理系统 工资管理系统工资管理系统 一、实验题目： 1) 员工基本信息的管理功能。 2) 单位员工变动、奖惩情况的管理功能。 3) 工资的计算、修改功能。 4) 查询统计功能。 5) 报表打印功能。 6) 具有数据备份和数据恢复功能。 设计要求： 在提供员工详细的工资资料的同时，尽量使系统能具一定的安全性和通用性。 二、编程 1、主窗口的设计 MDIForm1.Hide Form9.Show End Sub Private Sub MDIForm_Load() End Sub Private Sub ss_Click()
2、MDIForm1.Hide Form4.Show End Sub Private Sub SSS_Click() MDIForm1.Hide Form2.Show End Sub Private Sub aa_Click() MDIForm1.Hide Form3.Show End Sub Private Sub SSSS_Click() MDIForm1.Hide Form5.Show End Sub Private Sub SSSSS_Click() MDIForm1.Hide Form6.Show End Sub Private Sub SSSSSS_Click() MDIForm1.H
3、ide Form7.Show End Sub Private Sub SSSSSSS_Click() MDIForm1.Hide Form8.Show End Sub 2、登入窗口设计 Option Explicit Private Function Selectsql(SQL As String) As ADODB.Recordset 返回 ADODB.Recordset 对象 Dim ConnStr As String Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Se
4、t Conn = New ADODB.Connection On Error GoTo MyErr: ConnStr = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=teacher;Data Source=LENOVO-PC“ 这是连接 SQL 数据库的 语句 Conn.Open ConnStr rs.CursorLocation = adUseClient rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs Exit Function MyErr: Set rs = Nothing Set Conn = Nothing 释放相关的系统资源 MsgBox Err.Description, vbInformation, “系统提示“ 显示出错信息 End Function Private Sub Command1_Click(
