【正文】 水電檢測(cè) Case 水電檢測(cè) _委托 If frmActiveNow Is frmWEConsign Then Exit Sub Call UnloadActiveForm Load frmWEConsign Set frmActiveNow = frmWEConsign 39。建立文件夾 temp End If End Sub 其中目錄樹(shù)的部分代碼如下： Option Explicit Private Sub Form_Load() 39。 \Temp\*.* End If 39。 .FileName = End With Exit Sub err: End Sub Private Sub Timer2_Timer() Static intc As Integer intc = intc + 1 If intc = 3 Then intc = 1 Select Case intc Case 1 (2).Text = 管理系統(tǒng)開(kāi)發(fā)人員 ： 蘇斌 Case 2 (2).Text = 管理系統(tǒng)開(kāi)發(fā)人員 ：李臘生 End Select End Sub 建筑工程質(zhì)量檢測(cè)管理系統(tǒng) 第 26 頁(yè) 共 55 頁(yè) Private Sub UnloadActiveForm() If Not frmActiveNow Is Nothing Then Unload frmActiveNow End If End Sub Private Sub MDIForm_Load() 39。 .mdb .ShowSave DestinationFile = .FileName 39。 指定源文件名。 將源文件的內(nèi)容復(fù)制到目的文件中。 指定目的文件名。 部分代碼如下： Option Explicit Private Sub manicotest_Click() If frmActiveNow Is frmAnicoTest Then Exit Sub Call UnloadActiveForm Load frmAnicoTest Set frmActiveNow = frmAnicoTest End Sub Private Sub mend_Click() End End Sub Private Sub mesc_Click() = True = False = False = False = False = False = False = False 建筑工程質(zhì)量檢測(cè)管理系統(tǒng) 第 24 頁(yè) 共 55 頁(yè) = False = False = False = False = False = False Unload frmFunction Call UnloadActiveForm = False = True End Sub Private Sub mlogin_Click() Unload Me 1 End Sub Private Sub mnuAbout_Click() Load frmAbout vbModal End Sub Private Sub mnuContents_Click() Dim strHelp As String strHelp = + \help\ + + \help\ Shell strHelp, vbNormalFocus End Sub Private Sub mnuData_Relogin_Click() 39。 amp。光標(biāo)重新定位到 txtPassword End If 建筑工程質(zhì)量檢測(cè)管理系統(tǒng) 第 21 頁(yè) 共 55 頁(yè) End If End Sub Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。 39。and userpass=39。定義靜態(tài)變量 Dim rst As Set rst = New Set = (con) = adUseClient = adOpenDynamic = adLockOptimistic = select * from users where username=39。s End Sub Private Sub cmdcancel_Click() 39。h BitBlt , 25, 1, 10, 14, , 10 * Int(Mid$(tempTime, 4, 1)), 0, SRCCOPY 39。HCC0010 Private rstTemp As Private Sub Form_Load() Dim X0 As Long Dim Y0 As Long 39。Persist Security Info=False = sConString 39。復(fù)制 Public Sub CopyDB(ByVal SourceFile As String, ByVal DestinationFile As String) Dim SHFileOp As SHFILEOPSTRUCT = FO_COPY = SourceFile = DestinationFile = FOF_ALLOWUNDO + FOF_NOCONFIRMMKDIR Call SHFileOperation(SHFileOp) End Sub Sub Main() sConString = Provider=。H10 Const FOF_NOCONFIRMMKDIR = amp。 only used if FOF_SIMPLEPROGRESS End Type Const FO_MOVE = amp。整個(gè)工程項(xiàng)目中的任何地方都可以調(diào)用公用模塊中的函數(shù)、變量，這樣可以極大地提高代碼的效率。 (6)具有 windows 風(fēng)格的使用文檔和幫助。 (2)能根據(jù)各個(gè)用戶的權(quán)限（對(duì)動(dòng)態(tài)的目錄文檔樹(shù)）分級(jí)管理：瀏覽，修改，無(wú)權(quán)限。 2．系統(tǒng)前臺(tái)采用 作為開(kāi)發(fā)語(yǔ)言環(huán)境，后臺(tái)數(shù)據(jù)庫(kù)采用 Access2020。 DataGrid 控件中的每一列都有自己的字體、邊框、自動(dòng)換行、和另外一些與其他列無(wú)關(guān)的能夠被設(shè)置的屬性。 使用 DataGrid控件的 Columns集合的 Count屬性和 Recordset對(duì)象的 RecordCount屬性，可以決定控件中行和列的數(shù)目。單元格能夠被單獨(dú)地選定或按照行來(lái)選定。 (4) DataGrid 控件 顯示并允許對(duì) Recordset 對(duì)象中代表記錄和字段的一系列行和列進(jìn)行數(shù)據(jù)操縱。 (3) SSTab 控件 SSTab 控件提供了一組選項(xiàng)卡，每個(gè)選項(xiàng)卡都可作為其它控件的容器。向相應(yīng)的節(jié)添加相應(yīng)的控件。要使用它： 配置一個(gè)數(shù)據(jù)源，例如 Microsoft 數(shù)據(jù)環(huán)境，以訪問(wèn)數(shù)據(jù)庫(kù)。任何時(shí)刻， TreeView 控件只能 使用一個(gè) ImageList。相反，若擴(kuò)展的 Node 有焦點(diǎn)，這時(shí)再按 LEFT ARROW 鍵，該 Node 便折回。 UP ARROW 鍵和 DOWN ARROW 鍵向下循環(huán)穿過(guò)所有展開(kāi)的 Node 對(duì)象。 Collapse、 Expand 和 NodeClick 三個(gè)事件也提供編程功能。調(diào)整控件間距 . MDI 窗體的特點(diǎn) : 程序啟動(dòng)時(shí) , MDI 窗體首先出現(xiàn) ,可以在其中打開(kāi)多個(gè)子窗體 .除 picture(圖片框 )控件和 Timer(定時(shí)器 ) 控件外 ,一般不能直接在 MDI 窗體上放置 . . (1) TreeView 控件顯示 Node 對(duì)象的分層列表，每個(gè) Node 對(duì)象均由一個(gè)標(biāo)簽和一個(gè)可選的位圖組成?；?ADO對(duì)象模型。 “Basic” 是指 BASIC（ Beginners Allpurpose Symbolic Instruction Code）語(yǔ)言，一種在計(jì)算機(jī)技術(shù)發(fā)展史上應(yīng)用得最為廣泛的語(yǔ)言。在 VB中引入了控件的概念，各種各樣的按鈕、文本框、選擇框等。 三． Visual Basic 簡(jiǎn)介 Visual Basic(簡(jiǎn)稱 VB)是 Microsoft 公司推出的 Windows 環(huán)境下的軟件開(kāi)發(fā)工具。如果說(shuō)其他編程語(yǔ)言可能會(huì)較好的適合于專門的用途，則 Visual Basic 幾乎可以生成任何你想要的應(yīng)用程序 ,這樣確立了 Visual Basic 作為開(kāi)發(fā)工具。 界面的特點(diǎn) 在計(jì)算機(jī)軟件技術(shù)中，人機(jī)界面已經(jīng)成為一個(gè)重要的分支。在這些技術(shù)中，軟件開(kāi)發(fā)是管理信息系統(tǒng)的重點(diǎn)。 管理信息系統(tǒng)在企業(yè)中的應(yīng)用存在三個(gè)要素，就是人、計(jì)算機(jī)和數(shù)據(jù)。該系統(tǒng)可以計(jì)劃、分析方案、審查解答和求解誤差。 管理信息系統(tǒng)在最初階段是統(tǒng)計(jì)系統(tǒng)，所研究的內(nèi)容是數(shù)據(jù)表間的規(guī)律，它可以把數(shù)據(jù)分成較相關(guān)和較不相關(guān)的組，然后把數(shù)據(jù)轉(zhuǎn)換為信息。 一 .管理信息系統(tǒng)概述 20世紀(jì)，隨著全球經(jīng)濟(jì)的蓬勃發(fā)展，眾多科學(xué)家紛紛提出了新的管理理論。然后對(duì)系統(tǒng)進(jìn)行需 求分析，畫出功能模塊圖，給出部分表。而作為計(jì)算機(jī)最大的應(yīng)用領(lǐng)域 —— 數(shù)據(jù)庫(kù)管理系統(tǒng)（ DBMS），在現(xiàn)代計(jì)算機(jī)系統(tǒng)已被作為主要的系統(tǒng)軟件之一。 本文討論了一個(gè)數(shù)據(jù)庫(kù)系統(tǒng)的設(shè)計(jì)實(shí)例 ,并利用對(duì)數(shù)據(jù)庫(kù)的操作 ,開(kāi)發(fā)一個(gè)商業(yè)信息系統(tǒng) ,本系統(tǒng)使用 Visual 做前臺(tái)應(yīng)用程序， Microsoft Access2020 做后臺(tái)數(shù)據(jù)庫(kù)，使用 ADO 技術(shù)來(lái)連接數(shù)據(jù)庫(kù)。接著給出了程序設(shè)計(jì)的某些界面和部分代碼。 1985 年，管理信息系統(tǒng)（ MIS）的創(chuàng)始人，明蘇達(dá)大學(xué)的管理教授 Gorden 給了管理信息系統(tǒng)一個(gè)比較完整的定義，即 管理信息系統(tǒng)是一個(gè)利用計(jì)算機(jī)軟硬件資源，手工作業(yè)，分析，計(jì)劃 ,控制和決策模型以及數(shù)據(jù)庫(kù)的人機(jī)系統(tǒng)。 第二階段是數(shù)據(jù)更新系統(tǒng)。 的應(yīng)用 MIS 最 初應(yīng)用于最基礎(chǔ)的工作，如打印報(bào)表，計(jì)算工資，人事管理等，進(jìn)而發(fā)展到企業(yè)財(cái)務(wù)管理 ,庫(kù)存管理等單項(xiàng)業(yè)務(wù)管理，這屬于電子數(shù)據(jù)處理， (EDP) 系統(tǒng)。 人是指企業(yè)領(lǐng)導(dǎo)者，管理人員 ,技術(shù)人員，以及管理信息系統(tǒng)建設(shè)的領(lǐng)導(dǎo)機(jī)構(gòu)和實(shí)施機(jī)構(gòu)，他們?cè)谙到y(tǒng)中請(qǐng)主導(dǎo)作用。 第三個(gè)因素也是不可忽視的。 1. 管理信息系統(tǒng) 人機(jī)界面設(shè)計(jì)一般遵循以下一些基本原則： 2. 以通信功能作為界面設(shè)計(jì)的核心 建筑工程質(zhì)量檢測(cè)管理系統(tǒng) 第 6 頁(yè) 共 55 頁(yè) 3. 界面必須始終保持一致 4. 界面必須使用用戶隨時(shí)掌握任務(wù)的進(jìn)展情況 5. 界面必須能夠提供幫助 6. 界面友好、使用方便 7. 輸入畫面盡可能接近實(shí)際 8. 具有較強(qiáng)的容錯(cuò)功能 二．開(kāi)發(fā)工具的選擇 隨著計(jì)算機(jī)技術(shù)的高速發(fā)展，計(jì)算機(jī)軟件產(chǎn)業(yè)也隨之迅速的崛起。 Visual Basic ，它使用面向?qū)ο蟮某绦蛟O(shè)計(jì)風(fēng)格，封裝了 Windows中的構(gòu)件，并且能夠方便地訪問(wèn)數(shù)據(jù)庫(kù)，可以開(kāi)發(fā)各種應(yīng)用程序（包括 Client/Server數(shù)據(jù)庫(kù)應(yīng)用程序 Visual Basic不但簡(jiǎn)單易學(xué)、功能強(qiáng)大，深受廣大計(jì)算機(jī)愛(ài)好者和 IT從業(yè)者的青睞，又是許多高校學(xué)生必學(xué)的計(jì)算機(jī)基礎(chǔ)課，同時(shí)還是高校學(xué)生計(jì)算機(jī)等級(jí)考試學(xué)生選考人數(shù)最多的科目之一）。在語(yǔ)言功能方面，它與以前的 BASIC 語(yǔ)言基本兼容，但功能更強(qiáng)大，使用更方便。 VB把這些控件模式化，并且每個(gè)控件都由若干屬性來(lái)控制其外觀、工作方法。 Visual Basic 在原有 BASIC語(yǔ)言的基礎(chǔ)上進(jìn)一步發(fā)展，至今包含了數(shù)百條語(yǔ)句、函數(shù)及關(guān)鍵詞，其中很多和 Windows GUI有直接關(guān)系。 作用：使用 OLE DB 數(shù)據(jù)源或者 ODBC 數(shù)據(jù)源定義數(shù)據(jù)庫(kù) Connection 連接對(duì)對(duì)象的層次，可以被 HflexGrid 控件和 Data Report Designer 等分層工具使用；從設(shè)計(jì)者的Command 對(duì)象向綁定于 Command 對(duì) 象的 Form（表）對(duì)象或者 Data Report Designer拖放字段和表；在 Data Report Designer