【正文】 車輛管理與費(fèi)用管理文件架構(gòu)圖。 主文件架構(gòu)圖。 = 總計(jì)查詢記錄的條數(shù)為 amp。 End IfEnd Sub在Text2文本框控件中輸入城市名稱后按下〈Enter〉鍵，利用SQL語句可以查詢相應(yīng)城市的編碼信息，實(shí)現(xiàn)的事件代碼如下：Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then = PublicStr = select * from 郵編大全 where 城市 Like 39。 + + 39。 = 總計(jì)查詢記錄的條數(shù)為 amp。關(guān)閉記錄集對(duì)象End Sub單擊TreeView控件中的節(jié)點(diǎn)信息利用SQL語句可以查詢相應(yīng)省份的編碼信息，實(shí)現(xiàn)的事件代碼如下：Private Sub TreeView1_NodeClick(ByVal Node As ) = PublicStr = select * from 郵編大全 where 省份=39。將當(dāng)前記錄移到第一條 Do While = False Key = Trim((省份))Text = (省份) Set Node2 = (, tvwChild, Key, Text, 2) 39。 End Sub用戶自定義的Tree_change過程的代碼如下：Private Sub Tree_change() Dim Key, Text, BH As String Dim Nod As Node 39。窗體啟動(dòng)時(shí)的Load事件代碼如下：Private Sub Form_Load() Call Tree_change 39。編碼查詢窗體的設(shè)計(jì)結(jié)果如圖17所示。（9）在窗體中添加2個(gè)文本框控件，分別用于輸入要查詢的編碼信息所在的省份和城市信息。H80000018amp。勾選該選項(xiàng)卡中的“滾動(dòng)”和“熱跟蹤”復(fù)選框，為控件設(shè)置顯示的樣式，如圖16所示。圖14 在屬性頁對(duì)話框中設(shè)定圖像的大小（6）在“屬性頁”對(duì)話框中選擇“圖像”選項(xiàng)卡，在該選項(xiàng)卡中單擊【插入圖片】按鈕在控件中添加圖像，如圖15所示。添加方法如下：在“工程”/“部件”對(duì)話框中勾選“Microsoft Windows Common ”列表項(xiàng)，單擊【確定】按鈕之后即可將TreeView控件添加到工具箱當(dāng)中?！?。（3）在窗體上添加1個(gè)DataGrid控件，將DataSource屬性設(shè)置為“Adodc1”，AllowUpdate屬性設(shè)置為“False”，BackColor屬性值設(shè)置為“amp。圖13 編碼查詢模塊運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱設(shè)置為“frm_bmcx”，BorderStyle屬性設(shè)置為“0None”，MaxButton的屬性設(shè)置為“False”。 元 End If End Sub單擊數(shù)據(jù)網(wǎng)格中的記錄信息，將在窗體中的文本框中顯示所選中的數(shù)據(jù)信息，實(shí)現(xiàn)的代碼如下：Private Sub Dgr_Sjll_Click() If 0 Then Text1(0).Text = (1) = (2) = (3) Text1(1).Text = (4) = (5) Text1(2).Text = (6) Text1(3).Text = (7) Text1(4).Text = (8) If Text1(3).Text = Then (12).Enabled = True Else (12).Enabled = False End If End IfEnd Sub 編碼查詢?cè)诰幋a查詢中，可以通過輸入省份和城市的名稱來查詢編碼信息，也可以通過單擊選擇窗體左側(cè)所有編碼中的省份來查詢。 報(bào)銷費(fèi)用總計(jì)金額為 amp。 + + 39。執(zhí)行錯(cuò)誤處理 If 0 Then Text1(0).Text = (1) = (2) = (3) Text1(1).Text = (4) = (5) Text1(2).Text = (6) Text1(3).Text = (7) Text1(4).Text = (8) Strs = (9).Enabled = True End If 39。 + + 39。如果當(dāng)前數(shù)據(jù)表中沒有部門信息，則將ListView設(shè)39。 元 End If End Sub在RefreshData過程當(dāng)中，首先將ListView控件中的內(nèi)容清空，然后在通過Do While循環(huán)將部門名稱信息添加到ListView控件當(dāng)中。用戶自定義Tj事件的過程代碼如下：Private Sub Tj() select sum(金額) from 報(bào)銷費(fèi)用管理 , Cnn, adOpenKeyset If 0 Then = 5300 = 報(bào)銷費(fèi)用總計(jì)金額為 amp。將報(bào)銷費(fèi)用的時(shí)間設(shè)置為當(dāng)前系統(tǒng)的日期時(shí)間 = PublicStr = select * from 報(bào)銷費(fèi)用管理 order by ID Call Tj 39。圖12 報(bào)銷費(fèi)用管理窗體的設(shè)計(jì)結(jié)果2．代碼設(shè)計(jì)ADO對(duì)象和控件連接到數(shù)據(jù)庫，同時(shí)調(diào)用Tj過程統(tǒng)計(jì)報(bào)銷費(fèi)用的金額，調(diào)用RefreshData事件，來實(shí)現(xiàn)刷新ListView控件中數(shù)據(jù)內(nèi)容。（10）在窗體上添加1個(gè)標(biāo)簽控件默認(rèn)為Label9，用于顯示統(tǒng)計(jì)出來的報(bào)銷費(fèi)用的金額。（9）在窗體上添加1個(gè)ListView控件，ListView控件屬于ActiveX控件，在使用之前必須從“部件”對(duì)話框中添加到工具箱。H00008000amp。（7）在窗體上添加1個(gè)Ado控件和1個(gè)DataGrid控件，將DataSource屬性設(shè)置為“Adodc1”，AllowUpdate屬性設(shè)置為“False”。（5）窗體上添加1個(gè)DTPicker控件，命名為DT，用于顯示和輸入報(bào)銷費(fèi)用的時(shí)間。（3）為窗體制作如圖12所示的工具欄。圖11 打印部門報(bào)銷費(fèi)用信息的報(bào)表界面運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱設(shè)置為“frm_bxfy”，BorderStyle屬性設(shè)置為“0None”，MaxButton的屬性設(shè)置為“False”。報(bào)銷費(fèi)用管理模塊的運(yùn)行結(jié)果如圖10所示。審核的操作過程為：在窗體左側(cè)的部門列表中選擇某一部門之后，然后在右側(cè)的數(shù)據(jù)控件中選擇該部門中具體報(bào)銷的單據(jù)，此時(shí)在窗體的文本框中即可顯示該報(bào)銷單據(jù)的信息，在審核人旁邊的文本框中輸入審核人姓名之后，單擊【審核】按鈕審核信息。) MsgBox 數(shù)據(jù)保存成功, 64, 提示信息 End If End IfEnd Sub 報(bào)銷費(fèi)用管理費(fèi)用報(bào)銷是企業(yè)運(yùn)營過程中必不可少的一個(gè)環(huán)節(jié)。 where 第幾周=39。 (2, 5) amp。,周五下午=39。 (1, 5)amp。,周五上午=39。 (2, 4) amp。,周四下午=39。 (1, 4) amp。,周四上午=39。 (2, 3) amp。,周三下午=39。 (1, 3) amp。,周三上午=39。 (2, 2)amp。,周二下午=39。 (1, 2) amp。,周二上午=39。 (2, 1) amp。,周一下午=39。 (1, 1) amp。如果選擇的是“確定”按鈕，則保存信息 Set AdoRs = (UPDATE 一周工作安排 SET 周一上午 =39。將文本框設(shè)置為不可見狀態(tài) End If 39。 + + 39。 + + 39。限定文本框距窗體左端的距離 = + 39。限定文本框的寬度 = – 50 39。限定控件第2行的高度 (2) = 1800 39。居中對(duì)齊 Next i (0) = 500 39。 i amp。一周工作安排窗體的設(shè)計(jì)結(jié)果如圖9所示。（4）在窗體上添加3個(gè)CommandButton控件，分別將其名稱命名為“Cmd_Save”、“Cmd_Add”、“Cmd_exit”，Caption屬性設(shè)置為“保存”、“添加”和“退出”。（2）在窗體上添加2個(gè)ComboBox控件，如圖9所示。一周工作安排模塊的運(yùn)行結(jié)果如圖8所示。重新鎖定文本框，禁止輸入數(shù)據(jù)信息 Text1(i).Locked = False Next iEnd Sub 一周工作安排一年共有52周，那么在周工作安排中通過選擇年和年的第幾周（0~52周），可以維護(hù)或查看所選擇年中的所選擇周的工作安排信息。執(zhí)行錯(cuò)誤處理 If 0 Then 39。調(diào)用保存按鈕事件 End IfEnd Sub單擊選中數(shù)據(jù)網(wǎng)格中的記錄，可以使所選中的記錄顯示在窗體的文本框當(dāng)中。如果在索引值為1的文本框中按下回車鍵，光標(biāo)將落在日期控件當(dāng)中 Exit Sub 39。在文本框控件的鍵盤按下事件（KeyDown）中通過限制索引Index值和鍵盤代碼值能夠控制光標(biāo)移動(dòng)的順序，實(shí)現(xiàn)的代碼如下：Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) On Error Resume Next 39。調(diào)用過程，在窗體文本框中顯示數(shù)據(jù) For i = 1 To 7 Text1(i).Locked = True Next i = PublicStr 39。窗體啟動(dòng)時(shí)的事件代碼如下：Private Sub Form_Load() = Date 39。圖7 會(huì)議記錄窗體設(shè)計(jì)結(jié)果2．代碼設(shè)計(jì)當(dāng)窗體啟動(dòng)時(shí)，如果數(shù)據(jù)庫中存在記錄信息，則在窗體的文本框中顯示數(shù)據(jù)庫中的第一條記錄，同時(shí)鎖定文本框，禁止輸入數(shù)據(jù)信息。（9）在窗體上添加2個(gè)文本框控件，分別命名為“Txt_Date”和“Txt_xgr”，用于顯示修改記錄的時(shí)間和記錄修改人的姓名。H00008000amp?！?，DataSource屬性設(shè)置為“Adodc1”，AllowUpdate屬性設(shè)置為“False”。（7）在窗體上添加1個(gè)Ado控件和1個(gè)DataGrid控件，將DataGrid控件的BackColor屬性值設(shè)置為“amp。添加方法如下：在“工程”/“部件”對(duì)話框中勾選“Microsoft Windows Common ”列表項(xiàng)，單擊【確定】按鈕之后即可將DTPicker控件添加到工具箱當(dāng)中。（5）在窗體上添加1個(gè)DTPicker控件，名稱命名為DT1，用于輸入或顯示會(huì)議進(jìn)行的時(shí)間。（3）為窗體制作如圖7所示的工具欄。圖6 會(huì)議記錄模塊運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個(gè)窗體，將窗體的名稱設(shè)置為“frm_hyjl”，Borde