【正文】 的語言學(xué)習(xí)打下良好的基礎(chǔ)。三、課程設(shè)計(jì)要求： ；，不得以任何理由在其他地點(diǎn)進(jìn)行；3．每個(gè)人需按照選題規(guī)則確定好自己的題目（注意不是多人完成一題，每人獨(dú)立完成一題），不得以任何理由選擇其他的題目，當(dāng)然在完成自己的題目之后根據(jù)個(gè)人興趣可以繼續(xù)選做其他的題目；4．課程設(shè)計(jì)完成后嚴(yán)格按照?qǐng)?bào)告格式撰寫課程設(shè)計(jì)報(bào)告，并于結(jié)束后的第三天上交到學(xué)習(xí)委員統(tǒng)一交給老師；5．課程設(shè)計(jì)的成績(jī)由兩部分組成：程序檢查成績(jī)（40％，每個(gè)功能占程序分的20%）＋報(bào)告檢查成績(jī)（40％）＋平時(shí)考核（20%）四、試驗(yàn)要求 員工基本信息的管理功能。單位員工變動(dòng)、獎(jiǎng)懲情況的管理功能。3 工資的計(jì)算、修改功能。4 查詢統(tǒng)計(jì)功能。5 報(bào)表打印功能。具有數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)功能。五、試驗(yàn)過程本系統(tǒng)的數(shù)據(jù)庫(kù)是SQL數(shù)據(jù)庫(kù)。該數(shù)據(jù)庫(kù)包括員工信息表、工資標(biāo)準(zhǔn)表、其他工資標(biāo)準(zhǔn)表、用戶表用于紀(jì)錄員工的基本信息數(shù)據(jù)庫(kù)表結(jié)構(gòu)如下所示： 字段名 類型 varchar大小 8允許空 Not null 員工編號(hào)姓名 varchar 10 Not null 性別 varchar 職務(wù) Varchar 出生年月 datetime 員工頭像 image員工信息表字段名 類型員工編號(hào) varchar月份 int 津貼 money 獎(jiǎng)金 Money 扣保險(xiǎn) Money 扣考勤 Money 扣其他 Money 其他工資標(biāo)準(zhǔn)表 Not null 8 Not null Not null大小允許空 8 NULL NULL NULL NULL NULL字段名 類型大小職務(wù) varchar基本工資 money 8工資標(biāo)準(zhǔn)表字段名 類型大小用戶名 char口令 char 10用戶表 2．主要內(nèi)容 登錄窗體登錄窗體 設(shè)計(jì)代碼：允許空Not nullNot null允許空Not nullNot nullOption ExplicitPrivate Function Selectsql(SQL As String As 39。 Dim ConnStr As StringDim Conn As Dim rs As Set rs = New Set Conn = New 39。On Error GoTo MyErr:ConnStr = “Provider=。Integrated Security=SSPI。Persist Security Info=true。Initial Catalog=工資。Data Source=(local” 39。這是連接SQL數(shù)據(jù)庫(kù)的語句 ConnStr = adUseClient Trim$(SQL, Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 39。Exit Function 39。MyErr: 39。Set rs = Nothing39。Set Conn = Nothing 39。釋放相關(guān)的系統(tǒng)資源39。MsgBox , vbInformation, “系統(tǒng)提示” 39。顯示出錯(cuò)信息 End FunctionPrivate Sub Command3_Click(Unload Me End SubPrivate Sub Form_Load(Dim SQL As String Dim rs As Dim X As LongOn Error GoTo Err_box SQL = “ select * from 用戶表” Set rs = Selectsql(SQL If 0 Then For X = 1 To (“用戶名”.Value Next X = 0 End If Exit Sub Err_box: End SubPrivate Sub Command1_Click(Dim SQL As String Dim rs As If = “ Then MsgBox ”請(qǐng)輸入口令!“, 16 Exit Sub End IfIf = ”“ Then MsgBox ”請(qǐng)選擇登錄用戶!“, 16 Exit SubEnd IfSQL = ”SELECT * FROM 用戶表 WHERE 用戶名=39?！?amp。 amp。 ”39。 AND 口令=39?！?amp。 amp。 ”39。 “ Set rs = Selectsql(SQL If 0 Then 39。想要打開的主窗體 MsgBox ”登錄成功!“, 64, ”提示“ Unload Me ElseMsgBox ”口令不對(duì),請(qǐng)重新輸入!“, 16, ”提示“ End If End Sub主控界面主控界面設(shè)計(jì)過程：所有功能都在菜單中打開來實(shí)現(xiàn)，在最下面添加了工具欄，來顯示時(shí)間，操作員，狀態(tài)等信息。設(shè)計(jì)代碼：Private Sub rechaxun_Click（ End SubPrivate Sub reluru_Click( End SubPrivate Sub cygl2_Click( End SubPrivate Sub cyxx_Click( End SubPrivate Sub Form_Load( = Time End SubPrivate Sub gzcx_Click( End SubPrivate Sub Image1_Click(End SubPrivate Sub jcqk_Click( End SubPrivate Sub rexiugai_Click( End SubPrivate Sub rescbb_Click(MsgBox ”請(qǐng)先查詢，再點(diǎn)擊生成報(bào)表按鈕“, , ”提示窗口“ End SubPrivate Sub sjbf_Click( End SubPrivate Sub sjhf_Click( End SubPrivate Sub tjcy_Click( End Sub成員管理 成員瀏覽成員瀏覽 設(shè)計(jì)過程：用控件可以實(shí)現(xiàn)檔案的瀏覽，在此窗體用戶可以瀏覽員工信息，此窗體與數(shù)據(jù)輪中的員工信息表進(jìn)行連接。設(shè)計(jì)代碼：Private Sub Command4_Click(Unload Me End Sub 成員管理成員管理設(shè)計(jì)過程：用于檔案的登記，此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進(jìn)行了連接，可以直接進(jìn)行添加，刪除，修改等。設(shè)計(jì)代碼：Private Sub Command1_Click( End Sub Private Sub Command2_Click( End Sub Private Sub Command3_Click( End SubPrivate Sub Command4_Click(Dim strb(As Byte Open For Binary As 1 f1 = LOF(1 ReDim strb(f1 Get 1, , strb (”員工頭像“.AppendChunk strb Close 1 = LoadPicture( End Sub Private Sub Form_Load(End Sub 獎(jiǎng)懲信息：?jiǎn)T工獎(jiǎng)懲情況設(shè)計(jì)過程：用戶可以查找各月份的扣除以及獎(jiǎng)勵(lì)狀況。設(shè)計(jì)代碼：Private Sub Command1_Click(Unload Me End SubPrivate Sub Command2_Click( End SubPrivate Sub Text1_Change（ = ” select * from 其他工資標(biāo)準(zhǔn) where 月份=39?！?amp。 Text1 amp。 ”39。“ End Sub工資查詢：工資查詢?cè)O(shè)計(jì)過程：通過在姓名欄和月份欄輸入信息，可以快速查找所需查詢?nèi)说墓べY情況；并將查詢結(jié)果生成execl表，方便用戶打印及攜帶。設(shè)計(jì)代碼：Private Sub Command1_Click(Dim i As Integer, r As Integer, c As Integer Dim newxls As Dim newbook As Dim newsheet As Set newxls = CreateObject(”“ 39。創(chuàng)建excel應(yīng)用程序,打開excel Set newbook = 39。創(chuàng)建工作簿 Set newsheet = (1 39。創(chuàng)建工作表 If 0 Then For i = 0 To = c (r + 1, c + 1 = (c Next c Loop Dim myval As Long Dim mystr As String myval = MsgBox(”是否保存該Excel表?“, vbYesNo, ”提示窗口“If myval = vbYes Then mystr = InputBox(”請(qǐng)輸入文件名稱“, ”輸入窗口“ If Len(mystr = 0 Then MsgBox ”系統(tǒng)不允許文件名稱為空！“, , ”提示窗口“ Exit Sub End If ”d:“ amp。 mystr amp。 ”.xls“ MsgBox ”Excel文件保存成功，位置：d:“ amp。 mystr amp。 ”.xls“, , ”提示窗口“ End If End If End Sub Private Sub Command2_Click(Unload Me End Sub Private Sub Form_Load(End Sub Private Sub Text1_Change( = ”select ,姓名,月份,基本工資,津貼+獎(jiǎng)金+扣保險(xiǎn)+扣考勤+扣其他 as 獎(jiǎng)懲總額,基本工資+津貼+獎(jiǎng)金+扣保險(xiǎn)+扣考勤+扣其他 as 實(shí)發(fā)工資 from 員工信息表 a,工資標(biāo)準(zhǔn) b,其他工資標(biāo)準(zhǔn) c where = and = and 姓名 like 39?！?amp。 Text2 amp。 ”%39。and =39?！?amp。 Text1 amp。 ”39。 “ End Sub Private Sub Text2_Change（ = ”select ,姓名,月份,基本工資,津貼+獎(jiǎng)金+扣保險(xiǎn)+扣考勤+扣其他 as 獎(jiǎng)懲總額,基本工資+津貼+獎(jiǎng)金+扣保險(xiǎn)+扣考勤+扣其他 as 實(shí)發(fā)工資 from 員工信息表 a,工資標(biāo)準(zhǔn) b,其他工資標(biāo)準(zhǔn) c where = and = and 姓名 like 39?！?amp。 Text2 amp。 ”%39。 and =39?！?amp。 Text1 amp。 ”39?！? End Sub 數(shù)據(jù)備份及恢復(fù)：數(shù)據(jù)備份及恢復(fù) 設(shè)計(jì)過程：用戶可以將數(shù)據(jù)庫(kù)進(jìn)行完全備份和差異備份，并且在操作不當(dāng)時(shí)可以進(jìn)行恢復(fù)。設(shè)計(jì)代碼：Public Cn As Private Sub Command1_Click( ”backup database 工資 to disk=39。d:39。 with name=39。工資 backup all39。,description=39。Full Backup Of pubs39?！?MsgBox ”數(shù)據(jù)完全備份已經(jīng)完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command2_Click( ”backup database 工資 to disk=39。d:39。 with differential ,noinit,name=39。工資 backup dif39。,description=39。Differential Backup Of 工資39?！癕sgBox ”數(shù)據(jù)差異備份已經(jīng)完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command3_Click( ”restore database 工資 from disk=39。d:39。 with FILE=1“ MsgBox ”數(shù)據(jù)恢復(fù)已經(jīng)完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command4_Click( ”restore database 工資 from disk=39。d:39。 with FILE=1“ MsgBox ”數(shù)據(jù)恢復(fù)已經(jīng)完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Form_Load(Set Cn = New strcon = ”Provider=。Integrated Security=SSPI。Persist Security Info=true。Initial Catalog=工資。Data Source=(local?！?+ _ ”use procedure for prepare=1。auto translate=true。“ + _ ”use encryption for data=false。tag with column collation when possible=false“ = strcon On Error Resume Next If 0 Then For i = 0 To If ( =2147467259 Then MsgBox ”網(wǎng)絡(luò)不通或服務(wù)器未開，請(qǐng)確認(rèn)后再試“, vbOKOnly + vbInformation, ”提醒 Unload MeExit Sub Exit For End If Next i End If End Sub設(shè)計(jì)體會(huì)在數(shù)據(jù)庫(kù)課程開課之前我就下決心要學(xué)好這一門課，因?yàn)檫@是我的專業(yè)課，我一開始就謹(jǐn)慎小心，爭(zhēng)取每一個(gè)細(xì)節(jié)都做得很好。現(xiàn)在終于是完成了，我的設(shè)計(jì)體會(huì)如下：小心謹(jǐn)慎是關(guān)鍵，因?yàn)樽龀绦蜿P(guān)鍵就是寫代碼，每一個(gè)字母都要很小心輸入，若是不小心錯(cuò)了一個(gè)，就會(huì)帶來龐大的“查錯(cuò)工程”，不過從我檢查錯(cuò)誤當(dāng)中也學(xué)會(huì)了一些檢查的方法，比如設(shè)置中斷點(diǎn)，可以觀查每一個(gè)變量的當(dāng)前值，很有效的。小心是一個(gè)方面，另一個(gè)是怎么樣讓程序最人性化，并且保持較簡(jiǎn)潔的程序代碼，通俗說就是事半功倍。有很多時(shí)間我是花在了調(diào)試程序方面，一部分是在找錯(cuò)誤，還有就是怎么用最簡(jiǎn)練的代碼實(shí)現(xiàn)當(dāng)前的作用。其中絕大多數(shù)都是自己寫的代碼，只有在自己不會(huì)的時(shí)候才借鑒了指導(dǎo)老師發(fā)下來的那個(gè)示例作品的代碼。我的程序大多數(shù)是我自己寫的，但是自己的知識(shí)和水平都十分有限，所以會(huì)經(jīng)常去查看書或者在網(wǎng)上尋找資料，通過看書、看資料，我改進(jìn)了自己的不足，也學(xué)會(huì)的很多新的作程序方法，都是十分有用的。在一個(gè)體