名 称 类 型 长 度 主键
部门名称 文本 20 √
4.5.3 岗位名称信息表
表 4.4 岗位名称信息查询表
名 称 类 型 长 度 主键
岗位名称 文本 20 √
4.6 打印数据报表设计
Visual Basic6.0有两种方法打印数据报表,一种方法就是预览数据报表时单击“打印”按钮,另一种方法就是在程序中调用Print Report方法打印数据报表,同时,可以在Error事件中捕获打印过程中发生的错误并且做出相应的处理。电信人事管理信息系统采用的是Visual Basic6.0提供的在程序中调用Print Report方法打印数据报表的打印方法。在程序中使用代码打印数据报表,既可以在显示打印对话框后打印数据报表,也可以不显示打印对话框而直接打印数据报表。
电信人事管理信息系统的功能实现
5.1 系统技术要点
一、时间范围的查询
时间范围的查询和一般字符的查询并不一样。一般字符的查询使用 SQL 语句 “SELECT * FROM jiating where 姓名='" + ss +”即可,对于时间这样的字符使用的SQL必须是这样的格式“SELECT * FROM MANG where 日期 Between "#2/2/2002" And "2/2/2003#”。
因此使用SS定义STRING型变量用SS="#" & Text1.Text & "#"连接中间字符
使用SELECT * FROM MANG where 日期 Between " + ss + " And " + ss2 + "索检记录。
二、打印查询后的记录
对于动态打印,直接使用DataReport是无法实现的。所以首先建立临时数据表 用"INSERT INTO QUERY SELECT* FROM QUERY where ", mycn, adOpenKeyset, adLockOptimistic将要打印的记录存放其中,再使用DataReport时,我通过DataEnvironment连接了一个临时数据表,该数据表中的数据根据查询条件的不同而变化,然后用Private Sub DataReport_QueryClose(Cancel As Integer, CloseMode As Integer)
Unload DataReport2
Unload DataEnvironment1
End Sub
刷新报表即可。
组合查询
实现:将查询的字段也设为变量嵌入到SQL中语句如下:
ss2 = Text2.Text
ss3 = Text3.Text
Adodc1.RecordSource = "SELECT * FROM mang where 字段1='" + ss4 + "' and 字段2='" + ss5 + "'"
Adodc1.Refresh
下面给出系统开发出来的详细界面以阐述电信人事管理信息系统的具体功能。系统完整源代码见附件,首先是进入登陆界面
在工程引用ADO2.0。
在命令按钮单击写下连接数据库USER表的判断语句
Private Sub Command1_Click()
denlu_name = Text1.Text
denlu_pass = Text2.Text
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
www.751com.cn
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=rsgl.mdb;"
myrs.Open "SELECT * FROM [user] where (user.user)='" + denlu_name + "';", mycn, adOpenKeyset, adLockOptimistic
If myrs.BOF = True And myrs.EOF = True Then
MsgBox "查无此人", , "登陆信息"
Else
If myrs("pass") = denlu_pass Then
''''''''''''''''''''''''''''''''''''''''''
MsgBox "ok", , "登陆信息"
Form2.Show
Unload Me
'''''''''''''''''''''''''''''''''''''''''''''''''''
Else
MsgBox "密码不正确", , "登陆信息"
End If
目的是USER表没有该用户,将无法使用本程序
然后进入主界面,如下图所示:
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] 下一页