【正文】 4． 4 讀者信息管理模塊的設(shè)計(jì) 讀者信息管理模塊主要實(shí)現(xiàn)如下功能： ．添加讀者信息。 讀者信 息管理模塊設(shè)計(jì)是采用表單向?qū)傻摹? 書籍信息管理模塊設(shè)計(jì)也同樣采用表單向?qū)傻摹? ．查詢書籍信息。 ．查詢借書信息。根據(jù)表 67在表單中加入相應(yīng)控件并更改其屬性。 重新運(yùn)行借閱信息表，達(dá)到刷新的效果。 local aCountries,cCountry dimension aCountries[1]－ select distinct 借閱編號(hào) from 借閱信息表 into array aCountries for each n in aCountries if !empty() (）一 endif endfor 在 Combo l 的 InteractiveChange 事件中添加代碼，以顯示圖書相關(guān)信息： .caption=result(1) .caption=result(2) .caption=result(3) .Captionresult(4) .caption=dtoc(result(5)) .caption=dtoc(result(6)) .Captionresult(7) 在 Connnandl 的 Click 事件中添 加代碼，完成還書功能： delete from 借閱信息表 where 借閱編號(hào) = pack thisformselease 在 Command2 的 Click 事件中添加代碼，完成取消功能： thisformselease 現(xiàn)在就完成了對還書信早的添加功能如 46所示。 通過 對 添加對還書日期的限制，如果當(dāng)前時(shí)間超過了還書時(shí)間，則應(yīng)當(dāng)顯示圖書過期信息。 為了在一張表中加入數(shù)據(jù)記錄，可以按照以下的步驟： (1） 從“顯示”下拉菜單中選擇“追加方式”命令。 但 操作發(fā)生在“瀏覽“方式 下的“瀏覽窗口”中。 這樣就完成了對記錄編輯和添加的操作，接下來是 如何刪除表中的記錄。 可以將多行記錄都做上此標(biāo)記，然后通過下一步操作將所有做標(biāo)記的記錄刪除。此命令將刪除所有在“瀏覽窗口”中作上刪除標(biāo)記的記錄，并重新構(gòu)造表中的記錄。 與此同時(shí) 表單中的控件也是能復(fù)制的，而且可以一次復(fù)制多個(gè)控件?？丶?n～屬性在粘貼時(shí)已自動(dòng)做了改動(dòng)，比如原來的文本框叫 textl，復(fù)制出來的文本框會(huì)自動(dòng)叫 textZ（再復(fù)制就會(huì)叫 text3），在一個(gè)表單中是不允許出現(xiàn)兩個(gè)同名的控件，系統(tǒng)會(huì)自動(dòng)遵守這一點(diǎn)，故我們可以不用去修改 n～了。還有向上移動(dòng)記錄和向下移動(dòng)記錄的按鈕，其中的事件程序也都差不多，也可以復(fù)制，然后將不同的地方修改一下。合理恰當(dāng)?shù)目s格和空行都會(huì) 使程序結(jié)構(gòu)清晰易懂。 在編寫面向?qū)ο蟮某绦驎r(shí)，經(jīng)常要引用一個(gè)對象的名稱，而且要用這個(gè)對象的全名，比如 o 如果控件數(shù)目過多，就很難記住表單中每個(gè)控件的名字。但有時(shí)候如果不需要對整齊，而要做一些小小的調(diào)整，即不按格跳，就可以采取以下的步驟。 5．為文件寫說明 在開發(fā)一個(gè)較大的軟件時(shí)，在項(xiàng)目管理器中會(huì)有很多的文件，當(dāng)文件多到一定數(shù)目的時(shí)候，可能都搞不清這些文件的功能是什么，為了防止這一點(diǎn)，應(yīng)該為每個(gè)文件寫上說明方便隨時(shí)了解每個(gè) 文件的作用。 當(dāng)我們需要調(diào)整數(shù)據(jù)表中的字段位置，可在表設(shè)計(jì)器中很方便地移動(dòng)。在程序運(yùn)行時(shí)移動(dòng)，直接抓住要移動(dòng)列的表頭左右移動(dòng)到所需位置。 當(dāng)要對程序做功能上的修改（不是 修改語句中的錯(cuò)誤），應(yīng)先看看系統(tǒng)分析，因?yàn)橐粋€(gè)程序的各個(gè)部分是有著千絲萬縷的聯(lián)系的，當(dāng)改了一個(gè)地方，可能導(dǎo)致另一個(gè)地方出問題，所以我們應(yīng)先對系統(tǒng)分析修改，并平衡各方面關(guān)系，覺得系統(tǒng)分析上沒有邏輯上的沖突和錯(cuò)誤后，再按照新的系統(tǒng)分析去修改程序。當(dāng)然移去后的文件可用其它方式刪除，但千萬不要用其它方式刪除一個(gè)在項(xiàng)目管理器中存在的文件，這樣會(huì)造成項(xiàng)目管理器打開出錯(cuò)。菜單李程序，建議使用程序作為主文件。 （ 1)現(xiàn)設(shè)置應(yīng)用環(huán)境界面。 為了避免無限循環(huán)，必須在 READ EVENTS 命令之前安排 CLEAR EVENTS 命令。使我在綜合知識(shí)的選用方面，在應(yīng)用軟 件開發(fā)的基本思想、方法方面，以及在常用編程設(shè)計(jì)思路技巧的掌握方面都能向前邁了一大步。最后，我要衷心 感謝老師在我的設(shè)計(jì)過程中給予我的極大幫助，使我能夠及時(shí)、順利地完成此次的畢業(yè)設(shè)計(jì)。在畢業(yè)設(shè)計(jì)即將完成之際，請老師和同學(xué)們接受我誠摯的謝意。 Picture = d:\my documents\my pictures\, 。 Width = 1024, 。 FontName = 華文彩云 , 。 Height = 26, 。 ForeColor = RGB(255,255,255), 。 BackStyle = 0, 。 Top = 192, 。 Name = Label2 ADD OBJECT label3 AS label WITH 。 Left = 396, 。 Name = Label3 PROCEDURE ENDPROC ENDDEFINE * * 結(jié)束定義 : form1 PUBLIC oform1 SET CLASSLIB TO d:\program files\microsoft visual studio\vfp98\wizards\ ADDITIVE SET CLASSLIB TO d:\program files\microsoft visual studio\vfp98\wizards\ ADDITIVE oform1=NEWOBJECT(form1) RETURN ************************************************** 讀者信息管理表 .scx) * 父類 : embossedform (d:\program files\microsoft visual studio\vfp98\wizards\) * 基類 : form * DEFINE CLASS form1 AS embossedform ScaleMode = 3 Height = 440 Width = 426 ScrollBars = 3 DoCreate = .T. Caption = 讀者信息表 Closable = .T. WindowType = 0 Name = form1 = Shape1 = Shape2 = Shape3 = Shape4 = 4004 = .F. = layoutsty = 讀者信息表 = 147 = Label1 = 400 = Shape1 = 400 = Shape2 = 348 = 7 = 400 = Shape3 = 349 = 8 = 400 = Shape4 ADD OBJECT lbl 讀者編號(hào) 1 AS embossedlabel WITH 。 Visible = .T., 。 Format = , 。 Top = 57, 。 Caption = 讀者姓名 :, 。 Width = 75, 。 InputMask = XXXXXXXXXX, 。 Visible = .T., 。 Left = 10, 。 Name = LBL 讀者性別 1 ADD OBJECT 讀者性別 1 AS embossedfield WITH 。 InputMask = XXX, 。 Visible = .T., 。 Left = 10, 。 Name = LBL 讀者種類 1 ADD OBJECT 讀者種類 1 AS embossedfield WITH 。 Left = 105, 。 Width = 90, 。 Top = 157, 。 ControlSource = 讀者信息表 .工作單位 , 。 ReadOnly = .F., 。 Name = 工作單位 1 ADD OBJECT lbl 家庭住址 1 AS embossedlabel WITH 。 Visible = .T., 。 Format = , 。 Top = 177, 。 Caption = 電話號(hào)碼 :, 。 Width = 75, 。 InputMask = XXXXXXXXXX, 。 Visible = .T., 。 Left = 10, 。 Name = LBL 電子郵件地址 1 ADD OBJECT 電子郵件地址 1 AS embossedfield WITH 。 Left = 105, 。 Width = 150, 。 Top = 253, 。 Alignment = 3, 。 Left = 105, 。 Width = 62, 。 Top = 277, 。 ControlSource = 讀者信息表 .備注 , 。 Left = 105, 。 Width = 150, 。 Width = 320, 。 viewkey = (), 。 topfile = .T., 。 oldsetdelete = OFF, 。 previewmode = .F., 。 gridref = , 。 = cmdPrev, 。 = cmdTop, 。 = 0, 。 = cmdFind, 。 = .T., 。 = 60, 。 = 120, 。 = cmdAdd, 。 = .T., 。 = 71, 。 Top = 12, 。 BackStyle = 0, 。 AutoSize = .T., 。 Top = 7, 。 Caption = 種類編號(hào) :, 。 Width = 56, 。 Height = 16, 。 Name = Label3 ADD OBJECT label4 AS label WITH 。 Left = 48, 。 AutoSize = .T., 。 Top = 144, 。 Caption = 有效期限 :, 。 Width = 56, 。 Height = 16, 。 Name = Label7 ADD OBJECT 種類編號(hào) AS textbox WITH 。 Top = 33, 。 Left = 108, 。 Height = 25, 。 Name = 借書數(shù)量 ADD OBJECT 有效期限 AS textbox WITH 。 Width = 61, 。 Top = 228, 。 Left = 108, 。 Top = 324, 。 Caption = 保存 , 。 Height = 25, 。 AutoSize = .T., 。 Top = 105, 。 Caption = 天 , 。 Width = 14, 。 Height = 16, 。 Name = Label10 PROCEDURE insert into 讀者種類信息表 (種類編號(hào) ,種類名稱 ,借書數(shù)量 ,借書期限 ,有效期限 ,備注 )。 Top = 174, 。 AutoSize = .T., 。 Left = 176, 。 Name = Label8 ADD OBJECT label9 AS label WITH 。 Height = 16, 。 Caption = 返回 , 。 Top = 324, 。 Height = 25, 。 Width = 60, 。 Name = 備注信息 ADD OBJECT 借書期限 AS textbox WITH 。 Height = 73, 。 Left = 108, 。 Top = 101, 。 Width = 85, 。 Name = 種類編號(hào) ADD OBJECT 種類名稱 AS textbox WITH 。 Height = 25, 。 Top = 211, 。 AutoSize = .T., 。 Left = 49, 。 Name = Label5 ADD OBJECT label6 AS label WITH 。