(1)表格標題為“圖書管理系統”，表格寬度為500，高度為350，其中標簽4:“為了您和他人的合法權益，請註冊”，字體為宋體，字號為28。
1創建表單步驟和屬性設置
文件|新建|表單
表單屬性:標題？圖書館管理系統
寬度？500
身高？350
○2標簽label4屬性設置
標題？“為了您和他人的合法權益，請註冊……”
字體名稱？宋體
Fontsize？28
前景色？grb(255，0，0)
(2)用戶名對應的文本框為text1，用戶密碼對應的文本框為text2，定時器控件timer1，label5用於顯示提示信息。
○1表單初始化:定義變量保護登錄次數。起初，label5是不可見的，並編寫相應的事件代碼。
Thisform.label5.visible=.F。
公共？n
n=1
○2點擊“確定”按鈕，如果用戶名和密碼正確，則顯示“歡迎使用”；用戶名錯誤顯示“非法用戶，請重新輸入”；如果密碼錯誤，顯示“密碼錯誤，請重新輸入”，只有三次機會。超過三次，顯示“對不起，無法進入系統”
同時，對應於“用戶名”和“密碼”的文本框不可用，因此寫入“確定”事件代碼:
如果？all trim(this form . text 1 . value)= = " super "
如果？all trim(this form . text 2 . value)= = " 123 "
Thisform.label5.caption= "歡迎"
其他
Thisform.label5.caption= "密碼錯誤，請重新輸入"
n=n+1
endif
其他
Thisform.label5.caption= "非法用戶，請重新輸入"
n=n+1
endif
thisform.label5.visible=.t。
如果？n & gt三
Thisform.label5.caption= "抱歉，您無法訪問系統"
this form . text 1 . enabled = . f。
thisform.text2.enabled=.f。
endif
○3寫timer1的定時器事件代碼，表示label4中的文本方向從右向左循環移動。
將Interval屬性值設置為:200
如果？this form . label 4 . left+this form . label 4 . width & gt；=0
this form . label 4 . left = this form . label 4 . left-20
其他
this form . label 4 . left = this form . width
endif
○4“退出”按鈕關閉表格。
此表單.釋放
您可以根據需要進行自己的更改。