【文章內(nèi)容簡介】 txtNewPwdagain, frmChPwd End Sub Private Sub Form_Load() End Sub Private Sub cmdChPwdCancel_Click() Unload Me End Sub 出差情況 Dim strSql As String Dim rs As New Recordset . . Private Sub cboDept_Click() strSql = Select * from TWorker where departmentId= amp。 () amp。 order by workerId Set rs = TransactSQL(strSql) Do While Not ((2).Value) () = (1).Value Loop = 0 End Sub Private Sub cmdPrint_Click() Set = (1).Controls(1).Caption = 請假情況統(tǒng)計(jì)表 (2).Controls(1).Caption = 部門名稱 (2).Controls(2).Caption = 員工名稱 (2).Controls(3).Caption = 出差時間 (2).Controls(4).Caption = 出差地點(diǎn) (2).Controls(5).Caption = 出差天數(shù) (2).Controls(6).Caption = 登記時間 (2).Controls(7).Caption = 銷差時間 (2).Controls(8).Caption = 出差備注 (3).Controls(1).DataField = 部門名稱 (3).Controls(2).DataField = 員工名稱 (3).Controls(3).DataField = 出差時間 (3).Controls(4).DataField = 出差地點(diǎn) (3).Controls(5).DataField = 出差天數(shù) (3).Controls(6).DataField = 登記時間 (3).Controls(7).DataField = 銷差時間 (3).Controls(8).DataField = 出差備注 End Sub Private Sub cmdQuery_Click() strSql = select as 部門名稱 , as 員工名稱 , as 出差時間 , as 出差地點(diǎn) , as 出差天數(shù) , as 登記時間 , as 銷差時間 , as 出差備注 from TDepartment a, TWorker b,TChuChai c where = amp。 () amp。 and = amp。 () amp。 and = and = and = and between amp。 dtpStartDate amp。 and amp。 dtpEndDate amp。 . . ConnectToDB RefushDataGrid adodcChuChai, dgChuChai, strSql DisConnect End Sub Private Sub Form_Load() strSql = Select * from TDepartment order by departmentId Set rs = TransactSQL(strSql) Do While Not ((1).Value) () = (0).Value Loop = 0 End Sub 添加部門 Dim departId As Integer Dim departName As String If = Then MsgBox 部門名稱不能有空值 Exit Sub Else departId = Trim() departName = Trim() strSql = insert into TDepartment (departmentId,departmentName) values( _ amp。 departId amp。 ,39。 amp。 departName amp。 39。) TransactSQL (strSql) MsgBox 添加成功 End If End Sub Public Sub init() = num = 0 strSql = select * from TDepartment order by departmentId Set rs = TransactSQL(strSql) If Not And Not Then num = rs(0) num = num + 1 = CStr(num) Else . . = 1 End If End Sub Private Sub cmdreadd_Click() Call init End Sub Private Sub Form_Load() num = 0 strSql = select * from TDepartment order by departmentId Set rs = TransactSQL(strSql) If Not And Not Then num = rs(0) num = num + 1 = CStr(num) Else = 1 End If End Sub 部門管理 Dim strSql As String Dim RowNumber As Integer Private Sub cmdadd_Click() vbModal End Sub Private Sub cmddel_Click() If ConnectToDB() = False Then MsgBox 數(shù)據(jù)庫連接失敗 ! Exit Sub End If If MsgBox(你真的要刪除嗎 , vbInformation + vbYesNo, ) = vbYes Then strSql = delete from TDepartment where departmentId = amp。 RowNumber TransactSQL (strSql) DisConnect MsgBox 刪除成功 , vbInformation, strSql = select departmentId as 部門編號 , departmentName as 部門名稱 from TDepartment RefreshData adodcDepManage, dgDepManage, strSql Exit Sub End If End Sub . . Private Sub cmdUpdate_Click() If RowNumber = 1 Then MsgBox 請先選擇要修改的數(shù)據(jù) ! Exit Sub End If vbModal End Sub Private Sub Comselect_Click() Dim m_txtdepartID As String Dim m_txtdepartName As String m_txtdepartID = Trim() m_txtdepartName = Trim() If (m_txtdepartID = And m_txtdepartName = ) Then strSql = select departmentId as 部門編號 , departmentName as 部門名稱 from TDepartment ElseIf (m_txtdepartID And m_txtdepartName ) Then strSql = select departmentId as 部門編號 , departmentName as 部門名稱 _ amp。 from TDepartment where departmentId = amp。 m_txtdepartID amp。 and departmentName like 39。% amp。 m_txtdepartName amp。 %39。 ElseIf (m_txtdepartID ) Then strSql = select departmentId as 部門編號 , departmentName as 部門名稱 from TDepartment where departmentId = amp。 m_txtdepartID ElseIf m_txtdepartName Then strSql = select departmentId as 部門編號 , departmentName as 部門名稱 _ amp。 from TDepartment where departmentName like 39。% amp。 m_txtdepartName amp。 %39。 End If RefreshData adodcDepManage, dgDepManage, strSql End Sub Private Sub dgDepManage_Click() On Error GoTo ShowErr: If IsNull() Then RowNumber = 1 Exit Sub Else RowNumber = (0).CellValue() End If RowNumber ShowErr: Exit Sub End Sub . . Private Sub dgDepManage_DblClick() On Error GoTo ShowErr: If IsNull() Then RowNumber = 1 Exit Sub Else RowNumber = (0).CellValue() End If RowNumber vbModal ShowErr: Exit Sub End Sub Private Sub Form_Load() RowNumber = 1 End Sub 更新部門 Option Explicit Dim strSql As String Dim rsDep As New Dim m_irownumber As Integer Dim m_iDepartId As Integer Dim m_strDepartName As String Private Sub cmdOk_Click() If = Then MsgBox 登記項(xiàng)目不能有空值 Exit Sub Else m_iDepartId = CInt() m_strDepartName = Trim() strSql = update TDepartment set departmentName=39。 amp。 m_strDepartName amp。 39。 where departmentId= amp。 m_iDepartId If ConnectToDB() = False Then MsgBox 數(shù)據(jù)庫連接失敗 !