【正文】 ick事件代碼：sele 1append blankgo bottom“末條”按鈕的Click事件代碼：sele 1go bottom “首條”按鈕的Click事件代碼：sele 1go top案例8：創(chuàng)建圖書管理系統(tǒng)的報(bào)表制作要點(diǎn) 利用向?qū)е谱鲌?bào)表 利用報(bào)表設(shè)計(jì)器制作和修改報(bào)表步驟詳解創(chuàng)建三個(gè)報(bào)表實(shí)現(xiàn)圖書資料、讀者信息和借書登記的數(shù)據(jù)打印。（３） 選擇“報(bào)表向?qū)А?，?bào)表向?qū)Э偣灿?個(gè)步驟。 圖1011 步驟二 圖1012 步驟三大家可以按需要選擇報(bào)表樣式，一般我們選擇我們熟悉的帳務(wù)式，也可以直接單擊“下一步”進(jìn)入步驟4－定義報(bào)表布局。如圖1015所示，在步驟六中，我們輸入報(bào)表標(biāo)題“圖書資料”，選中“保存報(bào)表并在“報(bào)表設(shè)計(jì)器”中修改，單擊“完成”按鈕，保存名為：圖書資料（）。（制作過(guò)程同上） 圖1015 步驟六 圖1016 報(bào)表設(shè)計(jì)器案例9：創(chuàng)建報(bào)表打印表單案例運(yùn)行效果與操作一般打印的時(shí)候并不是打印所有的數(shù)據(jù)，而只是某些指定的特定數(shù)據(jù)，為了滿足這個(gè)要求，我們制作了這樣一個(gè)控制報(bào)表打印的表單，這個(gè)表單可以實(shí)現(xiàn)按指定條件打印，下面看一下它的運(yùn)行效果圖，如圖1017所示。在命令窗口中輸入命令：CREATE FORM dayin。設(shè)置這些對(duì)象的屬性，主要屬性設(shè)置如表106所示：表106 “dayin”表單各對(duì)象主要屬性對(duì)象屬性屬性值說(shuō)明Form1AutoCenter.BorderStyle2固定對(duì)話框Caption打印Icon(自己選擇)MaxButton.NameForm1ShowTips.ShowWindow1在頂層表單中Picture表單背景圖片（自選）WindowType1模式Shape1BackStyle0透明SpecialEffect03維ImagelBackStyle0透明Picture自選Label1Caption選擇報(bào)表:AutoSize.Label1到Label6的AutoSize屬性都照此設(shè)置BackStyle0透明Label1到Label6的BackStyle屬性都照此設(shè)置FontName宋體Label1到Label6的FontName屬性都照此設(shè)置FontSize9從Label1到Label6的FontSize屬性都是9Label2Caption讀者編號(hào)Label3Caption讀者姓名Label4Caption圖書編號(hào)Label5Caption份數(shù)Label6Caption份Combo1RowSource讀者信息,圖書資料,借書登記RowSourceType1值Text1~Text3BackColor230,230,230Optiongroup1BackStyle0透明ButtonCount4Option1AutoSize.Option1到Option4的AutoSize屬性都照此設(shè)置BackStyle0透明Option1到Option4的BackStyle屬性都照此設(shè)置Caption按讀者編號(hào)打印Option2Caption按讀者姓名打印Option3Caption按圖書編號(hào)打印Option4Caption打印全部Spinner1Enabled.KeyboardHighValue100微調(diào)允許輸入的最大值KeyboardLowValue1微調(diào)允許輸入的最小值 TooTipText選擇打印份數(shù)提示文本Command1Caption打 印FontName宋體Height49Width61Picture自選ToolTipText單擊打印Command2Caption取 消FontName宋體Height49Width61Picture自選ToolTipText單擊關(guān)閉代碼添加與解釋雙擊表單添加各對(duì)象的事件代碼：列表框Combo1的Init事件代碼：=(1)列表框Combo1的InteractiveChange事件代碼：If allt()=讀者信息 =.t. =.t. =.t. =.f. =.t. =1 = = = =.f.Else If allt()=圖書資料 =.t. =2 =.f. =.f. =.t. =.t. = = = =.f. =.f. =.t.else If allt()=借書登記 =.t. =3 =.t. =.t. =.t. =.t. = = = =.t. =.t. =.t.按鈕選項(xiàng)組Optiongroup1的Init事件代碼：=.T.=.T.=.T.=.F.=.F.=1按鈕選項(xiàng)組Optiongroup1的InteractiveChange事件代碼：Do caseCase =1 =.t. =.f. =.f. =Case =2 =.f. =.t. =.f. =Case =3 =.f. =.f. =.t. =Case =4 =.f. =.f. =.f.Endcase添加微調(diào)控件Spinner1的Refresh事件代碼：if !empty() =.t.endif 添加“打印”按鈕的Click事件代碼：Public pnpn=If upper(sys(102))=OFF Messagebox(未連接打印機(jī)！,16+0,打印)Else If empty(allt()) Messagebox(請(qǐng)選擇報(bào)表！,64+0,打印) Else If allt()=讀者信息 Do case Case empty(allt()) and =.t. Messagebox(請(qǐng)輸入打印條件！,64+0,打印) Case empty(allt()) and =.t. Messagebox(請(qǐng)輸入打印條件！,64+0,打印) Case !empty(allt()) and =.t. Use sys(5)+curdir()+讀者管理!讀者信息 Locate for (讀者編號(hào))=allt() If found() For i=1 to pn Report form 讀者信息 for (讀者編號(hào))=allt() to printer Endfor Else Messagebox(找不到符合條件的記錄！,48+0,打印) Endif Use Case !empty(allt()) and =.t. Use sys(5)+curdir()+讀者管理!讀者信息 Locate for (讀者姓名)=allt() If found() For i=1 to pn Report form 讀者信息 for (讀者姓名)=allt() to printer Endfor Else Messagebox(找不到符合條件的記錄！,48+0,打印) Endif Use endcase else If allt()=圖書資料 Do case Case empty(allt()) and =.t. Messagebox(請(qǐng)輸入打印條件！,64+0,打印) Case !empty(allt()) and =.t. Use sys(5)+curdir()+讀者管理!圖書資料 Locate for (圖書編號(hào))=allt() If found() For i=1 to pn Report form 圖書資料 for (圖書編號(hào))=allt() to printer Endfor Else Messagebox(找不到符合條件的記錄！,48+0,打印) Endif Use endcase else If allt()=借書登記 Do case Case empty(allt()) and =.t. Messagebox(請(qǐng)輸入打印條件！,64+0,打印) Case empty(allt()) and =.t. Messagebox(請(qǐng)輸入打印條件！,64+0,打印) Case empty(allt()) and =.t. Messagebox(請(qǐng)輸入打印條件！,64+0,打印) Case !empty(allt()) and =.t. Use sys(5)+curdir()+讀者管理!借書登記 Locate for (圖書編號(hào))=allt() If found() For i=1 to pn Report form 借書登記 for (圖書編號(hào))=allt() to printer Endfor Else Messagebox(找不到符合條件的記錄！,48+0,打印) Endif Use Case !empty(allt()) and =.t. Use sys(5)+curdir()+讀者管理!借書登記 Locate for (讀者姓名)=allt() If found() For i=1 to pn Report form 借書登記 for (讀者姓名)=allt() to printer Endfor Else Messagebox(找不到符合條件的記錄！,48+0,打印) Endif Use Case !empty(allt()) and =.t. Use sys(5)+curdir()+讀者管理!借書登記 Locate for (圖書編號(hào))=allt() If found() For i=1 to pn Report form 借書登記 for (圖書編號(hào))=allt() to printer Endfor Else Messagebox(找不到符合條件的記錄！,48+0,打印) Endif Use endcase else if allt()=借書登記 or allt()=讀者信息 or allt()=圖書資料 For i=1 to pn Report form allt() to printer Endfor endif endif endif endifendifendif添加“取消”按鈕的Click事件代碼：release thisform好了，終于輸入完代碼，運(yùn)行表單看看它的效果如何。在打開(kāi)的“新建類”對(duì)話框中輸入類名gongju；在“派生于”下拉列表中選定基類CommandGroup；在“存儲(chǔ)于”文本框中輸入類庫(kù)的名字：bar；單擊“確定”按鈕，關(guān)閉對(duì)話框。amp。 圖1019 主表單執(zhí)行效果制作要點(diǎn) 表單的QueryUnload事件 類的使用 圖象控件使用步驟詳解創(chuàng)建圖書管理系統(tǒng)主表單（），在命令窗口中輸入命令：CREATE FORM mainform。然后調(diào)整它的布局，把它放在最左邊，如圖1019一樣設(shè)置好。初始化表單的運(yùn)行效果如圖1020所示：圖1020 初始化表單運(yùn)行效果制作要點(diǎn) 程序調(diào)用 創(chuàng)建有關(guān)聯(lián)的表和數(shù)據(jù)庫(kù)的命令 計(jì)時(shí)器的應(yīng)用步驟詳解創(chuàng)建初始化表單（），在命令窗口中輸入命令：CREATE FORM chsh。1021“chsh”表單表109“ chsh”表單屬性設(shè)置對(duì)象屬性屬性值說(shuō)明Form1AutoCenter.BorderStyle2固定對(duì)話框Caption初始化Icon(自己選擇)MaxButton.NameForm1ShowTips.ShowWindow1在頂層表單中Heigh93Width310Picture自選一張圖片作