【導讀】變得越來越頻繁。而且隨著教師數量的增加，使用信息系統(tǒng)進行教師信息管理成。為一種迫切的需要。情況以及獎懲情況。本系統(tǒng)在功能上不僅實現(xiàn)了數據的添加、修改和打印功能，在數據庫設計上，滿足了關系數據庫的完整性要求；在使用上，操作簡便、具有良好的人機交互界面。第一章系統(tǒng)概述----------------------------------------------------------------5. 第一節(jié)基本開發(fā)工具-------------------------------------------------------5. 第二章數據庫概念結構-------------------------------------------------------8. 第三章系統(tǒng)設計---------------------------------------------------------------13. 六、報表輸出模塊設計------------------------------------------------26

　　

【正文】 If chkitem(0).Value = vbChecked Then sQSql = xingming = 39。 amp。 Trim(cboxingming amp。 ) amp。 39。 bttemp = 姓名為 amp。 Else bttemp = End If If chkitem(1).Value = vbChecked Then If Trim(sQSql amp。 ) Then sQSql = sQSql amp。 and xingbie = 39。 amp。 Trim(Combo1 amp。 ) amp。 39。 Else sQSql = sQSql amp。 xingbie = 39。 amp。 Trim(Combo1 amp。 ) amp。 39。 End If bttemp = bttemp amp。 性別為 amp。 Else bttemp = bttemp amp。 End If If chkitem(2).Value = vbChecked Then If Trim(sQSql amp。 ) Then sQSql = sQSql amp。 and zhicheng = 39。 amp。 Trim(txtzhicheng amp。 ) amp。 39。 Else sQSql = sQSql amp。 zhicheng = 39。 amp。 Trim(txtzhicheng amp。 ) amp。 39。 End If bttemp = bttemp amp。 職稱為 amp。 Else bttemp = bttemp amp。 End If If chkitem(3).Value = vbChecked Then dBeginDate = Format(CDate(cboyear(0) amp。 amp。 cbomonth(0) amp。 1), yyyymmdd) dEndDateTemp = DateAdd(d, 1, DateAdd(m, 1, DateSerial(CInt(cboyear(1)), _CInt(cbomonth(1)), 1))) 畢 業(yè) 論 文 第 – 37 –頁 dEndDate = Format(dEndDateTemp, yyyymmdd) If Trim(sQSql amp。 ) = Then sQSql = and (rjsj=39。 amp。 dBeginDate amp。 39。 and rjsj=39。 amp。 dEndDate amp。 39。) Else sQSql = sQSql amp。 and (rjsj=39。 amp。 dBeginDate amp。 39。 and rjsj=39。 amp。 dEndDate amp。 39。) End If bttemp = bttemp amp。 任教時間從 amp。 cboyear(0).Text amp。 年 amp。 cbomonth(0).Text amp。 月到 amp。 _cboyear(1).Text amp。 年 amp。 cbomonth(1).Text amp。 月 Else bttemp = bttemp amp。 End If biaoti = bttemp If biaoti Then = biaoti amp。 的基本信息表 Else = 全體教師的基本信息表 End If If Trim(sQSql) = Then txtSQL = select * from tabjbxx Else txtSQL = select * from tabjbxx where amp。 sQSql End If Set mrc = ExecuteSQL(txtSQL, MsgText) With msglist .Rows = 1 If = False Then Do While Not .Rows = .Rows + 1 For i = 0 To 15 .CellAlignment = 4 .TextMatrix(.Rows 1, i) = (i) Next i Loop End If End With MsgBox MsgText, vbOKOnly + vbExclamation, 提示 End Sub （ ）教師基本信息 基本信息修改代碼 Private Sub Command2_Click() Dim dBeginDate As String Dim dEndDateTemp As Date Dim dEndDate As String 畢 業(yè) 論 文 第 – 38 –頁 Dim mrc As Dim txtSQL As String Dim MsgText As String Dim sMeg As String Dim i As Integer Dim j As Integer txtSQL = select * from tabjbxx where bh=39。 amp。 Trim((, _0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Trim(Text1(0).Text) (2) = Trim() For i = 1 To 13 (i + 2) = Trim(Text1(i)) Next i MsgBox 修改記錄成功！ , vbOKOnly + vbExclamation, 修改記錄 Unload Me End Sub 基本信息添加代碼 Private Sub Command1_Click() Dim mrc As Dim txtSQL As String Dim MsgText As String Dim sMeg As String Dim i As Integer Dim temp As Integer txtSQL = select * from tabjbxx order by bh Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then (0) = 1 Else temp = (0) (0) = temp + 1 End If (1) = Trim(Text1(0).Text) (2) = Trim() For i = 1 To 13 (i + 2) = Trim(Text1(i)) Next i 畢 業(yè) 論 文 第 – 39 –頁 MsgBox 添加記錄成功！ , vbOKOnly + vbExclamation, 添加記錄 Unload Me End Sub （ ）基本信息的一些操作 (menuxxxg)基本信息修改代碼 Private Sub menuxxxg_Click() Dim txtSQL As String Dim MsgText As String Dim intCount As Integer Dim mrc As txtSQL = select * from tabjbxx where bh=39。 amp。 _Trim((, 0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then If 1 Then If MsgBox(真的要修改這條文件記錄么？ , vbOKCancel + vbExclamation, 警告 ) = _vbOK Then intCount = txtSQL = select * from tabjbxx where bh=39。 amp。 _Trim((, 0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) = amp。 修改 = False = True If Not Then (0).Text = (1) For i = 1 To 13 (i).Text = (i + 2) Next i Else MsgBox 請選擇要修改的記錄 !, vbOKOnly + vbExclamation, 警告 End If End If Else MsgBox 請選擇要修改的記錄 !, vbOKOnly + vbExclamation, 警告 End If Else MsgBox 請選擇 要修改的記錄 !, vbOKOnly + vbExclamation, 警告 End If End Sub (menuxxsc)基本信息刪除代碼 Private Sub menuxxsc_Click() 畢 業(yè) 論 文 第 – 40 –頁 Dim txtSQL As String Dim MsgText As String Dim intCount As Integer Dim mrc As txtSQL = select * from tabjbxx where bh=39。 amp。 _Trim((, 0)) amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then If 1 Then If MsgBox(真的要刪除這條文件記錄么？ , vbOKCancel + vbExclamation, 警告 ) = vbOK _Then txtSQL = select * from tabjbxx where bh=39。 amp。 _Trim((,