通行证 | 帐号: 密码: 注册 | 登录
网站地图
范文同学网


自动化 模具 机械 电子 通信 动画 英语范文 工程管理 金融范文 旅游管理 工业工程 生物工程 给排水范文 西门子PLC 历史学 三菱PLC
单片机 财务 会计 法律 行政 物理 物流范文 电子商务 制药工程 包装工程 土木工程 材料科学 汉语言范文 欧姆龙PLC 电压表 松下PLC
计算机 化工 数电 工商 食品 德语 国贸范文 人力资源 教育管理 交通工程 市场营销 印刷工程 机电一体化 数控范文 变电站 文化产业

  • 网站首页|
  • 文档范文|
  • 人工降重|
  • 职称文章发表|
  • 合作期刊|
  • 范文下载|
  • 计算机范文|
  • 外文翻译|
  • 免费范文|
  • 原创范文|
  • 开题报告

联系方式

当前位置:范文同学网 -> 免费范文 -> 计算机范文 -> VB+图书管理系统的设计与实现(八)
计算机文章范文| ASP设计| Delphi| VB设计| JSP设计| ASP.NET| VB.NET| java设计| VC| pb| VS| dreamweaver| c#.net| vf| VC++| 计算机文档范文| 范文下载| 自动化范文
·电气自动化原创文章范文 ·学前教育专业原创文章范文 ·国际经济贸易原创文章范文 ·药学专业原创文章范文 ·英语专业原创文章范文 ·公共事业管理原创文章范文
·金融专业原创文章范文 ·广播电视编导原创文章范文 ·电子商务专业原创文章范文 ·法律专业原创文章范文 ·工商管理原创文章范文 ·汉语言文学原创文章范文
·人力资源管理原创文章范文 ·摄影专业原创文章范文 ·心理学专业原创文章范文 ·教育管理原创文章范文 ·市场营销原创文章范文 ·计算机专业原创文章范文
·物流管理专业原创文章范文 ·小学教育专业原创文章范文 ·行政管理专业原创文章范文 ·土木工程管理原创文章范文 ·财务会计专业原创文章范文 ·信息管理信息系统原创范文
·新闻学专业原创文章范文 ·眼视光技术原创文章范文 ·播音与主持原创文章范文 ·广告学专业原创文章范文 ·表演专业原创文章范文 ·动画专业原创文章范文
·视觉传达设计原创文章范文 ·数控技术专业原创文章范文 ·录音艺术原创文章范文 ·光机电应用技术原创范文 ·机电一体化原创文章范文 ·印刷技术专业原创文章范文
·动漫设计与制作原创范文 ·软件技术专业原创文章范文 ·书法学专业原创文章范文 ·应用电子技术原创文章范文 ·电子信息工程技术原创范文 ·机械专业原创文章范文
·酒店管理专业原创文章范文 ·旅游管理专业原创文章范文 ·文化产业管理专业原创范文 ·体育教育专业原创文章范文 ·通信工程专业原创文章范文 ·护理专业原创文章范文

原创文档范文 → 计算机专业原创文档范文 软件技术专业原创文档范文  现成文档范文 → 计算机文档范文

VB+图书管理系统的设计与实现(八)

本文ID:LW6486 ¥
sh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False Command2.Enabled = True Command3.Enabled = True Command4.Enabled = False Command5.Enabled = False End Sub Private Sub Form_Load() Command4.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpd..
sh
 DataGrid1.AllowAddNew = False
 DataGrid1.AllowUpdate = False
 Command2.Enabled = True
 Command3.Enabled = True
 Command4.Enabled = False
 Command5.Enabled = False
 End Sub
 
 Private Sub Form_Load()
 Command4.Enabled = False
 DataGrid1.AllowAddNew = False
 DataGrid1.AllowDelete = False
 DataGrid1.AllowUpdate = False
 If userpow = "guest" Then
 Frame2.Enabled = False
 End If
 Exit Sub
 loaderror:
 MsgBox Err.Description
 End Sub
 
 Private Sub Form_Unload(Cancel As Integer)
 Set DataGrid1.DataSource = Nothing
 End Sub

窗体名:Form7
代码:
 Private Sub Command1_Click()
 Dim rs_findreader As New ADODB.Recordset
 Dim sql As String
 If Check1.Value = vbChecked Then
 sql = "读者编号='" & Trim(Text1.Text & " ") & "'"
 End If
 If Check2.Value = vbChecked Then
 If Trim(sql) = "" Then
 sql = "读者姓名='" & Trim(Text2.Text & " ") & "'"
 Else
 sql = sql & "and 读者姓名='" & Trim(Text2.Text & " ") & "'"
 End If
 End If
 If Check3.Value = vbChecked Then
 If Trim(sql) = "" Then
 sql = "读者类别='" & Trim(Combo1.Text & " ") & "'"
 Else
 sql = sql & "and 读者类别='" & Trim(Combo1.Text & " ") & "'"
 End If
 End If
 If Trim(sql) = "" Then
 MsgBox "请选择查询方式!", vbOKOnly + vbExclamation
 Exit Sub
 End If
 Adodc1.RecordSource = "select * from dzxx where " & sql
 Adodc1.Refresh
 DataGrid1.ReBind
 DataGrid1.AllowAddNew = False
 DataGrid1.AllowDelete = False
 DataGrid1.AllowUpdate = False
 
 End Sub
 
 Private Sub Command2_Click()
 Unload Me
 End Sub
 
 Private Sub Form_Load()
 Dim i As Integer
 Dim sql As String
 Combo1.Clear
 Adodc2.Recordset.MoveFirst
 For i = 0 To Adodc2.Recordset.RecordCount - 1
 Combo1.AddItem Adodc2.Recordset.Fields(0).Value
 Adodc2.Recordset.MoveNext
 Next
 Combo1.ListIndex = 0
 End Sub
 
窗体名:Form8
代码:
 Private Sub Combo1_Change()
 Combo2.ListIndex = Combo1.ListIndex
 End Sub
 
 Private Sub Combo2_Change()
 Combo1.ListIndex = Combo2.ListIndex
 End Sub
 Option Explicit
 Dim leibie As String
 Dim qixian As Integer
 Dim shumn As Integer
 Dim maxnum As Integer
 
 Private Sub Command1_Click()
 Dim rs_borrowbook As New ADODB.Recordset
 Dim sql As String
 Adodc1.RecordSource = "select * from 读者信息 where 读者编号='" & Combo1.Text & ","
 Adodc1.Refresh
 leibie = Adodc1.Recordset.Fields(3)
 shumu = Adodc1.Recordset.Fields(8)
 Adodc1.RecordSource = "select * from 读者类别 where 种类名称='" & leibie & "'"
 Adodc1.Refresh
 qixian = Adodc1.Recordset.Fields(2)
 maxnum = Adodc1.Recordset.Fields(1)
 If shumu >= maxnum Then
 MsgBox "该读者借书数额已满!", vbOKOnly + vbExclamation
 Exit Sub
 End Sub
 
 Private Sub Command2_Click()
 Unload Me
 End

首页 上一页 5 6 7 8 9 10 下一页 尾页 8/10/10

VB+图书管理系统的设计与实现(八)相关范文
网络在管理系统中的应用
针对酒店服务信息管理系统的设计与实现..
学生信息管理系统的设计和实现
关于实验室信息管理系统设计与实现的思考
统计管理系统需求分析以及解决方案
基于WEB平台的教务管理系统设计
学生会事务管理系统数据库的设计
针对酒店服务信息管理系统的设计与实现..
学生信息管理系统
网络在管理系统中的应用
上一篇:vb图书管理系统需求分析报告 下一篇:VB+学生档案管理系统
点击查看关于 图书 管理系统 设计 实现 的相关范文题目 【返回顶部】
精彩推荐
电气工程自动化原创范文  电子商务原创文章范文
人力资源专业原创文章范文 土木工程原创文章范文
工商管理专业原创范文    药学专业原创范文
汉语言文学专业原创范文  会计专业原创文章范文
计算机技术原创文章范文  金融学原创文章范文
法学专业原创文章范文   市场营销专业原创范文
信息管理专业原创文章范文 学前教育专业原创范文
公共事业管理专业原创范文 英语专业原创范文
教育管理专业原创范文   行政管理专业原创范文
热门范文
学生管理系统文档范文
免费图书管理系统
计算机局域网组建与互连文档设计范文
校园网组网方案设计
学生学籍管理信息系统文档范文
商品销售管理系统范文
超市管理系统+范文
网上书店系统的设计与实现
个人网站设计之上网导航设计
计算机应用基础学习心得

关于我们 | 联系方式 | 范文说明 | 网站地图 | 免费获取 | 钻石会员 | 硕士文章范文


范文同学网提供文档范文,原创文章范文,网站永久域名www.lunwentongxue.com ,lunwentongxue-范文同学网拼音首字母组合

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 17304545@qq.com

Copyright@ 2009-2024 范文同学网 版权所有