1、 延安大學(xué)西安創(chuàng)新學(xué)院 專業(yè)綜合課程設(shè)計題 目： 集團公司管理系統(tǒng) 班 級： 計算機科學(xué)與技術(shù)1501 姓 名： 陳 濤 學(xué) 號： 1543041051 指導(dǎo)教師： 柴榮軍 職 稱： 工程師 1 前言- 3 -1.1課題的背景和意義- 3 -1.2研究內(nèi)容- 3 -2 系統(tǒng)調(diào)研- 4 -2.1系統(tǒng)調(diào)研- 4 -2.2可行性分析- 4 -3 系統(tǒng)分析- 5 -3.2數(shù)據(jù)流程分析- 7 -4 系統(tǒng)設(shè)計- 7 -4.1功能設(shè)計- 8 -4.2功能結(jié)構(gòu)設(shè)計- 8 -5 系統(tǒng)實現(xiàn)- 9 -5.1 登錄模塊實現(xiàn)- 9 -5.2 主界面設(shè)計實現(xiàn)- 11 -5.3 管理員設(shè)置界面實現(xiàn)- 13 -5.4各公司界

2、面實現(xiàn)- 15 -5.5各工具界面實現(xiàn)- 18 -5.6各員工界面實現(xiàn)- 26 -5.7幫助界面實現(xiàn)- 31 -6 使用說明- 31 -7 總結(jié)- 31 -1 前言1.1課題的背景和意義隨著計算機的普及，越來越多的企業(yè)開始自己的業(yè)務(wù)通過使用計算機管理，他們一直想有一個良好的管理軟件，以幫助他們提高工作效率和管理水平。該軟件適用于集團式公司管理，采用最新的操作系統(tǒng)管理數(shù)據(jù)，用戶將操作更容易，更直觀，更方便。每個系統(tǒng)可以是一個獨立的業(yè)務(wù)管理模塊來獨立操作，使用該系統(tǒng)可以大大提高企業(yè)管理效率。隨著科學(xué)與技術(shù)，計算機科學(xué)的成熟，對于大多數(shù)人來說，強大的功能得到不斷提高認(rèn)識，它已進入人類社會的各個領(lǐng)域，

3、并發(fā)揮著越來越重要的作用。集團業(yè)務(wù)在計算機的應(yīng)用，有著手工管理無法比擬的優(yōu)點。例如：經(jīng)濟快速，容易找到的，可靠性高，存儲量大，安全性高和成本低。這些優(yōu)點能夠極大地提高業(yè)務(wù)的管理的效率。 1.2研究內(nèi)容管理信息系統(tǒng)是一個收集、傳輸、存儲、加工、輸出、維護、管理和使用信息的人機系統(tǒng)，它不僅可以進行數(shù)據(jù)處理，而且還將數(shù)據(jù)處理與優(yōu)化的經(jīng)濟管理模型、仿真技術(shù)等結(jié)合起來，向各級領(lǐng)導(dǎo)提供決策支持信息。開始朝著智能化、網(wǎng)絡(luò)化、分布式的方向發(fā)展。目前，國內(nèi)很多領(lǐng)域，建設(shè)、銀行、農(nóng)業(yè)、稅務(wù)、石油化工、公安等都有不同層次、不同類型的管理信息系統(tǒng)的應(yīng)用。本課題的研究目標(biāo)是對集團公司業(yè)務(wù)流程情況進行管理。主要實現(xiàn)以下幾

4、個功能。1.具備管理員與用戶權(quán)限區(qū)別。2.主模塊：下屬公司，工具，人員檔案，系統(tǒng)設(shè)置。3.窗體具備基本功能：最大化，最小化，關(guān)閉等功能。4.具有特定權(quán)限的用戶登錄后可以進行各種信息的錄入、刪除與修改操作。5.普通用戶登錄后可以按照特定的條件查詢統(tǒng)計各種信息。2 系統(tǒng)調(diào)研需求調(diào)研分析階段研究的對象是軟件項目的用戶要求。包括兩個方面：一要全面理解用戶的各項要求，也不能接受所有的要求；二，要準(zhǔn)確地表達(dá)被接受的用戶要求。只有經(jīng)過確切描述的軟件需求才能成為軟件設(shè)計的基礎(chǔ)。2.1系統(tǒng)調(diào)研本次假設(shè)陳氏集團公司進行現(xiàn)場調(diào)研，了解了公司的相當(dāng)組織結(jié)構(gòu)和業(yè)務(wù)流程。1、公司現(xiàn)狀本次調(diào)研的公司是個中小型的中介公司，公

5、司現(xiàn)有人員12人，主要是下屬公司管理人員。公司管理人員有店長和店員，部門包括集團總部、水果店、超市、影院、交易系統(tǒng)、圖書管理、餐飲等幾個部門。2、業(yè)務(wù)現(xiàn)狀公司現(xiàn)主要采用網(wǎng)絡(luò)對業(yè)務(wù)進行管理。有公司的管理系統(tǒng)對企業(yè)進行信息化和標(biāo)準(zhǔn)化管理，大大降低了工作效率。業(yè)務(wù)主要是各公司的正常事務(wù)。2.2可行性分析可行性研究的目的就是在盡可能短的時間內(nèi)用最小的代價確定問題是否能夠解決。可行性研究的目的不是解決問題，而是確定問題是否值得去解。可行性研究的實質(zhì)是要進行一次大大壓縮簡化的系統(tǒng)分析和設(shè)計過程。一般來說，至少應(yīng)該從下述三方面研究每種解法的可行性。1、操作的可行性分析系統(tǒng)的登錄界面簡單和友好，采用常見的界面

6、窗口的登錄界面，而系統(tǒng)的開發(fā)則采用的是較為常用的VB語言開發(fā)。這些策使得用戶不需要很長的時間就能夠快速熟悉系統(tǒng)，并掌握系統(tǒng)的操作方法。此外，為了方便系統(tǒng)管理維護人員，用戶登錄系統(tǒng)后會給出了一些提示，使得整個系統(tǒng)更加人性化，用戶操作更簡單方便。2、社會可行性分析企業(yè)要長期生存，你必須先有一個良好的企業(yè)文化，其次需要有一個完善的管理，再采用科學(xué)的方法實現(xiàn)可持續(xù)發(fā)展，最后還要與時俱進，不斷改革，使企業(yè)的研究所的時間去適應(yīng)社會的變化。最重要的是要確保科學(xué)的管理方法，為企業(yè)獲得長遠(yuǎn)發(fā)展的競爭力提高的唯一途徑。3、技術(shù)可行性分析本次擬采用Visual Basic作為開發(fā)工具，訪問數(shù)據(jù)庫采用ADO

7、數(shù)據(jù)庫訪問技術(shù)，數(shù)據(jù)庫采用ACCESS建立。設(shè)計一個基于ADO的房屋中介管理系統(tǒng)的設(shè)計與實現(xiàn)。（1）硬件可行性分析系統(tǒng)的硬件要求方面不存在特殊的要求，只需要在普通的硬件配置就能夠輕松的實現(xiàn)，只是需要確保系統(tǒng)的正常工作即可，以及擁有較高的效率。如果有特別低的硬件，它可以導(dǎo)致系統(tǒng)的低性能以及效率低，從而導(dǎo)致整個系統(tǒng)的運行不順暢。以目前普遍的個人計算機的配置而言，這是十分容易實現(xiàn)的 。因此，集團管理系統(tǒng)的開發(fā)在硬件方面是可行的。（2）軟件可行性分析VB語言提供了一個共同的機制類似的借口動態(tài)模型，設(shè)計更集中。另外，在使用VB語言可以很容易實現(xiàn)模塊化和存儲信息。此外，代碼復(fù)用，也可以很好的體現(xiàn)。因此，考

8、慮到系統(tǒng)的實際情況，選擇VB作為集團管理系統(tǒng)開發(fā)語言的時候。通過上述分析，該系統(tǒng)的設(shè)計實現(xiàn)在軟件方面是可行的。因此，我們進行了三個方面的可行性研究，可以看出，該系統(tǒng)的開發(fā)是沒有問題的。3 系統(tǒng)分析在軟件工程中，軟件生命周期中的系統(tǒng)分析，包括確定系統(tǒng)必須具有的功能和性能，系統(tǒng)要求的運行環(huán)境。并且預(yù)測系統(tǒng)發(fā)展的前景，必須仔細(xì)分析系統(tǒng)中的數(shù)據(jù)，既要分析系統(tǒng)中的數(shù)據(jù)流，又要分析長期使用的數(shù)據(jù)存儲。通過分析應(yīng)該得出用業(yè)務(wù)流圖、數(shù)據(jù)字典，可行性分析等內(nèi)容，為系統(tǒng)的設(shè)計奠定基礎(chǔ)。3.1業(yè)務(wù)流程分析圖3-1 登錄界面3.2數(shù)據(jù)流程分析數(shù)據(jù)流程分析一般采用數(shù)據(jù)流圖表示。包括外部實體、數(shù)據(jù)流、加工處理、數(shù)據(jù)文件表

9、。一般用圖3-2表示。數(shù)據(jù)加工圖3-2 數(shù)據(jù)流基本圖外部實體，外部實體指系統(tǒng)之外的實體，不在系統(tǒng)中的單位或人物，但是這些實體與系統(tǒng)之間有信息傳遞關(guān)系。在集團公司管理系統(tǒng)中，外部實體有用戶和管理員等。數(shù)據(jù)流，數(shù)據(jù)流是指系統(tǒng)中用于表示交流與傳遞的數(shù)據(jù)，房屋中介管理系統(tǒng)的主要數(shù)據(jù)流有出租數(shù)據(jù)、出售數(shù)據(jù)等等。處理加工。處理加工是指系統(tǒng)對數(shù)據(jù)的操作加工或處理。房屋中介管理系統(tǒng)處理加工有交易等。數(shù)據(jù)存儲。也就是文件，指系統(tǒng)所存儲數(shù)據(jù)的文件。房屋中介管理系統(tǒng)的文件包括業(yè)務(wù)記錄等。4 系統(tǒng)設(shè)計在系統(tǒng)設(shè)計階段，要著重解決“怎么做”的問題。將系統(tǒng)的邏輯模型轉(zhuǎn)化為系統(tǒng)的信息結(jié)構(gòu)或數(shù)據(jù)庫物理模式及軟件結(jié)構(gòu)，并設(shè)計每個

10、軟件模塊的輸入、輸出格式，形成系統(tǒng)設(shè)計說明書或系統(tǒng)設(shè)計文檔，作為系統(tǒng)實施階段編程的直接依據(jù)。4.1功能設(shè)計根據(jù)系統(tǒng)功能需求分析，對系統(tǒng)功能進進的設(shè)計和分解。功能分解的過程就是一個由抽象到具體的過程。為了提高集團公司業(yè)務(wù)管理水平，減輕集團公司管理人員的勞動強度，提高對信息處理速度與信息的準(zhǔn)確性；為操作員提供更方便、科學(xué)的服務(wù)。設(shè)計了本集團管理系統(tǒng)，同時給操作員提供的一種更先進、科學(xué)的服務(wù)系統(tǒng)。用計算機來設(shè)計一個集團公司管理系統(tǒng)的方案。并能在一定程度上實現(xiàn)自動化。讓計算機對房屋中介公司的數(shù)據(jù)庫信息進行管理，實現(xiàn)公司信息化的管理。 作為租賃數(shù)據(jù)庫系統(tǒng)，其主要實現(xiàn)的功能應(yīng)包括以下7個模塊：（

11、1）管理員登錄模塊：需要有管理員名稱與密碼：輸入錯誤時要提醒，錯3次不能再輸入；正確時進入主界面。管理員也可重置密碼。（2）系統(tǒng)管理模塊：用戶和密碼管理；可以對這些信息進行修改、刪除。用戶管理包括添加用戶和刪除用戶，用戶數(shù)據(jù)為用戶名稱和密碼權(quán)限。密碼管理對當(dāng)前用戶的密碼進行修改。必須提供當(dāng)前的密碼才能對密碼進行修改，提高了系統(tǒng)的安全性。（3）公司管理模塊：包括各公司信息增加、查詢等。（4）員工管理模塊：包括員工信息管理的增加、查詢。4.2功能結(jié)構(gòu)設(shè)計在本系統(tǒng)設(shè)計階段，功能結(jié)構(gòu)采用結(jié)構(gòu)化的系統(tǒng)設(shè)計方法，將集團公司管理系統(tǒng)的邏輯模型轉(zhuǎn)化為信息結(jié)構(gòu)或數(shù)據(jù)庫物理模式及軟件結(jié)構(gòu)，并形成集團公司管理系統(tǒng)設(shè)

12、計說明書或設(shè)計文檔，作為本系統(tǒng)實現(xiàn)階段編程的重要依據(jù)。根據(jù)系統(tǒng)功能需求分析、功能設(shè)計和系統(tǒng)功能進行的設(shè)計和分解。功能結(jié)構(gòu)圖就是按功能從屬關(guān)系畫成的圖表，圖中的每一個框稱為一個功能模塊。我們將整個系統(tǒng)分解成相對獨立的若干模塊，通過對模塊之間關(guān)系的協(xié)調(diào)來實現(xiàn)整個軟件系統(tǒng)的功能，從而得到系統(tǒng)的功能模塊結(jié)構(gòu)圖。如圖4-1。管理系統(tǒng)下共有5個模塊為：系統(tǒng)管理，員工信息管理，下屬公司管理，系統(tǒng)關(guān)于。圖4-2 功能結(jié)構(gòu)圖5 系統(tǒng)實現(xiàn)統(tǒng)一的人機界面不至于會增加用戶的負(fù)擔(dān)，讓用戶始終用同一種方式思考與操作。最忌諱的是每換一個屏幕用戶就要換一套操作命令與操作方法。5.1 登錄模塊實現(xiàn)如圖5-1為房屋中介管理系統(tǒng)的

13、登錄界面設(shè)計。此模塊主要功能是用于登錄本系統(tǒng)，首先將從登錄窗體提交的用戶名和密碼進行接受，之后在后臺進行處理，按照用戶名在數(shù)據(jù)庫中進行查詢?nèi)绻榈皆撚脩魟t將該用戶的名稱和密碼全都取出來分別賦給兩個字符串變量，判斷從數(shù)據(jù)庫中讀出的密碼與登錄時輸入的密碼是否配比上，若兩個密碼相同則根據(jù)權(quán)限的值進入主界面，否則輸出密碼錯誤。如果三次錯，就自動退出系統(tǒng)。這樣提高了系統(tǒng)的可靠性。登錄界面的設(shè)計：添加SDI窗體命名為公司內(nèi)部管理系統(tǒng)。再加1個textbox和combo。Textbox設(shè)計password為密碼格式。添加兩個label。詳細(xì)設(shè)計如圖。圖5-1 登錄界面代碼如下：Dim tim As Inte

14、gerPrivate Sub cmdcancel_click()Dim message As StringIf Combo1.Text = "admin" And text2.Text = "123" Then登錄界面.Hide桌面界面.ShowElseIf tim = 3 Thenmessage = MsgBox("密碼輸入錯誤，請向管理員查詢！", 0, "")If message = vbOK Then EndEnd IfMsgBox ("密碼錯誤，請重新輸入密碼！")tim = tim

15、+ 1End IfEnd SubPrivate Sub cmdok_Click()Combo1.Text = ""text2.Text = ""End Sub5.2 主界面設(shè)計實現(xiàn)系統(tǒng)主界面有用SDI窗體如圖5-2,主要是菜單式管理，主要菜單如下：系統(tǒng)管理、下屬公司信息、員工信息管理、查詢、關(guān)于幫助。系統(tǒng)管理模塊包括用戶管理和密碼修改；下屬公司信息模塊包括公司信息，增加信息和查詢；員工信息管理模塊員工信息，增加信息和查詢；系統(tǒng)關(guān)于模塊包括系統(tǒng)關(guān)于和幫助文件。圖5-2 主界面代碼如下：Private Sub b_Click()系統(tǒng)文件.ShowEnd Su

16、bPrivate Sub c_Click()計算器.ShowEnd SubPrivate Sub e_Click()各公司軟件系統(tǒng).ShowEnd SubPrivate Sub g_Click()管理員設(shè)置.ShowEnd SubPrivate Sub h_Click()管理員設(shè)置.ShowEnd SubPrivate Sub i_Click()人員獎懲.ShowEnd SubPrivate Sub j_Click()退出界面.ShowEnd SubPrivate Sub n_Click()幫助.ShowEnd SubPrivate Sub r_Click()各公司組成.ShowEnd Sub

17、Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index Case 1 Call x_Click Case 2 Call c_Click End SelectEnd SubPrivate Sub u_Click()管理員設(shè)置.ShowEnd SubPrivate Sub w_Click()各公司資料.ShowEnd SubPrivate Sub x_Click()視頻.ShowEnd SubPrivate Sub y_Click()人員檔案查詢.ShowEnd Sub

18、5.3 管理員設(shè)置界面實現(xiàn)管理員設(shè)置界面包括管理員登錄和密碼管理如圖5-3。密碼管理是對當(dāng)前登錄用戶的密碼進行修改。圖5-3 密碼修改圖5-4 管理員登錄代碼如下；Dim tim As IntegerPrivate Sub Command1_Click()Dim message As StringIf Text1.Text = "admin" And Text2.Text = "123" Then管理員設(shè)置.Hide管理員設(shè)置界面.ShowElseIf tim = 3 Thenmessage = MsgBox("密碼輸入錯誤，請向管理員查詢！&

19、quot;, 0, "")If message = vbOK Then 警告.ShowEnd IfMsgBox ("密碼錯誤，請重新輸入密碼！")tim = tim + 1End IfEnd SubPrivate Sub Command2_Click()Dim message As StringIf Text1.Text = "admin" And Text2.Text = "123" Then管理員設(shè)置.Hide人員檔案管理.ShowElseIf tim = 3 Thenmessage = MsgBox(&quo

20、t;密碼輸入錯誤，請向管理員查詢！", 0, "")If message = vbOK Then 警告.ShowEnd IfMsgBox ("密碼錯誤，請重新輸入密碼！")tim = tim + 1End IfEnd Sub5.4各公司界面實現(xiàn)圖5-5 各公司系統(tǒng)入口代碼如下： Private Sub Command1_Click() 四季水果店.Show End SubPrivate Sub Command2_Click()超市.ShowEnd SubPrivate Sub Command3_Click()登陸界面.ShowEnd SubPr

21、ivate Sub Command4_Click()博瑞影視.ShowEnd SubPrivate Sub Command5_Click()亮陽餐飲.ShowEnd SubPrivate Sub Command6_Click()圖書管理.ShowEnd Sub圖5-6 各公司資料查詢代碼如下：Private Sub Command1_Click()If Combo1.Text = "公司名稱" ThenAdodc1.RecordSource = "select * from 各公司資料 where 公司名稱='" & Trim(Text1

22、.Text) & "'"Adodc1.RefreshExit SubElseIf Combo1.Text = "公司負(fù)責(zé)人" ThenAdodc1.RecordSource = "select * from 各公司資料 where 公司負(fù)責(zé)人='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubElseIf Combo1.Text = "公司項目" ThenAdodc1.RecordSource = &

23、quot;select * from 各公司資料 where 公司項目='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubEnd IfEnd SubPrivate Sub Command4_Click()Unload MeEnd Sub5.5各工具界面實現(xiàn)圖5-7 計算器代碼如下：Public a As StringPublic b As SinglePublic c As SinglePrivate Sub Command1_Click(Index As Integer)Text1.

24、Text = Text1.Text & " 0"End SubPrivate Sub Command10_Click()Text1.Text = Text1.Text & " 9"End SubPrivate Sub Command11_Click()Text1.Text = Text1.Text & " ."End SubPrivate Sub Command12_Click()If b = 1 ThenText1.Text = Val(Text1.Text) + Val(a)If c = 0 ThenLab

25、el1.Caption = Text1.Textc = c + 1ElseIf c = 1 Thenc = c + 1Label2.Caption = Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.TextEnd IfEnd IfIf b = 2 ThenText1.Text = Val(a) - Val(Text1.Text)If c = 0 ThenLabel1.Caption = Text1.Textc = c + 1ElseIf c = 1 Thenc = c + 1Label2.Caption

26、= Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.TextEnd IfEnd IfIf b = 3 ThenText1.Text = Val(Text1.Text) * Val(a)If c = 0 ThenLabel1.Caption = Text1.Textc = c + 1ElseIf c = 1 Thenc = c + 1Label2.Caption = Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.Text

27、End IfEnd IfIf b = 4 ThenText1.Text = Val(a) / Val(Text1.Text)If c = 0 ThenLabel1.Caption = Text1.Textc = c + 1ElseIf c = 1 Thenc = c + 1Label2.Caption = Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.TextEnd IfEnd IfEnd SubPrivate Sub Command13_Click()b = 1a = Text1.TextVal (a)

28、Text1.Text = " "End SubPrivate Sub Command14_Click()If Text1.Text = "" ThenText1.Text = "-"Elseb = 2a = Text1.TextText1.Text = ""End IfEnd SubPrivate Sub Command15_Click()b = 3a = Text1.TextText1.Text = ""End SubPrivate Sub Command16_Click()b = 4a =

29、Text1.TextText1.Text = ""End SubPrivate Sub Command17_Click()Text1.Text = ""End SubPrivate Sub Command18_Click()If Val(Text1.Text) < 0 Then Text1.Text = "輸入錯誤，請輸入正數(shù)！" ElseText1.Text = Sqr(Val(Text1.Text)If c = 0 ThenLabel1.Caption = Text1.Textc = c + 1ElseIf c = 1 Th

30、enc = c + 1Label2.Caption = Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.TextEnd IfEnd IfEnd SubPrivate Sub Command19_Click()Dim t As SingleDim k As Singlek = Val(Text1.Text): t = 1If k < 0 ThenText1.Text = "輸入錯誤，請輸入正數(shù)！"ElseIf k * 10 Mod 10 <> 0 ThenText1.Te

31、xt = "輸入錯誤，請輸入整數(shù)！"ElseDot = t * kk = k - 1Loop Until k = 1Text1.Text = tIf c = 0 ThenLabel1.Caption = Text1.Textc = c + 1ElseIf c = 1 Thenc = c + 1Label2.Caption = Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.TextEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Text1.T

32、ext = Text1.Text & " 1"End SubPrivate Sub Command21_Click()Text1.Text = Cos(Val(Text1.Text)If c = 0 ThenLabel1.Caption = Text1.Textc = c + 1ElseIf c = 1 Thenc = c + 1Label2.Caption = Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.TextEnd IfEnd SubPrivate Sub Comman

33、d22_Click()Text1.Text = Tan(Val(Text1.Text)If c = 0 ThenLabel1.Caption = Text1.Textc = c + 1ElseIf c = 1 Thenc = c + 1Label2.Caption = Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.TextEnd IfEnd SubPrivate Sub Command20_Click()Text1.Text = Sin(Val(Text1.Text)If c = 0 ThenLabel1

34、.Caption = Text1.Textc = c + 1ElseIf c = 1 Thenc = c + 1Label2.Caption = Text1.TextElseLabel1.Caption = Label2.CaptionLabel2.Caption = Text1.TextEnd IfEnd SubPrivate Sub Command3_Click()Text1.Text = Text1.Text & " 2"End SubPrivate Sub Command4_Click()Text1.Text = Text1.Text & "

35、; 3"End SubPrivate Sub Command5_Click()Text1.Text = Text1.Text & " 4"End SubPrivate Sub Command6_Click()Text1.Text = Text1.Text & " 5"End SubPrivate Sub Command7_Click()Text1.Text = Text1.Text & " 6"End SubPrivate Sub Command8_Click()Text1.Text = Text1.

36、Text & " 7"End SubPrivate Sub Command9_Click()Text1.Text = Text1.Text & " 8"End SubPrivate Sub Form_Load()Label3.Caption = NowEnd SubPrivate Sub Label1_Click()Text1.Text = Label1.CaptionEnd SubPrivate Sub Label2_Click()Text1.Text = Label2.CaptionEnd Sub5.6各員工界面實現(xiàn)圖5-8人員檔案查

37、詢Private Sub Command2_Click()Text1.Text = "" And Text2.Text = "" And Text3.Text = "" And Text4.Text = "" And Combo1.Text = "" And Combo2.Text = ""End SubPrivate Sub Command1_Click()If Combo1.Text = "姓名" ThenAdodc1.RecordSource = &

38、quot;select * from 陳 where 姓名='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubElseIf Combo1.Text = "性別" ThenAdodc1.RecordSource = "select * from 陳 where 性別='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubElseIf Combo1.Tex

39、t = "年齡" ThenAdodc1.RecordSource = "select * from 陳 where 年齡='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubElseIf Combo1.Text = "工作時間" ThenAdodc1.RecordSource = "select * from 陳 where 工作時間='" & Trim(Text1.Text) & "

40、'"Adodc1.RefreshExit SubElseIf Combo1.Text = "工作部門" ThenAdodc1.RecordSource = "select * from 陳 where 工作部門='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubElseIf Combo1.Text = "職位" ThenAdodc1.RecordSource = "select * from 陳 where

41、職位='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubElseIf Combo1.Text = "家庭住址" ThenAdodc1.RecordSource = "select * from 陳 where 家庭住址='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubElseIf Combo1.Text = "手機號碼" Th

42、enAdodc1.RecordSource = "select * from 陳 where 手機號碼='" & Trim(Text1.Text) & "'"Adodc1.RefreshExit SubEnd IfEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Label3_Click()End Sub圖5-9人員檔案管理代碼如下：Private Sub Command1_Click()If Len(Text3.Text) <= 0 Or Len(Text4.Text) <= 0 Or Len(Text1.Text) <= 0 Or Len(Text2.Text) <= 0 Or Len(Text5.Text) <= 0 Or Len(Text6.Text) <= 0 Or Len(Combo1.Text) <= 0 Or Len(Combo2.Text) <= 0 ThenMsgBox "員工信息不能為空！", , "重要提示"ElseDim conn As New ADODB.ConnectionDim rs As New ADODB.