Access通用開發(fā)平臺超強界面來襲

hunrybecky

       首先感謝office-cn王站和ACCESSOFT平臺的前輩做的開發(fā)平臺，讓我們可以快速開發(fā)自己的軟件。經(jīng)過學學習，我以原平臺為核心，對平臺的界面和功能進行了很多模擬改進，讓我們看看吧。
       歡迎使用交流。

hunrybecky

1.保留系統(tǒng)默認界面，做了部分優(yōu)化

hunrybecky

2.時尚界面，模擬的王站老平臺的界面，采用了ctExplorer控件，可以自由的在樹菜單和列表菜單中切換，同時集成了流程圖界面。

hunrybecky

3.經(jīng)典界面：這個是借用了國外的BIG BROTHER的成果，沒有使用任何第三方控件

hunrybecky

4.簡潔界面：這個來源于http://www.accessoft.com/article-show.asp?id=17800，但是對其做了大量修改。

hunrybecky

5.仿WINXP界面：這個使用了ctExplorerBar控件，同時集成了流程圖

hunrybecky

6.超級組合界面：同時整合了幾種不同的界面，點擊狀態(tài)欄可以按順序切換四種界面，同時集成了流程圖。組合界面主要采用了ctExplorerBar,ctListBar,treeview,ListView制作左邊的菜單欄，右邊采用了子窗體，流程圖控件以及TabStrip作為數(shù)據(jù)顯示顯示界面，可以通過參數(shù)設(shè)置數(shù)據(jù)是通過子窗體還是TabStrip多TAB方式數(shù)據(jù)。TabStrip可以實現(xiàn)多個子窗體同時顯示多個窗口的數(shù)據(jù)。

hunrybecky

7.整合了黃海的超強界面：實現(xiàn)方式很簡單，就是引用黃海的開放平臺，然后調(diào)用時寫一個函數(shù)，同步更新菜單到黃海平臺的相關(guān)菜單表中。代碼如下：
Public Function hy_UpdateSysMenu(Optional blnUpdate As Boolean = True)
'==============================================================================================
'函數(shù)作用：同步平臺菜單到黃海菜單中，獨立使用原平臺，只是把三個菜單表移植到本主文件中
'使用注意：使用黃海平臺前需要先執(zhí)行本函數(shù)同步菜單；另外首頁菜單需要單獨自行編輯
'==============================================================================================
On Error Resume Next
If blnUpdate = False Then Exit Function
Dim rstTemp As ADODB.Recordset
Dim strSql As String
Set rstTemp = New ADODB.Recordset
On Error GoTo 0
DoCmd.SetWarnings False
DoCmd.RunSQL "delete * from sysHyMenus where id<>1" '先清除菜單表中的項目,但排除首頁菜單
DoCmd.RunSQL "INSERT INTO sysHyMenus(menuName,orderNo,menuEnabled) SELECT MenuTextLocal,ID,Enabled FROM SysLocalNavigationMenus WHERE Enabled<>0 and Allow<>0 and Len(ID)=2  and ID Not In ('97','98','99') ORDER BY ID" '把平臺的菜單同步到黃海的菜單表中
DoCmd.RunSQL "Alter TABLE sysHyMenuButtons Alter COLUMN id COUNTER (100,1)" '設(shè)置sysHyMenuButtons自動編號從100開始,sysHyMenus因為存在關(guān)系則無法設(shè)置自動編號
strSql = "SELECT * from sysHyMenus ORDER BY orderNo"
rstTemp.Open strSql, CurrentProject.Connection, adOpenStatic, adLockOptimistic
Do While Not rstTemp.EOF '循環(huán)菜單表
    DoCmd.RunSQL "INSERT INTO sysHyMenuButtons(menuID,buttonName,cmdArgs,imgFile,orderNo,buttonEnabled) SELECT " & rstTemp.Fields("ID") & ",trim(MenuTextLocal),Command,'defaultButton.gif',ID,Enabled FROM SysLocalNavigationMenus WHERE Allow<>0 AND left([ID],2)=" & rstTemp.Fields("orderNo") & " AND len([ID])>2  ORDER BY ID"   '把平臺的菜單同步到黃海的菜單表中
    rstTemp.MoveNext
Loop
If rstTemp.State = adStateOpen Then rstTemp.Close
DoCmd.SetWarnings True
End Function

hunrybecky

其他功能：
1.登錄界面

2.流程圖設(shè)計

3.內(nèi)置OFFICE文檔/pdf文檔/DWG文檔查看器，都是通過第三方控件實現(xiàn)。

4.支持SQL和ACCESS數(shù)據(jù)庫后臺

5.超全的開發(fā)工具，同時菜單同步菜單表為ACCESS菜單。

hunrybecky

看看使用本開發(fā)平臺開發(fā)的人事管理系統(tǒng)