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

VFP客房管理系统 第6页

更新时间:2008-3-27:  来源:毕业论文

VFP客房管理系统 第6页

1.表单设计

1)在客房管理系统的项目中,添加一个新表单,名称为Zsquery

2)在表单中添加Optiongroup控件、Combo控件、Text控件、Command控件、Grid控件。

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

4                                 重要控件的重要属性及值

控件名

属性

Combo1

RowSource

RowSourceType

姓名,证件号码

1-

Combo2

RowSource

RowSourceType

Style

like,=,>,<

1-

2-下拉列表框

2.代码设计

在表单的Init事件中添加以下代码:

thisform.grid1.recordsource='tabdjb'     &&赋数据源

thisform.optiongroup1.Interactivechange  &&执行Optiongroup1Interactivechange事件

optiongroup1选项按钮组的InteractiveChange事件中添加以下代码:

do case

   case thisform.optiongroup1.option1.value=1 or thisform.optiongroup1.option2.value=1;

        or thisform.optiongroup1.option3.value=1

        thisform.combo1.enabled=.f.

        thisform.combo2.enabled=.f.

        thisform.text1.enabled=.f.

   case thisform.optiongroup1.option4.value=1

        thisform.combo1.enabled=.t.

        thisform.combo2.enabled=.t.

        thisform.text1.enabled=.t.

endcase

单击“查询”按钮,可以根据用户选择的查询方式查找记录。具体代码如下:

在“查询”按钮的Click事件中添加以下代码:

do case

   case thisform.optiongroup1.option1.value=1

        select *;

        from roommanage!tabdjb;

        where 是否结帐==.t.;

        order by tabdjb.凭证号码;

        into cursor lindeping

        thisform.grid1.recordsource='lindeping'     &&赋数据源

        if reccount()=0

           messagebox('无符合条件的记录!',48,'操作失败')

        endif

   case thisform.optiongroup1.option2.value=1

       select *;

       from roommanage!tabdjb;

       where 是否结帐==.f.;

       order by tabdjb.凭证号码;

       into cursor lindeping

       thisform.grid1.recordsource='lindeping'

       if reccount()=0

          messagebox('无符合条件的记录!',48,'操作失败')

       endif

  case thisform.optiongroup1.option3.value=1

       select tabdjb

       select *;

       from kfgl\database\roommanage!tabdjb;

        order by tabdjb.凭证号码;

        into cursor lindeping

        thisform.grid1.recordsource='lindeping'

        thisform.refresh  

        if reccount()=0

           messagebox('无记录!',48,'操作失败')

        endif

   case thisform.optiongroup1.option4.value=1

        cx=0

        set exact off     &&设置字符精确比较

        cif=alltrim(thisform.combo1.displayvalue)

        ccif=alltrim(thisform.combo2.displayvalue)

        ctext=alltrim(thisform.text1.value)

        if empty(ccif) or empty (ctext)

           messagebox('请输入查询条件!',48,'操作失败!')

           thisform.combo2.setfocus

        else

           if thisform.combo2.displayvalue='like'

                  MySQL=cif+" "+ccif+" '"+"%"+ctext+"%'"

               else

                  MySQL=cif+" "+ccif+" '"+alltrim(thisform.text1.value)+"'"

               endif

               select * from roommanage!tabdjb where &MySQL.into cursor lindeping 

           go top

           if eof()

              go bottom

              messagebox('无符合条件的记录!',48,'信息窗口')

              cx=1

           endif  

           thisform.grid1.recordsource='lindeping'

        endif

endcase

thisform.refresh     &&刷新表单

附录A  参考文献

1.《Visual Basic精彩编程200例》机械工业出版社 赛奎春、高春艳等

20031  

2.《Visual Basic数据库开发实例解析》机械工业出版社     刘志铭、高春艳等

20038  

3.《Visual FoxPro数据库开发实例解析》机械工业出版社  王晶莹、王国辉等

20039  

4.《Power Builder数据库开发实例解析》机械工业出版社  华传铭、张振坤等

20039  

5.《Delphi数据库开发实例解析》机械工业出版社 赛奎春、郑骁鹏等

20042  

6.《PowerBuilder 精彩编程200例》机械工业出版社 张振坤、李文立等

20049

7.《Visual FoxPro 精彩编程200例》机械工业出版社 王国辉、董韶华等

20049

8.《ASP数据库开发实例解析》机械工业出版社 李严、于亚芳、王国辉       200412

9.《Delphi工程应用与项目实践》机械工业出版社 宋坤、赵智勇等

20051  

10.《Visual Basic工程应用与项目实践》机械工业出版社 高春艳、李俊民等

20051  

11.《Visual C++工程应用与项目实践》机械工业出版社 张雨、阮伟良等

20051

12.《JSP工程应用与项目实践》机械工业出版社 陈威、白伟明、李楠

20052

13.《ASP工程应用与项目实践》机械工业出版社 王国辉、牛强、李南南

20054

14.《Visual Basic 信息系统开发实例精选》机械工业出版社 高春艳、李俊民、张耀庭等    20057

15.《ASP 信息系统开发实例精选》机械工业出版社 王国辉、牛强、李南南等

20057  

16.《Delphi 信息系统开发实例精选》机械工业出版社 宋坤、赵智勇、刘强等

20057  

17.《Visual foxpro数据库开发关键技术与实例应用》人民邮电出版社 周桓、张雨、王国辉

20045

18.《Power Builder数据库开发关键技术与实例应用》人民邮电出版社 刘志铭、张振坤、冯文萃 20045

19.《Delphi数据库开发关键技术与实例应用》人民邮电出版社 赛奎春、陈紫鸿、宋昆

20045

20.《Visual basic数据库开发关键技术与实例应用》人民邮电出版社 高春艳、李艳

20045

21.《Visual C++ 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技

20057  

22.《Visual Basic 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技

20057  

23.《PowerBuilder 管理信息系统完整项目实例剖析》人民邮电出版社 明日科技

20057  

24.《Visual FoxPro管理信息系统完整项目实例剖析人民邮电出版社 明日科技

20057  

25SQL Server数据库开发实例解析》机械工业出版社 宋昆、李严等

20061

26Access数据库开发实例解析》机械工业出版社 李俊民、高春燕等

20061

27.《Visual Basic数据库系统开发完全手册》人民邮电出版社 明日科技王春才、高春艳、

李俊民 20063

28.《Visual C++ 数据库系统开发完全手册》人民邮电出版社 明日科技 王端、于速、张雨

20063

29.《Delphi数据库系统开发完全手册》人民邮电出版社 明日科技 宋坤、邹天思

20063

30.《JSP数据库系统开发完全手册》人民邮电出版社 明日科技 王国辉、李文立、杨亮

20063

31.《Visual Basic数据库系统开发案例精选》人民邮电出版社 明日科技 高春艳、李俊民、

刘彬彬 20065

32.《Delphi 数据库系统开发案例精选》人民邮电出版社 明日科技 李文立、刘强、梁冰

20065

33.《ASP数据库系统开发案例精选》人民邮电出版社 明日科技 孙明丽、邹天思、盖天宇

20065

34.《JSP数据库系统开发案例精选》人民邮电出版社 明日科技 王国辉、王易

20065

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

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

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