清楚的
設置安全關閉
使用txl
文本
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
※ 1.輸入2。修改3。插入4。刪除。
※ 5.按姓名升序顯示6。按郵政編碼升序顯示。
※ 7.按姓名查詢8。退出。
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
結束文本
請按數字鍵選擇“至aa”。
做案例
案例aa=1
去底部
接受“請輸入您的姓名:”到xm
接受“請輸入性別:”到xb。
請輸入電話號碼“to dhhm”
請輸入您的家庭地址:“致jtzz”
接受“請輸入工作單位:”到gzdw。
接受“請輸入郵政編碼:”到yzbm。
Repl姓名用xm，性別用xb，電話號碼用dhhm，家庭住址用jtzz，工作單位用gzdw，郵政編碼用yzbm。
案例aa=2
輸入“請輸入您要修改的記錄的編號:”到c。
轉到c
"請修改"+str(c，1)+"個人資料！"
分配
接受“請輸入您的姓名:”到xm
接受“請輸入性別:”到xb。
請輸入電話號碼“to dhhm”
請輸入您的家庭地址:“致jtzz”
接受“請輸入工作單位:”到gzdw。
接受“請輸入郵政編碼:”到yzbm。
Repl姓名用xm，性別用xb，電話號碼用dhhm，家庭住址用jtzz，工作單位用gzdw，郵政編碼用yzbm。
案例aa=3
追加空白
接受“請輸入您的姓名:”到xm
接受“請輸入性別:”到xb。
請輸入電話號碼“to dhhm”
請輸入您的家庭地址:“致jtzz”
接受“請輸入工作單位:”到gzdw。
接受“請輸入郵政編碼:”到yzbm。
Repl姓名用xm，性別用xb，電話號碼用dhhm，家庭住址用jtzz，工作單位用gzdw，郵政編碼用yzbm。
案例aa=4
輸入"請輸入記錄號"到d "妳想刪除。
去d
刪除
接受“請按小寫字母Y確認刪除，或取消刪除)”到e。
如果e="y "
包裝
其他
召回
endif
案例aa=5
名稱索引到xm
目錄
案例aa=6
yzbm的郵政編碼索引
目錄
案例aa=7
請輸入您要查詢的姓名“至f”
名稱列表=f
案例aa=8
等待“系統即將關閉”窗口超時3
出口
其他
Messagebox("請重新選擇"，0+64，"錯誤")
endc
打開保險箱
*這個程序可以完成任務，但是界面不好。它可以修改如下:
*新建壹個窗體(主窗體，form 1)，添加8個按鈕，每個按鈕的名稱標題與上述程序中的菜單相同；添加另壹個標題為“Exit”的按鈕，並保存表單1。
*新建壹個數據處理表單(Form 2)，給表單添加標簽，標題為" name "，並添加壹個文本控件text1來處理" name "數據；繼續給表單添加標簽，標題為“性別”，並添加壹個文本控件text2來處理“性別”數據；............向表單添加壹個標簽，標題為“郵政編碼”，並添加壹個文本控件text6來處理“郵政編碼”數據。正確排列標簽和文本控件。添加壹個標題為“保存”的按鈕和另壹個標題為“退出”的按鈕。
雙擊表單的空白處，就會出現load事件。進入
thisform.text1.value=xm
thisform.text2.value=xb
thisform.text3.value=dhhm
thisform.text4.value=jtzz
thisform.text5.value=gzdw
thisform.text6.value=yzbm
輸入後，關閉load事件，該事件將初始值分配給Form 2中的幾個控件。
雙擊“退出”按鈕並進入。
此表單.釋放
要關閉活動，請雙擊“保存”按鈕並輸入。
用thisform.text1.value復制名稱。
性別與thisform.text2.value，；
帶有thisform.text2.value的電話號碼；
包含thisform.text2.value的家庭地址；
具有thisform.text2.value的工作單元；
thisform.text2.value的郵政編碼
保存表格2。
打開表單1，雙擊表單空白處，會出現load事件。輸入:
設置安全關閉
使用txl
公立xm、xb、dhhm、jtzz、gzdw、yzbm
雙擊“輸入”按鈕並輸入。
去底部
*下面給出了Form 2的初始值。
Xm=名稱
Xb=性別
Dhhm=電話號碼
Jtzz=家庭地址
Gzdw=工作單位
Yzdm=郵政編碼
請填寫表格2
雙擊修改按鈕並輸入
輸入“請輸入您要修改的記錄的編號:”到c。
轉到c
*下面給出了Form 2的初始值。
Xm=名稱
Xb=性別
Dhhm=電話號碼
Jtzz=家庭地址
Gzdw=工作單位
Yzdm=郵政編碼
請填寫表格2
雙擊插入按鈕並輸入。
appe空白
*下面給出了Form 2的初始值。
Xm=名稱
Xb=性別
Dhhm=電話號碼
Jtzz=家庭地址
Gzdw=工作單位
Yzdm=郵政編碼
請填寫表格2
雙擊刪除按鈕並輸入
輸入"請輸入記錄號"到d "妳想刪除。
去d
刪除
接受“請按小寫字母Y確認刪除，或取消刪除)”到e。
如果e="y "
包裝
其他
召回
endif
雙擊“按姓名升序顯示”按鈕並輸入
名稱索引到xm
表情
雙擊“按郵政編碼升序顯示”按鈕，輸入。
yzbm的郵政編碼索引
表情
雙擊“按名稱查詢”按鈕並輸入
請輸入您要查詢的姓名“至f”
瀏覽名稱=f
雙擊“退出”按鈕並進入。
關閉數據
打開保險箱
此表單.釋放