文件名称:VB 图书馆信息管理系统(SQL)
- 所属分类：
- SQL Server数据库
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2019-03-13
- 文件大小：
- 419.65kb
- 下载次数：
- 0次
- 提 供 者：
- cxp9395
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
图书Public Sys_LoginSucceeded As Boolean '用户登录标志
Public Sys_UserID As String '用户ID
Public Sys_BorrowTLimited As Integer '借书时限
Public Sys_Borrow2TLimited As Integer '续借时限
Public Sys_MaxBorrow As Integer '最大借书量
Public Sys_MaxFine As Double '最高罚款额
Public Sys_DailyFine As Double '每日罚款
Public ConnectionString As String '数据库连接字符串
Public Sub SetSystemPar()
'得到参数值
Dim rst As ADODB.Recordset
Dim SQL As String
Dim msg As String
SQL = "select * from 参数配置表 "
Set rst = SelectSQL(SQL, msg)
If rst.RecordCount > 0 Then '如果存在记录
Sys_BorrowTLimited = rst.Fields("borrowTL")
Sys_Borrow2TLimited = rst.Fields("borrow2TL")
Sys_MaxBorrow = rst.Fields("maxBooks")
Sys_MaxFine = rst.Fields("maxFines")
Sys_DailyFine = rst.Fields("finedaily")
End If
End Sub
'Download by http://www.NewXing.com
Public Function GetConnStr() As String
'得到数据库连接字符串，用户可以在此处设置连接字符串
GetConnStr = ConnectionString
End Function
Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean
'打开数据库连接，连接成功返回true，出错时返回false
Set Conn = New ADODB.Connection
'出错处理
On Error GoTo ErrorHandle
Conn.Open GetConnStr
OpenConn = True
Exit Function
ErrorHandle:
Public Sys_UserID As String '用户ID
Public Sys_BorrowTLimited As Integer '借书时限
Public Sys_Borrow2TLimited As Integer '续借时限
Public Sys_MaxBorrow As Integer '最大借书量
Public Sys_MaxFine As Double '最高罚款额
Public Sys_DailyFine As Double '每日罚款
Public ConnectionString As String '数据库连接字符串
Public Sub SetSystemPar()
'得到参数值
Dim rst As ADODB.Recordset
Dim SQL As String
Dim msg As String
SQL = "select * from 参数配置表 "
Set rst = SelectSQL(SQL, msg)
If rst.RecordCount > 0 Then '如果存在记录
Sys_BorrowTLimited = rst.Fields("borrowTL")
Sys_Borrow2TLimited = rst.Fields("borrow2TL")
Sys_MaxBorrow = rst.Fields("maxBooks")
Sys_MaxFine = rst.Fields("maxFines")
Sys_DailyFine = rst.Fields("finedaily")
End If
End Sub
'Download by http://www.NewXing.com
Public Function GetConnStr() As String
'得到数据库连接字符串，用户可以在此处设置连接字符串
GetConnStr = ConnectionString
End Function
Public Function OpenConn(ByRef Conn As ADODB.Connection) As Boolean
'打开数据库连接，连接成功返回true，出错时返回false
Set Conn = New ADODB.Connection
'出错处理
On Error GoTo ErrorHandle
Conn.Open GetConnStr
OpenConn = True
Exit Function
ErrorHandle:
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : VB 图书馆信息管理系统(SQL).rar 列表 www.NewXing.com/创建数据库/图书馆信息服务系统数据库备份.bak www.NewXing.com/应用程序/OPeratDataBase.bas www.NewXing.com/应用程序/A读者信息.frm www.NewXing.com/应用程序/A图书维护.frm www.NewXing.com/应用程序/A图书信息.frm www.NewXing.com/应用程序/A文献类型.frm www.NewXing.com/应用程序/B借书.frm www.NewXing.com/应用程序/B添加预约.frm www.NewXing.com/应用程序/B图书续借.frm www.NewXing.com/应用程序/B图书预约.frm www.NewXing.com/应用程序/C罚款信息.frm www.NewXing.com/应用程序/C还书.frm www.NewXing.com/应用程序/C逾期图书.frm www.NewXing.com/应用程序/D动态信息.frm www.NewXing.com/应用程序/D统计分析.frm www.NewXing.com/应用程序/D图书检索.frm www.NewXing.com/应用程序/E参数配置.frm www.NewXing.com/应用程序/E密码维护.frm www.NewXing.com/应用程序/E用户管理.frm www.NewXing.com/应用程序/E重新登录.frm www.NewXing.com/应用程序/图书管理系统.frm www.NewXing.com/应用程序/A读者信息.frx www.NewXing.com/应用程序/A图书维护.frx www.NewXing.com/应用程序/A图书信息.frx www.NewXing.com/应用程序/A文献类型.frx www.NewXing.com/应用程序/B借书.frx www.NewXing.com/应用程序/B添加预约.frx www.NewXing.com/应用程序/B图书续借.frx www.NewXing.com/应用程序/B图书预约.frx www.NewXing.com/应用程序/C罚款信息.frx www.NewXing.com/应用程序/C还书.frx www.NewXing.com/应用程序/C逾期图书.frx www.NewXing.com/应用程序/D统计分析.frx www.NewXing.com/应用程序/E参数配置.frx www.NewXing.com/应用程序/E用户管理.frx www.NewXing.com/应用程序/图书管理系统.frx www.NewXing.com/应用程序/mscomct2.ocx www.NewXing.com/应用程序/图书管理系统.PDM www.NewXing.com/应用程序/MSSCCPRJ.SCC www.NewXing.com/创建数据库/数据表脚本.sql www.NewXing.com/应用程序/图书管理系统.vbp www.NewXing.com/应用程序/图书管理系统.vbw www.NewXing.com/创建数据库 www.NewXing.com/应用程序