數(shù)據(jù)庫課程設(shè)計人事管理信息系統(tǒng)

《數(shù)據(jù)庫課程設(shè)計》題目：人事管理系統(tǒng)學(xué)號：086513810308651381040865138106班級：信管08-1班姓名：指導(dǎo)教師：聶維同楊振華目錄1.需求分析 21.1系統(tǒng)需求分析 21.2可行性分析 31.2.1管理可行性 31.2.2經(jīng)濟(jì)可行性 31.2.3技術(shù)可行性 31.3系統(tǒng)的功能簡介 41.4系統(tǒng)開發(fā)的目標(biāo) 42．?dāng)?shù)據(jù)庫設(shè)計 52.1數(shù)據(jù)庫的概念設(shè)計 52.1.1職工E-R圖 52.1.2部門E-R圖 52.1.3工資E-R圖 62.1.4獎懲E-R圖 62.1.5崗位E-R圖 72.1.6系統(tǒng)總體E-R圖 72.2系統(tǒng)的邏輯結(jié)構(gòu)設(shè)計 82.3學(xué)生管理系統(tǒng)的物理結(jié)構(gòu)設(shè)計 83.總體設(shè)計 104.詳細(xì)設(shè)計 114.1類模塊簡介及代碼 114.2各功能模塊界面及代碼 135.全文總結(jié) 32參考文獻(xiàn) 321.需求分析1.1系統(tǒng)需求分析在人事管理中，經(jīng)常有大量信息的變動，因此我們需要開發(fā)一個功能實用、操作方便的人事管理系統(tǒng)，來完成人事管理的基本功能，實現(xiàn)對企業(yè)人事信息的計算機(jī)化管理，提高工作效率，方便用戶，借此達(dá)到增強(qiáng)企業(yè)和單位整體競爭力的目的，包括職工基本信息管理、工資管理、人員調(diào)動及信息的修改，方便管理層記錄和查詢?nèi)耸滦畔⒓奥毠ψ陨硇畔⒌牧私獾?。另外，在設(shè)計軟件的同時，應(yīng)盡可能地減少系統(tǒng)的資源占用，并且要求通過使用本系統(tǒng)，盡量使單位的人事管理工作系統(tǒng)化、自動化和規(guī)范化，達(dá)到提高單位管理效率的目的。1.2可行性分析1.2.1管理可行性計算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計算機(jī)實現(xiàn)企業(yè)人事管理勢在必行。對于大中型企業(yè)來說，大部分員工都掌握一定的計算機(jī)技術(shù)，利用計算機(jī)支持企業(yè)高效率完成勞動人事管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求，能夠推動企業(yè)勞動人事管理走向科學(xué)化、規(guī)范化。1.2.2經(jīng)濟(jì)可行性由于本系統(tǒng)開發(fā)的費(fèi)用比較低，能夠?qū)崿F(xiàn)人事管理過程中要求的基本功能，運(yùn)行狀態(tài)良好，系統(tǒng)維護(hù)費(fèi)用低，可大幅度降低管理過程中的費(fèi)用，提高管理效率。1.2.3技術(shù)可行性本系統(tǒng)前臺開發(fā)工具使用VisualBasic，后臺數(shù)據(jù)庫使用SQLServe2000r，中間層采用的數(shù)據(jù)訪問技術(shù)。VisualBasic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，而且程序開發(fā)人員不必具有C/C++編程基礎(chǔ)。在VisualBasic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。MicrosoftSQLServer2000是美國微軟公司新發(fā)布的一個功能強(qiáng)大、性能優(yōu)越、操作方便的面向客戶/服務(wù)器的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)（RDBMS），是當(dāng)前最受歡迎的數(shù)據(jù)庫平臺之一。1.3系統(tǒng)的功能簡介通過對現(xiàn)行人事管理系統(tǒng)的調(diào)查，明確了人事管理系統(tǒng)由檔案管理、獎懲管理、工資管理、信息查詢管理組成。系統(tǒng)功能的主要描述如下。（1）員工檔案管理1）對公司里所有員工進(jìn)行統(tǒng)一編號；將每一位員工的信息保存在員工檔案記錄中。2）對新聘用的員工，將其信息加入到員工檔案記錄中；對于解聘的員工，將其信息從員工檔案記錄中刪除。3）當(dāng)員工的信息發(fā)生變動時，修改員工檔案記錄中相應(yīng)的屬性。（2）獎懲管理對公司里所有員工的獎懲記錄進(jìn)行統(tǒng)一編號；登記員工獎懲的原因，所受獎懲類型，獎懲時間，并發(fā)布獎懲信息。（3）工資管理對公司里所有員工的工資記錄進(jìn)行統(tǒng)一編號，建立工資記錄表。（4）部門管理對公司所有的部門進(jìn)行編號，建立部門記錄。（5）信息查詢管理用戶可通過帳號密碼登錄管理系統(tǒng)并查詢工資、獎懲等有關(guān)信息。1.4系統(tǒng)開發(fā)的目標(biāo)隨著計算機(jī)技術(shù)的飛速發(fā)展，計算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計算機(jī)實現(xiàn)企業(yè)人事管理勢在必行。對于大中型企業(yè)來說，利用計算機(jī)支持企業(yè)高效率完成勞動人事管理的日常事務(wù)，是適應(yīng)現(xiàn)代企業(yè)制度要求、推動企業(yè)勞動人事管理走向科學(xué)化、規(guī)范化的必要條件；計算機(jī)管理所無法比擬的優(yōu)點檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高人事管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。不同的企業(yè)具有不同的人事管理制度，這就決定了不同的企業(yè)需要不同的人事管理系統(tǒng)。目前市面上流行的人事管理系統(tǒng)不少。但是，對于企、事業(yè)單位的人事管理系統(tǒng)來說，不需要大型的數(shù)據(jù)庫系統(tǒng)。只需要一個操作方便，功能實用，能滿足本中心對數(shù)據(jù)的管理及需求的系統(tǒng)。我們的目標(biāo)就是在于開發(fā)一個功能實用、操作方便，簡單明了的人事管理系統(tǒng).能夠錄入人事的基本資料，在操作上能夠完成諸如添加、修改、刪除、按各種條件進(jìn)行查詢、新用戶的設(shè)置及密碼修改等方面的工作，基本滿足人事日常業(yè)務(wù)的需要。2．?dāng)?shù)據(jù)庫設(shè)計2.1數(shù)據(jù)庫的概念設(shè)計概念模型是對現(xiàn)實世界的抽象和概述，它真實地反映了事物和事物之間的聯(lián)系。應(yīng)用E-R圖可描述某一組織的概念模型。下面根據(jù)需求分析設(shè)計人事管理系統(tǒng)的E-R圖。2.1.1職工E-R圖職工E-R圖中包括的屬性有員工編號、姓名、性別、出生日期、民族、學(xué)歷、職稱，這些屬性闡明了職工實體，如圖2.1所示。員工編號員工編號職工職稱姓名學(xué)歷出生日期性別民族圖2.1職工E-R圖2.1.2部門E-R圖部門E-R圖中包括的屬性有部門編號、部門名稱、管理人員號。這些屬性闡明了部門實體，如圖2.2所示。部門部門部門編號管理人員號部門名稱圖2.2部門E-R圖2.1.3工資E-R圖工資E-R圖中包括的屬性有工資編號、發(fā)薪日期、基本工資、獎金、罰款。這些屬性闡明了工資實體，如圖2.3所示。圖2.3工資E-R圖2.1.4獎懲E-R圖獎懲E-R圖中的屬性包括獎懲金額、獎懲編號、獎懲原因。這些屬性闡明了獎懲實體，如圖2.4所示。圖2.4獎懲E-R2.1.5崗位E-R圖崗位E-R圖中的屬性包括崗位編號、崗位等級、崗位名稱。這些屬性闡明了崗位實體，如圖2.5所示。圖2.5崗位E-R圖2.1.6系統(tǒng)總體E-R圖在該總體E-R圖中，有5個實體類型，5個聯(lián)系類型，其實體屬性分別見各自的實體圖。聯(lián)系類型有：設(shè)置（人數(shù)），接受（獎懲日期），聘任（聘期）。該總體E-R圖說明了實體與實體間的聯(lián)系。如圖2.6所示。圖2.6總體E-R圖2.2系統(tǒng)的邏輯結(jié)構(gòu)設(shè)計將概念階段設(shè)計的概念模型轉(zhuǎn)換成關(guān)系模型如下：職工（職工編號，姓名，性別，出生日期，民族，學(xué)歷，職稱，聘期，部門編號，崗位編號）部門（部門編號，部門名稱，管理人員號）工資（工資編號，發(fā)薪日期，基本工資，獎金，罰款，職工編號）獎懲（獎懲編號，獎懲金額，獎懲原因）崗位（崗位編號，崗位等級，崗位屬性）設(shè)置（崗位編號，部門編號，人數(shù)）接受（職工編號，獎懲編號，獎懲日期）2.3學(xué)生管理系統(tǒng)的物理結(jié)構(gòu)設(shè)計職工信息數(shù)據(jù)表：字段名稱類型寬度小數(shù)位Nulls職工編號字符型10否姓名字符型10否性別字符型10否出生日期日期型8是民族字符型10是學(xué)歷字符型10否職稱字符型10否聘期字符型10否部門編號字符型10否崗位編號字符型10否部門信息數(shù)據(jù)表：字段名稱類型寬度小數(shù)位Nulls部門編號字符型10否部門名稱字符型10否管理人員號字符型10否工資信息數(shù)據(jù)表：字段名稱類型寬度小數(shù)位Nulls工資編號字符型10否發(fā)薪日期日期型8否基本工資字符型10否獎金字符型10是罰款字符型10是職工編號字符型10否獎懲信息數(shù)據(jù)表：字段名稱類型寬度小數(shù)位Nulls獎懲編號字符型10否獎懲金額字符型10是獎懲原因字符型10是崗位信息數(shù)據(jù)表：字段名稱類型寬度小數(shù)位Nulls崗位編號字符型10否崗位等級字符型10否崗位名稱字符型10否設(shè)置信息數(shù)據(jù)表：字段名稱類型寬度小數(shù)位Nulls崗位編號字符型10否部門編號字符型10否人數(shù)整型4否接受信息數(shù)據(jù)表：字段名稱類型寬度小數(shù)位Nulls職工編號字符型10否獎懲編號字符型10否獎懲日期日期型8是3.總體設(shè)計如圖3.1所示，系統(tǒng)的結(jié)構(gòu)功能圖簡單而形象的將系統(tǒng)的功能結(jié)構(gòu)用模塊的形式展現(xiàn)出來，便于系統(tǒng)設(shè)計人員對系統(tǒng)的設(shè)計。 圖3.1系統(tǒng)功能結(jié)構(gòu)圖圖3.2系統(tǒng)業(yè)務(wù)流程圖4.詳細(xì)設(shè)計4.1類模塊簡介及代碼類模塊主要功能是用來將vb程序和數(shù)據(jù)庫進(jìn)行連接，以實現(xiàn)功能的運(yùn)行，類模塊的代碼如下：'xxx'xxxOptionExplicit'PrivateConstCONN_STRINGAsString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="PublicDB_PATHAsString'數(shù)據(jù)庫連接PublicdbConnAsNewADODB.Connection'表明當(dāng)前數(shù)據(jù)庫的連接狀態(tài):False－未連接；True－已連接PublicdbStatusAsBooleanPublicFunctionopenDB()AsBoolean'DB_PATH=dbPath'dbConn.OpenCONN_STRING&DB_PATH'MsgBoxErr.DescriptionDimconnStringAsString'connString="driver={SQLServer};server="+Trim(Server)+";uid="+Trim(User)+";pwd="+Trim(Password)+";database=ERP"connString="driver={SQLServer};server="+"127.0.0.1"+";uid="+"sa"+";pwd="+"sa"+";database=pm"dbConn.OpenconnStringIfErr.Number<>0ThenMsgBoxErr.Description:GoToerrHandler'dbStatus=TrueopenDB=TrueExitFunctionerrHandler:openDB=FalseEndFunctionPublicFunctioncloseDB()AsIntegerdbConn.Close'xxxdbStatus=FalseEndFunctionPublicFunctionexeSql(sqlStrAsString,queryResultAsADODB.Recordset,OptionalenableWriteAsBoolean=True)AsBooleanOnErrorGoToerrHandler:DimretSetqueryResult=NewADODB.RecordsetIfenableWriteThenqueryResult.OpensqlStr,dbConn,adOpenStatic,adLockOptimisticElsequeryResult.OpensqlStr,dbConn,adOpenStatic,adLockReadOnlyEndIfexeSql=TrueExitFunctionerrHandler:MsgBoxErr.DescriptionexeSql=FalseExitFunctionEndFunction4.2各功能模塊界面及代碼系統(tǒng)登陸界面：本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，來登陸系統(tǒng)，可以用abc;123為用戶名和密碼來登陸本系統(tǒng)。登錄界面的代碼如下：PrivateSubCommand1_Click()DimaAsString,bAsStringa=Text1.Textb=Text2.TextIfa="abc"Andb="123"ThenForm2.ShowForm1.Visible=FalseElseMsgBox("您輸入的用戶名或密碼有誤，請重新輸入！")EndIfEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubImage1_Click()EndSubPrivateSubText1_Change()EndSub人事管理系統(tǒng)主界面：本界面的主要功能是實現(xiàn)人事管理系統(tǒng)各功能，如職工信息錄入、查詢、修改、刪除及發(fā)布獎懲信息。不同用戶名可以根據(jù)自己的需求進(jìn)行不同操作。人事管理系統(tǒng)界面的代碼如下：PrivateSubCommand1_Click()Form3.ShowForm2.Visible=FalseEndSubPrivateSubCommand2_Click()Form4.ShowForm2.Visible=FalseEndSubPrivateSubCommand3_Click()Form5.ShowForm2.Visible=FalseEndSubPrivateSubCommand4_Click()Form6.ShowForm2.Visible=FalseEndSubPrivateSubCommand5_Click()Form7.ShowForm2.Visible=FalseEndSubPrivateSubCommand6_Click()Form1.ShowForm2.Visible=FalseEndSub職工信息錄入界面：職工信息錄入界面的代碼如下：PrivateSubCommand1_Click()MyDB.openDBDimsqlAsStringDimaAsString,bAsString,cAsString,dAsString,eAsString,fAsString,gAsString,hAsString,iAsString,jAsStringa=Text1.Textb=Text2.Textc=Combo2.Textd=Text4.Texte=Combo3.Textf=Combo1.Textg=Combo4.Texth=Text8.Texti=Combo5.Textj=Text10.Textsql="INSERTINTOemp(員工編號,姓名,性別,出生日期,民族,學(xué)歷,職稱,部門名,聘期,崗位編號)values('"+a+"','"+b+"','"+c+"','"+d+"','"+e+"','"+f+"','"+g+"','"+h+"','"+i+"','"+j+"')"DimIsexeAsBooleanDimrsDepartmentAsADODB.RecordsetIsexe=MyDB.exeSql(sql,rsDepartment,True)MyDB.closeDBText1.Text=""Text2.Text=""Text4.Text=""Text10.Text=""Text8.Text=""MsgBox("信息已添加，請繼續(xù)操作！")EndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Text4.Text=""Text10.Text=""Text8.Text=""EndSubPrivateSubCommand3_Click()Form3.Visible=FalseForm2.ShowEndSubPrivateSubCommand4_Click()EndEndSubPrivateSubForm_Load()EndSub職工信息查詢界面：職工信息查詢界面的代碼如下：PrivateSubCommand1_Click()DimqueryResultAsADODB.RecordsetDimSqlStmtAsStringDimaAsStringDimiAsIntegerDimsManXx(1To11,1To10)AsStringa=Text1.Text'初始化表格控件Me.MSFlexGrid1.Rows=1Me.MSFlexGrid1.Cols=10Me.MSFlexGrid1.ColWidth(0)=1000Me.MSFlexGrid1.ColWidth(1)=750Me.MSFlexGrid1.ColWidth(2)=750Me.MSFlexGrid1.ColWidth(3)=780Me.MSFlexGrid1.ColWidth(4)=780Me.MSFlexGrid1.ColWidth(5)=780Me.MSFlexGrid1.ColWidth(6)=780Me.MSFlexGrid1.ColWidth(7)=780Me.MSFlexGrid1.ColWidth(8)=780Me.MSFlexGrid1.ColWidth(9)=1000Me.MSFlexGrid1.TextMatrix(0,0)="員工編號"Me.MSFlexGrid1.TextMatrix(0,1)="姓名"Me.MSFlexGrid1.TextMatrix(0,2)="性別"Me.MSFlexGrid1.TextMatrix(0,3)="出生日期"Me.MSFlexGrid1.TextMatrix(0,4)="民族"Me.MSFlexGrid1.TextMatrix(0,5)="學(xué)歷"Me.MSFlexGrid1.TextMatrix(0,6)="職稱"Me.MSFlexGrid1.TextMatrix(0,7)="部門名"Me.MSFlexGrid1.TextMatrix(0,8)="聘期"Me.MSFlexGrid1.TextMatrix(0,9)="崗位編號"'Sql="selectBusinessmanID,BusinessmanName,CountryfromBusinessman"&"whereCountry='"&str1&"'"SqlStmt="SELECT*FROMempWHERE員工編號='"+a+"'"MyDB.openDBIsexe=MyDB.exeSql(SqlStmt,queryResult,True)IfqueryResult.RecordCount<>0ThenqueryResult.MoveLast'ReDimsManXx(1To6,1TodataSet.RowCount)i=1queryResult.MoveFirstDoWhileNotqueryResult.EOFsManXx(1,i)=queryResult.Fields("員工編號")sManXx(2,i)=queryResult.Fields("姓名")sManXx(3,i)=queryResult.Fields("性別")sManXx(4,i)=queryResult.Fields("出生日期")sManXx(5,i)=queryResult.Fields("民族")sManXx(6,i)=queryResult.Fields("學(xué)歷")sManXx(7,i)=queryResult.Fields("職稱")sManXx(8,i)=queryResult.Fields("部門名")sManXx(9,i)=queryResult.Fields("聘期")sManXx(10,i)=queryResult.Fields("崗位編號")Me.MSFlexGrid1.Rows=Me.MSFlexGrid1.Rows+1Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,0)=queryResult.Fields("員工編號")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,1)=queryResult.Fields("姓名")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,2)=queryResult.Fields("性別")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,3)=queryResult.Fields("出生日期")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,4)=queryResult.Fields("民族")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,5)=queryResult.Fields("學(xué)歷")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,6)=queryResult.Fields("職稱")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,7)=queryResult.Fields("部門名")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,8)=queryResult.Fields("聘期")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,9)=queryResult.Fields("崗位編號")queryResult.MoveNexti=i+1LoopEndIfqueryResult.CloseSetqueryResult=NothingMyDB.closeDBEndSubPrivateSubCommand2_Click()DimqueryResultAsADODB.RecordsetDimSqlStmtAsStringDimbAsStringDimiAsIntegerDimsManXx(1To4,1To3)AsStringb=Text3.Text'初始化表格控件Me.MSFlexGrid2.Rows=1Me.MSFlexGrid2.Cols=4Me.MSFlexGrid2.ColWidth(0)=1000Me.MSFlexGrid2.ColWidth(1)=1000Me.MSFlexGrid2.ColWidth(2)=1000Me.MSFlexGrid2.TextMatrix(0,1)="員工編號"Me.MSFlexGrid2.TextMatrix(0,2)="獎懲金額"Me.MSFlexGrid2.TextMatrix(0,3)="獎懲原因"'Sql="selectBusinessmanID,BusinessmanName,CountryfromBusinessman"&"whereCountry='"&str1&"'"SqlStmt="SELECT*FROMpmtWHERE員工編號='"+b+"'"MyDB.openDBIsexe=MyDB.exeSql(SqlStmt,queryResult,True)IfqueryResult.RecordCount<>0ThenqueryResult.MoveLast'ReDimsManXx(1To6,1TodataSet.RowCount)i=1queryResult.MoveFirstDoWhileNotqueryResult.EOFsManXx(1,i)=queryResult.Fields("員工編號")sManXx(2,i)=queryResult.Fields("獎懲金額")sManXx(3,i)=queryResult.Fields("獎懲原因")Me.MSFlexGrid2.Rows=Me.MSFlexGrid2.Rows+1Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,1)=queryResult.Fields("員工編號")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,2)=queryResult.Fields("獎懲金額")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,3)=queryResult.Fields("獎懲原因")queryResult.MoveNexti=i+1LoopEndIfqueryResult.CloseSetqueryResult=NothingMyDB.closeDBEndSubPrivateSubCommand3_Click()Form2.ShowForm4.Visible=FalseEndSubPrivateSubCommand4_Click()EndEndSubPrivateSubForm_Load()EndSub職工信息修改界面：職工信息修改界面的代碼如下：PrivateSubCommand1_Click()DimqueryResultAsADODB.RecordsetDimSqlStmtAsStringDimaAsStringDimiAsIntegerDimsManXx(1To11,1To10)AsStringa=Text1.Text'初始化表格控件Me.MSFlexGrid1.Rows=1Me.MSFlexGrid1.Cols=10Me.MSFlexGrid1.ColWidth(0)=1000Me.MSFlexGrid1.ColWidth(1)=750Me.MSFlexGrid1.ColWidth(2)=750Me.MSFlexGrid1.ColWidth(3)=780Me.MSFlexGrid1.ColWidth(4)=780Me.MSFlexGrid1.ColWidth(5)=780Me.MSFlexGrid1.ColWidth(6)=780Me.MSFlexGrid1.ColWidth(7)=780Me.MSFlexGrid1.ColWidth(8)=780Me.MSFlexGrid1.ColWidth(9)=1000Me.MSFlexGrid1.TextMatrix(0,0)="員工編號"Me.MSFlexGrid1.TextMatrix(0,1)="姓名"Me.MSFlexGrid1.TextMatrix(0,2)="性別"Me.MSFlexGrid1.TextMatrix(0,3)="出生日期"Me.MSFlexGrid1.TextMatrix(0,4)="民族"Me.MSFlexGrid1.TextMatrix(0,5)="學(xué)歷"Me.MSFlexGrid1.TextMatrix(0,6)="職稱"Me.MSFlexGrid1.TextMatrix(0,7)="部門名"Me.MSFlexGrid1.TextMatrix(0,8)="聘期"Me.MSFlexGrid1.TextMatrix(0,9)="崗位編號"'Sql="selectBusinessmanID,BusinessmanName,CountryfromBusinessman"&"whereCountry='"&str1&"'"SqlStmt="SELECT*FROMempWHERE員工編號='"+a+"'"MyDB.openDBIsexe=MyDB.exeSql(SqlStmt,queryResult,True)IfqueryResult.RecordCount<>0ThenqueryResult.MoveLast'ReDimsManXx(1To6,1TodataSet.RowCount)i=1queryResult.MoveFirstDoWhileNotqueryResult.EOFsManXx(1,i)=queryResult.Fields("員工編號")sManXx(2,i)=queryResult.Fields("姓名")sManXx(3,i)=queryResult.Fields("性別")sManXx(4,i)=queryResult.Fields("出生日期")sManXx(5,i)=queryResult.Fields("民族")sManXx(6,i)=queryResult.Fields("學(xué)歷")sManXx(7,i)=queryResult.Fields("職稱")sManXx(8,i)=queryResult.Fields("部門名")sManXx(9,i)=queryResult.Fields("聘期")sManXx(10,i)=queryResult.Fields("崗位編號")Me.MSFlexGrid1.Rows=Me.MSFlexGrid1.Rows+1Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,0)=queryResult.Fields("員工編號")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,1)=queryResult.Fields("姓名")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,2)=queryResult.Fields("性別")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,3)=queryResult.Fields("出生日期")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,4)=queryResult.Fields("民族")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,5)=queryResult.Fields("學(xué)歷")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,6)=queryResult.Fields("職稱")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,7)=queryResult.Fields("部門名")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,8)=queryResult.Fields("聘期")Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows-1,9)=queryResult.Fields("崗位編號")queryResult.MoveNexti=i+1LoopEndIfqueryResult.CloseSetqueryResult=NothingMyDB.closeDBEndSubPrivateSubCommand2_Click()Text1.Text=""Text2.Text=""Check1.Value=FalseCheck2.Value=FalseCheck3.Value=FalseCheck4.Value=FalseCheck5.Value=FalseEndSubPrivateSubCommand3_Click()Form5.Visible=FalseForm2.ShowEndSubPrivateSubCommand4_Click()EndEndSubPrivateSubCommand5_Click()DimIsexeAsBooleanDimSqlStmtAsStringDimrsEmployeesAsADODB.RecordsetDimrsaaAsADODB.RecordsetDimSql1AsStringDimSql2AsStringDimiAsIntegerDimsManXx(1To11,1To10)AsStringDimqueryResultAsADODB.RecordsetDimaAsString,hAsStringa=Text1.Texth=Text2.TextMyDB.openDBIfCombo1.Text="姓名"ThenSql2="UpdateempSet姓名='"+h+"'where員工編號='"+a+"'"ElseIfCombo1.Text="出生日期"ThenSql2="UpdateempSet出生日期='"+h+"'where員工編號='"+a+"'"ElseIfCombo1.Text="部門名"ThenSql2="UpdateempSet部門名='"+h+"'where員工編號='"+a+"'"ElseIfCombo1.Text="部門編號"ThenSql2="UpdateempSet部門編號='"+h+"'where員工編號='"+a+"'"ElseIfCombo1.Text="性別"ThenSql2="UpdateempSet性別='"+h+"'where員工編號='"+a+"'"ElseIfCombo1.Text="職稱"ThenSql2="UpdateempSet職稱='"+h+"'where員工編號='"+a+"'"ElseIfCombo1.Text="聘期"ThenSql2="UpdateempSet聘期='"+h+"'where員工編號='"+a+"'"ElseIfCombo1.Text="學(xué)歷"ThenSql2="UpdateempSet學(xué)歷='"+h+"'where員工編號='"+a+"'"ElseIfCombo1.Text="民族"ThenSql2="UpdateempSet民族='"+h+"'where員工編號='"+a+"'"EndIfIsexe=MyDB.exeSql(Sql2,rsEmployees,True)'斷開與數(shù)據(jù)庫的連接g=MsgBox("你確定要修改員工編號為：'"+a+"'的信息嗎？",1)Ifg=1ThenEndIfIfIsexe=TrueThenMsgBox("更新成功！")ElseMsgBox("更新失??！")EndIfMyDB.closeDBEndSubPrivateSubCommand6_Click()DimqueryResultAsADODB.RecordsetDimSqlStmtAsStringDimaAsStringDimiAsIntegerDimsManXx(1To11,1To10)AsStringa=Text1.Text'初始化表格控件Me.MSFlexGrid2.Rows=1Me.MSFlexGrid2.Cols=10Me.MSFlexGrid2.ColWidth(0)=1000Me.MSFlexGrid2.ColWidth(1)=750Me.MSFlexGrid2.ColWidth(2)=750Me.MSFlexGrid2.ColWidth(3)=780Me.MSFlexGrid2.ColWidth(4)=780Me.MSFlexGrid2.ColWidth(5)=780Me.MSFlexGrid2.ColWidth(6)=780Me.MSFlexGrid2.ColWidth(7)=780Me.MSFlexGrid2.ColWidth(8)=780Me.MSFlexGrid2.ColWidth(9)=1000Me.MSFlexGrid2.TextMatrix(0,0)="員工編號"Me.MSFlexGrid2.TextMatrix(0,1)="姓名"Me.MSFlexGrid2.TextMatrix(0,2)="性別"Me.MSFlexGrid2.TextMatrix(0,3)="出生日期"Me.MSFlexGrid2.TextMatrix(0,4)="民族"Me.MSFlexGrid2.TextMatrix(0,5)="學(xué)歷"Me.MSFlexGrid2.TextMatrix(0,6)="職稱"Me.MSFlexGrid2.TextMatrix(0,7)="部門名"Me.MSFlexGrid2.TextMatrix(0,8)="聘期"Me.MSFlexGrid2.TextMatrix(0,9)="崗位編號"'Sql="selectBusinessmanID,BusinessmanName,CountryfromBusinessman"&"whereCountry='"&str1&"'"SqlStmt="SELECT*FROMempWHERE員工編號='"+a+"'"MyDB.openDBIsexe=MyDB.exeSql(SqlStmt,queryResult,True)IfqueryResult.RecordCount<>0ThenqueryResult.MoveLast'ReDimsManXx(1To6,1TodataSet.RowCount)i=1queryResult.MoveFirstDoWhileNotqueryResult.EOFsManXx(1,i)=queryResult.Fields("員工編號")sManXx(2,i)=queryResult.Fields("姓名")sManXx(3,i)=queryResult.Fields("性別")sManXx(4,i)=queryResult.Fields("出生日期")sManXx(5,i)=queryResult.Fields("民族")sManXx(6,i)=queryResult.Fields("學(xué)歷")sManXx(7,i)=queryResult.Fields("職稱")sManXx(8,i)=queryResult.Fields("部門名")sManXx(9,i)=queryResult.Fields("聘期")sManXx(10,i)=queryResult.Fields("崗位編號")Me.MSFlexGrid2.Rows=Me.MSFlexGrid2.Rows+1Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,0)=queryResult.Fields("員工編號")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,1)=queryResult.Fields("姓名")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,2)=queryResult.Fields("性別")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,3)=queryResult.Fields("出生日期")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,4)=queryResult.Fields("民族")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,5)=queryResult.Fields("學(xué)歷")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,6)=queryResult.Fields("職稱")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,7)=queryResult.Fields("部門名")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,8)=queryResult.Fields("聘期")Me.MSFlexGrid2.TextMatrix(Me.MSFlexGrid2.Rows-1,9)=queryResult.Fields("崗位編號")queryResult.MoveNexti=i+1LoopEndIfqueryResult.CloseSetqueryResult=NothingMyDB.closeDBEndSubPrivateSubForm_Load()EndSub職工信息刪除界面：職工信息刪除界面的代碼如下：PrivateSubCommand1_Click()DimSql1AsStringDimSql2AsStringDimIsexeAsBooleanDimrsaaAsADODB.RecordsetDimaAsStringDimbAsStringa=Text1.TextMyDB.openDBSql1="DeleteFROMempWHERE員工編號='"+a+"'"IfText1.Text=""ThenMsgBox("輸入有誤，請重新填寫！")Elseb=MsgBox("你確定要刪除員工編號為：'"+a+"'的信息嗎？",1)Ifb=1ThenIsexe=MyDB.exeSql(Sql1,rsaa,True)EndIfEndIfIfIsexe=TrueThenMsgBox("刪除成功！")ElseMsgBox("刪除失??！")EndIfMyDB.closeDBEndSubPrivateSubCommand2_Click()Form2.ShowForm6.Visible=FalseEndSubPrivateSu