招聘應聘管理信息系統(tǒng)

學學號3武漢外語外事職業(yè)學院課程設計報告課程名稱數據庫應用課程設計題目招聘應聘管理信息系統(tǒng)院系外院信息工程學部專業(yè)電子商務班級1班姓名晶指導教師芳2011年1月7日課程設計評分表評分標準：評分標準：1.學生是否嚴格遵守課程設計紀律，按照規(guī)定時間完成設計任務(占30%)2.程序設計的質量與規(guī)：(占40%)(1)是否采用了良好的設計方法，獨立完成程序設計(2)程序界面設計是否合理、美觀(3)數據庫設計是否合理，具有良好的擴展性(4)程序是否運行正常，未見運行錯誤3.課程設計報告書的質量與規(guī)(占30%)教師評分：1.學生出勤得分：(A)(B)(C)(D)2.程序設計得分：(A)(B)(C)(D)3.設計報告得分：(A)(B)(C)(D)總分：_________教師評語：根據該生在課程設計期間，是否嚴格遵守課程設計紀律，按照規(guī)定時間完成設計任務，完成的程序設計的質量與規(guī)，提交的課程設計報告書的質量與規(guī)等多方面的評分，該生本次課程設計的評分為：________教師簽名：日期：年月日設計題目:招聘應聘管理信息系統(tǒng)設計設計主要容:一、開發(fā)平臺：VB+SQLSERVER2000二、功能要求：設計容設計一個招聘應聘管理信息系統(tǒng)，該系統(tǒng)的用戶由一般用戶和管理員組成，不同的用戶擁有不同的權限，各自完成各自的管理功能。首先是歡迎界面，然后選擇登錄，登錄的時候首先要判斷用戶的身份，合法的用戶然后進入到系統(tǒng)主界面中，不同的用戶看到不同的系統(tǒng)功能。用sqlserver2000創(chuàng)建后臺數據庫，然后利用程序設計語言（VB）編寫程序實現對數據庫的操作，按照要求完成所有的功能和模塊。招聘應聘管理信息系統(tǒng)主要功能登錄界面、用戶注冊界面、用戶管理：全職應聘信息界面（查）、兼職應聘信息界面（查）、應聘者信息界面（查）、本用戶密碼的修改。管理員管理：全職招聘管理信息界面（增、刪、查）、兼職招聘信息界面（增、刪、查）、全職應聘信息界面（增、刪、查）兼職應聘信息界面（增、刪、查）應聘者管理信息界面（增、刪、查）。信息系統(tǒng)管理（增加、刪除用戶信息）。招聘應聘管理信息系統(tǒng)數據庫表單（表單和字段可以按照需求增、刪、改）用戶信息表單，用戶類型、用戶、用戶密碼（管理員和普通用戶）全職招聘信息表單：公司編號、公司名字、職位、工資、學歷。兼職招聘信息表單：公司編號、公司名字、職位、工資、學歷、工作時間段。全職應聘信息表單：公司編號、應聘者。應聘地點、應聘時間。兼職應聘信息表單：公司編號、應聘者、應聘地點、應聘時間、應聘者信息表單：、年齡、性別、學歷、婚姻狀況。三、課程設計報告主要容：招聘應聘管理信息系統(tǒng)需求分析（給出系統(tǒng)的功能模塊圖，對各個功能作出詳細介紹）招聘應聘管理信息系統(tǒng)界面設計（給出界面截圖及其主要控件的屬性設置表格）招聘應聘管理信息系統(tǒng)數據庫設計（給出數據庫各個表單中數據的字段名，數據類型及其相應的說明）招聘應聘管理信息系統(tǒng)程序設計（按照功能模塊給出詳細的程序代碼，并給出重點語句的注釋）1.招聘應聘管理信息系統(tǒng)需求分析招聘應聘管理信息系統(tǒng)招聘應聘管理信息系統(tǒng)登陸用戶登陸管理員登陸用戶服務新用戶注冊管理員服務全職應聘信息查詢兼職應聘信息查詢本用戶密碼的修改全職招聘信息管理應聘者信息管理系統(tǒng)信息管理更新添加刪除應聘者信息查詢兼職招聘信息管理兼職應聘信息管理全職應聘信息管理兼職招聘信息查詢全職招聘信息查詢圖1.1招聘應聘管理信息系統(tǒng)1.2管理員界面可以進行全職招聘信息管理，兼職招聘信息管理，全職應聘信息管理，兼職應聘信息管理，應聘者信息管理，系統(tǒng)信息管理。1.2.1全職招聘信息管理利用VB界面，管理員可以查詢全職招應聘信息，添加信息，更新信息，刪除，修改，從而改變了數據庫中的信息。1.2.2兼職招聘信息管理管理員可以查詢，修改，刪除，添加更新兼職招聘信息，在VB界面中修改了數據庫中的信息。1.2.3全職應聘信息管理管理員可以根據需要對全職應聘的情況進行查詢，添加，刪除和更新，還有修改，從而改變數據庫中的信息。1.2.4兼職應聘信息管理管理員可以根據需要對兼職應聘的情況進行查詢，添加，刪除和更新，還有修改，從而改變數據庫中的信息。1.2.5應聘者信息管理管理員可以根據需要對應聘者的情況進行添加和刪除，從而改變數據庫中的信息。1.2.6系統(tǒng)信息管理管理員可以根據需要對用戶信息的情況進行刪除和更新，從而改變數據庫中的信息。1.3用戶界面用戶可以查看全職招聘信息、兼職招聘信息、全職應聘信息、兼職應聘信息、應聘者信息管理、系統(tǒng)管理信息界面，進行本用戶的密碼修改。1.3.1全職招聘信息查詢用戶進入界面后可看到所有全職招聘的信息。1.3.2兼職招聘信息查詢用戶進入界面后可看到所有兼職招聘的信息。1.3.3全職應聘信息查詢進入界面后用戶可看到所有全職應聘的情況。1.3.4兼職應聘信息查詢用戶進入界面后可看到所有兼職應聘的信息。1.3.5本用戶密碼修改用戶通過輸入和確認新密碼來更改自己的密碼。2．招聘應聘信息管理系統(tǒng)界面設計圖2.1歡迎登陸界面圖2.2用戶登錄圖2.3管理員登陸圖2.4新型用戶注冊圖2.6用戶主界面圖2.7用戶密碼修改界面表2.1用戶密碼修改界面屬性表對象對象屬性設置值Label1caption歡迎進入用戶密碼修改界面Label2caption舊密碼Label3caption新密碼Label4caption新密碼確認圖2.8全職招聘信息查詢界面表2.2全職招聘界面屬性表對象對象屬性設置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceRecruitment1visibletrueCaptionAdodc1Option1Caption公司編號Option2caption職位圖2.9兼職應聘信息查詢界面對象對象屬性設置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceApplication2visibletrueCaptionAdodc1Option1Caption公司編號Option2caption應聘者圖2.10應聘者信息查詢界面表2.4應聘者信息屬性表對象對象屬性設置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceEmployeevisibletrueCaptionAdodc1Option1Caption應聘者信息Option2caption學歷圖2.11兼職招聘管理界面表2.5兼職招聘管理界面屬性表對象對象屬性設置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceRecruitment2visibletrueOption1Caption公司編號Option2Caption工資對象對象屬性設置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceRecruitment1visibletrueOption1Caption公司編號Option2Caption應聘者圖2.13系統(tǒng)信息管理界面表2.7用戶管理界面屬性表對象對象屬性設置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceUsersvisiblefalse3．招聘應聘管理信息系統(tǒng)數據庫設計招聘應聘信息管理系統(tǒng)總共涉及6表，我的6表分別是用戶表、全職招聘信息表、兼職招聘信息表、應聘人表、全職應聘信息表、兼職應聘信息表。表3.1User表結構列名列名數據類型約束類型可變字符串，長度4非空用戶名可變字符串，長度10非空密碼可變字符串，長度4非空表3.2Recruitment1表結構列名列名說明數據類型約束R1no公司編號可變字符串，長度4主碼R1name公司名字可變字符串長度30非空R1position職位可變字符串長度15非空R1wage工資可變貨幣型長度8>1000R1education學歷可變字符串長度8表3.3Recruitment2表結構列名列名說明數據類型約束R2no公司編號字符串，長度4主碼R2name公司名字字符串長度30非空R2position職位字符串長度15非空R2wage工資貨幣型長度8>30R2education學歷字符串長度8非空R2time工作時間段日期型長度4非空表3.4Employee表結構列名列名說明數據類型約束Ename字符串，長度10主碼Esage年齡整型非空Esex性別字符串，長度2非空Eeducation學歷字符串長度4非空Emarrided婚姻狀況字符串，長度4非空表3.4Application1表結構列名列名說明數據類型約束R1no公司編號字符串，長度4非空Ename應聘者名字符串，長度10非空Aaddress應聘地點字符串非空Atime應聘時間日期型非空表3.5Application2表結構列名列名說明數據類型約束R2no公司編號字符串，長度4非空Ename應聘者號字符串，長度10非空Aaddress應聘地點字符串長度10非空Atime應聘時間日期型非空4．招聘應聘管理信息系統(tǒng)程序設計（部分代碼）4.1歡迎界面歡迎界面是整個系統(tǒng)的首頁，用戶可通過它進入到登陸系統(tǒng)。4.2登陸界面進入此界面后，使用者可根據自己的身份選擇登陸方式。普通用戶選擇用戶登陸，管理員選擇管理員登陸。4.3用戶登陸和新用戶注冊界面程序設計普通用戶在此界面輸入自己的和密碼通過驗證后方可進入下一個界面。部分重要代碼如下PrivateSubCommand1_Click()DimstrselectnameAsStringDimstrAsStringDimstrselectpasswordAsStringstr=Trim(Text1.Text)strselectname="select用戶名fromuserswhere用戶名="&"'"&str&"'"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectname'從用戶信息表中查詢所有的用戶Adodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenret=MsgBox("錯誤！",48,"warming!")'如果用戶輸入的與用戶信息表中不一致，就會出現該對話框提醒用戶重新輸入Text1.Text=""Text2.Text=""ExitSubEndIfstrselectpassword="select用戶密碼fromuserswhere用戶名="&"'"&Trim(Text1.Text)&"'"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTextAdodc1.RecordSource=strselectpasswordAdodc1.RefreshIfTrim(Adodc1.Recordset.Fields("用戶密碼").Value)<>Trim(Text2.Text)Thenret=MsgBox("密碼錯誤！",48,"warming!")'如果用戶輸入的密碼與用戶信息表中的密碼不一致就會出現該對話框Text2.Text=""Text2.SetFocusExitSubElse'Text1.Text=""'Text2.Text=""Form2.HideForm5.ShowEndIfEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Form2.HideForm1.ShowEndSub新用戶還可以通過此界面進行注冊，新用戶只要輸入自己的，注冊密碼并確認注冊便可以成功注冊，同時該用戶的信息也被寫入到了用戶信息表中（部分代碼如下）PrivateSubCommand1_Click()Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select用戶名fromuserswhere用戶名='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"用戶名已經存在！請重新輸入",0,"提示"Text1.Text=""Text1.SetFocusExitSubEndIfIfText1.Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox"請輸入用戶名或密碼",0,"提示"ElseIfText2.Text<>Text3.TextThenMsgBox"確認密碼錯誤，請重新輸入",0,"提示"Text1.Text=""Text2.Text=""Text3.Text=""ElseMsgBox"恭喜你注冊成功"Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTableAdodc1.RecordSource="users"Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("用戶名").Value=Trim(Text1.Text)Adodc1.Recordset.Fields("用戶密碼").Value=Trim(Text2.Text)Adodc1.Recordset.Fields("用戶類型").Value="用戶"Adodc1.Recordset.UpdateText1.Text=""Text2.Text=""Text3.Text=""EndIfExitSubEndSubPrivateSubCommand2_Click()Form4.HideForm1.ShowEndSub4.4管理員登陸界面管理員需要輸入自己的和密碼，經過系統(tǒng)驗證無誤后就可以進入下一個界面了。它的代碼與管理員登陸代碼類似，輸入的和密碼必須是管理員表中相應的信息，否則就無法成功登陸。4.5用戶服務表界面用戶登陸進去后，可以到用戶服務界面選擇自己所需的服務，該界面為用戶提供了5種服務，分別是“全職招聘信息查詢”，“兼職招聘信息查詢”，“全職應聘信息查詢”，“兼職應聘信息查詢”“應聘者信息查詢”和“本用戶的密碼修改”，。4.6用戶密碼修改界面程序設計用戶如需修改自己的密碼可在此界面進行，用戶通過登陸界面登陸到此，然后在此界面中輸入原始密碼和新密碼并驗證新密碼，確認后如果無誤就會提示用戶修改成功，并且其密碼在用戶信息表中也會有相應的修改。（代碼如下）PrivateSubCommand1_Click()IfTrim(Text1.Text="")ThenMsgBox"請輸入密碼！",0,"提示"Text1.SetFocusExitSubEndIfAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="select*fromuserswhere用戶密碼='"&Trim(Text1.Text)&"'and用戶名='"&Trim(Form2.Text1.Text)&"'"Adodc1.Refresh'IfAdodc1.Recordset.EOF=TrueThen'MsgBox"舊密碼不正確，請重新輸入！",0,"提示"'Text2.Text=""'Text3.Text=""'Text2.SetFocus'ExitSub'EndIfIfText1.Text<>Form2.Text2.TextThenMsgBox"密碼不正確，請重新輸入！",0,"提示"Text1.Text=""Text2.Text=""Text3.Text=""Text2.SetFocusExitSubEndIfIfTrim(Text2.Text)=""ThenMsgBox"請輸入新密碼",0,"提示"Text2.SetFocusExitSubEndIfIfTrim(Text3.Text)=""ThenMsgBox"請輸入驗證密碼！",0,"提示"Text2.Text=""Text3.Text=""Text2.SetFocusExitSubEndIfIfTrim(Text2.Text)<>Trim(Text3.Text)ThenMsgBox"請驗證新密碼！",0,"提示"Text2.Text=""Text3.Text=""Text2.SetFocusExitSubEndIfAdodc1.Recordset.Fields("用戶密碼").Value=Trim(Text3.Text)Adodc1.Recordset.UpdateAdodc1.RefreshMsgBox"修改密碼成功！",0,"提示"EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text3.Text=""Form12.HideForm5.ShowEndSub4.7全職招聘信息的查詢界面 用戶可通過此界面所提供的容查詢所有的全職招聘信息。所有的信息通過控件DataGrid與Adodc控件和相應的數據庫連接起來，設置相應的屬性后所有信息便可顯示在DataGrid上供用戶查看。圖4.1全職招聘信息的查詢界面4.8兼職應聘信息的查詢界面該界面所用的控件與全職招聘信息查詢所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。圖4.2兼職應聘信息查詢界面4.9全職應聘信息查詢界面該界面所用的控件與全職招聘信息查詢所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。4.9兼職招聘信息查詢界面該界面所用的控件與全職招聘信息查詢所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。4.9兼職招聘信息查詢界面該界面所用的控件與全職招聘信息查詢所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。4.9管理員服務界面此界面為管理員提供了“全職招聘管理”，“兼職招聘管理”，“全職應聘管理”，“兼職應聘管理”、“應聘者信息管理”和“系統(tǒng)信息管理”4.10全職招聘界面程序設計管理員在此界面可查看所有全職招聘的信息并可以根據實際情況對信息進行添加，刪除和更新。（部分重要代碼如下）PrivateSubCommand1_Click()IfOption1=TrueThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*fromRecruitment1whereR1no='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"您查詢的R1no不存在!"EndIfExitSubEndIfIfOption2=TrueThenAdodc1.CommandType=adCmdTextAdodc1.RecordSource="select*fromRecruitment1whereR1wage='"&Trim(Text2.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=TrueThenMsgBox"您查詢的R1wage不存在!"EndIfExitSubEndIfIfOption1=FalseAndOption2=FalseThenMsgBox"請選擇查詢方式"EndIfEndSubPrivateSubCommand2_Click()Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="selectR1nofromRecruitment1whereR1no='"&Trim(Text3.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"R1no已經存在！請重新輸入",0,"提示"Text3.Text=""Text1.SetFocusExitSubEndIfIfText3.Text<>""AndText4.Text<>""AndText5.Text<>""AndText6.Text<>""AndText7.Text<>""ThenAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTableAdodc1.RecordSource="Recruitment1"Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("R1no")=Trim(Text3.Text)Adodc1.Recordset.Fields("R1name")=Trim(Text4.Text)Adodc1.Recordset("R1position")=Trim(Text5.Text)Adodc1.Recordset("R1wage")=Trim(Text7.Text)Adodc1.Recordset("R1education")=Trim(Text6.Text)Adodc1.Recordset.UpdateMsgBox"恭喜你添加成功"Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""ElseMsgBox("新添加的記錄不能為空！")EndIfEndSubPrivateSubCommand4_Click()UnloadMeForm15.ShowEndSubPrivateSubCommand6_Click()Text1.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""EndSubPrivateSubCommand3_Click()IfText3.Text=""ThenMsgBox("請輸入要修改的用戶記錄")ElseAdodc1.ConnectionString="SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTableAdodc1.RecordSource="select*fromRecruitment1whereR1no='"&Trim(Text3.Text)&"'"Adodc1.Recordset.Fields("R1no")=Val(Text3.Text)Adodc1.Recordset.Fields("R1name")=Trim(Text4.Text)Adodc1.Recordset("R1wage")=Val(Text7.Text)Adodc1.Recordset("R1education")=Trim(Text6.Text)Adodc1.Recordset("R1position")=Trim(Text5.Text)Adodc1.Recordset.UpdateText3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Command4.Enabled=TrueMsgBox"修改成功"Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""EndIfEndSubPrivateSubCommand5_Click()IfMsgBox("你確定要刪除該信息嗎？",vbOKCancel+vbDefaultButton2)=vbOKThenAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTableAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand7_Click()Form15.HideForm6.ShowEndSub4.11兼職招聘界面程序設計管理員在此界面可查看兼職招聘的情況，而且能根據需要進行添加，刪除和更新。（代碼與全職應聘界面的代碼大致相同）4.12全職應聘管理界面程序設計管理員在此界面可查看全職應聘的情況，而且能根據需要進行添加，刪除和更新。（代碼與全職應聘界面的代碼大致相同）4.12兼職應聘管理界面程序設計管理員在此界面可查看兼職應聘的情況，而且能根據需要進行刪除和更新。（代碼與全職應聘界面的代碼大致相同）4.12應聘者信息管理界面程序設計管理員在此界面可查看工作人員的情況，而且能根據需要進行刪除和更新。它由yingpinzhexinxijiemian、yingpinzhexinxixiugaijiemian（代碼如下）Yingpinzhexinxijiemian的代碼PrivateSubCommand3_Click()Adodc1.Recordset.MovePreviousIfAdodc1.Recordset.BOF=TrueThenAdodc1.Recordset.MoveFirstEndIfEndSubPrivateSubCommand4_Click()Adodc1.Recordset.MoveLastEndSubPrivateSubCommand5_Click()Form13.HideForm14.ShowEndSubPrivateSubCommand6_Click()IfMsgBox("你確定要刪除該信息嗎？",vbOKCancel+vbDefaultButton2)=vbOKThenAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTableAdodc1.Recordset.DeleteEndIfEndSubPrivateSubCommand7_Click()Form13.HideForm6.ShowEndSubjiepinzhexinxixiugaijiemian的代碼PrivateSubCommand1_Click()Adodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTextAdodc1.RecordSource="selectEnamefromEmployeewhereEname='"&Trim(Text1.Text)&"'"Adodc1.RefreshIfAdodc1.Recordset.EOF=FalseThenMsgBox"Ename已經存在！請重新輸入",0,"提示"Text1.Text=""Text1.SetFocusExitSubEndIfIfText1.Text<>""AndText3.Text<>""AndText4.Text<>""AndText5.Text<>""ThenAdodc1.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=city;DataSource=(local)"Adodc1.CommandType=adCmdTableAdodc1.RecordSource="Employee"Adodc1.RefreshAdodc1.Recordset.AddNewAdodc1.Recordset.Fields("Ename")=Trim(Text1.Text)Adodc1.Recordset.Fields("Esage")=Trim(Text2.Text)Adodc1.Recordset.Fields("Esex")=Trim(Text3.Text)Adodc1.Recordset("Eeducation")=Trim(Text4.Text)Adodc1.Recordset("Emarrided")=Trim(Text5.Text)Adodc1.Recordset.UpdateMsgBox"恭喜你添加成功"Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""ElseMsgBox("新添加的記錄不能為空！")EndIfEndSubPrivateSubCommand3_Click()Form14.HideForm13.ShowEndSub4.12系統(tǒng)管理界面程序設計管理員在此界面可查看系統(tǒng)的用戶的情況，而且能根據需要進行刪除更新。（代碼如下）PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox("請輸入要修改的用戶完整信息")ElseAdodc1.ConnectionString