【文章內(nèi)容簡介】 體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。例如，可以打印一份將數(shù)據(jù)分組并計算數(shù)據(jù)總和的報表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標簽的報表。第一章 系統(tǒng)的分析第一章 系統(tǒng)的分析2．1 系統(tǒng)開發(fā)的目標和思想本系統(tǒng)開發(fā)目標是服務于高速公路收費管理人員,方便工作人員,對過往車輛收費,發(fā)放收費票據(jù)記錄,對信息的分類管理等.同時力求做到界面人性化,功能齊全,數(shù)據(jù)存儲安全.2．2 系統(tǒng)的可行性分析技術上:本系統(tǒng)采用visual basic ,技術上開發(fā)難度一般.經(jīng)濟上:本系統(tǒng)服務于醫(yī)院藥方管理人員,提高了工作人員辦事效率,.社會上:本系統(tǒng)同時也方便了廣大病人,.第二章 系統(tǒng)的設計3．1 系統(tǒng)的功能結構設計程序登陸主界面出庫入庫數(shù)據(jù)維護窗口幫助3．2 系統(tǒng)的數(shù)據(jù)庫設計1:草藥表:2:處方表設計:3:費用表設計:4:庫存表設計5:科室代碼表:6:門診收費表:7:藥品信息表:8:用戶表:9:藥方表:3．2 界面設計與代碼設計1,登入界面設計:代碼設計:Public userdwname As StringPublic username As StringPublic userright As StringPublic conn As StringPrivate Sub Command1_Click()Dim password As StringDim respond As Stringusername = password = On Error GoTo err1 = conn = select * from usertab where 用戶名= amp。 39。 amp。 username amp。 39。 amp。 and amp。 密碼= amp。 39。 amp。 password amp。 39。If = adPosUnknown Thenrespond = MsgBox(用戶名或密碼錯誤，請重新輸入！, vbOKOnly, 警告)If respond vbOKOnly Then = = username = password = End IfElseuserright = (權限)Unload frmloginEnd IfExit Suberr1:MsgBox 系統(tǒng)配置錯誤！無法與服務器連接！userright = 0Unload MeEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load() = = 39。conn = conn = Provider=。Data Source= amp。 amp。 \。Persist Security Info=FalseEnd Sub2. 用戶修改密碼界面設計:代碼設計:Private Sub Command1_Click()On Error GoTo err1username = If And Then = select * from usertab where 用戶名=39。 amp。 username amp。 39。 and 密碼= amp。 39。 amp。 amp。 39。If = adPosUnknown ThenMsgBox 舊密碼錯誤! = = Else(密碼) = MsgBox 密碼修改成功！ = = End IfElseMsgBox 新舊密碼均不得為空！End IfExit Suberr1:MsgBox 遠程服務器連接失??！End SubPrivate Sub Command2_Click() = = End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Form_Load()On Error GoTo err2 = ( ) / 2 500 = ( ) / 2 = = = Exit Suberr2:MsgBox 遠程服務器連接失??！End SubPrivate Sub Form_Unload(Cancel As Integer)(2) = 目前沒有窗口被激活End SubPrivate Sub Form_Activate()(2) = 活動窗口： amp。 End Sub3,關于界面設計:代碼設計:Private Sub cmdOK_Click() Unload MeEnd SubPrivate Sub Form_Load() = ( ) / 2 500 = ( ) / 2 = 關于 amp。 = End SubPublic Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 39。 試圖從注冊表中獲得系統(tǒng)信息程序的路徑及名稱... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 39。 試圖僅從注冊表中獲得系統(tǒng)信息程序的路徑... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 已知32位文件版本的有效位置 If (Dir(SysInfoPath amp。 \) ) Then SysInfoPath = SysInfoPath amp。 \ 39。 錯誤 文件不能被找到... Else GoTo SysInfoErr End If 39。 錯誤 注冊表相應條目不能被找到... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox 此時系統(tǒng)信息不可用, vbOKOnlyEnd SubPublic Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long 39。 循環(huán)計數(shù)器 Dim rc As Long 39。 返回代碼 Dim hKey As Long 39。 打開的注冊表關鍵字句柄 Dim hDepth As Long 39。 Dim KeyValType As Long 39。 注冊表關鍵字數(shù)據(jù)類型 Dim tmpVal As String 39。 注冊表關鍵字值的臨時存儲器 Dim KeyValSize As Long 39。 注冊表關鍵自變量的尺寸 39。 39。 打開 {HKEY_LOCAL_MACHINE...} 下的 RegKey 39。 rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 39。 打開注冊表關鍵字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 處理錯誤... tmpVal = String$(1024, 0) 39。 分配變量空間 KeyValSize = 1024 39。 標記變量尺寸 39。 39。 檢索注冊表關鍵字的值... 39。 rc = RegQueryValueEx(hKey, SubKeyRef, 0, _