清楚的
設置安全關閉
使用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
雙擊“退出”按鈕並進入。
關閉數據
打開保險箱
此表單.釋放