考勤管理系统实验报告（附源代码）

ConnectToDB

RefushDataGrid adodcChuChai, dgChuChai, strSql DisConnect End Sub

Private Sub Form_Load()

strSql = \ departmentId\ Set rs = TransactSQL(strSql) Do While Not rs.EOF

cboDept.AddItem (rs.Fields(1).Value)

cboDept.ItemData(cboDept.NewIndex) = rs.Fields(0).Value rs.MoveNext Loop rs.Close

cboDept.ListIndex = 0 cboDept.Refresh End Sub

4.1.4 添加部门

Dim departId As Integer Dim departName As String If txtbmName.Text = \

MsgBox \部门名称不能有空值\ Exit Sub Else

departId = Trim(txtaddbmId.Text)

departName = Trim(txtbmName.Text)

strSql = \ values(\ & departId & \ TransactSQL (strSql) MsgBox \添加成功\End If End Sub

Public Sub init()

txtbmName.Text = \num = 0

strSql = \ Set rs = TransactSQL(strSql)

If Not rs.EOF And Not rs.BOF Then rs.MoveLast num = rs(0) num = num + 1

Me.txtaddbmId.Text = CStr(num) Else

Me.txtaddbmId.Text = 1 End If End Sub

Private Sub cmdreadd_Click() Call init End Sub

Private Sub Form_Load() num = 0

strSql = \ order by departmentId\ Set rs = TransactSQL(strSql)

If Not rs.EOF And Not rs.BOF Then rs.MoveLast num = rs(0) num = num + 1

Me.txtaddbmId.Text = CStr(num) Else

Me.txtaddbmId.Text = 1 End If End Sub

4.1.5 部门管理

Dim strSql As String

Dim RowNumber As Integer Private Sub cmdadd_Click() frmDepAdd.Show vbModal End Sub

Private Sub cmddel_Click()

If ConnectToDB() = False Then MsgBox \数据库连接失败!\ Exit Sub End If

If MsgBox(\你真的要删除吗\vbYes Then

strSql = \ TransactSQL (strSql) DisConnect

MsgBox \删除成功\

strSql = \部门编号, departmentName as 部门名称 from TDepartment\

RefreshData adodcDepManage, dgDepManage, strSql Exit Sub End If End Sub

Private Sub cmdUpdate_Click() If RowNumber = -1 Then

MsgBox \请先选择要修改的数据!\ Exit Sub End If

frmDepUpdate.Show vbModal End Sub

Private Sub Comselect_Click() Dim m_txtdepartID As String Dim m_txtdepartName As String

m_txtdepartID = Trim(txtDepartId.Text)

m_txtdepartName = Trim(txtDepartName.Text)

If (m_txtdepartID = \

strSql = \部门编号, departmentName as 部门名称 from TDepartment\

ElseIf (m_txtdepartID <> \

strSql = \部门编号, departmentName as 部门名称 \

& \ from TDepartment where departmentId =\m_txtdepartID & \ departmentName like '%\

ElseIf (m_txtdepartID <> \

strSql = \部门编号, departmentName as 部门名称 from TDepartment where departmentId =\

ElseIf m_txtdepartName <> \

strSql = \部门编号, departmentName as 部门名称 \

& \ where departmentName like '%\m_txtdepartName & \

End If

RefreshData adodcDepManage, dgDepManage, strSql End Sub

Private Sub dgDepManage_Click() On Error GoTo ShowErr:

If IsNull(dgDepManage.Bookmark) Then RowNumber = -1 Exit Sub Else

RowNumber =

dgDepManage.Columns(\

End If

frmDepUpdate.SetRowNumber RowNumber ShowErr: Exit Sub End Sub

Private Sub dgDepManage_DblClick() On Error GoTo ShowErr:

If IsNull(dgDepManage.Bookmark) Then RowNumber = -1 Exit Sub Else

RowNumber =

dgDepManage.Columns(\

End If

frmDepUpdate.SetRowNumber RowNumber frmDepUpdate.Show vbModal ShowErr: Exit Sub End Sub

Private Sub Form_Load() RowNumber = -1 End Sub

4.1.6 更新部门

Option Explicit

Dim strSql As String

Dim rsDep As New ADODB.Recordset Dim m_irownumber As Integer Dim m_iDepartId As Integer Dim m_strDepartName As String Private Sub cmdOk_Click()

If txtDepartName.Text = \

MsgBox \登记项目不能有空值\ Exit Sub Else

m_iDepartId = CInt(txtDepartId.Text)

m_strDepartName = Trim(txtDepartName.Text)

strSql = \ set departmentName='\m_strDepartName & \

If ConnectToDB() = False Then MsgBox \数据库连接失败!\ Exit Sub End If

TransactSQL (strSql) MsgBox \修改成功\ cmdok.Enabled = False DisConnect