物流業(yè)務(wù)系統(tǒng)ppt課件-資料下載頁
2025-01-19 22:39本頁面
【正文】 Function CHANGE(n) As String ‘把單個(gè)數(shù)字轉(zhuǎn)化為漢字 Select Case n Case 0 CHANGE = 零 Case 1 CHANGE = 壹 Case 2 CHANGE = 貳 Case 3 CHANGE = 叁 Case 4 CHANGE = 肆 Case 5 CHANGE = 伍 Case 6 CHANGE = 陸 Case 7 CHANGE = 柒 Case 8 CHANGE = 捌 Case 9 CHANGE = 玖 End Select End Function 2） IsLoaded ‘判別給定的窗體是否打開 Function IsLoaded(ByVal strFormName As String) As Boolean 39。 如果指定窗體在窗體視圖或數(shù)據(jù)表視圖中打開 ， 返回 True。 Dim oAccessObject As AccessObject Set oAccessObject = (strFormName) If Then If acCurViewDesign Then IsLoaded = True End If End If End Function 3)GetComputerName ‘得到當(dāng)前計(jì)算機(jī)的名字 ， 用于系統(tǒng)的安全 ， 只有允許的計(jì)算機(jī)才可以使用本倉儲(chǔ)系統(tǒng) 。 39。聲明 GetComputerName函數(shù) ， 它是 API函數(shù) Declare Function GetComputerName Lib kernel32 Alias GetComputerNameA (ByVal lpBuffer As String, nSize As Long) As Long 39。聲明 SetComputerName Declare Function SetComputerName Lib kernel32 Alias SetComputerNameA (ByVal lpComputerName As String) As Long 39。定義一個(gè)獲取計(jì)算機(jī)名字的函數(shù) Public Function GetCName(CName) As Boolean Dim sComputerName As String 39。 計(jì)算機(jī)的名字 Dim lComputerNameLen As Long 39。計(jì)算機(jī)名字的長度 Dim lResult As Long 39。GetComputerName的返回值 Dim RV As Boolean 39。GetCName返回值 ， 若為 TRUE則表示操作成功 lComputerNameLen = 256 sComputerName = Space(lComputerNameLen) lResult = GetComputerName(sComputerName, lComputerNameLen) If lResult 0 Then CName = Left$(sComputerName, lComputerNameLen) RV = True Else RV = False End If GetCName = RV End Function 39。定義一個(gè)修改計(jì)算機(jī)名字的函數(shù) Public Function SetCName(CName As String) As Boolean Dim lResult As Long Dim RV As Boolean lResult = SetComputerName(CName) If lResult 0 Then RV = True 39。修改成功 Else RV = False End If SetCName = RV End Function 菜單設(shè)計(jì) 設(shè)計(jì)系統(tǒng)的菜單前先設(shè)計(jì)宏，設(shè)計(jì)調(diào)用各功能的宏，我們把全部宏設(shè)計(jì)為一組，以宏名 “ 菜單 ” 保存，見圖 839。 倉儲(chǔ)管理系統(tǒng)系統(tǒng)啟動(dòng)后顯示菜單如下圖 840所示。 圖 839 宏 圖 840 倉儲(chǔ)管理系統(tǒng)系統(tǒng)啟動(dòng)菜單 系統(tǒng)的調(diào)試與安裝 升遷到 SQL SERSERVER 打開 Access升遷向?qū)瓿缮w工作，如圖 841所示。 圖 841 升遷向?qū)? 調(diào)試運(yùn)行 打包、制做安裝程序 使用說明、發(fā)布軟件
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1