【正文】 Harriet, let me see that child — properly.39。Are you going to tell me that you have not got a certificate?39。Harriet!39。 My mother39。39。You39。t know what to do. Then when I heard your baby had e early and was a girl, too, it was like God answering a prayer.39。 said Aunt Harriet, but there was something wrong about the way she said it. Even I knew that. She hurried on: 39。39。t suppose the babies looked much different from other babies, really. My mother said:39。t she a lovely darling?39。s lovely, too, isn39。 There was a pause. Presently she added: 39。s lovely, Emily. She39。s tone, 39。 said Aunt Harriet39。39。t mean to say you39。s voice exclaimed in surprise, and not altogether in approval. 39。Why, Harriet!39。 so far, nobody had thought of looking there for me. It was simply a matter of putting in half an hour or so. Normally the room was very convenient, though just at present its use required caution because the wattle wall between the rooms was cracked and I had to move very cautiously on tiptoe lest my mother should hear me.On that particular day I was just thinking that I had allowed nearly enough time for people to be busy again when a twowheeled trap drove up. As it passed the window I had a glimpse of my Aunt Harriet holding the reins.I had only seen her some eight or nine times, for she lived fifteen miles away in the Kentak direction, but what I knew of her I liked. She was some three years younger than my mother. Superficially they were not dissimilar, and yet, in Aunt Harriet each feature had been a little softened, so that the effect of them all together was different. I used to feel when I looked at her that I was seeing my mother as she might have been — as, I thought, I would have liked her to be. She was easier to talk to, too。s history that I would prefer not to have known.I was sitting quietly in the room next to my parents39。s bed.She looked so pink and wrinkled to me that I did not see how the inspector could have been quite sure about her. However, there was nothing obviously wrong with her, so she had got her certificate. Nobody could blame the inspector for that。 my father was perfectly well aware of that, too.At last Petra39。s room. Then followed the worst wait of all.Mary said afterwards that he hummed and ha39。在不同的系統(tǒng)中主文件的設(shè)置不完全相同，本系統(tǒng)的主文件的代碼編寫如下：：set date to ansiset century onSET SAFETY OFFSET PATH TO c:\newsoftSET COLOR TO BG/BGpublic mysqlsevermysqlsever=deactivate window project mangerzoom windows screen maxDO FORM frm_loginmodify windows screen title 辦公用品管理系統(tǒng) ON SHUTDOWN down1()READ events:quitclear eventsclose allt was not until midafternoon that the inspector ambled up on his pony. My father pulled himself together, and went out to receive him。您可以從鼠標(biāo)右鍵彈出的快捷菜單中，選擇文件來修改一個應(yīng)用程序的入口點。（6） 設(shè)計子菜單l 設(shè)計“系統(tǒng)”菜單項的子菜單1） 在菜單設(shè)計器對話框中的“結(jié)果”欄選擇“子菜單”，并單擊“創(chuàng)建”按鈕，將會彈出一個設(shè)置子菜單的對話框；2） 在子菜單對話框中輸入子菜單名稱；3） 在“結(jié)果”欄都選擇“命令”，并在“命令”右邊的文本框中分別輸入命令，由于普通用戶不能使用這兩個菜單功能，需要將其屏蔽，操作方法是：用鼠標(biāo)單擊“選項”欄的按鈕，將人彈出一個“提示選項”對話框，并在“跳過”欄文本框中輸入屏蔽菜單的條件，例如輸入：superuser.做完了之后，如果需要屏蔽菜單， .就可以了，如果不需要屏蔽菜單，.七、主程序設(shè)計 在Visual FoxPro ，主程序不是必須的，表單和菜單都可以成為一個應(yīng)用程序的入口。創(chuàng)建自定義菜單：（4） 在項目管理器中選中“其它”下的“菜單”，再單擊項目管理器右邊的“新建”按鈕，將會彈出“新建菜單”對話框，單擊“菜單”按鈕，將會進(jìn)入菜單設(shè)計器對話框。在應(yīng)用于程序中，用戶最先接觸到的就菜單系統(tǒng)。操作步驟如下： 在項目管理器中選中“報表”，再單擊項目管理器右邊的“新建”按鈕，將會彈出“新建報表”對話框，單擊“新建報表”按鈕，將會進(jìn)入報表設(shè)計窗口。生成報表就是把輸入的數(shù)據(jù)按照一定的條件和格式轉(zhuǎn)換成書面文檔形式的過程。 order by bumen INTO dbf c:\newsoft\myreport。 WHERE year(riqi)=val(alltrim()) AND (month(riqi)9 and month(riqi)=12) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！) ENDIF ENDCASE對“取消”命令按鈕的“click”事件編程：(十一 WHERE year(riqi)=val(alltrim()) AND (month(riqi)6 and month(riqi)=9) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！) ENDIF CASE cjidu=4 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)9 and month(riqi)=12) IF FOUND() SELECT * from lingquview。 WHERE year(riqi)=val(alltrim()) AND (month(riqi)3 and month(riqi)=6) report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！) ENDIF CASE cjidu=3 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)6 and month(riqi)=9) IF FOUND() SELECT * from lingquview。 WHERE year(riqi)=val(alltrim()) AND month(riqi)=3 report form c:\newsoft\myreport prev ELSE MESSAGEBOX(對不起，沒有此記錄！) ENDIF CASE cjidu=2 LOCATE FOR year(riqi)=val(alltrim()) AND (month(riqi)3 and month(riqi)=6) IF FOUND() SELECT * from lingquview。 WHERE ALLTRIM(leibie)==cleibie AND ALLTRIM(pinpai)==cpinpai*將記錄寫入領(lǐng)取庫IF NOT USED(lingqu) SELECT 0 USE lingquENDIFINSERT INTO lingqu values(cleibie,cpinpai,cshuliang,cdanjia,criqi,clingquren,cbumen,cbeizhu) cMessageTitle=數(shù)據(jù)錄入cMessageText=數(shù)據(jù)添加成功，還要繼續(xù)嗎？nDialogType=4+32nanswer=MESSAGEBOX(cMessageText,nDialogType,cMessageTitle)if nAnswer=6 = = = =ELSE ENDIF命令按鈕“取消”的“click”事件代碼如下：㈣　添加類別表單該表單中包括了2個標(biāo)簽、1個文本框、1個命令按鈕組（包括了“確定”和“取消”兩個命令按鈕）其中：命令按鈕“確定”的“click”事件代碼如下：c_leibie=ALLTRIM()IF NOT USED(leibie) SELECT 0 USE leibie EXCLUSIVEENDIFSELECT leibieGO TOPLOCATE FOR ALLTRIM(leibie)==c_leibieIF NOT EOF() MESSAGEBOX(該類別已經(jīng)存在，請重新輸入！) RETURNELSE APPEND BLANK REPLACE leibie WITH c_leibie messagebox(類別添加成功！)ENDIFUSE為命令按鈕“取消”的“click”事件編寫代碼：㈤　添加用戶表單該表單中包括了5個標(biāo)簽、1個組合框、3個文本框和1個命令按鈕組，對各個表單控件進(jìn)行設(shè)置，其中，命令按鈕“確定”的“click”事件代碼如下：if not used(usepass) sele 0 use usepassendif_username=allt()_quanxian=allt()_pass=allt()_passqueren=allt()if empty(_username) messagebox(請輸入用戶名！) returnendifif empty(_pass) or empty(_passqueren) messagebox( 請輸入密碼！) returnendifif _pass_passqueren messagebox(兩次密碼不一致，請檢查！) = = returnendifif _quanxian=超級用戶 _quanxian=1else _quanxian=2endifsele usepassgo toplocate for uname=_userna