【正文】 hen (1, 1) = (周一上午) (2, 1) = (周一下午) (1, 2) = (周二上午) (2, 2) = (周二下午) (1, 3) = (周三上午) (2, 3) = (周三下午) (1, 4) = (周四上午) (2, 4) = (周四下午) (1, 5) = (周五上午) (2, 5) = (周五下午) = (時間段) = False 39。關(guān)閉記錄集對象End Sub單擊【保存】按鈕將通過SQL語句保存維護(hù)的工作安排信息，實(shí)現(xiàn)的代碼如下：Private Sub Cmd_Save_Click() (2, 5) = If = Then MsgBox 請選擇錄入工作安排的周數(shù), 48, 提示信息 Else c = MsgBox(確認(rèn)保存信息嗎, 33, 提示信息) If c = vbOK Then 39。 amp。 39。amp。 39。 amp。39。 amp。 39。 amp。 39。 amp。 39。amp。 39。 amp。 39。 amp。 39。 amp。 39。 + + 39。在填寫完報銷單的時候，要經(jīng)過審核該報銷單據(jù)才有效。除了審核信息之外，在窗體中還可以按照部門打印出每個部門的報銷費(fèi)用信息，在部門列表中選擇某一個部門之后，此時工具欄中的【打印】按鈕變?yōu)榭捎脿顟B(tài)，單擊【打印】按鈕即可打印出該部門的報銷單據(jù)信息。圖10 報銷費(fèi)用管理模塊運(yùn)行結(jié)果打印部門報銷費(fèi)用信息的報表界面運(yùn)行結(jié)果如圖11所示。（2）在窗體上添加1個Toolbar控件及1個ImageList控件。（4）在窗體上添加2個ComboBox控件，分別命名為“Cbx_lx”和“Cbx_bm”，用于記錄費(fèi)用類型和部門信息，同時將這2個控件的Style屬性都設(shè)置為“0”。（6）在窗體上添加1個文本框控件數(shù)組，數(shù)組中包含有5個文本框控件。（8）在窗體上添加1個Line控件，并將其BorderColor屬性值設(shè)置為“amp。”。添加方法如下：在“工程”/“部件”對話框中勾選“Microsoft Windows Common ”列表項，單擊【確定】按鈕之后即可將ListView控件添加到工具箱當(dāng)中。報銷費(fèi)用管理窗體的設(shè)計結(jié)果如圖12所示。窗體啟動時的代碼如下：Private Sub Form_Load() Call LoadFile = Date 39。統(tǒng)計費(fèi)用金額 Call RefreshData Call Tbr_cortrol(Tbr_xxcz, True) (12).Enabled = False (9).Enabled = FalseEnd Sub在Tj過程當(dāng)中，通過sum函數(shù)統(tǒng)計報銷費(fèi)用的總金額。 (0) amp。用戶自定義RefreshData過程代碼如下：Private Sub RefreshData() select distinct 部門 from 報銷費(fèi)用管理, Cnn, adOpenKeyset If 0 Then = True Do While = False Key = (部門) Set itmX = (, , Key, 1) Loop Else = False 39。置為不可用的狀態(tài) End If End Sub單擊ListView控件列表中的部門信息，在數(shù)據(jù)網(wǎng)格和窗體中的文本框控件中將顯示該部門中的數(shù)據(jù)信息，實(shí)現(xiàn)的代碼如下：Private Sub ListView1_ItemClick(ByVal Item As ) = select * from 報銷費(fèi)用管理 where 部門=39。 order by ID On Error Resume Next 39。按部門查詢時統(tǒng)計報銷費(fèi)用金額 select sum(金額) from 報銷費(fèi)用管理 where 部門=39。 , Cnn, adOpenKeyset If 0 Then = 4700 = amp。 (0) amp。編碼查詢模塊的運(yùn)行結(jié)果如圖13所示。（2）在窗體上添加1個Ado控件。H80000018amp。（4）在窗體上添加1個TreeView控件和1個ImageList控件，由于這兩個控件屬于ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱。（5）在ImageList控件上單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“屬性”，此時彈出“屬性頁”對話框，選擇“通用”選項卡，在該選項卡中選擇“1616”單選按鈕，如圖14所示。圖15 向控件中添加圖像（7）在窗體上的TreeView控件中單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“屬性”，此時彈出“屬性頁”對話框，在該對話框中選擇“通用”選項卡，在該選項卡中將“線條樣式”設(shè)置為0tvwTreeLines，在“圖像列表”旁的列表框中選擇“ImageList1”，為TreeView控件添加圖像。圖16 設(shè)置TreeView控件的顯示樣式（8）在窗體上添加1個Ado控件和1個DataGrid控件，將DataGrid控件的BackColor屬性值設(shè)置為“amp?！?，DataSource屬性設(shè)置為“Adodc1”，AllowUpdate屬性設(shè)置為“False”。（10）在窗體上添加1個標(biāo)簽控件，用于顯示查詢到編碼的數(shù)量信息。圖17 編碼查詢窗體的設(shè)計結(jié)果2．代碼設(shè)計在窗體啟動時，調(diào)用用戶自定義的Tree_change過程，在TreeView控件中添加省份信息，利用Ado控件的RecordCount屬性統(tǒng)計出當(dāng)前數(shù)據(jù)表中的數(shù)據(jù)記錄，并將其顯示在標(biāo)簽控件當(dāng)中。調(diào)用添加省份信息的過程 = PublicStr = select * from 郵編大全 = 總計查詢記錄的條數(shù)為 amp。定義一個節(jié)點(diǎn)變量 Key = 所有編碼 Text = 所有編碼 Set Node1 = (, , Key, Text, 1) select distinct 省份 from 郵編大全 , Cnn, adOpenKeyset If 0 Then 39。數(shù)據(jù)記錄移向下一條 Loop End If 39。 + + 39。 End Sub在Text1文本框控件中輸入省份名稱然后按下〈Enter〉鍵，利用SQL語句可以查詢相應(yīng)省份的編碼信息，實(shí)現(xiàn)的事件代碼如下：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then = PublicStr = select * from 郵編大全 where 省份=39。 = 總計查詢記錄的條數(shù)為 amp。% + + %39。 End IfEnd Sub附錄A 參考文獻(xiàn)1．Visual Basic精彩編程200例 機(jī)械工業(yè)出版社 賽奎春、高春艷等 2003年1月 2．Visual Basic數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 劉志銘、高春艷等 2003年8月 3．Visual FoxPro數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 王晶瑩、王國輝等 2003年9月 4．Power Builder數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 華傳銘、張振坤等 2003年9月 5．Delphi數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 賽奎春、鄭驍鵬等 2004年2月 6．PowerBuilder 精彩編程200例 機(jī)械工業(yè)出版社 張振坤、李文立等 2004年9月7．Visual FoxPro 精彩編程200例 機(jī)械工業(yè)出版社 王國輝、董韶華等 2004年9月8．ASP數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李嚴(yán)、于亞芳、王國輝 2004年12月9．Delphi工程應(yīng)用與項目實(shí)踐 機(jī)械工業(yè)出版社 宋坤、趙智勇等 2005年1月 10．Visual Basic工程應(yīng)用與項目實(shí)踐 機(jī)械工業(yè)出版社 高春艷、李俊民等 2005年1月 11．Visual C＋＋工程應(yīng)用與項目實(shí)踐 機(jī)械工業(yè)出版社 張雨、阮偉良等 5005年1月12．JSP工程應(yīng)用與項目實(shí)踐 機(jī)械工業(yè)出版社 陳威、白偉明、李楠 2005年2月13．ASP工程應(yīng)用與項目實(shí)踐 機(jī)械工業(yè)出版社 王國輝、牛強(qiáng)、李南南 2005年4月14．Visual Basic 信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 高春艷、李俊民、張耀庭等 2005年7月15．ASP 信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 王國輝、牛強(qiáng)、李南南等 2005年7月 16．Delphi 信息系統(tǒng)開發(fā)實(shí)例精選 機(jī)械工業(yè)出版社 宋坤、趙智勇、劉強(qiáng)等 2005年7月 17．Visual foxpro數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 周桓、張雨、王國輝2004年5月18．PoweBuilder數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 劉志銘 張振坤 馮文萃 2004年5月19．Delphi數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 賽奎春 陳紫鴻 宋昆 2004年5月20．Visual basic數(shù)據(jù)庫開發(fā)關(guān)鍵技術(shù)與實(shí)例應(yīng)用 人民郵電出版社 高春艷、李艷 2004年5月21．Visual C++ 管理信息系統(tǒng)完整項目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月 22．Visual Basic 管理信息系統(tǒng)完整項目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月 23．PowerBuilder 管理信息系統(tǒng)完整項目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月 24．Visual FoxPro管理信息系統(tǒng)完整項目實(shí)例剖析 人民郵電出版社 明日科技 2005年7月 25．SQL Server數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 宋昆、李嚴(yán)等 2006年1月26．Access數(shù)據(jù)庫開發(fā)實(shí)例解析 機(jī)械工業(yè)出版社 李俊民、高春燕等 2006年1月附錄B 數(shù)據(jù)表結(jié)構(gòu) 工作計劃數(shù)據(jù)表字段名數(shù)據(jù)類型長度序號nvarchar10開始時間smalldatetime4結(jié)束時間smalldatetime4計劃內(nèi)容nvarchar100備注nvarchar100USERIDnvarchar12制作日期smalldatetime4計劃狀態(tài)nvarchar10記錄修改日期varchar30記錄修改人varchar30 車輛管理數(shù)據(jù)表字段名數(shù)據(jù)類型長度編號varchar20值班員nvarchar11調(diào)度員nvarchar11用車人nvarchar31人數(shù)nvarchar5事由nvarchar31去向nvarchar21簽字領(lǐng)導(dǎo)nvarch