Option Explicit
'定义查询字段的窗体级变量
'定义查询的字段窗体变量
Dim sfield As String '查询的关键词
Dim seachtext As String
'查询函数定义
'1、桉书号查询则采用具体查询办法
'2、按书名查询则采用模糊查询办法
Function open_seach(table_name As String, sfield As String, seachtext As String) As Integer
Dim sqlstr As String
Dim str As String
'建立数据库连接
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.CursorLocation = adUseClient
sqlstr = "Provider=Microsoft.Jet.OLEDB.4.0;" + "Data Source=" + App.Path + "\data\ComputerBookmanage.mdb" + ";Persist Security Info=False"
con.Open sqlstr
' 查询办法选择
If Option1.Value = True Then
str = "select * from " & table_name & " where " & sfield & "='" & seachtext & "'"
Else
str = "select * from " & table_name & " where " & sfield & " like '" & Trim(" %" & Text1.Text & "%") & "'"
End If
If Option3.Value = True Then
str = "select * from " & table_name & " where " & sfield & "='" & seachtext & "'"
Else
str = "select * from " & table_name & " where " & sfield & " like '" & Trim(" %" & Text1.Text & "%") & "'"
End If
rst.Open str, con, adOpenDynamic, adLockOptimistic
rst.Requery
If rst.RecordCount > 0 Then
open_seach = 1 '返回一个值1,代表有查询结果
Else
open_seach = 0 '返回一个值0,代表没有查询结果
End If
End Function
Private Sub Check4_Click()
'选择查询的字段
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[出版社]"
End Select
End Sub
Private Sub Command1_Click()
If rst.BOF = True Then
frmMsg.Show
frmMsg.info.Visible = True
frmMsg.Text1.Text = "已经到达第一条记录了!"
Exit Sub
Else
rst.MovePrevious
End If
End Sub
Private Sub Command2_Click() '后一记录
If rst.EOF = True Then
frmMsg.Show
frmMsg.info.Visible = True
frmMsg.Text1.Text = "已经到达最后一条记录了!"
Exit Sub
Else
rst.MoveNext
End If
End Sub
Private Sub DataGrid2_Click()
Call connect_db
open_connection ("book") '连接book表
tablename = "book"
If privilege = 1 Then '如果只是普通用户,无法查询员工信息
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "对不起,您没有查阅的权限!"
Exit Sub
End If
open_connection ("worker") '连接worker表
tablename = "worker"
open_connection ("record") '连接record表
tablename = "record"
Set DataGrid1.DataSource = rst
End Sub
Private Sub Command4_Click()
Dim ret As Integer
If Command4.Caption = "查 询" Then
Command4.Caption = "确 定"
Else
If Option1.Value = False And Option2.Value = False And Option3.Value = False And Option4.Value = False Then
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "请选择查询项!"
Exit Sub
End If
If Text1.Text = "" Then
frmMsg.Show
frmMsg.notice.Visible = True
frmMsg.Text1.Text = "请输入查询内容!"
Text1.SetFocus
Exit Sub
End If
seachtext = Trim(Text1.Text)
ret = open_seach(tablename, sfield, seachtext)
If ret = 0 Then
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "对不起,没有你要的记录!"
Option1.Value = False
Option2.Value = False
Text1.Text = ""
rst.Close
Set rst = Nothing
Set DataGrid1.DataSource = rst
Command1.Enabled = False '上一条,下一条按钮为灰
Command2.Enabled = False
Command4.Caption = "查 询"
Exit Sub
End If
Command1.Enabled = True
Command2.Enabled = True
Set DataGrid1.DataSource = rst
Text1.Text = ""
Option1.Value = False
Option2.Value = False
Command4.Caption = "查 询"
End If
End Sub
Private Sub DataGrid1_Click()
Call connect_db
open_connection ("book") '连接book表
tablename = "book"
If privilege = 1 Then '如果只是普通用户,无法查询员工信息
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "对不起,您没有查阅的权限!"
Exit Sub
End If
open_connection ("worker") '连接worker表
tablename = "worker"
open_connection ("record") '连接record表
tablename = "record"
Set DataGrid1.DataSource = rst
End Sub
Private Sub Form_Load()
Option1.Caption = "书号"
Option2.Caption = "书名"
Option3.Caption = "出版社"
Option4.Caption = "作者"
Label2.Caption = frmLogin.Text1.Text
Timer1.Interval = 1000
tablename = "book"
Call connect_db
open_connection ("book")
Set DataGrid1.DataSource = rst
TabStrip1.Tabs.Item(1) = "图书信息浏览"
TabStrip1.Tabs.Item(2) = "员工信息浏览"
TabStrip1.Tabs.Item(3) = "图书借阅情况浏览"
Text1.Text = ""
open_connection ("book")
Set DataGrid1.DataSource = rst
frmLogin.Show
End Sub
Private Sub Image1_Click()
End Sub
Private Sub Option1_Click()
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[图书编码]"
Case "员工信息浏览":
sfield = "[工号]"
Case "图书借阅情况浏览":
sfield = "[图书编码]"
End Select
End Sub
Private Sub Option2_Click()
'选择查询的字段
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[图书名称]"
Case "员工信息浏览":
sfield = "[姓名]"
Case "图书借阅情况浏览":
sfield = "[工号]"
End Select
End Sub
Private Sub Option3_Click()
'选择查询的字段
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[出版社]"
End Select
End Sub
Private Sub Option4_Click()
'选择查询的字段
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
sfield = "[作者]"
End Select
End Sub
Private Sub Text2_Change()
Text1.Text = Time
End Sub
Private Sub TabStrip1_Click()
Call connect_db
Select Case TabStrip1.SelectedItem
Case "图书信息浏览":
open_connection ("book") '连接book表
tablename = "book"
Option1.Caption = "书号"
Option2.Caption = "书名"
Set DataGrid1.DataSource = rst
Case "员工信息浏览":
If privilege = 1 Then '如果只是普通用户,无法查询员工信息
frmMsg.Show
frmMsg.error.Visible = True
frmMsg.Text1.Text = "对不起,您没有查阅的权限!"
Exit Sub
End If
open_connection ("worker") '连接worker表
Option1.Caption = "工号"
Option2.Caption = "姓名"
tablename = "worker"
Set DataGrid1.DataSource = rst
Case "图书借阅情况浏览":
open_connection ("record") '连接record表
Option1.Caption = "书号"
Option2.Caption = "工号"
tablename = "record"
Set DataGrid1.DataSource = rst
End Select
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Now
End Sub
Private Sub xpcmdbutton1_Click()
Form4.Show
End Sub
Private Sub xpcmdbutton12_Click()
Form6.Show
End Sub
Private Sub xpcmdbutton13_Click()
frmAbout.Show
End Sub
Private Sub xpcmdbutton14_Click()
Unload Me
frmLogin.Show
End Sub
Private Sub xpcmdbutton15_Click()
open_connection "reader"
tablename = "reader"
Set DataGrid1.DataSource = rst
End Sub
Private Sub xpcmdbutton2_Click()
Form5.Show
End Sub
Private Sub xpcmdbutton3_Click()
Form2.Show
End Sub
Private Sub xpcmdbutton4_Click()
Form3.Show
End Sub
Private Sub xpcmdbutton5_Click()
open_connection ("book")
tablename = "record"
Set DataGrid1.DataSource = rst
End Sub
Private Sub xpcmdbutton6_Click()
open_connection ("record")
tablename = "record"
Set DataGrid1.DataSource = rst
End Sub
Private Sub xpcmdbutton7_Click()
open_connection ("worker")
tablename = "worker"
Set DataGrid1.DataSource = rst
End Sub
Private Sub xpcmdbutton8_Click()
Frm_sys_set.Show
End Sub
Private Sub xpmin_Click()
Me.WindowState = 1
End Sub
Private Sub xpclose_Click()
Unload Me
frmLogin.Show
End Sub
Private Sub xptopbuttons1_Click()
Unload Me
End S
没有合适的资源?快使用搜索试试~ 我知道了~
计算机图书管理系统原版.rar
共138个文件
bmp:46个
jpg:19个
frm:13个
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 17 浏览量
2022-04-14
22:58:01
上传
评论
收藏 5.18MB RAR 举报
温馨提示
计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar 计算机图书管理系统原版.rar
资源详情
资源评论
资源推荐
收起资源包目录
计算机图书管理系统原版.rar (138个子文件)
Database.bas 3KB
database_operate.bas 3KB
trans_colour.bas 2KB
xptextbox.bas 1KB
mod_gardient.bas 1KB
data2.bmp 1.14MB
data1.bmp 1.14MB
data5.bmp 1.14MB
data3.bmp 1.14MB
data4.bmp 1.13MB
xt94.bmp 1.11MB
99.bmp 1.09MB
mdb6.bmp 1.05MB
xt7.bmp 807KB
xt25.bmp 557KB
ic04.bmp 532KB
ico3.bmp.bmp 532KB
ico2.bmp 449KB
ico1.bmp 448KB
xt4.bmp 289KB
SETUP2.bmp 268KB
SETUP5.bmp 268KB
SETUP1.bmp 267KB
SETUP4.bmp 266KB
SETUP3.bmp 266KB
xt27.bmp 263KB
Login.bmp 263KB
xt24.bmp 262KB
25s.bmp 224KB
xt93.bmp 224KB
xt90.bmp 214KB
xt1.bmp 210KB
2.bmp 171KB
SETUP6.bmp 153KB
xt2.bmp 145KB
SETUP8.bmp 116KB
xt12.bmp 104KB
xt11.bmp 103KB
xt10.bmp 103KB
xt13.bmp 103KB
xt40.bmp 101KB
dl.bmp 89KB
SETUP7.bmp 65KB
8.bmp 46KB
4.bmp 44KB
5.bmp 43KB
10.bmp 43KB
6.bmp 43KB
9.bmp 42KB
7.bmp 42KB
3.bmp 32KB
xpradiobutton.ctl 12KB
xpcheckbox.ctl 11KB
xpcmdbutton.ctl 9KB
xptopbuttons.ctl 6KB
xpgroupbox.ctl 6KB
xp_canvas.ctl 6KB
xphelp.ctl 2KB
xptopbuttons.ctx 21KB
xpcheckbox.ctx 10KB
xpcmdbutton.ctx 4KB
xpradiobutton.ctx 3KB
xp_canvas.ctx 786B
XPHELP.CTX 786B
xpgroupbox.ctx 109B
Thumbs.db 265KB
Thumbs.db 238KB
计算机图书管理系统毕业论文.doc 1.97MB
~$机图书管理系统毕业论文.doc 162B
计算机图书管理系统.exe 2.34MB
Form1.frm 27KB
Form7.frm 14KB
Frm_sys_set.frm 13KB
Form2.frm 12KB
Form3.frm 11KB
frmAbout.frm 10KB
Form5.frm 9KB
Form4.frm 8KB
frmLogin.frm 7KB
Form6.frm 7KB
Frmprint.frm 6KB
frmSplash.frm 4KB
frmMsg.frm 3KB
Form1.frx 300KB
frmLogin.frx 263KB
frmAbout.frx 221KB
Form2.frx 219KB
Form5.frx 218KB
Form6.frx 216KB
Frm_sys_set.frx 216KB
Form4.frx 207KB
Form3.frx 175KB
frmMsg.frx 67KB
Frmprint.frx 22KB
frmSplash.frx 14KB
windows_masthead_ltr.gif 3KB
Black Glass Folders Icon 18.ico 22KB
Black Glass Folders Icon 20.ico 22KB
Black Glass Folders Icon 19.ico 22KB
ico.ico 3KB
共 138 条
- 1
- 2
0and1调研
- 粉丝: 15
- 资源: 1203
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功
评论0