【文章內(nèi)容簡介】 1．窗體設(shè)計(jì)（1）在工程中添加1個窗體，將該窗體命名為“frm_gzap”，BorderStyle屬性設(shè)置為“0None”，MaxButton的屬性設(shè)置為“False”。（2）在窗體上添加2個ComboBox控件，如圖9所示。（3）在窗體上添加1個MSHFlexGrid控件，將其名稱命名為“MSH1”。（4）在窗體上添加3個CommandButton控件，分別將其名稱命名為“Cmd_Save”、“Cmd_Add”、“Cmd_exit”，Caption屬性設(shè)置為“保存”、“添加”和“退出”。（5）在窗體上添加1個標(biāo)簽控件，用于顯示當(dāng)前所選擇的年及周的日期段信息。一周工作安排窗體的設(shè)計(jì)結(jié)果如圖9所示。圖9 一周工作安排窗體的設(shè)計(jì)結(jié)果2．代碼設(shè)計(jì)在窗體啟動時，設(shè)置MSHFlexGrid控件在窗體上顯示的行數(shù)和列數(shù)，同時設(shè)置在控件中顯示的行標(biāo)題和列標(biāo)題，窗體啟動時的事件代碼如下：Private Sub Form_Load() Dim StrWeek As String For i = 1 To 52 StrWeek = 第 amp。 i amp。 周 (StrWeek) Next i = 3 = 6 (0, 0) = 星期一 (0) = 500 For i = 1 To 5 (i) = 1850 (i) = 4 39。居中對齊 Next i (0) = 500 39。限定控件第1行的高度 (1) = 1800 39。限定控件第2行的高度 (2) = 1800 39。限定控件第3行的高度 (0, 1) = 星期一 (0, 2) = 星期二 (0, 3) = 星期三 (0, 4) = 星期四 (0, 5) = 星期五 (1, 0) = 上午 (2, 0) = 下午 = 50 = 50 = + = + End Sub單擊MSHFlexGrid控件中的單元格，可以限定輔助文本框的大小及顯示位置，使文本框高度、寬度及位置與選中MSHFlexGrid控件單元格的大小及位置相同，實(shí)現(xiàn)的代碼如下：Private Sub MSH1_Click() = – 50 39。限定文本框的寬度 = – 50 39。限定文本框的高度 = + 39。限定文本框距窗體左端的距離 = + 39。限定文本框距窗體頂端的距離 = True End Sub在選擇第幾周（一年共有52周）時，如果已經(jīng)維護(hù)了工作安排，則在MSHFlexGrid控件中的單元格中將顯示已經(jīng)維護(hù)的工作安排的內(nèi)容，同時將文本框的Visible屬性設(shè)置為False，使文本框不可見，代碼如下：Private Sub Combo1_Change() select * from 一周工作安排 where 第幾周=39。 + + 39。 and 年份=39。 + + 39。, Cnn, adOpenKeyset If 0 Then (1, 1) = (周一上午) (2, 1) = (周一下午) (1, 2) = (周二上午) (2, 2) = (周二下午) (1, 3) = (周三上午) (2, 3) = (周三下午) (1, 4) = (周四上午) (2, 4) = (周四下午) (1, 5) = (周五上午) (2, 5) = (周五下午) = (時間段) = False 39。將文本框設(shè)置為不可見狀態(tài) End If 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。如果選擇的是“確定”按鈕，則保存信息 Set AdoRs = (UPDATE 一周工作安排 SET 周一上午 =39。 amp。 (1, 1) amp。 39。,周一下午=39。amp。 (2, 1) amp。 39。,周二上午=39。 amp。 (1, 2) amp。39。,周二下午=39。 amp。 (2, 2)amp。 39。,周三上午=39。 amp。 (1, 3) amp。 39。,周三下午=39。 amp。 (2, 3) amp。 39。,周四上午=39。amp。 (1, 4) amp。 39。,周四下午=39。 amp。 (2, 4) amp。 39。,周五上午=39。 amp。 (1, 5)amp。 39。,周五下午=39。 amp。 (2, 5) amp。 39。 where 第幾周=39。 + + 39。) MsgBox 數(shù)據(jù)保存成功, 64, 提示信息 End If End IfEnd Sub 報銷費(fèi)用管理費(fèi)用報銷是企業(yè)運(yùn)營過程中必不可少的一個環(huán)節(jié)。在填寫完報銷單的時候，要經(jīng)過審核該報銷單據(jù)才有效。審核的操作過程為：在窗體左側(cè)的部門列表中選擇某一部門之后，然后在右側(cè)的數(shù)據(jù)控件中選擇該部門中具體報銷的單據(jù)，此時在窗體的文本框中即可顯示該報銷單據(jù)的信息，在審核人旁邊的文本框中輸入審核人姓名之后，單擊【審核】按鈕審核信息。除了審核信息之外，在窗體中還可以按照部門打印出每個部門的報銷費(fèi)用信息，在部門列表中選擇某一個部門之后，此時工具欄中的【打印】按鈕變?yōu)榭捎脿顟B(tài)，單擊【打印】按鈕即可打印出該部門的報銷單據(jù)信息。報銷費(fèi)用管理模塊的運(yùn)行結(jié)果如圖10所示。圖10 報銷費(fèi)用管理模塊運(yùn)行結(jié)果打印部門報銷費(fèi)用信息的報表界面運(yùn)行結(jié)果如圖11所示。圖11 打印部門報銷費(fèi)用信息的報表界面運(yùn)行結(jié)果1．窗體設(shè)計(jì)（1）在工程中新建1個窗體，將窗體的名稱設(shè)置為“frm_bxfy”，BorderStyle屬性設(shè)置為“0None”，MaxButton的屬性設(shè)置為“False”。（2）在窗體上添加1個Toolbar控件及1個ImageList控件。（3）為窗體制作如圖12所示的工具欄。（4）在窗體上添加2個ComboBox控件，分別命名為“Cbx_lx”和“Cbx_bm”，用于記錄費(fèi)用類型和部門信息，同時將這2個控件的Style屬性都設(shè)置為“0”。（5）窗體上添加1個DTPicker控件，命名為DT，用于顯示和輸入報銷費(fèi)用的時間。（6）在窗體上添加1個文本框控件數(shù)組，數(shù)組中包含有5個文本框控件。（7）在窗體上添加1個Ado控件和1個DataGrid控件，將DataSource屬性設(shè)置為“Adodc1”，AllowUpdate屬性設(shè)置為“False”。（8）在窗體上添加1個Line控件，并將其BorderColor屬性值設(shè)置為“amp。H00008000amp?！?。（9）在窗體上添加1個ListView控件，ListView控件屬于ActiveX控件，在使用之前必須從“部件”對話框中添加到工具箱。添加方法如下：在“工程”/“部件”對話框中勾選“Microsoft Windows Common ”列表項(xiàng)，單擊【確定】按鈕之后即可將ListView控件添加到工具箱當(dāng)中。（10）在窗體上添加1個標(biāo)簽控件默認(rèn)為Label9，用于顯示統(tǒng)計(jì)出來的報銷費(fèi)用的金額。報銷費(fèi)用管理窗體的設(shè)計(jì)結(jié)果如圖12所示。圖12 報銷費(fèi)用管理窗體的設(shè)計(jì)結(jié)果2．代碼設(shè)計(jì)ADO對象和控件連接到數(shù)據(jù)庫，同時調(diào)用Tj過程統(tǒng)計(jì)報銷費(fèi)用的金額，調(diào)用RefreshData事件，來實(shí)現(xiàn)刷新ListView控件中數(shù)據(jù)內(nèi)容。窗體啟動時的代碼如下：Private Sub Form_Load() Call LoadFile = Date 39。將報銷費(fèi)用的時間設(shè)置為當(dāng)前系統(tǒng)的日期時間 = PublicStr = select * from 報銷費(fèi)用管理 order by ID Call Tj 39。統(tǒng)計(jì)費(fèi)用金額 Call RefreshData Call Tbr_cortrol(Tbr_xxcz, True) (12).Enabled = False (9).Enabled = FalseEnd Sub在Tj過程當(dāng)中，通過sum函數(shù)統(tǒng)計(jì)報銷費(fèi)用的總金額。用戶自定義Tj事件的過程代碼如下：Private Sub Tj() select sum(金額) from 報銷費(fèi)用管理 , Cnn, adOpenKeyset If 0 Then = 5300 = 報銷費(fèi)用總計(jì)金額為 amp。 (0) amp。 元 End If End Sub在RefreshData過程當(dāng)中，首先將ListView控件中的內(nèi)容清空，然后在通過Do While循環(huán)將部門名稱信息添加到ListView控件當(dāng)中。用戶自定義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。如果當(dāng)前數(shù)據(jù)表中沒有部門信息，則將ListView設(shè)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。 + + 39。 order by ID On Error Resume Next 39。執(zhí)行錯誤處理 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。按部門查詢時統(tǒng)計(jì)報銷費(fèi)用金額