【正文】 系統(tǒng)提示) do case case nanswer=6 sele v_vip dele case nanswer=7 return endcase elsemessagebox(39。此用戶所借圖書沒(méi)有全部歸還，請(qǐng)全部歸還圖書后掛失！39。,系統(tǒng)提示) return endif sele v_vip=39。39。響應(yīng)“退出”Command2的單擊事件 響應(yīng)“打印”Command3的單擊事件 select v_vipif empty() messagebox(請(qǐng)先選擇會(huì)員!!!,48,權(quán)限管理) returnendifreport form b_book to print preview for 狀態(tài)==39。39。響應(yīng)“Destroy”的事件select v_vip 響應(yīng)“Unload”的事件 use v_vip exclusivepack附錄（2）：響應(yīng)“確定”Command1的單擊事件 tname=alltrim() amp。amp。用戶名tpass1=alltrim()amp。amp。第一次密碼tpass2=alltrim()amp。amp。第二次密碼set order to u_name amp。amp。指定控制索引文件if empty(tname) or empty(tpass1) or empty(tpass2) amp。amp。判斷操作員字段是否為空 messagebox(請(qǐng)輸入用戶名和密碼！,48,系統(tǒng)提示)else seek tname amp。amp。查找輸入的操作員姓名 set exact on amp。amp。設(shè)置字符精確比較 if found() messagebox(用戶名重復(fù),請(qǐng)重新輸入！,16,添加用戶) =39。39。 =39。39。 =39。39。 else if tpass1tpass2 messagebox(密碼必須一致) =39。39。 =39。39。 return endif if tpass1==tpass2 appe blank tid=39。user39。+allt(str(reccount())) repl u_name with tname, u_pass with tpass1,u_id with tid messagebox(用戶已創(chuàng)建成功，請(qǐng)到用戶管理中修改用戶權(quán)限?。?！) =39。39。 =39。39。 =39。39。 endif endifendifset exact off amp。amp。設(shè)置字符非精確比較響應(yīng)“退出”Command2的單擊事件 ：響應(yīng)“form1”Init的事件 = amp。amp。賦值給glywh等=============================響應(yīng)“form1”Activate的事件public ll=.f. amp。amp。執(zhí)行表單的ifenable事件store .f. to ,,。 ,,。 ,,。 ,,store .f. to ,響應(yīng)“form1”Ifenable的事件store l to ,,。 ,,。 ,, amp。amp。設(shè)置控件是否有效store .f. to ,,響應(yīng)“確定”mand1的單擊事件czyname=alltrim()nAnswer=messagebox(39。確定要保存嗎？39。,4+32,39。權(quán)限管理39。)if nAnswer=6 locate for u_name=czynameamp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。repl xtgl with .t.repl xtcsh with repl xtgl with repl xtcsh with repl cjyh with repl bjyh with repl scyh with repl sjbf with repl sjhf with repl czgj with repl tsgl with .t.repl lrtsxx with repl tjdy with repl hygl with .t.repl zchy with repl hygs with repl mddy with repl jhgl with .t.repl jhdj with repl jydy with repl cxgl with .t.repl hycx with repl sjcx with repl bbdy with .t.repl hymddy with repl hyjsdy with repl syjsdy with repl sysjdy with repl tc with .t.repl bz with .t.repl tsglxtbz with repl gy with amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。 messagebox(39。數(shù)據(jù)保存完畢39。,48,39。操作成功！39。) locate for u_name=czyname amp。amp。執(zhí)行表單的Init事件 =.f. =.f. =.t. endif注意：“確定”mand1單擊事件響應(yīng)后，“布爾型”（F和T）對(duì)字段進(jìn)行更改刷新，那么不同權(quán)限用戶的菜單是否“可選”“布爾型”值來(lái)判斷。附錄（3）響應(yīng)“Init”的事件 set dele on不顯示帶有刪除標(biāo)記的記錄。響應(yīng)“添加”Command1的單擊事件if =0 messagebox(請(qǐng)選擇要修改的對(duì)象) returnendifif =1 sele 性別 appe blankendifif =2 sele 類別 appe blankendifif =3 sele 借書期限 appe blankendifif =4 sele 單位部門 appe blankendifif =5 sele 圖書類別 appe blankendifif =6 sele 出版社 appe blankendifif =7 sele 存放位置 appe blankendif=0響應(yīng)“刪除”Command2的單擊事件set dele onif =0 messagebox(請(qǐng)選擇要修改的對(duì)象) returnendifif =1 sele 性別 deleendifif =2 sele 類別 deleendifif =3 sele 借書期限 deleendifif =4 sele 單位部門 deleendifif =5 sele 圖書類別 deleendifif =6 sele 出版社 deleendifif =7 sele 存放位置 deleendif=0響應(yīng)“退出”Command3的單擊事件見(jiàn)附錄（4） 響應(yīng)“Load”的事件 set library to public GW_HWNDNEXTGW_HWNDNEXT = 2*聲明API函數(shù)Declare integer FindWindow in user32 string lpClassName ,string lpWindowNameDeclare integer SetParent in user32 integer hWndChild , integer hWndNewParentDeclare integer ShellExecute in integer hwnd , string lpOperation,string lpFile,string lpParameters ,string lpDirectory,integer nShowCmd 響應(yīng)“Init”的事件 =sys(17)=sys(1001)=sys(1016)=sys(5)+sys(2003)=sys(2020)=sys(13) amp。amp。調(diào)用系統(tǒng)函數(shù) 響應(yīng)“確定”Command1的單擊事件 public myexe,newhwnd,hwndhwnd=_whtohwnd(_wontop())myexe =ShellExecute(hwnd,open,Null,NULL,1) amp。amp。調(diào)用程序If myexe = 0 messagebox(打開(kāi)文件失??！,48,系統(tǒng)提示) returnEndIf=1000第51頁(yè) 共51頁(yè)