在“删除”按钮的Click事件中添加以下代码:
a=messagebox("确定要删除记录吗?",32+4,"系统提示")
if a=6
if eof()=.f. and bof()=.f.
sele 1
delete &&逻辑删除记录
pack &&物理删除
go top
thisform.init &&执行表单的Init事件
l=.f.
thisform.resize &&执行表单的Resize事件
thisform.container1.container2.command1.enabled=.f.
store .t. to thisform.commandgroup1.command1.enabled,thisform.commandgroup1.;
command2.enabled,thisform.commandgroup1.command3.enabled,thisform.;
commandgroup1.command4.enabled,thisform.commandgroup1.command7.enabled
store .f. to thisform.commandgroup1.command6.enabled,;
thisform.commandgroup1.command8.enabled &&设置控件无效
endif
endif
在“修改”按钮的Click事件中添加以下代码:
nof=.t.
thisform.commandgroup1.command7.enabled=.f.
store .t. to thisform.commandgroup1.command6.enabled,;
thisform.commandgroup1.command5.enabled
thisform.commandgroup1.command5.caption="保存" &&赋值给Command5的标题文本
thisform.Commandgroup1.command5.tooltiptext="保存记录" &&显示工具提示
l=.t.
thisform.resize &&执行表单的Resize事件
thisform.container1.container2.command1.enabled=.t.
store .f. to thisform.commandgroup1.command1.enabled,thisform.commandgroup1.command2.;
enabled,thisform.commandgroup1.command3.enabled,thisform.commandgroup1.;
command4.enabled, thisform.commandgroup1.command7.enabled &&设置控件无效
thisform.commandgroup1.command8.enabled=.T.
thisform.container1.textcph.setfocus &&文本框获得焦点
如果用户在执行“添加”操作(变量nof=.f.)时,单击“取消”按钮,则删除添加的空记录;如果是“修改”操作,只需设置相关控件无效即可。具体代码如下:
在“取消”按钮的Click 事件中添加以下代码:
if thisform.commandgroup1.command5.caption="保存" and nof=.t.
nof=.f.
else
dele &&逻辑删除记录
if bof()=.f.
skip -1
endif
endif
thisform.init &&执行表单的Init事件
command4.enabled,thisform.commandgroup1.command7.enabled &&设置控件有效
store .f. to thisform.commandgroup1.command6.enabled,;
thisform.commandgroup1.command8.enabled
在DateList 控件的 DateClick 事件中添加以下代码:
mymonth=padl(alltrim(str(thisform.datalist.month)),2,'0')
myday=padl(alltrim(str(thisform.datalist.day)),2,'0')
thisform.container1.text4.value=alltrim(mymonth)+"-"+alltrim(myday)+"-"+;
alltrim(str(thisform.datalist.year))
thisform.datalist.visible=.f. &&隐藏表单
thisform.container1.text5.setfocus &&Text5获得焦点
在DateList 控件的KeyPress事件中添加以下代码:
if keyascii=13
this.dateclick &&执行Datalist的Dateclick事件
endif
用户单击主菜单车辆管理下的车辆档案查询子菜单,进入车辆档案查询界面。通过车辆档案查询界面可以按不同条件查询车辆档案信息并且可以按Esc键退出该界面。车辆档案查询表单运行结果如图5所示。
图5 “车辆档案查询”表单运行结果
(1)新建一个表单,名称为Frm车辆查询。
(2)在表单中添加Label控件、Grid控件、Optiongroup控件、Combo控件和Container控件。
(3)重要控件属性如表4所示。
表4 “车辆档案查询”表单重要控件属性列表
控件名 |
属性 |
值 |
Combo1 |
RowSource RowSourceType |
车辆档案.车牌号码 6-字段 |
Combo2 |
RowSource RowSourceType |
车辆类型表.类型 6-字段 |
Combo3 |
RowSource RowSourceType |
驾驶员档案.姓名 6-字段 |
在表单的 Init 事件中添加以下代码:
sele 1
thisform.container1.grid1.recordsource= "车辆档案" &&赋数据源
thisform.container1.optiongroup1.option8.setfocus &&Option8获得焦点
store 0 to thisform.container1.optiongroup1.option1.value,thisform.container1.;
optiongroup1.option2.value,thisform.container1.optiongroup1.option3.value,;
thisform.container1.optiongroup1.option4.value,thisform.container1.;
optiongroup1.option5.value,thisform.container1.optiongroup1.option6.value,;
thisform.container1.optiongroup1.option7.value
在“按车牌号”单选框的Click 事件中添加以下代码:
thisform.container1.combo1.enabled=.t.
thisform.container1.combo2.enabled=.f.
thisform.container1.combo3.enabled=.f.
thisform.container1.combo1.setfocus &&Combo1获得焦点
在“按车辆类型”单选框的Click事件中添加以下代码:
thisform.container1.combo1.enabled=.f.
thisform.container1.combo2.enabled=.t.
thisform.container1.combo3.enabled=.f.
thisform.container1.combo2.setfocus &&Combo2获得焦点
在“按驾驶员”单选框的Click事件中添加以下代码:
thisform.container1.combo3.enabled=.t.
thisform.container1.combo2.enabled=.f.
thisform.container1.combo1.enabled=.f.
thisform.container1.combo3.setfocus &&Combo3获得焦点
在“已报废车辆”单选框的Click事件中添加以下代码:
thisform.container1.combo2.enabled=.f.
thisform.container1.combo1.enabled=.f.
thisform.container1.combo3.enabled=.f.
cif='报废否==.t.'
thisform.resize &&执行表单的Resize事件
在“没有保险的车辆”单选框的Click事件中添加以下代码:
thisform.container1.combo2.enabled=.f.
thisform.container1.combo1.enabled=.f.
thisform.container1.combo3.enabled=.f.
cif='年检审==.f.
thisform.resize &&执行表单的Resize事件
在“没有年检的车辆”单选框的Click事件中添加以下代码:
thisform.container1.combo2.enabled=.f.
thisform.container1.combo1.enabled=.f.
thisform.container1.combo3.enabled=.f.
cif='保险否==.f.'
thisform.resize &&执行表单的Resize事件
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页