【正文】 課程設(shè)計(jì)報(bào)告 第 ２７ 頁(yè) 共 27頁(yè) SQL, , 1, 1 = rs!czy For i = 0 To 5 (i).Value = Mid(rs!czyqx, i + 1, 1) Next Call CloseConn = False = 保存 = True End Sub 指導(dǎo)教師評(píng)語(yǔ)及成績(jī) 指 導(dǎo) 教 師 評(píng) 語(yǔ) 成績(jī) 簽字： 年 月 日 。 amp。檢測(cè) Call OpenConn SQL = select * from 系統(tǒng)用戶(hù)表 where czy=39。XP 效果 End Sub Private Sub Form_Load() = = LoadPicture( amp。) Call CloseConn Call addLIST 39。 amp。清空變量 MsgBox 保存成功！ , 64, 提示 = 新增 = True = False End If Call addLIST = For i = 0 To 5 (i).Value = 0 Next End Sub Private Sub cmdSC_Click() If = Then MsgBox 請(qǐng)選擇要?jiǎng)h除的操作員！ , 48, 提示 Exit Sub End If If = 1 Then MsgBox 只有一個(gè)操作員了，不能再刪除！ , 48, 提 示 Exit Sub End If Call OpenConn 課程設(shè)計(jì)報(bào)告 第 ２６ 頁(yè) 共 27頁(yè) (delete * from 系統(tǒng)用戶(hù)表 where czy=39。 SQL, , 3, 3 For i = 0 To 5 qx = qx amp。 amp。 (i).Value Next rs!czyqx = qx 課程設(shè)計(jì)報(bào)告 第 ２５ 頁(yè) 共 27頁(yè) Call CloseConn qx = MsgBox 操作員添加成功，初始密碼為 123456，請(qǐng)注意修改！ , 64, 提示 = True = False Else Call OpenConn SQL = select * from 系統(tǒng)用戶(hù)表 where czy=39。權(quán)限 Private Sub Check1_Click(Index As Integer) End Sub Private Sub cmdBC_Click() 39。 Dim Ret As Long Ret = GetWindowLong(, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong , GWL_EXSTYLE, Ret = 20 39。XP 效果 End Sub Private Sub Form_Load() = 39。 39。 amp。H1 Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Dim Alpha As Integer 39。H80000 Private Const GWL_EXSTYLE = (20) Private Const LWA_ALPHA = amp。 Dim Ret As Long Ret = GetWindowLong(, GWL_EXSTYLE) Ret = Ret Or WS_EX_LAYERED SetWindowLong , GWL_EXSTYLE, Ret = 20 39。XP 效果 End Sub Private Sub Form_Load() = 39。 39。 amp。H1 Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Dim Alpha As Integer 39。H80000 Private Const GWL_EXSTYLE = (20) Private Const LWA_ALPHA = amp?？傊摮绦蚩梢詽M(mǎn)足目前的人事管理的需求，隨著人事管理工作規(guī)范化、信息化、網(wǎng)絡(luò)化的發(fā)展趨勢(shì)，其應(yīng)用將會(huì)越來(lái)越 廣泛。本統(tǒng)在實(shí)際的使用過(guò)程中還有很多可以完善的地方，譬如各種人事檔案數(shù)據(jù)的匯總、統(tǒng)計(jì)能和數(shù)據(jù)報(bào)表的制作等。 軟件配置為： windows 2021 以上， Access 2021,Visual Basic 中文版 另外，其他系統(tǒng)配置根據(jù)自身公司的需要進(jìn)行選擇。 音頻輸出能力。 40 GB 硬盤(pán)容量， 15 GB 可用空間。 DirectX 9 圖形支持， WDDM 驅(qū)動(dòng)程序，至少 128 MB 圖形內(nèi)存 178。）。 系統(tǒng)配置設(shè)計(jì) 多種多樣的的計(jì)算機(jī)技術(shù)產(chǎn)品為信息系統(tǒng)的建設(shè)提供了極大的靈活性，使我們可以 課程設(shè)計(jì)報(bào)告 第 １８ 頁(yè) 共 27頁(yè) 根據(jù)應(yīng)用的需要選用不同生產(chǎn)商的性能各異的軟硬 件產(chǎn)品，但同時(shí)員工系統(tǒng)設(shè)計(jì)工作帶來(lái)了新的困難，那就是面對(duì)眾多廠家生產(chǎn)的產(chǎn)品如何做出最明智的選擇。 ⑤ 字符檢驗(yàn)：檢查全部由字母組成的數(shù)據(jù) (如姓名 )中是否出現(xiàn)非字母字符，或檢查該數(shù)據(jù)長(zhǎng)度和格式是否符合規(guī)定。 ④ 格式檢驗(yàn)：檢查數(shù)據(jù)記錄中各數(shù)據(jù)項(xiàng)的位數(shù)和位置是否符合預(yù)先規(guī)定的格式。 ② 界限檢驗(yàn)：檢查數(shù)據(jù)項(xiàng)目是否超過(guò)規(guī)定的數(shù)據(jù)范圍，如數(shù)據(jù)位數(shù)、數(shù)值范圍等。 (3)人工靜態(tài)檢驗(yàn)，在輸入的同時(shí)，由、計(jì)算機(jī)顯示輸入的數(shù)據(jù)，然后與原始單據(jù)進(jìn)行對(duì)比，查找錯(cuò)誤。 在本系統(tǒng)中，進(jìn)行輸入數(shù)據(jù)檢驗(yàn)的具體做法要求如下： (1)嚴(yán)格復(fù)核制度，未經(jīng)復(fù)核的憑證、單據(jù)不得上機(jī)錄入。通過(guò)多種措施，對(duì)全部輸人數(shù)據(jù)設(shè)想其可能出現(xiàn)的差錯(cuò)，對(duì)之進(jìn)行校驗(yàn)，對(duì)校驗(yàn)中查到的有錯(cuò)數(shù)據(jù)，考慮修改及補(bǔ)救辦法。 數(shù)據(jù)輸入完成后，并不能馬上就進(jìn)入系統(tǒng)，還應(yīng)對(duì)其進(jìn)行檢驗(yàn)，稱(chēng)為輸人數(shù)據(jù)檢驗(yàn)。 ④ 簡(jiǎn)化和減輕輸入負(fù)擔(dān)。 課程設(shè)計(jì)報(bào)告