【正文】 Command1_Click()If Trim() = Then MsgBox 請(qǐng)輸入完整！, vbOKOnly + vbExclamationElse If = adStateOpen Then select * from 登錄 where 用戶名=39。 amp。 amp。 39。, db, 1, 1 If Not And Not Then If rs(密碼) = Then user = password = Unload Me Else MsgBox 密碼錯(cuò)誤！, vbOKOnly + vbExclamation End If Else MsgBox 無此用戶！, vbOKOnly + vbExclamation End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Activate()End SubPrivate Sub Form_Load()39。 = 800039。 = 6000 Set db = New Connection = adUseClient PROVIDER=。Data Source=。 Set rs = New RecordsetEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set rs = NothingSet db = NothingEnd SubPrivate Sub Text1_GotFocus() = 0 = Len()End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd SubPrivate Sub Text2_GotFocus() = 0 = Len()End SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then End IfEnd Sub、檔案的主界面本系統(tǒng)采用MDI方式，這是系統(tǒng)的所有窗口的父窗口，體統(tǒng)了系統(tǒng)的所有菜單等控制功能。檔案的主界面如下：Private Sub dacz_Click()End SubPrivate Sub dalr_Click()End SubPrivate Sub datj_Click()End SubPrivate Sub guanyu_Click()End SubPrivate Sub MDIForm_Load()(1).Text = Date = 2End SubPrivate Sub ynghuxiugai_Click()End SubPrivate Sub zhuangtai_Click()If Then = False = FalseElse = True = TrueEnd IfEnd Sub、檔案的查詢、預(yù)覽、打印功能本部分能夠提供對(duì)所需文件的按不同條件的查詢、預(yù)覽、打印等功能，利用了VB訪問數(shù)據(jù)庫ADO對(duì)象的強(qiáng)大功能，能夠?qū)崿F(xiàn)對(duì)所需文件的靈活查詢，再利用VB內(nèi)置的數(shù)據(jù)報(bào)表功能，實(shí)現(xiàn)對(duì)所需文件的預(yù)覽和打印。 Dim db As Connection Dim rs As RecordsetPublic tdata As StringPrivate Sub Command1_Click()On Error GoTo erIf =adStateOpen Then 〝select * from 檔案 where〝 amp。 amp。 〝=〝 amp。 amp。 〝,db,adOpenStatic,adLockOptimisticSet =rsExit Suber:MsgBox 〝請(qǐng)?zhí)顚懞线m的查詢條件或確認(rèn)格式正確〝，vbOKOnly+vbQuestionEnd SubPrivate Sub Command2_Click()On Error GoTo erIf =adStateOpen Then 〝select * from 檔案 where 發(fā)文日期=〝 amp。 amp。 〝 and 發(fā)文日期=〝 amp。 amp。 〝〝,db,adOpenStatic,adLockOptimisticSet =rsExit Suber:MsgBox 〝請(qǐng)?zhí)顚懞线m的查詢條件或確認(rèn)格式正確〝,vbOKOnly+vbQuestionEnd SubPrivate Sub Command3_Click() On Error GoTo er=0tdatat=Exit Suber:MsgBox〝請(qǐng)選擇要預(yù)覽的內(nèi)容〝,vbOKOnly + vbQuestion‵MsgBoxEnd SubPrivate Sub Form_Load()‵=10000‵=7000 Set db=New Commection =adUseClient 〝PROWIDER=。Data Source=。 〝 Set rs =New RecordsetEnd SubPrivate Sub Form_Unload(Cancel As Integer)If =adStateOpen Then Set rs=NothingSet db =NothingEnd SubPrivate Sub Option1_Click()=False=TrueEnd SubPrivate Sub Option2_Click()=True=FalseEnd Sub____________________________________________________________________、檔案的統(tǒng)計(jì)功能本部分能夠準(zhǔn)確地統(tǒng)計(jì)出所錄入的檔案數(shù)目，以便進(jìn)行檔案統(tǒng)計(jì)。Private Sub Form_Load()Dim rs As RecordsetDim db As Connection Set db=New Connection =adUseClient 〝PROVIDER=。Data Source=。 〝Set rs=New Recordset 〝檔案〝,db,adOpenStatic,1=〝本系統(tǒng)共收集檔案: 〝amp。 amp。〝條檔案記錄〝End Sub____________________________________________________________________、檔案的報(bào)表靈活運(yùn)用了VB的數(shù)據(jù)報(bào)表功能，實(shí)現(xiàn)了文件的預(yù)覽、打印。Datareport Dim db As Connection Dim rs As RecordsetPrivate Sub DataReport_Initialize()Set db =New Connection location=adUseClient 〝PROVIDER=。Data Source=。 〝Set rs = New Recordset 〝select * from 檔案 where 編號(hào)＝〝 ＆ ,db,1,1Set =rsEnd Sub第八章 結(jié)束語經(jīng)過一個(gè)多月的設(shè)計(jì)和開發(fā)，這套檔案管理系統(tǒng)已基本結(jié)束。主要能實(shí)現(xiàn)檔案的錄入、修改、查找、刪除、統(tǒng)計(jì)、查詢、預(yù)覽、編輯、打印、打印預(yù)覽、取消、刷新等功能，此外，在程序中還設(shè)計(jì)了用戶登陸，以確保本系統(tǒng)應(yīng)用的安全性。本管理系統(tǒng)設(shè)計(jì)合理、界面美觀、操作方便、運(yùn)行穩(wěn)定、功能完備，為企業(yè)進(jìn)行現(xiàn)代化的檔案管理工作起到了重要作用。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有一些不盡人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀等問題，這些都有待進(jìn)一步改善，敬請(qǐng)各位老師指正。在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師周朋紅老師身上學(xué)到了很多東西，周老師認(rèn)真負(fù)責(zé)的工作態(tài)度、嚴(yán)謹(jǐn)治學(xué)的精神和深厚的理論水平都使我受益匪淺。無論在理論上還是在實(shí)踐中，她都給予我很大的幫助，使我的Visual Basic應(yīng)用水平得到了很大的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助。今后的工作中，我一定要充分運(yùn)用自己所學(xué)的計(jì)算機(jī)知識(shí)，并在工作中不斷學(xué)習(xí)和完善，充分發(fā)揮一名計(jì)算機(jī)專業(yè)人員的作用，為企業(yè)的騰飛和發(fā)展貢獻(xiàn)自己的力量。山東廣播電視大學(xué) 第47