【正文】 每一列都有自己的字體、邊框、自動(dòng)換行、和另外一些與其他列無關(guān)的能夠被設(shè)置的屬性。您還能阻止用戶在運(yùn)行時(shí)改變格式。 2．系統(tǒng)前臺(tái)采用 作為開發(fā)語言環(huán)境，后臺(tái)數(shù)據(jù)庫采用 Access2020。 4．主界面元素：系統(tǒng)菜單，文檔瀏覽窗口，文檔庫目錄樹 ,狀態(tài)欄等。 (2)能根據(jù)各個(gè)用戶的權(quán)限（對(duì)動(dòng)態(tài)的目錄文檔樹）分級(jí)管理：瀏覽，修改，無權(quán)限。 (5)系統(tǒng)具備相關(guān)查詢，匯總功能。 (6)具有 windows 風(fēng)格的使用文檔和幫助。我們?cè)谶M(jìn)行開發(fā)時(shí)，就需要建立數(shù)據(jù)庫了。整個(gè)工程項(xiàng)目中的任何地方都可以調(diào)用公用模塊中的函數(shù)、變量，這樣可以極大地提高代碼的效率。其中添加的代碼如下： Option Explicit Public sConString As String Public frmActiveNow As Form Public bmdata As Boolean Public bmconsign As Boolean Public bMstat As Boolean Public bMroomtest As Boolean Public bMlocaltest As Boolean Public bMwateltest As Boolean Public bMsystemmanage As Boolean Public bMchargemanage As Boolean Public bMsearch As Boolean Public bMprint As Boolean Public bMtotal As Boolean Public bMwork As Boolean Public username As String Public userpassword As String 39。 only used if FOF_SIMPLEPROGRESS End Type Const FO_MOVE = amp。H2 Const FO_DELETE = amp。H10 Const FOF_NOCONFIRMMKDIR = amp。H40 Const FOF_SILENT = amp。復(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=。 amp。Persist Security Info=False = sConString 39。我們對(duì)不同的用戶都給予了不同的權(quán)限，不同的用戶只能看到自己可以操作的一些菜單和目錄樹，其他的我們給予屏蔽，使用戶不可見。HCC0010 Private rstTemp As Private Sub Form_Load() Dim X0 As Long Dim Y0 As Long 39。打開用戶表 Set rstTemp = If = 0 Then End Sub Private Sub Form_Unload(cancel As Integer) If LoginSucceeded = False Then cancel = True End Sub Private Sub Timer1_Timer() Dim tempTime As String tempTime = Format(Time, hh:mm:ss) BitBlt , 0, 1, 10, 14, , 10 * Int(Left$(tempTime, 1)), 0, SRCCOPY 39。h BitBlt , 25, 1, 10, 14, , 10 * Int(Mid$(tempTime, 4, 1)), 0, SRCCOPY 39。m BitBlt , 50, 1, 10, 14, , 10 * Int(Mid$(tempTime, 7, 1)), 0, SRCCOPY 39。s End Sub Private Sub cmdcancel_Click() 39。不提示失敗的登錄 LoginSucceeded = False End 39。定義靜態(tài)變量 Dim rst As Set rst = New Set = (con) = adUseClient = adOpenDynamic = adLockOptimistic = select * from users where username=39。 Trim() amp。and userpass=39。 Trim() amp。 39。提取用戶權(quán)限 bmconsign = (consign) bMstat = (stat) bMroomtest = (RoomInspect) bMlocaltest = (LocaleInspect) bMwateltest = (WaterElectricityInspect) bMsystemmanage = (Administrator) bMchargemanage = (Charge) bMsearch = (Search) bMprint = (Print) bMtotal = (Collect) 39。光標(biāo)重新定位到 txtPassword End If 建筑工程質(zhì)量檢測(cè)管理系統(tǒng) 第 21 頁 共 55 頁 End If End Sub Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then 39。然后執(zhí)行 cmdOK_click 模塊 End If End Sub 2． 密碼修改界面 用戶登陸進(jìn)入系統(tǒng)后可以進(jìn)行密碼的修改，此修改只能是當(dāng)前剛登陸的用戶可以執(zhí)行， 先通過驗(yàn)證確認(rèn)用戶的身份后進(jìn)入修改界面，此時(shí)可以進(jìn)行密碼的修改。 amp。 39。 部分代碼如下： 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 頁 共 55 頁 = 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。以下代碼重裝數(shù)據(jù)庫 Private Sub mnuData_Reship_Click() On Error GoTo err Dim SourceFile, DestinationFile, vbMsg As String DestinationFile = amp。 指定目的文件名。 \db\backup\ 建筑工程質(zhì)量檢測(cè)管理系統(tǒng) 第 25 頁 共 55 頁 .ShowOpen SourceFile = .FileName 39。 將源文件的內(nèi)容復(fù)制到目的文件中。以下代碼存儲(chǔ)數(shù)據(jù)庫 Private Sub mnuData_StockUp_Click() On Error GoTo err Dim SourceFile, DestinationFile, vbMsg As String SourceFile = amp。 指定源文件名。 \Db\backup\ArchiQualiCheck amp。 .mdb .ShowSave DestinationFile = .FileName 39。 Call CopyDB(SourceFile, DestinationFile) 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)開發(fā)人員 ： 蘇斌 Case 2 (2).Text = 管理系統(tǒng)開發(fā)人員 ：李臘生 End Select End Sub 建筑工程質(zhì)量檢測(cè)管理系統(tǒng) 第 26 頁 共 55 頁 Private Sub UnloadActiveForm() If Not frmActiveNow Is Nothing Then Unload frmActiveNow End If End Sub Private Sub MDIForm_Load() 39。 \Temp, vbDirectory) Then If Dir( amp。 \Temp\*.* End If 39。 \Temp\*.*) = Then RmDir amp。建立文件夾 temp End If End Sub 其中目錄樹的部分代碼如下： Option Explicit Private Sub Form_Load() 39。室內(nèi)檢測(cè) Case 混凝土抗壓 If frmActiveNow Is frmConcPress Then Exit Sub Call UnloadActiveForm Load frmConcPress 建筑工程質(zhì)量檢測(cè)管理系統(tǒng) 第 29 頁 共 55 頁 Set frmActiveNow = frmConcPress 39。水電檢測(cè) Case 水電檢測(cè) _委托 If frmActiveNow Is frmWEConsign Then Exit Sub Call UnloadActiveForm Load frmWEConsign Set frmActiveNow = frmWEConsign