【正文】 nd SubPrivate Sub Command12_Click() 1 39。 39。保證用戶名和密碼都填寫 MsgBox 用戶名不能為空！, vbCritical Exit Sub End If If = Then MsgBox 密碼不能為空！, vbCritical Exit Sub End If If Then sql = TBL_ADMIN 39。查詢的同時也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計算。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。3．2詳細(xì)設(shè)計3．2．1詳細(xì)設(shè)計的任務(wù) 詳細(xì)設(shè)計必須是無歧義地描述過程地細(xì)節(jié)，詳細(xì)設(shè)計主要決定每個模塊內(nèi)部的具體算法。選擇分解功能與劃分模塊的設(shè)計原則，例如模塊劃分獨立性原則，信息隱蔽原則等。況且現(xiàn)在建行已經(jīng)建起了個人網(wǎng)上銀行，本系統(tǒng)為個人理財系統(tǒng)的到來做了先期工作，比如計算機的財務(wù)管理模式的建立。從這里可以看出，財務(wù)管理 貫穿于企業(yè)的各項工作之中，財務(wù)工作與其它管理工作是密不可分的。　　　　財務(wù)管理的工作對象是資金運動，只要有資金運動就離不開財務(wù)管理。財務(wù)管理就 成為無本之木，其作用得不到發(fā)揮，形成經(jīng)營和生產(chǎn)“兩張皮”。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual ？因為VB具有眾多其它開發(fā)工具所沒有的優(yōu)點！具體介紹如下：u 開發(fā)的高效u 語言的高效u 編譯的高效u 執(zhí)行的高效u 維護的高效基于以上理由，?。∥④浌镜腣isual ：一是：用data控件進行數(shù)據(jù)庫鏈接 ，二是利用adodc（ADO Data Control)進行數(shù)據(jù)庫鏈接 。1管理員模塊功能：提供對管理員的密碼，權(quán)限，增刪設(shè)置。一個更高級的連接形式稱為自連接。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個表。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。 AND ADMIN_PASSWORD=39。啟用或者禁止快捷按鈕所在的Frame = False = False = False = False Else = True = True = True = True End IfEnd SubPrivate Sub Command1_Click() 1 39。顯示刪除固定資產(chǎn)窗體End SubPrivate Sub Command17_Click() 1 39。顯示添加考勤記錄窗體End SubPrivate Sub Command6_Click() 1 39。當(dāng)主窗體關(guān)閉時關(guān)閉數(shù)據(jù)庫連接 EndEnd SubPrivate Sub menu_AddAdmin_Click() 1 39。顯示修改考勤記錄窗體End SubPrivate Sub menu_ChangeFixed_Click() 1 39。顯示注銷(登錄)窗體End SubPrivate Sub menu_MonthBln_Click() 1 39。設(shè)置保存對話框的顯示文件類型 39。 職位名稱。 Tab?？记谟绊懙降墓べY Dim resultcount As Long 39。 amp。重新設(shè)置每個人的月工資 Next i Else 39。判斷資產(chǎn)說明輸入框不為空 MsgBox 資產(chǎn)說明不能為空！, vbCritical Exit Sub End If If Not IsNumeric() Then 39。 amp。 sql, DbFinance If (rs) 1 Then 39。經(jīng)手人ID rs(FIXED_PHONE) = 39。完成下拉列表的動態(tài)添加,釋放結(jié)果集資源,關(guān)閉數(shù)據(jù)庫連接 Set rs = Nothing Else 39。判斷報銷類別下拉列表必須選擇 MsgBox 報銷類別必須選擇！, vbCritical Exit Sub End If If = 1 Then 39。選擇指定ID的記錄 sql, DbFinance If (rs) = 1 Then 39。釋放結(jié)果記錄集 Exit Sub Else sql = TBL_CUR 39。報銷說明 End If MsgBox 報銷記錄成功添加！ Unload Me Else 39。打開數(shù)據(jù)庫失敗彈出錯誤窗體 MsgBox 數(shù)據(jù)庫錯誤！, vbExclamation End End If If Then 39。判斷管理員密碼輸入框不為空 MsgBox 管理員密碼不能為空！, vbCritical Exit Sub End If If Then 39。如果找到一條存在的管理員記錄就報錯 MsgBox 管理員ID已經(jīng)存在！, vbExclamation Exit Sub Else 39。所以，接下來我就按先前了解的那樣，將自己以前做的系統(tǒng)的資料找出來，結(jié)合目前的情。參考文獻1.《數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用》 閃四清 清華大學(xué)出版社 1999年2.《Visual Basic 》 劉世峰 中央廣播電大出版社 2003年3.《Visual Basic程序設(shè)計》 陳 明 中央廣播電大出版社 2001年4.《軟件工程》 楊文龍 電子工業(yè)出版社 2001年5.《管理信息系統(tǒng)》 薛華成 清華大學(xué)出版社 1996。在問詢了同學(xué)的意見以后，他們。當(dāng)數(shù)據(jù)庫連接打不開時候報錯 MsgBox 數(shù)據(jù)庫錯誤！, vbExclamation End End IfEnd Sub第六章 系統(tǒng)使用說明本系統(tǒng)服務(wù)于企事業(yè)單位的財務(wù)管理人員,具有工資管理,固定資產(chǎn)管理,.硬件系統(tǒng)硬件平臺CPUIntel P4 主板Intel 850芯片組的GA8TXC內(nèi)存2128M的三星Rambus內(nèi)存硬盤Seagate Barracuda 80G顯卡Unika 小妖G9800顯示器美格770PF，17寸純平顯示器軟件環(huán)境操作系統(tǒng)Microsoft WindowsXP簡體中文專業(yè)版＋SP1辦公軟件Microsoft Office 2003顯卡驅(qū)動nVIDIA Win2000/XP軟件系統(tǒng)：Visual basic 、Access數(shù)據(jù)庫。對TBL_ADMIN進行操作 = adOpenDynamic = adLockOptimistic = ADMIN_ID=39。對部門表進行全部選擇 = adOpenDynamic = adLockOptimistic = sql, DbFinance Do While = False 39。取消添加并且返回主窗體End SubPrivate Sub Form_Load() Dim sql As String Dim rs As New = ( ) / 2 39。報銷單編號 rs(CUR_TYPE) = () 39。如果記錄不存在打開職工表進一步驗證職工ID號是否存在 = adOpenDynamic = adLockOptimistic = USER_ID=39。打開DSN數(shù)據(jù)庫源連接 sql = TBL_CUR 39。初始化窗體元素屬性 = = = = = = = 100 = End Sub 添加報銷記錄代碼:Private Sub Command1_Click() Dim sql As String Dim rs As New If = Then 39。購買時間 rs(FIXED_REMARK) =