review
Optiongroup1 控件的 click 事件代码如下: if thisform.optiongroup1.value =3 thisform.optiongroup1.value =2 thisform.optiongroup1.refresh endif
乐购会员管理系统打印预览待机画面如图:
其中: Form1 控件的主要属性有: AutoCenter:.T.——真
12
乐购会员管理系统 TitleBar:0——关闭 ShowWindow:1——在顶层表单中 WindowState:2——最大化
Command1 控件的 click 事件代码如下: report form dyyl preview clea memo
Command2 控件的 click 事件代码如下: thisform.release 乐购会员管理系统系统说明如图
其中: Form1 控件的主要属性有
: AutoCenter:.T.——真 TitleBar:0——关闭 ShowWindow:1——在顶层表单中 WindowState:2——最大化
13
乐购会员管理系统
Timer1 控件的 timer 事件代码如下: thisform.label4.caption="系统时间"+time()
Label1 控件的主要属性有: =“系统时间”+time()
乐购会员管理系统会员索引界面如图:
其中: Form1 控件的主要属性有: AutoCenter:.T.——真 TitleBar:0——关闭 ShowWindow:1——在顶层表单中 WindowState:2——最大化
14
乐购会员管理系统 Optiongroup1 控件的 click 事件代码如下: do case case thisform.optiongroup1.value=1 thisform.label2.caption="请输入要查询的会员号:" case thisform.optiongroup1.value=2 thisform.label2.caption="请输入要查询的:" case thisform.optiongroup1.value=3 thisform.label2.caption="请输入要查询的身份证号:" endcase thisform.text1.value='' thisform.text1.setfocus thisform.refresh
Text1 控件的 Inter 事件代码如下: select 会员信息 do case case t