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

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

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

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

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

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

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

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

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

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

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

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

13、登錄界面設計。此模塊主要功能是用于登錄本系統，首先將從登錄窗體提交的用戶名和密碼進行接受，之后在后臺進行處理，按照用戶名在數據庫中進行查詢如果查到該用戶則將該用戶的名稱和密碼全都取出來分別賦給兩個字符串變量，判斷從數據庫中讀出的密碼與登錄時輸入的密碼是否配比上，若兩個密碼相同則根據權限的值進入主界面，否則輸出密碼錯誤。如果三次錯，就自動退出系統。這樣提高了系統的可靠性。登錄界面的設計：添加SDI窗體命名為公司內部管理系統。再加1個textbox和combo。Textbox設計password為密碼格式。添加兩個label。詳細設計如圖。圖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 主界面設計實現系統主界面有用SDI窗體如圖5-2,主要是菜單式管理，主要菜單如下：系統管理、下屬公司信息、員工信息管理、查詢、關于幫助。系統管理模塊包括用戶管理和密碼修改；下屬公司信息模塊包括公司信息，增加信息和查詢；員工信息管理模塊員工信息，增加信息和查詢；系統關于模塊包括系統關于和幫助文件。圖5-2 主界面代碼如下：Private Sub b_Click()系統文件.ShowEnd Su

16、bPrivate Sub c_Click()計算器.ShowEnd SubPrivate Sub e_Click()各公司軟件系統.ShowEnd SubPrivate Sub g_Click()管理員設置.ShowEnd SubPrivate Sub h_Click()管理員設置.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()管理員設置.ShowEnd SubPrivate Sub w_Click()各公司資料.ShowEnd SubPrivate Sub x_Click()視頻.ShowEnd SubPrivate Sub y_Click()人員檔案查詢.ShowEnd Sub

18、5.3 管理員設置界面實現管理員設置界面包括管理員登錄和密碼管理如圖5-3。密碼管理是對當前登錄用戶的密碼進行修改。圖5-3 密碼修改圖5-4 管理員登錄代碼如下；Dim tim As IntegerPrivate Sub Command1_Click()Dim message As StringIf Text1.Text = "admin" And Text2.Text = "123" Then管理員設置.Hide管理員設置界面.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管理員設置.Hide人員檔案管理.ShowElseIf tim = 3 Thenmessage = MsgBox(&quo

20、t;密碼輸入錯誤，請向管理員查詢！", 0, "")If message = vbOK Then 警告.ShowEnd IfMsgBox ("密碼錯誤，請重新輸入密碼！")tim = tim + 1End IfEnd Sub5.4各公司界面實現圖5-5 各公司系統入口代碼如下： 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 = "公司負責人" ThenAdodc1.RecordSource = "select * from 各公司資料 where 公司負責人='" & 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各工具界面實現圖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 = "輸入錯誤，請輸入正數！" 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 = "輸入錯誤，請輸入正數！"ElseIf k * 10 Mod 10 <> 0 ThenText1.Te

31、xt = "輸入錯誤，請輸入整數！"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各員工界面實現圖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.