第一篇：VB3130车辆管理系统2
摘 要..............................................................................................................................................2 Abstract...........................................................................................................错误！未定义书签。引 言............................................................................................................错误！未定义书签。
信息管理系统简介.................................................................................错误！未定义书签。开发的背景和意义.................................................................................错误！未定义书签。系统设计的目标和主要内容.................................................................错误！未定义书签。1 涉及技术简介.............................................................................................错误！未定义书签。
1.1数据库管理系统简介.......................................................................错误！未定义书签。1.2 开发工具Visual Basic 6.0...............................................................错误！未定义书签。1.3 SQL Server 2000 简介.....................................................................错误！未定义书签。1.4 相近研究课题的特点及优缺点分析..............................................错误！未定义书签。1.5 现行研究存在的问题及解决办法..................................................错误！未定义书签。2 系统的需求分析.........................................................................................错误！未定义书签。
2.1可行性分析.......................................................................................错误！未定义书签。2.2 开发环境..........................................................................................错误！未定义书签。2.3 拟开展研究的几个主要方面..........................................................错误！未定义书签。3系统总体设计..............................................................................................错误！未定义书签。
3.1 上机考试系统设计实现的策略......................................................错误！未定义书签。3.2 数据流程图......................................................................................错误！未定义书签。4 系统详细设计.............................................................................................错误！未定义书签。
4.1 数据库结构表..................................................................................错误！未定义书签。4.2 程序模块实现..................................................................................错误！未定义书签。
4.2.1 系统功能界面.........................................................................................................3 4.2.2 车辆管理模块.........................................................................................................4 4.2.3 驾驶员管理模块.....................................................................................................8 4.2.4 系统维护模块.........................................................................................................9 系统运行与测试.........................................................................................错误！未定义书签。
5.1 调试..................................................................................................错误！未定义书签。5.2 测试..................................................................................................错误！未定义书签。结 论............................................................................................................错误！未定义书签。致 谢............................................................................................................错误！未定义书签。参考文献.........................................................................................................错误！未定义书签。
摘 要
随着信息时代的到来，信息高速公路的兴起，全球信息化进入了一个新的发展时期。人们越来越认识到计算机强大的信息模块处理功能，使之成为信息产业的基础和支柱。
我国经济的快速发展，汽车已经成为人们不可缺少的交通工具。对于拥有大量车辆的机关企事业来说，车辆的管理系统成为日常事物中的一项重要工作。如何让管理人员及时了解每一辆车的情况，提高车辆的使用效率减少费用支出，就成为个单位需要解决的一个难题。SQL为规范企业内部管理，提高企业管理质量，更好的服务于广大的客户，我们开发出一套专门用于车辆管理的软件，Visual Basic;本软件可以集中管理车辆的运营、维修、事故、违章等一系列信息，有效跟踪管理，企业每台汽车的使用状况，带动企业进入车辆管理信息化、科学化、同时也可以节省人力、物力、才力、提高工作效率，使企业车辆管理更加科学、更加规范。
本文主要分析了系统的主要组成情况，包括需求情况，系统的设计目标，数据结构，数据流程和系统的主要特点等，重点介绍了系统功能模块的详细思路和实现方法，以及对系统关键技术和部分源代码的详细说明。
关键词：
模块；车辆管理系统；SQL ；Visual Basic
功能界面 车辆档案管理 车辆运营信息管理 车辆统计管理 车辆管理 驾驶员信息管理 帮助 系统维护 车辆事故记录查询 车辆事故列表 车辆添加零件 车辆违章查询 车辆违章记录 车辆维修查询 车辆维修列表 驾驶员档案查询 驾驶员奖罚 驾驶员车辆事故记录查询 管理员设置 数据备份 数据恢复 图1 系统模块图
4.2.1 系统功能界面
本系统一共七个模块，分别是车辆档案管理；车辆运营信息管理；车辆统计管理；驾驶员信息管理；车辆管理和系统维护以及帮助，我主要负责后三个模块的编写工作，既驾驶员信息管理；车辆管理和系统维护模块。下面就介绍一下这三个模块。系统功能界面如图3所示：
图3 系统功能界面
4.2.2 车辆管理模块
车辆管理分七个部分，分别是车辆事故记录查询、车辆事故列表、车辆添加零件、车辆违章查询、车辆违章记录、车辆维修查询、车辆维修列表。下面我们就详细介绍一下。
（1）车辆事故记录查询
可以按照车辆的牌号查询特定时间内的事故次数，时间精确到日，查询完毕可按退出，回到主界面。具体实现如图4所示
图4 车辆事故记录查询
（2）车辆事故列表
可以对事故编号、公司负担金、车牌号码、保险理赔金、车辆类型、对方赔偿金、事故时间、对方姓名、事故概要、对方住址、事故确认者，对方所住单位、对方破坏程度、和解内容等信息进行添加、修改和删除，以及浏览事故记录。具体实现如图5所示
图5 车辆事故列表
（3）车辆添加零件
本窗体可以对零件的名称和单价进行添加、修改和删除。具体实现如图6所示
图6 车辆添加零件
（4）车辆违章查询
可以对违章车辆处罚结果在特定的是时间内按照车牌号码进行查询，查询结束后，按退出返回主界面。具体实现如图7所示
图7 车辆违章查询
（5）车辆违章记录
本窗体的功能就是将违章车辆的车牌号码，违章原因、处罚、违章时间、以及备注等信息输入到数据库里，并可对其进行添加、删除和修改的功能。具体实现如图8所示
图8 车辆违章记录
（6）车辆维修查询
可以对维修车辆的维修费用在特定的是时间内按照车牌号码进行查询，查询结束后，按退出返回主界面。具体实现如图9所示
图9 车辆维修查询
（7）车辆维修列表
本窗体的功能就是将维修车辆的车牌号码，更换零件及数量、维修日期、费用、以及备注等信息输入到数据库里，并可对其进行添加、删除、修改和统计所花费用的功能。操作完成后，按退出返回主界面。具体实现如图10所示
图10 车辆维修列表
4.2.3 驾驶员管理模块
驾驶员管理分三个部分，分别是驾驶员档案查询、驾驶员奖罚、驾驶员事故记录查询。下面我们就详细介绍一下。（1）驾驶员档案查询
可以按照姓名、驾龄、性别、证件有效期以及出生日期等信息。从数据库中查询需要的驾驶员档案信息。查询完毕后，按退出返回主界面。具体实现如图11所示
图11 驾驶员档案查询
（2）驾驶员奖罚 本窗体是按照本月驾驶员的当月表现对其进行奖罚，将记录记录进行保存，并打印。具体实现如图12所示
图12 驾驶员奖罚
（3）驾驶员车辆事故记录查询
可以按照车牌号码和事故时间对驾驶员开车发生的事故进行查询，操作完毕后，按退出返回主界面。具体实现如图13所示
图13 驾驶员车辆事故记录查询
4.2.4 系统维护模块
系统维护分三个部分，分别是管理员设置、数据备份、数据恢复。下面我们就详细介绍一下。（1）管理员设置
可以对用户姓名、密码和用户类型进行设置，包括添加、修改、删除。具体实现如图14所示
图14 管理员设置
（2）数据备份
对数据库里的数据进行备份，单击开始备份就执行此操作，完毕后退出，便返回主界面。具体实现如图15所示
图15 数据备份
（3）数据恢复
对数据库里的备份的数据进行恢复，单击开始恢复就执行此操作，完毕后退出，便返回主界面。具体实现如图16所示
图16 数据恢复重要提示：
本论文由大学论文网www.xiexiebang.com 提供 如果需要详细内容请与QQ:4991024联系
第二篇：VB图书管理系统
图书管理系统的设计与实现
目录
一、序言······················································································································4
二、需求分析说明书 ····································································································4 2.1系统介绍..................................................................................................................................................4 2.2系统面向的用户群体..............................................................................................................................4 2.3系统的功能性需求..................................................................................................................................4 2.4系统的非功能性需求..............................................................................................................................5 2.4.1用户界面需求...................................................................................................................................5 2.4.2软硬件环境需求...............................................................................................................................5 2.4.3软件质量需求...................................................................................................................................5
三、可行性分析报告 ····································································································5 3.1技术可行性..............................................................................................................................................5 3.2人员可能性..............................................................................................................................................5 3.3时间、设备可能性..................................................................................................................................5 3.4系统工作量..............................................................................................................................................5 3.5代码工作量..............................................................................................................................................5 3.6文档要求..................................................................................................................................................5
四、开发环境与项目规划 ·····························································································5 4.1开发环境..................................................................................................................................................5 4.2项目规划与管理......................................................................................................................................5 4.2.1开发人员安排...................................................................................................................................5 4.2.2开发进度安排...................................................................................................................................6
五、软件界面设计标准与规范 ······················································································6 5.1编写目的..................................................................................................................................................6 5.2界面设计思想..........................................................................................................................................6 5.3界面设计原则..........................................................................................................................................6 5.4界面设计样式..........................................................................................................................................6 5.5常见提示信息样式..................................................................................................................................6 5.6常见错误信息样式..................................................................................................................................7 5.7其他界面约定..........................................................................................................................................7
六、软件编码设计标准与规范 ······················································································7 6.1对象命名约定..........................................................................................................................................7 6.2常量和变量命名约定..............................................................................................................................8 6.3结构化编码约定......................................................................................................................................8 6.4数据源的约定..........................................................................................................................................9 6.5数据库访问约定......................................................................................................................................9 6.6其他约定..................................................................................................................................................9
七、数据库分析与设计·································································································10 7.1数据库环境说明.......................................................................................................................................10 7.2数据库命名标准与规范...........................................................................................................................10 7.3数据库逻辑设计.......................................................................................................................................10 7.4数据库物理设计.......................................................................................................................................10 7.4.1表、视图汇总...................................................................................................................................10 7.4.2各表、视图设计详解.......................................................................................................................11
八、软件体系结构设计说明书 ······················································································15 8.1系统概述..................................................................................................................................................15 8.2设计约束..................................................................................................................................................15 8.3设计策略..................................................................................................................................................15 8.4系统概要设计说明书..............................................................................................................................16 8.4.1图例说明...........................................................................................................................................16 8.4.2系统总体结构图...............................................................................................................................16 8.5系统详细设计说明书..............................................................................................................................17 8.5.1系统模块汇总...................................................................................................................................17 8.5.2系统核心模块详解...........................................................................................................................18 8.5.3系统模块详解...................................................................................................................................28
九、用户界面设计报告·································································································42 9.1界面设计规范..........................................................................................................................................42 9.2系统窗体汇总..........................................................................................................................................42 9.3主界面设计..............................................................................................................................................43 9.4子界面设计..............................................................................................................................................43 9.5界面资源设计..........................................................................................................................................44
十、软件测试分析报告·································································································44 10.1测试范围与主要内容............................................................................................................................44 10.2测试方法................................................................................................................................................44 10.3测试报告................................................................................................................................................44 10.4改进建议与措施....................................................................................................................................45
十一、软件使用说明书·································································································45 11.1软件概述.................................................................................................................................................45 11.2使用说明.................................................................................................................................................45 11.2.1系统登陆..........................................................................................................................................45 11.2.2系统退出..........................................................................................................................................46 11.2.3图书类别管理..................................................................................................................................46 11.2.4图书信息管理..................................................................................................................................48 11.2.5查询图书信息..................................................................................................................................48 11.2.6读者类别管理..................................................................................................................................49 11.2.7读者信息管理..................................................................................................................................49 11.2.8查询读者信息..................................................................................................................................50 11.2.9借书管理..........................................................................................................................................50 11.2.10还书管理........................................................................................................................................50 参考资料······················································································································51
一、序言
图书管理系统的设计与推出是多方面原因促成的，比如学校的图书管理，日常管理工作 1 都是人工操作，历史数据很难保存和利用。而其他的小型图书馆大多如此。针对这种状况，我计划开发一个面向小型图书馆的图书管理系统，实现对人员、物流的全面管理，以帮助这些图书馆早日实现书店管理信息化。
为了系统的顺利开发和维护，特编制如下技术文档：
想要全部 请加QQ：76536415 专业设计 毕业论文
第三篇：车辆管理系统
交警大队涉案车辆管理系统 系统概述
随着我国机动车保有量及道路里程的迅速增长，基层公安机关交通管理部门在维护道路交通安全秩序的同时，面对日益增多的各类道路交通违法行为以及交通事故，依法应当采取行政强制措施扣留或拖移涉案车辆的具体行政行为也在不断增多。如何在基层公安机关交通管理部门警力不足、资源有限的现实情况下应对这些突如其来的工作量，保证初始信息采集完备，依照法律法规明确办案民警、保管人员及单位领导等环节的职责分工，促使涉案车辆管理流程规范透明，维护当事人合法权益，成为摆在基层公安机关交通管理部门面前的一个课题。为此，北京万政通达科技有限公司针对基层公安机关交通管理部门涉案车辆管理工作方面存在的问题和难点，积极创新工作思路，充分利用科技手段，依据《公安机关涉案车辆管理若干规定》（公通字〔2015〕21号）、《中华人民共和国行政强制法》（主席令第四十九号）等相关法律规定设计研发了《交警大队涉案车辆管理系统》，将涉案车辆的日常管理工作纳入信息化、流程化、规范化的轨道。
本系统分为电脑版和手机APP两个版本。电脑版由待办任务、扣留登记、处置登记、涉案车辆查询、涉案车辆统计、现场执法文书、系统管理等功能模块组成，可在Windows台式机或笔记本电脑上运行；手机APP版由首页、涉案车辆管理、现场执法文书等功能模块组成，可在搭载安卓4.0以上操作系统的智能手机、PDA或警务通上运行。
系统对涉案车辆的查扣登记、审批、接收、存放等流程均是按照现行的法律法规所规定的流程而设计，既可供交警大队和停车场联网使用，也可供停车场单独使用。
每天民警现场执法扣留的车辆、处理道路交通事故扣留的车辆，都要进入停车场保管，同时将车辆信息录入本系统进行管理。民警依法扣留车辆后，扣车信息首先由停车场工作人员登记录入系统，电脑版和手机APP上录入均可，包括扣车时间、地点、民警、车辆情况、存放的停车场等必要信息，同时可将现场扣车的相片、法律文书扫描进系统，帮助民警办案标准化、流程规范化。扣车信息实时同步到交警大队，经交警大队内勤民警审批确认后正式成为已进场车辆。驾驶员来交警队接受处理后，内勤民警可在系统内调出扣车信息进行返还登记，生成放车通知单，返还车辆信息实时同步到停车场，停车场保管人员根据车辆返还信息做车辆出场确认后，该车即成为已返还状态。内勤民警在涉案车辆查询模块中可随时查询并导出“涉案车辆管理台账”。
系统能够统计每天的待办数据，包括待进场车辆数（停车场已经录入扣车信息但交警大队内勤民警尚未审批确认的）、待返还车辆数（交警大队内勤民警已经登记返还信息但停车场尚未做出场确认的）、待归还车辆数（交警大队出于鉴定或检验等需求将车辆调出停车场但尚未归还的）、待处理车辆数（交警大队内勤民警已经登记将要报废或拆解等处理信息但停车场尚未做出场确认的）；能够分类统计已办车辆数据，包括已进场车辆数（停车场已经录入扣车信息且交警大队内勤民警已审批确认的）、已返还车辆数（交警大队内勤民警已经登记返还信息且停车场已做出场确认的）、已公告车辆数（自扣车之日起超过30日驾驶员未前来交警大队接受处理且交警大队已登报公告的）、已处理车辆数（交警大队内勤民警已经登报公告超过三个月驾驶员仍不来接受处理，交警部门依法对车辆进行报废或拆解等处理措施完毕的）；系统可对逾期未处理的超时车辆进行提醒，包括车辆已进场3个月以上的，民警可在系统内统计出相关车辆，然后在当地报纸或政府网站等媒体上发布公告；经公告3个月以上仍未处理的，交警部门可依法将这些车辆送到报废回收公司进行报废或拆解等处理，并将相关信息录入系统。系统可为涉案车辆制作带有二维码的不干胶标签。打印出来的不干胶标签共三联，裁开后，一联粘贴在涉案车辆上、一联贴在涉案车辆的钥匙上、一联交给当事人，当事人可以扫描标签上的二维码，查阅自己被扣留车辆处于何种状态。另外，本系统还附带了现场文书制作模块，民警可在当事人违法现场使用手机APP直接连接便携式打印机，无需配备笔记本电脑，在手机上即可制作并打印《违法停车告知单》、《公安交通管理简易程序处罚决定书》、《道路交通安全违法行为处理通知书》等现场法律文书。
本系统的投入使用，可有效解决基层公安机关交通管理部门涉案车辆底数不清、情况不明和对涉案车辆清理、公告、处置难等问题，有效堵塞漏洞，实现对涉案车辆管理工作的信息化、制度化、规范化管理，为提升执法质量、规范执法行为奠定了良好基础。系统用户
本系统面向以下用户提供服务：
1、交警大队内勤民警。使用本系统可以做到规范登记、方便管理、数目清晰准确、加强监督。具有数据增删改查所有权限，能够访问所有停车场数据。
2、停车场保管人员。承接交警大队的停车业务，由交警大队通过政府采购服务等方式支付停车业务管理费。只能访问自己停车场的数据。
3、涉案车辆所有人或驾驶人。通过微信公众号可以查询自己车辆所在位置以及停车费等相关信息。工作流程
本系统所能处理的涉案车辆相关的工作流程共有4个。明细如下：
1、扣留车辆流程
2、返还车辆流程
3、调取归还流程
4、公告处理流程
本系统对上述4个工作流程的操作步骤设计如下：
1、扣留车辆流程
停车场保管人员执行扣车登记 →交警大队内勤民警执行扣车审批
2、返还车辆流程
交警大队内勤民警执行车辆返还登记 → 停车场保管人员执行车辆出场
3、调取归还流程
交警大队内勤民警执行车辆调取登记 → 停车场保管人员执行车辆出场 →交警大队内勤民警执行车辆归还登记 → 停车场保管人员执行车辆进场
4、公告处理流程
交警大队内勤民警执行公告登记 → 交警大队内勤民警执行处理登记 → 停车场保管人员车辆出场 → 交警大队内勤民警执行处理结果登记
第四篇：vb图书管理系统源代码
Borbook：
Public sqltxt As String Public rno As String
'保存读者借书证号 Public bno As String
'保存读者图书编号 Public xm As String
'保存读者姓名 Public dw As String
'保存读者单位 Public rs As ADODB.Recordset
Private Sub Comm1_Click()
rno = Trim(Text1(0).Text)
If rno = “" Then
MsgBox ”借书证号不能为空,请输入“, vbOKOnly, ”信息提示“
Comm2.Enabled = False
Else
sqltxt = ”select * from reader where 借书证号='“ + rno + ”'“
Set rs = exesql(sqltxt)
If rs.RecordCount = 0 Then
MsgBox ”该读者未登记,不能借书“, vbOKOnly, ”信息提示“
Comm2.Enabled = False
Else
Text2(0).Text = rs.Fields(”姓名“)
Text2(1).Text = str(rs.Fields(”借书总数“))
Text2(2).Text = str(rs.Fields(”借书总数“)rs.Fields(”已借书数“))
End If
End If
End If End Sub
Private Sub retCom_Click()
Unload Me End Sub
Private Sub Form_Load()
Comm2.Enabled = False End Sub
Edbook：
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
'说明:为什么使用recs,而不直接使用adodc1.recordset.recordcount?在调用edbook1窗体添加一个记录(确定)后,再
'返回到本表单,若不在Form_Activate()事件过程中调用adodc1.refresh进行刷新,adodc1.recordset.recordcount值
'仍未增1,这样调用encomm过程时出错;若在Form_Activate()事件过程中调用adodc1.refresh进行刷新，'adodc1.recordset.recordcount值增1了,调用encomm过程时也正确,但返回本窗体时,当前行总是第一行,显然也不行，'因为用户在添加或修改后希望在datagrid1中显示当前操作的那条记录.recs = Adodc1.Recordset.RecordCount End Sub
Private Sub Form_Activate()
DataGrid1.SetFocus
Call encomm End Sub
Private Sub Comm1_Click()
flag = 1
edbook1.Show vbModal End Sub
Private Sub Comm2_Click()
flag = 2
edbook1.Show vbModal End Sub
Private Sub Comm3_Click()
If MsgBox(”真的要删除[“ + Trim(Adodc1.Recordset.Fields(”书名“))+ ”]吗?“, vbYesNo, ”信息提示“)= vbYes Then
Adodc1.Recordset.Delete
recs = recs1
Call encomm
End If End Sub
Private Sub Comm4_Click()
Unload Me End Sub
Private Sub encomm()
If recs = 0 Then
Comm2.Enabled = False
Comm3.Enabled = False
Else
Comm2.Enabled = True
Comm3.Enabled = True
End If End Sub
Edlev1：
Dim cond As String
Private Sub Form_Load()
If flag = 2 Then
Text1(0).Text = edlev.Adodc1.Recordset.Fields(”级别“)
Text1(1).Text = edlev.Adodc1.Recordset.Fields(”过期罚款“)
Text1(2).Text = edlev.Adodc1.Recordset.Fields(”借书总数“)
Text1(3).Text = edlev.Adodc1.Recordset.Fields(”借书天数“)
End If End Sub
Private Sub Comm1_Click()
If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Text1(2).Text)= ”“ Or _
Trim(Text1(3).Text)= ”“ Then
MsgBox ”数据项不全,请重新设置“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If edlev.Adodc1.Recordset.RecordCount > 0 Then '原记录个数大于0
cond = ”级别='“ + Trim(Text1(0).Text)+ ”'“
edlev.Adodc1.Recordset.MoveFirst
'每次从头开始查找
edlev.Adodc1.Recordset.Find(cond)
If Not edlev.Adodc1.Recordset.EOF()Then
MsgBox ”存在完全相同的记录“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
End If
edlev.Adodc1.Recordset.AddNew
edlev.Adodc1.Recordset.Fields(”级别“)= Trim(Text1(0).Text)
edlev.Adodc1.Recordset.Fields(”过期罚款“)= Val(Trim(Text1(1).Text))
edlev.Adodc1.Recordset.Fields(”借书总数“)= Val(Trim(Text1(2).Text))
edlev.Adodc1.Recordset.Fields(”借书天数“)= Val(Trim(Text1(3).Text))
edlev.Adodc1.Recordset.Update
recs = recs + 1
Else
'修改操作
n = edlev.Adodc1.Recordset.AbsolutePosition
cond = ”级别='“ + Trim(Text1(0).Text)+ ”'“
edlev.Adodc1.Recordset.MoveFirst '每次从头开始查找
edlev.Adodc1.Recordset.Find(cond)
If Not edlev.Adodc1.Recordset.EOF()And edlev.Adodc1.Recordset.AbsolutePosition <> n Then
MsgBox ”存在完全相同的记录“, vbOKOnly, ”信息提示“
edlev.Adodc1.Recordset.MoveFirst
'这两个语句恢复原记录位置
edlev.Adodc1.Recordset.Move(n1)
edlev.Adodc1.Recordset.Fields(”级别“)= Trim(Text1(0).Text)
edlev.Adodc1.Recordset.Fields(”过期罚款“)= Val(Trim(Text1(1).Text))
edlev.Adodc1.Recordset.Fields(”借书总数“)= Val(Trim(Text1(2).Text))
edlev.Adodc1.Recordset.Fields(”借书天数“)= Val(Trim(Text1(3).Text))
edlev.Adodc1.Recordset.Update
End If
Unload Me End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Edreader：
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount End Sub
Private Sub Form_Activate()
DataGrid1.SetFocus
Call encomm End Sub
Private Sub Comm1_Click()
flag = 1
edreader1.Show vbModal End Sub
Private Sub Comm2_Click()
flag = 2
edreader1.Show vbModal End Sub
Private Sub Comm3_Click()
If MsgBox(”真的要删除[“ + Trim(Adodc1.Recordset.Fields(”姓名“))+ ”]吗?“, vbYesNo, ”信息提示“)= vbYes Then
Adodc1.Recordset.Delete
recs = recs1
Call encomm
End If End Sub Private Sub Comm4_Click()
Adodc1.Recordset.UpdateBatch
Adodc1.Recordset.Close
Unload Me End Sub Private Sub encomm()
If recs = 0 Then
Comm2.Enabled = False
Comm3.Enabled = False
Else
Comm2.Enabled = True
Comm3.Enabled = True
End If End Sub
Edrec1：
Dim cond As String
Private Sub Form_Load()
Label1.Caption = cap
If flag = 1 Then
Text1.Text = ”“
Else
Text1.Text = edrec.Adodc1.Recordset.Fields(”fn“)
End If End Sub
Private Sub Comm1_Click()
If Trim(Text1.Text)= ”“ Then
MsgBox ”数据项不能为空,请重新设置“, vbOKOnly, ”信息提示“
Text1.SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If edrec.Adodc1.Recordset.RecordCount > 0 Then '原记录个数大于0
cond = ”fn='“ + Trim(Text1.Text)+ ”'“
edrec.Adodc1.Recordset.MoveFirst
'每次从头开始查找
edrec.Adodc1.Recordset.Find(cond)
If Not edrec.Adodc1.Recordset.EOF()Then
MsgBox ”存在完全相同的记录“, vbOKOnly, ”信息提示“
Text1.SetFocus
Exit Sub
End If
End If
edrec.Adodc1.Recordset.AddNew
edrec.Adodc1.Recordset.Fields(”fn“)= Trim(Text1.Text)
edrec.Adodc1.Recordset.Update
recs = recs + 1
Else
'修改操作
n = edrec.Adodc1.Recordset.AbsolutePosition
cond = ”fn='“ + Trim(Text1.Text)+ ”'“
edrec.Adodc1.Recordset.MoveFirst '每次从头开始查找
edrec.Adodc1.Recordset.Find(cond)
If Not edrec.Adodc1.Recordset.EOF()And edrec.Adodc1.Recordset.AbsolutePosition <> n Then
MsgBox ”存在完全相同的记录“, vbOKOnly, ”信息提示“
edrec.Adodc1.Recordset.MoveFirst
'这两个语句恢复原记录位置
edrec.Adodc1.Recordset.Move(n1)
edrec.Adodc1.Recordset.Fields(”fn“)= Trim(Text1.Text)
edrec.Adodc1.Recordset.Update
End If
Unload Me End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Menu：
Private Sub MDIForm_Load()
If Not userlevel = ”系统管理员“ Then
menu21.Enabled = False
menu31.Enabled = False
menu41.Enabled = False
menu42.Enabled = False
End If End Sub
Private Sub menu11_Click()
borbook.Show vbModal End Sub
Private Sub menu12_Click()
retbook.Show vbModal End Sub
Private Sub menu13_Click()
End End Sub
Private Sub menu21_Click()
edbook.Show vbModal End Sub
Private Sub menu22_Click()
qubook.Show vbModal End Sub
Private Sub menu31_Click()
edreader.Show vbModal End Sub
Private Sub menu32_Click()
qureader.Show vbModal End Sub
Private Sub menu41_Click()
setuser.Show vbModal End Sub
Private Sub menu42_Click()
If MsgBox(”本功能要清除系统中所有数据,真的初始化吗?“, vbYesNo, ”确认初始化操作“)
= vbYes Then
Call deldata(”book“)Call deldata(”reader“)Call deldata(”borrow“)Call deldata(”rlevel“)
Call deldata(”depart“)
Call deldata(”press“)
Call deldata(”oper“)
MsgBox ”系统初始化完毕,下次只能以1234/1234(用户名/口令)进入本系统“, vbOKOnly, ”信息提示“
End If End Sub
Pass：
Public n As Integer
Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = ”select * from oper where 用户名='“ & _
Trim$(Text1(0).Text)& ”'“ & ” And 口令 = '“ & Trim$(Text1(1).Text)+ ”'“
Set mrc = exesql(txtsql)
If mrc.RecordCount = 0 Then '未找到用户记录
n = n + 1
If n < 3 Then
MsgBox ”没有这个用户,继续登录“, vbOKOnly + vbExclamation, ”信息提示“
Text1(0).Text = ”“
Text1(1).Text = ”“
Text1(0).SetFocus
Else
MsgBox ”已登录失败三次,退出系统“, vbOKOnly + vbExclamation, ”信息提示“
mrc.Close
Unload Me
End If
Else
'找到合法用户记录
userlevel = Trim(mrc.Fields(”级别“))
mrc.Close
Unload Me
menu.Show '调用menu窗体
End If End Sub
Private Sub Command2_Click()
Unload Me End Sub
Private Sub Form_Load()
n = 0
'n保存登录的次数 End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Call endata(KeyAscii)End Sub
Qubook：
Private Sub Comm1_Click()
Dim sqltxt As String
If Adodc1.Recordset.Fields(”借否“)= ”借“ Then
no = Trim(Adodc1.Recordset.Fields(”图书编号“))
sqltxt = ”select * from borrow where 图书编号='“ + no + ”'“
Set rs = exesql(sqltxt)
If rs.RecordCount = 0 Then
MsgBox ”该图书没有借书记录“, vbOKOnly, ”信息提示“
Else
MsgBox ”图书编号:“ + no + Chr(10)+ Chr(13)+ _
”书
名:“ + Trim(rs.Fields(”书名“))+ Chr(10)+ Chr(13)+ _
”借 书 人:“ + Trim(rs.Fields(”姓名“))+ Chr(10)+ Chr(13)+ _
”单
位:“ + Trim(rs.Fields(”单位“))+ Chr(10)+ Chr(13)+ _
”借书日期:“ + Format(rs.Fields(”借书日期“), ”yyyy.mm.dd“), vbOKOnly, ”查找结果“
End If
rs.Close
Else
MsgBox ”该书没有外借,不能显示借书人“, vbOKOnly, ”信息提示“
End If End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Private Sub Form_Activate()
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
Call encomm End Sub
Private Sub selcmd1_Click()'设置条件确定
Dim str As String
str = ”“
'条件表达式
If Trim(Text1(0).Text)<> ”“ Then
If str = ”“ Then
str = ”图书编号='“ + Trim(Text1(0).Text)+ ”'“
Else
str = str + ” and 图书编号='“ + Trim(Text1(0).Text)+ ”'“
End If
End If
If Trim(Text1(1).Text)<> ”“ Then
If str = ”“ Then
str = ”书名='“ + Trim(Text1(1).Text)+ ”'“
Else
str = str + ” and 书名='“ + Trim(Text1(1).Text)+ ”'“
End If
End If
If Trim(Text1(2).Text)<> ”“ Then
If str = ”“ Then
str = ”作者='“ + Trim(Text1(2).Text)+ ”'“
Else
str = str + ” and 作者='“ + Trim(Text1(2).Text)+ ”'“
End If
End If
If Trim(Text1(3).Text)<> ”“ Then
If str = ”“ Then
str = ”出版社='“ + Trim(Text1(3).Text)+ ”'“
Else
str = str + ” and 出版社='“ + Trim(Text1(3).Text)+ ”'“
End If
End If
If Trim(Text1(4).Text)<> ”“ Then
If str = ”“ Then
str = ”借否='“ + Trim(Text1(4).Text)+ ”'“
Else
str = str + ” and 借否='“ + Trim(Text1(4).Text)+ ”'“
End If
End If
If Trim(Text1(5).Text)<> ”“ Then
If str = ”“ Then
str = ”定价=“ + Trim(Text1(5).Text)
Else
str = str + ” and 定价=“ + Trim(Text1(5).Text)
End If
End If
If str <> ”“ Then
Adodc1.RecordSource = ”select * from book where “ + str
Adodc1.Refresh
Else
Adodc1.RecordSource = ”select * from book“
Adodc1.Refresh
End If
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox ”没有任何满足条件的记录“, vbOKOnly, ”信息提示“
End If
Call encomm End Sub
Private Sub selcmd2_Click()'设置条件重置
Text1(0).Text = ”“
Text1(1).Text = ”“
Text1(2).Text = ”“
Text1(3).Text = ”“
Text1(4).Text = ”“
Text1(5).Text = ”“ End Sub
Private Sub encomm()'自定义子过程:判断Adodc1中是否存在记录
If Adodc1.Recordset.RecordCount = 0 Then
Comm1.Enabled = False
Else
Comm1.Enabled = True
End If End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Call endata(KeyAscii)End Sub
Qureader：
Private Sub Comm1_Click()
Dim strn As String
Dim sqltxt As String
no = Trim(Adodc1.Recordset.Fields(”借书证号“))
sqltxt = ”select * from borrow where 借书证号='“ + no + ”'“
Set rs = exesql(sqltxt)
If rs.RecordCount = 0 Then
MsgBox ”该读者没有借任何图书“, vbOKOnly, ”信息提示“
Else
rs.MoveFirst
strn = ”书
名(借书日期)“ + Chr(10)+ Chr(13)
Do While Not rs.EOF()
strn = strn & Trim(rs.Fields(”书名“))& ”(“ & Format(rs.Fields(”借书日期“), ”yyyy.mm.dd“)& ”)“ + Chr(10)+ Chr(13)
rs.MoveNext
Loop
MsgBox strn, vbOKOnly, ”列所借图书清单“
rs.Close
End If End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Private Sub Form_Activate()
Adodc1.Refresh
DataGrid1.Refresh
DataGrid1.SetFocus
Call encomm End Sub
Private Sub selcmd1_Click()'设置条件确定
Dim str As String
str = ”“
'条件表达式
If Trim(Text1(0).Text)<> ”“ Then
If str = ”“ Then
str = ”借书证号='“ + Trim(Text1(0).Text)+ ”'“
Else
str = str + ” and 借书证号='“ + Trim(Text1(0).Text)+ ”'“
End If
End If
If Trim(Text1(1).Text)<> ”“ Then
If str = ”“ Then
str = ”姓名='“ + Trim(Text1(1).Text)+ ”'“
Else
str = str + ” and 姓名='“ + Trim(Text1(1).Text)+ ”'“
End If
End If
If Trim(Text1(2).Text)<> ”“ Then
If str = ”“ Then
str = ”单位='“ + Trim(Text1(2).Text)+ ”'“
Else
str = str + ” and 单位='“ + Trim(Text1(2).Text)+ ”'“
End If
End If
If Trim(Text1(3).Text)<> ”“ Then
If str = ”“ Then
str = ”级别='“ + Trim(Text1(3).Text)+ ”'“
Else
str = str + ” and 级别='“ + Trim(Text1(3).Text)+ ”'“
End If
End If
If Trim(Text1(4).Text)<> ”“ Then
If str = ”“ Then
str = ”性别='“ + Trim(Text1(4).Text)+ ”'“
Else
str = str + ” and 性别='“ + Trim(Text1(4).Text)+ ”'“
End If
End If
If str <> ”“ Then
Adodc1.RecordSource = ”select * from reader where “ + str
Adodc1.Refresh
Else
Adodc1.RecordSource = ”select * from reader“
Adodc1.Refresh
End If
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox ”没有任何满足条件的记录“, vbOKOnly, ”信息提示“
End If
Call encomm End Sub
Private Sub selcmd2_Click()'设置条件重置
Text1(0).Text = ”“
Text1(1).Text = ”“
Text1(2).Text = ”“
Text1(3).Text = ”“
Text1(4).Text = ”“ End Sub
Private Sub encomm()'自定义子过程:判断Adodc1中是否存在记录
If Adodc1.Recordset.RecordCount = 0 Then
Comm1.Enabled = False
Else
Comm1.Enabled = True
End If End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Call endata(KeyAscii)End Sub
Retbook：
Public rno As String Public bno As String
Private Sub Comm1_Click()
bno = Trim(Text1.Text)
If bno <> ”“ Then
Dim sqltxt As String
sqltxt = ”select * from borrow where 图书编号='“ + bno + ”'“
Set brs = exesql(sqltxt)
If brs.RecordCount = 0 Then
MsgBox ”该书不是从本图书馆所借的,不能归还!“, vbOKOnly, ”信息提示“
Else
If Trim(brs.Fields(”借书证号“))<> rno Then
If rno <> ”“ Then
'另一读者还书,自动列出上一个还书人的罚款单
dstr = ”罚款单“ + Chr(10)+ Chr(13)
dstr = dstr & ”姓名:“ & Trim(Text2(1).Text)+ ”(“ + rno + ”)罚款总额:“ & str(Text2(4).Text)& ”元“
MsgBox dstr, vbOKOnly, ”列罚款单“
End If
rno = Trim(brs.Fields(”借书证号“))
sqltxt = ”select * from book where 图书编号='“ + bno + ”'“ '处理图书记录
Set bs = exesql(sqltxt)
bs.Fields(”借否“)= ”否“
bs.Update
sqltxt = ”select * from reader where 借书证号='“ + rno + ”'“ '处理读者记录
Set rs = exesql(sqltxt)
rs.Fields(”已借书数“)= rs.Fields(”已借书数“)rs.Fields(”已借书数“)
If(Datebrs.Fields(”借书日期“)1
rs.Update
If(Datebrs.Fields(”借书日期“)1
Call encomm
End If End Sub
Private Sub Comm4_Click()
Unload Me End Sub
Private Sub encomm()
If recs = 0 Then
Comm2.Enabled = False
Comm3.Enabled = False
Else
Comm2.Enabled = True
Comm3.Enabled = True
End If End Sub
Setuser1：
Dim cond As String
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys ”{TAB}“
End If End Sub
Private Sub Form_Load()
If flag = 2 Then
Text1(0).Text = setuser.Adodc1.Recordset.Fields(”用户名“)
Text1(1).Text = setuser.Adodc1.Recordset.Fields(”口令“)
Combo1.Text = setuser.Adodc1.Recordset.Fields(”级别“)
End If End Sub
Private Sub Comm1_Click()
If Trim(Text1(0).Text)= ”“ Or Trim(Text1(1).Text)= ”“ Or Trim(Combo1.Text)= ”“ Then
MsgBox ”数据项不全,请重新设置“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
If flag = 1 Then '添加操作
If setuser.Adodc1.Recordset.RecordCount > 0 Then '原记录个数大于0
cond = ”级别='“ + Trim(Text1(0).Text)+ ”'“
setuser.Adodc1.Recordset.MoveFirst
'每次从头开始查找
setuser.Adodc1.Recordset.Find(cond)
If Not setuser.Adodc1.Recordset.EOF()Then
MsgBox ”存在完全相同的记录“, vbOKOnly, ”信息提示“
Text1(0).SetFocus
Exit Sub
End If
End If
setuser.Adodc1.Recordset.AddNew
setuser.Adodc1.Recordset.Fields(”用户名“)= Trim(Text1(0).Text)
setuser.Adodc1.Recordset.Fields(”口令“)= Val(Trim(Text1(1).Text))
setuser.Adodc1.Recordset.Fields(”级别“)= Trim(Combo1.Text)
setuser.Adodc1.Recordset.Update
recs = recs + 1
Else
'修改操作
n = setuser.Adodc1.Recordset.AbsolutePosition
cond = ”级别='“ + Trim(Text1(0).Text)+ ”'“
setuser.Adodc1.Recordset.MoveFirst '每次从头开始查找
setuser.Adodc1.Recordset.Find(cond)
If Not setuser.Adodc1.Recordset.EOF()And setuser.Adodc1.Recordset.AbsolutePosition <> n Then
MsgBox ”存在完全相同的记录“, vbOKOnly, ”信息提示“
setuser.Adodc1.Recordset.MoveFirst
'这两个语句恢复原记录位置
setuser.Adodc1.Recordset.Move(n1)
setuser.Adodc1.Recordset.Fields(”用户名“)= Trim(Text1(0).Text)
setuser.Adodc1.Recordset.Fields(”口令“)= Val(Trim(Text1(1).Text))
setuser.Adodc1.Recordset.Fields(”级别“)= Trim(Combo1.Text)
setuser.Adodc1.Recordset.Update
End If
Unload Me End Sub
Private Sub Comm2_Click()
Unload Me End Sub
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Call endata(KeyAscii)End Sub
模块：
Public userlevel As String '保存用户级别
Public flag As Integer
'用作记录操作标记
Public tna As String
'保存表名:用于调用edrec1窗体 Public cap As String
'保存标题名:用于调用edrec1窗体 Public recs As Integer
'保存记录集中记录个数
Sub main()
pass.Show vbModal End Sub
Public Function exesql(ByVal sql As String)As ADODB.Recordset
sql = Trim$(sql)
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = ”DSN=Library;UID=sa;PWD=;“
conn.Open
Set rst.ActiveConnection = conn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.Open sql
Set exesql = rst
Set rst = Nothing
Set conn = Nothing End Function
Public Sub deldata(ByVal tn As String)删除指定表中所有记录,对于oper表添加一个系统用户
Dim sql As String
sql = ”delete “ & Trim$(tn)
Set conn = New ADODB.Connection
conn.ConnectionString = ”DSN=Library;UID=sa;PWD=;“
conn.Open
conn.Execute sql
If Trim(tn)= ”oper“ Then
sql = ”insert oper values('1234','1234','系统管理员')“
conn.Execute sql
End If
conn.Close End Sub Public Sub endata(Keyasc As Integer)
If Keyasc = 13 Then
SendKeys ”{TAB}" '将回车键转换成Tab键
End If End Sub
第五篇：VB学生管理系统主要代码
主要代码如下：
Dim cn As New ADODB.Connection Dim rst0 As New ADODB.Recordset Dim rst1 As New ADODB.Recordset Dim rst2 As New ADODB.Recordset Dim rst3 As New ADODB.Recordset
Private Sub Cmd0add_Click()rst0.AddNew Cmd0add.Enabled = False Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True End Sub
Private Sub Cmd0del_Click()Cmd0add.Enabled = True Cmd0save.Enabled = True Cmd0del.Enabled = False Cmd0Exit.Enabled = True x = MsgBox(“确定要删除吗”, vbYesNoCancel + vbQuestion, “确认”)If x = vbYes Then rst0.Delete End Sub
Private Sub Cmd0Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd0save_Click()Cmd0add.Enabled = True Cmd0save.Enabled = False Cmd0del.Enabled = True Cmd0Exit.Enabled = True rst0.Update rst0.Sort = “应聘人编号” End Sub
Private Sub Cmd1Exit_Click()cn.close Unload Me End Sub Private Sub Cmd1Import_Click()rst0.MoveFirst For i = 1 To rst0.RecordCount
rst1.AddNew
rst1.Fields(“应聘人编号”)= rst0.Fields(“应聘人编号”)
rst0.MoveNext
rst1.MoveNext Next i '
Cmd1Import.Enabled = False
' Cmd1OK.Enabled = True
' Cmd1Exit.Enabled = True
End Sub
Private Sub Cmd1OK_Click()rst1.Fields(“综合评分”)=(Val(rst1.Fields(“计算机能力”))+ rst1.Fields(“业务能力”))* 0.5 If rst1.Fields(“综合评分”)>= 6 Then
rst1.Fields(“初选状态”)= “通过”
Else
rst1.Fields(“初选状态”)= “未通过”
End If
rst1.Update
rst1.Sort = “应聘人编号” End Sub
Private Sub Cmd2Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd2Import_Click()rst1.close rst1.open “select * from 初选表 where 初选状态='通过'”, cn rst1.MoveFirst For i = 1 To rst1.RecordCount
rst2.AddNew
rst2.Fields(“应聘人编号”)= rst1.Fields(“应聘人编号”)
rst2.Fields(“初选评分”)= rst1.Fields(“综合评分”)
rst1.MoveNext Next i rst2.Update Cmd2Import.Enabled = False End Sub
Private Sub Cmd2OK_Click()rst2.Fields(“综合评分”)=(rst2.Fields(“初选评分”)+ rst2.Fields(“外表形象”)+ rst2.Fields(“领悟反应能力”))/ 3 If rst2.Fields(“综合评分”)>= 6 Then
rst2.Fields(“录用情况”)= “通过” Else
rst2.Fields(“录用情况”)= “未通过” End If rst2.Update rst2.Sort = “应聘人编号” rst2.MoveLast End Sub
Private Sub Cmd3Exit_Click()cn.close Unload Me End Sub
Private Sub Cmd3Import_Click()rst2.close rst2.open “selsct * from 面试表 where 录用情况= '通过'” rst2.MoveFirst For i = 1 To rst2.RecordCount
rst3.AddNew
rst3.Fields(“应聘人编号”)= rst2.Fields(“应聘人编号”)
rst3.Fields(“面试分”)= rst2.Fields(“综合评分”)
rst3.Fields(“开始录用时间”)= Date
rst2.MoveNext Next i Cmd3Import.Enabled = False End Sub
Private Sub Cmd3OK_Click()rst3.Fields(“综合考核分”)=(rst3.Fields(“面试分”)+ rst3.Fields(“笔试分”))/ 2 If rst3.Fields(“综合考核分”)>= 6 Then
rst3.Fields(“是否录用”)= “是”
Else
rst3.Fields(“是否录用”)= “否”
End If
rst3.Update
rst3.Sort = “应聘人编号”
rst3.MoveLast End Sub
Private Sub cxtg_Click()frmDataEnv.Show 1 End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_Load()cn.ConnectionString = “DSN=xsgl;name=sa;pass=sa” cn.open cn.CursorLocation = adUseClient rst0.LockType = adLockPessimistic rst1.LockType = adLockPessimistic rst2.LockType = adLockPessimistic rst3.LockType = adLockPessimistic
rst0.open “select * from 登记表”, cn Set DataGrid1.DataSource = rst0
rst1.open “select * from 初选表”, cn Set DataGrid2.DataSource = rst1 If rst1.RecordCount <> 0 Then Cmd1Import.Enabled = False End If
rst2.open “select * from 面试表”, cn Set DataGrid3.DataSource = rst2 If rst2.RecordCount <> 0 Then Cmd2Import.Enabled = False End If
rst3.open “select * from 录用表”, cn Set DataGrid4.DataSource = rst3 If rst3.RecordCount <> 0 Then Cmd3Import.Enabled = False End If End Sub 学生基本信息浏览窗口
图5.6学生基本信息浏览
主要代码如下：
string sql = string.Format(“select P_id from Tb_popedom order by P_id desc”);
if(GetConn.conn.State == ConnectionState.Closed)
{
GetConn.conn.Open();
}
SqlCommand c = new SqlCommand(sql, GetConn.conn);
SqlDataReader reader = c.ExecuteReader();
if(reader.Read())
{
string id = reader[“P_id”].ToString();
txt_id.Text =(int.Parse(id.Substring(1,(id.Length-1)))+ 1)+ “";
}
reader.Close();
GetConn.conn.Close();
////加载一级菜单
sql = ”select * from Tb_function where F_level='1'“;
if(GetConn.conn.State == ConnectionState.Closed)
{
GetConn.conn.Open();
}
sda = new SqlDataAdapter(sql, GetConn.conn);
sda.Fill(ds, ”fun");
……
}
点击咨询 