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

學(xué)學(xué)號3武漢外語外事職業(yè)學(xué)院課程設(shè)計報告課程名稱數(shù)據(jù)庫應(yīng)用課程設(shè)計題目招聘應(yīng)聘管理信息系統(tǒng)院系外院信息工程學(xué)部專業(yè)電子商務(wù)班級1班姓名晶指導(dǎo)教師芳2011年1月7日課程設(shè)計評分表評分標準：評分標準：1.學(xué)生是否嚴格遵守課程設(shè)計紀律，按照規(guī)定時間完成設(shè)計任務(wù)(占30%)2.程序設(shè)計的質(zhì)量與規(guī)：(占40%)(1)是否采用了良好的設(shè)計方法，獨立完成程序設(shè)計(2)程序界面設(shè)計是否合理、美觀(3)數(shù)據(jù)庫設(shè)計是否合理，具有良好的擴展性(4)程序是否運行正常，未見運行錯誤3.課程設(shè)計報告書的質(zhì)量與規(guī)(占30%)教師評分：1.學(xué)生出勤得分：(A)(B)(C)(D)2.程序設(shè)計得分：(A)(B)(C)(D)3.設(shè)計報告得分：(A)(B)(C)(D)總分：_________教師評語：根據(jù)該生在課程設(shè)計期間，是否嚴格遵守課程設(shè)計紀律，按照規(guī)定時間完成設(shè)計任務(wù)，完成的程序設(shè)計的質(zhì)量與規(guī)，提交的課程設(shè)計報告書的質(zhì)量與規(guī)等多方面的評分，該生本次課程設(shè)計的評分為：________教師簽名：日期：年月日設(shè)計題目:招聘應(yīng)聘管理信息系統(tǒng)設(shè)計設(shè)計主要容:一、開發(fā)平臺：VB+SQLSERVER2000二、功能要求：設(shè)計容設(shè)計一個招聘應(yīng)聘管理信息系統(tǒng)，該系統(tǒng)的用戶由一般用戶和管理員組成，不同的用戶擁有不同的權(quán)限，各自完成各自的管理功能。首先是歡迎界面，然后選擇登錄，登錄的時候首先要判斷用戶的身份，合法的用戶然后進入到系統(tǒng)主界面中，不同的用戶看到不同的系統(tǒng)功能。用sqlserver2000創(chuàng)建后臺數(shù)據(jù)庫，然后利用程序設(shè)計語言（VB）編寫程序?qū)崿F(xiàn)對數(shù)據(jù)庫的操作，按照要求完成所有的功能和模塊。招聘應(yīng)聘管理信息系統(tǒng)主要功能登錄界面、用戶注冊界面、用戶管理：全職應(yīng)聘信息界面（查）、兼職應(yīng)聘信息界面（查）、應(yīng)聘者信息界面（查）、本用戶密碼的修改。管理員管理：全職招聘管理信息界面（增、刪、查）、兼職招聘信息界面（增、刪、查）、全職應(yīng)聘信息界面（增、刪、查）兼職應(yīng)聘信息界面（增、刪、查）應(yīng)聘者管理信息界面（增、刪、查）。信息系統(tǒng)管理（增加、刪除用戶信息）。招聘應(yīng)聘管理信息系統(tǒng)數(shù)據(jù)庫表單（表單和字段可以按照需求增、刪、改）用戶信息表單，用戶類型、用戶、用戶密碼（管理員和普通用戶）全職招聘信息表單：公司編號、公司名字、職位、工資、學(xué)歷。兼職招聘信息表單：公司編號、公司名字、職位、工資、學(xué)歷、工作時間段。全職應(yīng)聘信息表單：公司編號、應(yīng)聘者。應(yīng)聘地點、應(yīng)聘時間。兼職應(yīng)聘信息表單：公司編號、應(yīng)聘者、應(yīng)聘地點、應(yīng)聘時間、應(yīng)聘者信息表單：、年齡、性別、學(xué)歷、婚姻狀況。三、課程設(shè)計報告主要容：招聘應(yīng)聘管理信息系統(tǒng)需求分析（給出系統(tǒng)的功能模塊圖，對各個功能作出詳細介紹）招聘應(yīng)聘管理信息系統(tǒng)界面設(shè)計（給出界面截圖及其主要控件的屬性設(shè)置表格）招聘應(yīng)聘管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計（給出數(shù)據(jù)庫各個表單中數(shù)據(jù)的字段名，數(shù)據(jù)類型及其相應(yīng)的說明）招聘應(yīng)聘管理信息系統(tǒng)程序設(shè)計（按照功能模塊給出詳細的程序代碼，并給出重點語句的注釋）1.招聘應(yīng)聘管理信息系統(tǒng)需求分析招聘應(yīng)聘管理信息系統(tǒng)招聘應(yīng)聘管理信息系統(tǒng)登陸用戶登陸管理員登陸用戶服務(wù)新用戶注冊管理員服務(wù)全職應(yīng)聘信息查詢兼職應(yīng)聘信息查詢本用戶密碼的修改全職招聘信息管理應(yīng)聘者信息管理系統(tǒng)信息管理更新添加刪除應(yīng)聘者信息查詢兼職招聘信息管理兼職應(yīng)聘信息管理全職應(yīng)聘信息管理兼職招聘信息查詢?nèi)氄衅感畔⒉樵儓D1.1招聘應(yīng)聘管理信息系統(tǒng)1.2管理員界面可以進行全職招聘信息管理，兼職招聘信息管理，全職應(yīng)聘信息管理，兼職應(yīng)聘信息管理，應(yīng)聘者信息管理，系統(tǒng)信息管理。1.2.1全職招聘信息管理利用VB界面，管理員可以查詢?nèi)氄袘?yīng)聘信息，添加信息，更新信息，刪除，修改，從而改變了數(shù)據(jù)庫中的信息。1.2.2兼職招聘信息管理管理員可以查詢，修改，刪除，添加更新兼職招聘信息，在VB界面中修改了數(shù)據(jù)庫中的信息。1.2.3全職應(yīng)聘信息管理管理員可以根據(jù)需要對全職應(yīng)聘的情況進行查詢，添加，刪除和更新，還有修改，從而改變數(shù)據(jù)庫中的信息。1.2.4兼職應(yīng)聘信息管理管理員可以根據(jù)需要對兼職應(yīng)聘的情況進行查詢，添加，刪除和更新，還有修改，從而改變數(shù)據(jù)庫中的信息。1.2.5應(yīng)聘者信息管理管理員可以根據(jù)需要對應(yīng)聘者的情況進行添加和刪除，從而改變數(shù)據(jù)庫中的信息。1.2.6系統(tǒng)信息管理管理員可以根據(jù)需要對用戶信息的情況進行刪除和更新，從而改變數(shù)據(jù)庫中的信息。1.3用戶界面用戶可以查看全職招聘信息、兼職招聘信息、全職應(yīng)聘信息、兼職應(yīng)聘信息、應(yīng)聘者信息管理、系統(tǒng)管理信息界面，進行本用戶的密碼修改。1.3.1全職招聘信息查詢用戶進入界面后可看到所有全職招聘的信息。1.3.2兼職招聘信息查詢用戶進入界面后可看到所有兼職招聘的信息。1.3.3全職應(yīng)聘信息查詢進入界面后用戶可看到所有全職應(yīng)聘的情況。1.3.4兼職應(yīng)聘信息查詢用戶進入界面后可看到所有兼職應(yīng)聘的信息。1.3.5本用戶密碼修改用戶通過輸入和確認新密碼來更改自己的密碼。2．招聘應(yīng)聘信息管理系統(tǒng)界面設(shè)計圖2.1歡迎登陸界面圖2.2用戶登錄圖2.3管理員登陸圖2.4新型用戶注冊圖2.6用戶主界面圖2.7用戶密碼修改界面表2.1用戶密碼修改界面屬性表對象對象屬性設(shè)置值Label1caption歡迎進入用戶密碼修改界面Label2caption舊密碼Label3caption新密碼Label4caption新密碼確認圖2.8全職招聘信息查詢界面表2.2全職招聘界面屬性表對象對象屬性設(shè)置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceRecruitment1visibletrueCaptionAdodc1Option1Caption公司編號Option2caption職位圖2.9兼職應(yīng)聘信息查詢界面對象對象屬性設(shè)置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceApplication2visibletrueCaptionAdodc1Option1Caption公司編號Option2caption應(yīng)聘者圖2.10應(yīng)聘者信息查詢界面表2.4應(yīng)聘者信息屬性表對象對象屬性設(shè)置值datagriddatasourceAdodc1Adodc1commandtype2-adcmdtablerecordsourceEmployeevisibletrueCaptionAdodc1Option1Caption應(yīng)聘者信息Option2caption學(xué)歷圖2.11兼職招聘管理界面表2.5兼職招聘管理界面屬性表對象對象屬性設(shè)置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceRecruitment2visibletrueOption1Caption公司編號Option2Caption工資對象對象屬性設(shè)置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceRecruitment1visibletrueOption1Caption公司編號Option2Caption應(yīng)聘者圖2.13系統(tǒng)信息管理界面表2.7用戶管理界面屬性表對象對象屬性設(shè)置值dadagriddatasourceAdodc1Adodc1captionAdodc1commandtype2-adcmdtablerecordsourceUsersvisiblefalse3．招聘應(yīng)聘管理信息系統(tǒng)數(shù)據(jù)庫設(shè)計招聘應(yīng)聘信息管理系統(tǒng)總共涉及6表，我的6表分別是用戶表、全職招聘信息表、兼職招聘信息表、應(yīng)聘人表、全職應(yīng)聘信息表、兼職應(yīng)聘信息表。表3.1User表結(jié)構(gòu)列名列名數(shù)據(jù)類型約束類型可變字符串，長度4非空用戶名可變字符串，長度10非空密碼可變字符串，長度4非空表3.2Recruitment1表結(jié)構(gòu)列名列名說明數(shù)據(jù)類型約束R1no公司編號可變字符串，長度4主碼R1name公司名字可變字符串長度30非空R1position職位可變字符串長度15非空R1wage工資可變貨幣型長度8>1000R1education學(xué)歷可變字符串長度8表3.3Recruitment2表結(jié)構(gòu)列名列名說明數(shù)據(jù)類型約束R2no公司編號字符串，長度4主碼R2name公司名字字符串長度30非空R2position職位字符串長度15非空R2wage工資貨幣型長度8>30R2education學(xué)歷字符串長度8非空R2time工作時間段日期型長度4非空表3.4Employee表結(jié)構(gòu)列名列名說明數(shù)據(jù)類型約束Ename字符串，長度10主碼Esage年齡整型非空Esex性別字符串，長度2非空Eeducation學(xué)歷字符串長度4非空Emarrided婚姻狀況字符串，長度4非空表3.4Application1表結(jié)構(gòu)列名列名說明數(shù)據(jù)類型約束R1no公司編號字符串，長度4非空Ename應(yīng)聘者名字符串，長度10非空Aaddress應(yīng)聘地點字符串非空Atime應(yīng)聘時間日期型非空表3.5Application2表結(jié)構(gòu)列名列名說明數(shù)據(jù)類型約束R2no公司編號字符串，長度4非空Ename應(yīng)聘者號字符串，長度10非空Aaddress應(yīng)聘地點字符串長度10非空Atime應(yīng)聘時間日期型非空4．招聘應(yīng)聘管理信息系統(tǒng)程序設(shè)計（部分代碼）4.1歡迎界面歡迎界面是整個系統(tǒng)的首頁，用戶可通過它進入到登陸系統(tǒng)。4.2登陸界面進入此界面后，使用者可根據(jù)自己的身份選擇登陸方式。普通用戶選擇用戶登陸，管理員選擇管理員登陸。4.3用戶登陸和新用戶注冊界面程序設(shè)計普通用戶在此界面輸入自己的和密碼通過驗證后方可進入下一個界面。部分重要代碼如下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!")'如果用戶輸入的與用戶信息表中不一致，就會出現(xiàn)該對話框提醒用戶重新輸入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!")'如果用戶輸入的密碼與用戶信息表中的密碼不一致就會出現(xiàn)該對話框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"用戶名已經(jīng)存在！請重新輸入",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管理員登陸界面管理員需要輸入自己的和密碼，經(jīng)過系統(tǒng)驗證無誤后就可以進入下一個界面了。它的代碼與管理員登陸代碼類似，輸入的和密碼必須是管理員表中相應(yīng)的信息，否則就無法成功登陸。4.5用戶服務(wù)表界面用戶登陸進去后，可以到用戶服務(wù)界面選擇自己所需的服務(wù)，該界面為用戶提供了5種服務(wù)，分別是“全職招聘信息查詢”，“兼職招聘信息查詢”，“全職應(yīng)聘信息查詢”，“兼職應(yīng)聘信息查詢”“應(yīng)聘者信息查詢”和“本用戶的密碼修改”，。4.6用戶密碼修改界面程序設(shè)計用戶如需修改自己的密碼可在此界面進行，用戶通過登陸界面登陸到此，然后在此界面中輸入原始密碼和新密碼并驗證新密碼，確認后如果無誤就會提示用戶修改成功，并且其密碼在用戶信息表中也會有相應(yīng)的修改。（代碼如下）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控件和相應(yīng)的數(shù)據(jù)庫連接起來，設(shè)置相應(yīng)的屬性后所有信息便可顯示在DataGrid上供用戶查看。圖4.1全職招聘信息的查詢界面4.8兼職應(yīng)聘信息的查詢界面該界面所用的控件與全職招聘信息查詢所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。圖4.2兼職應(yīng)聘信息查詢界面4.9全職應(yīng)聘信息查詢界面該界面所用的控件與全職招聘信息查詢所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。4.9兼職招聘信息查詢界面該界面所用的控件與全職招聘信息查詢所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。4.9兼職招聘信息查詢界面該界面所用的控件與全職招聘信息查詢所用的一樣，用戶想要查看的信息也會顯示在DataGrid上。4.9管理員服務(wù)界面此界面為管理員提供了“全職招聘管理”，“兼職招聘管理”，“全職應(yīng)聘管理”，“兼職應(yīng)聘管理”、“應(yīng)聘者信息管理”和“系統(tǒng)信息管理”4.10全職招聘界面程序設(shè)計管理員在此界面可查看所有全職招聘的信息并可以根據(jù)實際情況對信息進行添加，刪除和更新。（部分重要代碼如下）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已經(jīng)存在！請重新輸入",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兼職招聘界面程序設(shè)計管理員在此界面可查看兼職招聘的情況，而且能根據(jù)需要進行添加，刪除和更新。（代碼與全職應(yīng)聘界面的代碼大致相同）4.12全職應(yīng)聘管理界面程序設(shè)計管理員在此界面可查看全職應(yīng)聘的情況，而且能根據(jù)需要進行添加，刪除和更新。（代碼與全職應(yīng)聘界面的代碼大致相同）4.12兼職應(yīng)聘管理界面程序設(shè)計管理員在此界面可查看兼職應(yīng)聘的情況，而且能根據(jù)需要進行刪除和更新。（代碼與全職應(yīng)聘界面的代碼大致相同）4.12應(yīng)聘者信息管理界面程序設(shè)計管理員在此界面可查看工作人員的情況，而且能根據(jù)需要進行刪除和更新。它由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已經(jīng)存在！請重新輸入",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)管理界面程序設(shè)計管理員在此界面可查看系統(tǒng)的用戶的情況，而且能根據(jù)需要進行刪除更新。（代碼如下）PrivateSubCommand1_Click()IfText1.Text=""OrText2.Text=""OrText3.Text=""ThenMsgBox("請輸入要修改的用戶完整信息")ElseAdodc1.ConnectionString