毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VF车辆管理系统 第6页

更新时间:2008-6-30:  来源:毕业论文

VF车辆管理系统 第6页

在“删除”按钮的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     &&执行DatalistDateclick事件

endif

3.4  车辆档案查询设计

用户单击主菜单车辆管理下的车辆档案查询子菜单,进入车辆档案查询界面。通过车辆档案查询界面可以按不同条件查询车辆档案信息并且可以按Esc键退出该界面。车辆档案查询表单运行结果如图5所示。

若图片无法显示请联系QQ752018766,本论文免费,转发请注明源于www.751com.cn

5  “车辆档案查询”表单运行结果

1.表单设计

1)新建一个表单,名称为Frm车辆查询。

2)在表单中添加Label控件、Grid控件、Optiongroup控件、Combo控件和Container控件。

3)重要控件属性如表4所示。

4                     “车辆档案查询”表单重要控件属性列表

控件名

属性

Combo1

RowSource

RowSourceType

车辆档案.车牌号码

6-字段

Combo2

RowSource

RowSourceType

车辆类型表.类型

6-字段

Combo3

RowSource

RowSourceType

驾驶员档案.姓名

6-字段

2.代码设计

在表单的 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] 下一页

VF车辆管理系统 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。