|
窗体中添加一个Picture控件，并选择一幅图片作为此窗体的背景图片。设计中的系统左边为一树型目录，单击某一管理或查询模块，则在右侧主要部分显示相应模块的内容，因此，所有的控件都要添加到这个主窗体。 http://www.paper51.com 添加TreeView控件，放置到窗体的左侧。添加该控件的步骤如下： 内容来自论文无忧网 www.paper51.com （1）依次选择“工程” “部件”菜单，打开“部件”对话框如图3所示。 copyright paper51.com
内容来自www.paper51.com 图3 部件对话框 http://www.paper51.com （2）在“控件”选项卡中的列表内选中“Microsoft Windows Common Controls6.0(SP4)复选框，单击“确定”按钮，在工具箱内出现TreeView控件的图标。 copyright paper51.com （3）单击TreeView控件图标，按住鼠标左键不放并将其施放到合适的位置即可。此时，TreeView控件添加完毕。 内容来自www.paper51.com 再添加一个Picture控件，这个控件将是所有管理和查询模块的基础。以后所有的管理模块都位于一组Picture控件数组上。Picture数组含有12个元素，如果要创建该数组就应包含12个管理及查询模块。 http://www.paper51.com 单击Picture控件，然后复制，单击Picture控件外的任何地方，粘贴刚才复制的Picture控件，这时会提示是否要建立控件数组，单击“是”按钮。用同样的方法，粘贴11个Picture控件，这时就构成了一个含有12个元素的Picture控件数组。 http://www.paper51.com 所有Picture控件的具体设置，如位置，是否可见等，都将在代码中进行。 paper51.com 在每一个Picture控件中添加相应的Label控件和Text控件。如在教师信息管理模块中需要用到的Picture2(0)控件上，添加含有18个元素的文本框控件、Label控件表格控件、按钮控件和一个Dtpicker控件，按钮控件命名为cmdjiaoshi。 copyright paper51.com 对于教师信息查询模块，添加OptionBox控件，按钮控件和表格控件，添加好控件的窗体如图4所示。 http://www.paper51.com
内容来自www.paper51.com 3.2添加模块 paper51.com 为工程添加一个模块，在该模块内定义这个全局变量。 内容来自论文无忧网 www.paper51.com OptionExplicit http://www.paper51.com Publicconn As New ADODB.Connection '标记连接对象 paper51.com PublicuserID As String paper51.com
Publicusername As String 内容来自www.paper51.com
3.3通用变量声明 内容来自www.paper51.com 首先在程序的通用变量声明部分定义几个本系统中需要用到的变量，包括与各个数据表相对应的数据访问对象，标记各个数据表状态的变量，标记选定表格内收件号码的变量等。 内容来自www.paper51.com Option Explicit copyright paper51.com Dim txttbl As String copyright paper51.com Dim rs_jiaoshi As NewADODB.Recordset '教师数据对象 http://www.paper51.com Dim rs_xuesheng AsNew ADODB.Recordset '学生数据对象 内容来自论文无忧网 www.paper51.com Dim rs_pagezhao As New ADODB.Recordset'网页制作招聘数据对象 内容来自www.paper51.com Dim rs_pageqiu As NewADODB.Recordset '网页制作求职数据对象 http://www.paper51.com Dim rs_ruanzhao As NewADODB.Recordset '软件开发招聘数据对象 copyright paper51.com
Dim rs_ruanqiu As NewADODB.Recordset '软件开发求职数据对象 http://www.paper51.com Dim datanum AsInteger '选定的编号 http://www.paper51.com Dim state AsString '标记状态 copyright paper51.com
Dim numjiaoshi AsString '当前选择的教师编号 内容来自www.paper51.com Dim numstu AsString '当前选择的学生编号 paper51.com Dim numpagexue As String '当前选择的寻找网页制作工作的学生编号 copyright paper51.com
Dim numpagejob AsString '当前选定的公司编号 内容来自论文无忧网 www.paper51.com Dim numruanxue As String '当前选择的寻找软件开发工作的学生编号 copyright paper51.com Dim numruanjob AsString '当前选定的公司编号 内容来自论文无忧网 www.paper51.com Dim jiaoshistate AsBoolean http://www.paper51.com Dim xueshengstate AsBoolean 内容来自www.paper51.com Dim pagezhaostate AsBoolean http://www.paper51.com Dim pageqiustate AsBoolean http://www.paper51.com Dim ruanzhaostate AsBoolean http://www.paper51.com Dim ruanqiustate AsBoolean paper51.com Dim savestate As Integer '新建保存为1，修改保存为2，出租保存为3，出售保存为4 内容来自www.paper51.com Dim saveback AsBoolean http://www.paper51.com 3.4窗体加载 内容来自www.paper51.com 窗体加载的时候，首先设置各个Picture控件的位置，然后设置TreeView控件的节点，同时打开各个数据表。 copyright paper51.com 首先设置Picture控件的位置和状态。具体代码如下： paper51.com 然后打开各个数据表。在打开数据表之前应先检查该数据表是否已经打开，如果重复打开将会出现错误操作。 内容来自论文无忧网 www.paper51.com 打开学生求职表之前，应检查变量jiaoshistate的值是否为False，如果为False表示未打开数据表，此时可以打开，并调用过程viewjiaoshibiao显示数据信息。具体代码如下： 内容来自论文无忧网 www.paper51.com '学生求职管理部分的设置 copyright paper51.com Ifjiaoshistate = False Then 内容来自论文无忧网 www.paper51.com sql = "select * from 教师信息" http://www.paper51.com
rs_jiaoshi.CursorLocation = adUseClient 内容来自www.paper51.com rs_jiaoshi.Open sql, conn, adOpenKeyset, adLockPessimistic 内容来自www.paper51.com rs_jiaoshi.MoveLast '显示最后一条记录 http://www.paper51.com datanum = rs_jiaoshi.RecordCount 内容来自www.paper51.com
viewjiaoshibiao 内容来自www.paper51.com jiaoshistate = True http://www.paper51.com End If http://www.paper51.com '学生找家教管理部分的设置 copyright paper51.com If xueshengstate = False Then 内容来自论文无忧网 www.paper51.com sql = "select * from 学生信息" http://www.paper51.com rs_xuesheng.CursorLocation= adUseClient 内容来自论文无忧网 www.paper51.com rs_xuesheng.Open sql, conn, adOpenKeyset,adLockPessimistic copyright paper51.com rs_xuesheng.MoveLast '显示最后一条记录 内容来自www.paper51.com
datanum = rs_xuesheng.RecordCount paper51.com viewxueshengbiao copyright paper51.com
xueshengstate = True copyright paper51.com End If 内容来自论文无忧网 www.paper51.com '网页招聘信息管理部分的设置 paper51.com If pagezhaostate = False Then 内容来自论文无忧网 www.paper51.com sql = "select * from 网页招聘" http://www.paper51.com rs_pagezhao.CursorLocation = adUseClient 内容来自www.paper51.com rs_pagezhao.Open sql, conn, adOpenKeyset,adLockPessimistic copyright paper51.com rs_pagezhao.MoveLast '显示最后一条记录 内容来自论文无忧网 www.paper51.com datanum = rs_pagezhao.RecordCount 内容来自www.paper51.com
viewpagezhao 内容来自www.paper51.com pagezhaostate = True paper51.com End If paper51.com
'网页制作求职信息管理部分的设置 paper51.com If pageqiustate = False Then 内容来自www.paper51.com sql = "select * from 网页求职" 内容来自www.paper51.com rs_pageqiu.CursorLocation= adUseClient 内容来自论文无忧网 www.paper51.com rs_pageqiu.Open sql, conn, adOpenKeyset,adLockPessimistic 内容来自www.paper51.com rs_pageqiu.MoveLast '显示最后一条记录 paper51.com datanum = rs_pageqiu.RecordCount 内容来自www.paper51.com
viewpageqiu copyright paper51.com pageqiustate = True copyright paper51.com
EndIf 内容来自www.paper51.com
'软件招聘信息管理部分的设置 http://www.paper51.com If ruanzhaostate = False Then paper51.com sql = "select * from 软件招聘" 内容来自论文无忧网 www.paper51.com
rs_ruanzhao.CursorLocation = adUseClient copyright paper51.com rs_ruanzhao.Open sql,conn, adOpenKeyset, adLockPessimistic http://www.paper51.com rs_ruanzhao.MoveLast '显示最后一条记录 copyright paper51.com datanum = rs_ruanzhao.RecordCount copyright paper51.com
viewruanzhao http://www.paper51.com
ruanzhaostate = True 内容来自www.paper51.com End If copyright paper51.com
'软件求职信息管理部分的设置 copyright paper51.com If ruanqiustate = False Then 内容来自论文无忧网 www.paper51.com
sql = "select * from 软件求职" paper51.com rs_ruanqiu.CursorLocation = adUseClient http://www.paper51.com rs_ruanqiu.Open sql, conn, adOpenKeyset,adLockPessimistic copyright paper51.com rs_ruanqiu.MoveLast '显示最后一条记录 内容来自论文无忧网 www.paper51.com
datanum = rs_ruanqiu.RecordCount 内容来自论文无忧网 www.paper51.com viewruanqiu http://www.paper51.com ruanqiustate = True copyright paper51.com
End If paper51.com |