|
4.3系统主界面的设计 启动系统后，主界面设计效果图如下: copyright paper51.com 内容来自www.paper51.com 公用模块的设计代码分析如下: 内容来自www.paper51.com Option Explicit 内容来自www.paper51.com
Public conn As New ADODB.Connection 内容来自www.paper51.com '定义全局变量queryhouse 作为判断frmHouse 窗体显示查询的数据还是全体数据 内容来自论文无忧网 www.paper51.com Public queryhouse As Boolean 内容来自www.paper51.com '定义全局变量sqlqh 作为查询房屋信息时的sql语句 paper51.com
Public sqlqh As String 内容来自论文无忧网 www.paper51.com '定义全局变量querycf 作为判断frmClient 窗体家庭租户选项卡显示查询的数据还是全体数据 paper51.com Public querycf As Boolean copyright paper51.com
'定义全局变量sqlqcf 作为查询家庭租户信息时的sql语句 copyright paper51.com
Public sqlqcf As String 内容来自论文无忧网 www.paper51.com '定义全局变量querycg 作为判断frmClient 窗体家公司户选项卡显示查询的数据还是全体数据 paper51.com Public querycg As Boolean copyright paper51.com '定义全局变量sqlqcg 作为查询公司租户信息时的sql语句 paper51.com Public sqlqcg As String copyright paper51.com '定义全局变量queryemp 作为判断frmEmp 窗体显示查询的数据还是全体数据 http://www.paper51.com Public queryemp As Boolean 内容来自www.paper51.com
'定义全局变量sqlqe 作为查询员工信息时的sql语句 http://www.paper51.com
Public sqlqe As String 内容来自论文无忧网 www.paper51.com '定义全局变量queryqzc 作为判断frmQZClient 窗体显示查询的数据还是全体数据 copyright paper51.com Public queryqzc As Boolean 内容来自论文无忧网 www.paper51.com '定义全局变量sqlqzc 作为查询求租客户信息时的sql语句 copyright paper51.com Public sqlqzc As String http://www.paper51.com '定义全局变量querycon 作为判断frmAdminContract窗体显示查询的数据还是全体数据 paper51.com Public querycon As Boolean paper51.com '定义全局变量sqlqcon 作为查询合同信息时的sql语句 paper51.com Public sqlqcon As String 内容来自www.paper51.com '定义全局变量sqlqyd 作为查询预定单信息时的sql语句 http://www.paper51.com Public sqlqyd As String paper51.com '定义全局变量fromqzc 作为判断frmYuDing 窗体是从frmQZClient窗体中单击下定金预定调用的 copyright paper51.com '还是直接菜单调用的 copyright paper51.com Public fromqzc As Boolean 内容来自www.paper51.com
'定义全局变量fromYuding 作为判断frmPayDingJin窗体是从frmYuDing窗体中单击收取定金调用的 内容来自论文无忧网 www.paper51.com '还是直接菜单调用的 http://www.paper51.com
Public fromYuding As Boolean 内容来自论文无忧网 www.paper51.com '定义全局变量fromContract 作为判断frmPayYaJin窗体是从frmSignContract窗体中单击收取押金调用的 内容来自论文无忧网 www.paper51.com
'还是直接菜单调用的 paper51.com Public fromContract As Boolean 内容来自www.paper51.com
'定义全局变量ZuJinfromContract 作为判断frmPayZuJin窗体是从frmSignContract窗体中单击收取租金调用的 paper51.com '还是直接菜单调用的 copyright paper51.com Public ZuJinfromContract As Boolean http://www.paper51.com
'定义全局变量queryZuJin 作为判断frmAdminZuJin窗体显示查询的数据还是全体数据 内容来自www.paper51.com Public queryZuJin As Boolean http://www.paper51.com
'定义全局变量sqlqzj 作为查询合同信息时的sql语句 http://www.paper51.com
Public sqlqzj As String 内容来自www.paper51.com '定义全局变量sqlqdj 作为查询定金信息时的sql语句 http://www.paper51.com Public sqlqdj As String copyright paper51.com
'定义全局变量sqlqyj 作为查询押金信息时的sql语句 内容来自www.paper51.com
Public sqlqyj As String paper51.com
|