精华内容
下载资源
问答
  • vb跟access做图书馆管理系统怎么做

    千次阅读 2014-12-03 14:05:58
  • 学生的量也非常的大,资料可能经常性的发生更换,原来手工的管理模式就显的不怎么的合适了。而且手工的数据是存放在多处的,没有使用统一管理的模式,数据整理非常的麻烦,统计也困难,很多的情况下,老师都是在重复...
  • VB+ACCESS图书管理系统

    2008-06-14 20:44:37
    一步一步教怎么做图书馆管理系统 解压后进入105395.htm 如解压不了,请发EMAIL至cui_com@163.com 不为赚分,只想给需要的人 不知道怎么重传资源,抱歉~
  • 是用vb+access开发的一个自己的图书管理系统,直接运行即可,不知道怎么样,仅供参考。
  • 数据库用mysql好还是sql sever好?还有我想用自己的电脑作为管理端,因为选课的人不多,我想建立一个小型局域网,这要怎么设置?
  • 图书借阅管理系统截图分析(VB设计),适合初学者或做课题实训的同学,截的图能清楚明了的告诉大家做图书管理系统怎么做,要做什么等。欢迎下载参考。
  • 主代码在“后台管理”文件夹中 一,开源说明 这是一套如此完整的代码,它包括了一个软件 开发过程中,从设计到实现的所有文档,资源以及 完整源代码。也许许多人不清楚怎么以一个软件工 程的思想去完成软件...
  • 也许许多人不清楚怎么以一个软件工程的思想去完成软件开发,这就是我发布所有源代码的目的。软件=文档+程序,这是许多人都知道的;履行这个思想,便是本套程序的开发守则。但由于这个课程设计的时间太短,才2周,...
  • 1.自从出现数据库,人们渴望用数据和应用程序交互。就出现了所谓数据访问 最初有很多种数据库,但数据根据不同的数据库系统存储在其中的方式不同。 这个时期数据的访问还是很直接的方式,通过编写代码直接访问...

     

    由于连接数据的时候出现了很多不懂得问题,为什么要连接,它是怎么连接的,查着查着,就越看越多。又不舍得就这么放过这些问题,所以就耐心看看究竟是怎么回事!

     

    1.自从出现数据库,人们渴望用数据和应用程序做交互。就出现了所谓数据访问

     

    最初有很多种数据库,但数据根据不同的数据库系统存储在其中的方式不同。
    这个时期数据的访问还是很直接的方式,通过编写代码直接访问数据库。
    开发者必须回用不同的应用程序接口来编写不同的数据库访问代码。
    比如我用vb编写的学生信息管理系统,在访问SQL Server数据库中存放的数据。如果换成用C语言编写的系统,此时就需要重新修改访问数据库的代码;同时,如果数据库的改变,也同样需要改变访问数据的代码。


    为了解决这一个问题,人们就想了一个办法,做一个公共层,这个公共层的作用就是,不管你最终要与什么类型的数据库(注意)进行连接,都不用写专为访问这种类型数据库的访问代码。发明公共层的人想把基于不同数据库的所有访问代码做成一个集大成者。你需要连接数据库时候调用这个公共层,都用这个公共层来去检索数据就好了。这就是ODBC,通用数据访问技术。它就是这个公共层!


    (注意)关于ODBC,其实它使用的关系型数据管理系统的专用驱动程序,所以它能搞定关系型数据库。其他的就不行了。


    接着聊ODBC的实质
    用ODBC这种数据检索技术,应用程序首先要将请求转换成SQL语言,这个过程由ODBC Manager找合适的ODBC驱动程序来完成,完成后交给数据库,最终结果在返回给客户端程序。


    这样,我们的应用程序就需要编写利用ODBC API的代码。但这非常麻烦。所以出现了DAO(Date Access Objects)和RDO(Remote Date Objects)对象模型。这是进一步的“接口化”。如果说之前我们的应用程序中需要编写ODBC API的工作,现在它们的出现完成了这样的工作。把所有需要做的工作封装起来,做成一个东西,你需要的使用直接调用别人写好的代码就可以,按需求取。


    由于ODBC只限于检索关系型数据库,它的后代OLE DB出现,能够定义更为广泛的数据源。


    OLE DB的革新在于它不仅可以通过COM接口处理行列数据,还可以通过其他的数据提供者,提供来的数据!


    前面我理解ODBC API 和ADO的关系:ADO是ODBC API的封装。
    OLE BD 是ODBC 的后代。它和ADO的关系:因为OLE DB本身通过一系列COM接口实现了数据的低级连接!而ADO它是将这些很多接口集合成了一个对象。

     

    数据库访问方式的发展史【参考https://www.cnblogs.com/liuzhendong/archive/2012/01/29/2331189.html

     

    2.配置odbc数据源的连接【参考http://blog.csdn.net/crazygolf/article/details/27312577】,这篇介绍的非常详细,实用推荐!

     

    3.由于这次的学生信息管理系统是用VB写的,来聊聊vb的ADO 访问【参考http://blog.csdn.net/wj8023/article/details/7785886】在这篇CSDN中非常详细!这次,只想站在巨人的肩膀上,多读几遍,因为还不懂如何表达ADO整个过程,所以在积累ing!

     

     

    总结:不将就就是发现的原动力

                                                   ——《米老师语录》

    展开全文
  • 人事管理系统

    2008-04-19 01:09:09
    我的这个是VB做的不知道怎么样?
  • 数据库酒店管理系统

    2013-09-18 13:17:39
    用SQL和VB做的小软件,感觉还行,大家觉得怎么样啊
  • 机房的代码还没开始,就听说组合查询是个困难的玩意。一步三停的走到组合查询窗体之前,还没怎么行动就差点给吓投降了。不过好歹也是过学生信息管理系统的人了,多少对自己有点自信。不会弄,查呗!
        机房的代码还没开始,就听说组合查询是个困难的玩意。一步三停的走到组合查询窗体之前,还没怎么行动就差点给吓投降了。不过好歹也是做过学生信息管理系统的人了,多少对自己有点自信。不会弄,查呗!
        先回忆 sqlsever 中的复合查询语句:
    
    select * from 表名 where 字段名 = 值 andor) 字段名 =值
    那么 我们只要在vb 中拼成这样一个语句,然后让 rst.open txtsql,cnn 就 ok了。
    

    1. 选择控件

    十二期 宋荣凯

    我选择了combox 控件 和 text 框
    让窗体加载时,combox 按数据库中字段 additem
    操作符 加载 < > <> =
    组合框 “与” “ 或”

    2.使用变量

    然后具体代码实现如下:

    Private Sub fieldcob1_click() 'change 事件不行,判断语句不生效
    
        If fieldcob1.Text = "卡号" Then fieldname1 = "Number"
        If fieldcob1.Text = "上机日期" Then fieldname1 = "ondate"
    End sub

    3.拼凑语句

    设置了一个 fildname 变量 用来存储 field1.text 对应的数据库中的字段名

    sqltxt1 = fieldname1 & operatecob1.Text & fieldtxt1.Text
    sqltxt2 = fieldname2 & operatecob2.Text & fieldtxt2.Text
    sqltxt3 = fieldname3 & operatecob3.Text & fieldtxt3.Text
    sqltxt = sqltxt & sqltxt1 & Space(1) & assemble1 & Space(1) & sqltxt2 & Space(1) & assemble2 & Space(1) & sqltxt3

    然后让将各个变量拼凑起来就成了需要的sql语句了 。
    剩下的就没有什么新东西了。还是原来的套路。执行sql语句,结果存放在记录集里。然后进行数据操作就好了。

    **

    值得注意的是 最后语句拼凑中一定要加上space(1),没有这个空格的话,sql语句就执行不了了

    **
    写到这里,其实这个组合查询的操作就已经完成了。接下来,我提一下我在看到几这个组合查询窗体时的窗体 的感觉, 第一感觉: 四个窗体一样呀。。 没什么区别。那我为什么要用四个窗体呢? 用一个行不行呢。。 于是这次的机房,我的窗体要比别人的少一些。 16个窗体解决了。

    将功能集成到一个窗体中就是要进行一下判断, 改窗体调出的时候准备实现那种功能。调用那个表中的数据。

    public FormType as string
    Private Sub QuerryChargeMoneyMenu_Click() ' 用变量记录要实现的功能
        FormType = "QuerryChargeMoney"
        frmQuerry.Show
    End Sub
    

    当查询窗体出现的时候,再根据要实现的功能让控件出现。

    If FormType = "QuerryChargeMoney" Then
        querrymenu.Visible = True
        showallmenu.Visible = True
        OnManageMenu.Visible = True
    End If
    

    最后不同的功能调用不同的数据: 其实这几个用到组合查询的功能都差不多,当时没有尝试往模块里写一个函数, 直接粘贴的。 有点不好。 写一个函数应该是没问题。能省好几页代码。查询窗体也是一样。。

     If FT = "inqurecord" Then
            If Numbertxt.Text = "" Then
                MsgBox "卡号不得为空"
            Else
    
                sqltxt = "select*from Son where number ='" & Trim(Numbertxt.Text) & "'"
    
                Set mrc = ExecuteSQL(sqltxt, msgtext)
                If mrc.RecordCount = 0 Then
                    MsgBox "没有该卡号的上机信息"
                Else
                    With MyFlexGrid
    
                    Do While Not mrc.EOF
                        .Rows = .Rows + 1
                        .CellAlignment = 4
                        .TextMatrix(.Rows - 1, 0) = (mrc.fields(0))
                        .TextMatrix(.Rows - 1, 2) = mrc.fields(5)
                        .TextMatrix(.Rows - 1, 3) = mrc.fields(1)
                        .TextMatrix(.Rows - 1, 4) = mrc.fields(6)
                        .TextMatrix(.Rows - 1, 5) = mrc.fields(2)
                        .TextMatrix(.Rows - 1, 6) = Str((DateDiff("d", mrc.fields(5), mrc.fields(6)) * 60 * 24 + DateDiff("n", mrc.fields(1), mrc.fields(2))) * price)
                        .TextMatrix(.Rows - 1, 8) = mrc.fields(4)
                        .TextMatrix(.Rows - 1, 7) = mrc.fields(7)
    
                        mrc.MoveNext
    
                    Loop
                        .CellAlignment = 4
                        .TextMatrix(0, 0) = "卡号"
                        .TextMatrix(0, 1) = "姓名"
                        .TextMatrix(0, 2) = "上机日期"
                        .TextMatrix(0, 3) = "上机时间"
                        .TextMatrix(0, 4) = "下机日期"
                        .TextMatrix(0, 5) = "下机时间"
                        .TextMatrix(0, 6) = "消费金额"
                        .TextMatrix(0, 7) = "余额"
                        .TextMatrix(0, 8) = "备注"
                     End With
                    sqltxt = "select*from  S where number ='" & Trim(Numbertxt.Text) & "'"
                     Set mrc = ExecuteSQL(sqltxt, msgtext)
                With MyFlexGrid
                    Do While Not p = a
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 1) = mrc.fields(1)
                    Loop
                End With
              End If
    
    
    
           End If
    
        End If

    大家可以尝试一下。 这样程序会变的很简洁。 代码也少,窗体也少。 看着会舒服很多!
    这里写图片描述

    祝大家 工作顺心,学习愉快~~

    展开全文
  • 学生信息管理系统——设计实现

    千次阅读 2019-08-21 08:38:20
    规划 俗话说"不谋万世者,不足谋一时;不谋全局者,不足谋一域"。...、大概怎么做?。 首先对系统的大体框架进行划分: 可以看出分为:数据库和vb6中编程2部分,所以我把大体的工作分为3大步 1.数据库设计 ...

    规划

    俗话说"不谋万世者,不足谋一时;不谋全局者,不足谋一域"。不能长远地考虑问题的人,眼前的问题他也看不到;不能全面地把握局势的人,在细节上他也处理不好。所以在具体的实现之前,我们必须要将“全局”做好,也就是对系统的把控。知道系统是什么?、做什么?、大概怎么做?。

    首先对系统的大体框架进行划分:

    可以看出分为:数据库和vb6中编程2部分,所以我把大体的工作分为3大步

    1.数据库设计

    2.数据库与vb交互(配置ODBC数据源)

    3.vb6中具体编程

    实现

    数据库:数据库的实现主要是两部分语句创建数据库和创建表

    创建数据库:

    CREATE DATABASE Student_Info;

    创建表:

    CREATE TABLE `students` 
    (                            
     `id` bigint(20) NOT NULL AUTO_INCREMENT,     
    `class_id` bigint(20) NOT NULL,                   
    `name` varchar(100) NOT NULL,                      
    `gender` varchar(1) NOT NULL,                       
    `score` int(11) NOT NULL,                           
    PRIMARY KEY (`id`)                                  
    ) 
    ENGINE=InnoDB AUTO_INCREMENT=1 DEFAULT CHARSET=utf8 

    vb6下具体编程:信息管理系统嘛,肯定以增删改查为主体思路,也就是在vb环境下对数据的操作。

    对数据库数据的操作,那必然是需要建立在连接好数据库的情况下,再进行增删改查

    1.连接(由于多个窗体需要多次访问,所以我将部分重复性很高的代码写到了公共模块方便复用)

    a.连接文件DSN,分为本地和异地

    Public Function ConnectString() As String
        '本机发布
        'ConnectString = "FileDSN=Student.dsn;UID=sa;PWD=1"    
        '异地发布
        ConnectString = "Provider=sqloledb;server=192.168.138.1;UID=sa;PWD=1;database=Student"
    End Function

    b.抽象出的查询语句

    Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
        
        Dim cnn As ADODB.Connection '定义链接
        Dim rst As ADODB.Recordset
        Dim sTokens() As String '定义字符串
    
    On Error GoTo ExecuteSQL_Error
    
        sTokens = Split(SQL) '产生包含子串数组
        
        Set cnn = New ADODB.Connection  '创建连接
        cnn.Open ConnectString          '打开连接
    '判断字符串中是否含有指定内容
        If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
            cnn.Execute SQL    '执行查询语句
            MsgString = sTokens(0) & " query successsful"    '返回查询信息
        Else
            Set rst = New ADODB.Recordset    '创建数据集对象
            '返回查询结果
            rst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimistic
            Set ExecuteSQL = rst
            MsgString = "查询到" & rst.RecordCount & "条记录"
        End If
    
    ExecuteSQL_Exit:
    
        Set rst = Nothing    '清空数据集对象
        Set cnn = Nothing    '中断连接
        Exit Function
    
    '错误类型判断
    ExecuteSQL_Error:
        MsgString = "查询错误" & Err.Description
        Resume ExecuteSQL_Exit
        '在Visual Basic中,为了避免程序代码出错而终止程序
        '一般在无法确定出错原因的情况下采用
        'On Error Resume Next
        '表示出错时自动跳转至下一行代码
        
    End Function
    

    2.各功能模块中的增删改查

    将数据库中内容添加到窗体上

        txtSQL = "select * from class_info"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        '添加内容到列表框中
        For i = 1 To mrc.RecordCount
            comboClassNo.AddItem mrc.Fields(0)
            comboClassNo.ListIndex = 0
            mrc.MoveNext
        Next i
    
        mrc.Close    '关闭数据集对象

    窗体中内容写入到数据库内

        mrc.AddNew    '给每个字段赋值
        
        mrc.Fields(0) = Trim(txtSID.Text)
        mrc.Fields(1) = Trim(txtName.Text)
        ...
    
        mrc.Update    '更新数据库
        mrc.Close    '关闭数据集对象

    组合查询语句

        If dd(2) = True
           If dd(0) Or dd(1) Then
            '组合查询语句
                txtSQL = txtSQL & "and class_NO ='" & txtClassno.Text & "'"
            Else
                txtSQL = txtSQL & "class_NO ='" & txtClassno.Text & "'"
            End If
        End If

     

     

     

     

     

     

     

     

     

     

    展开全文
  • 也许许多人不清楚怎么以一个软件工程的思想去完成软件开发,这就是我发布所有源代码的目的。软件=文档+程序,这是许多人都知道的;履行这个思想,便是本套程序的开发守则。但由于这个课程设计的时间太短,才2周,...
  • 第一次接触vb,然后被要求一个学生成绩管理系统,然后就做出了一个屎一般的系统,,,,大学白学好吧。前辈是个好人啊。手把手教了我怎么用三层架构一个程序,话不多说,直接上干货了。 三层架构,,说一说我...
  • 我自己编的,以简单为主,以VB+ADO+ACCESS的, 反正我喜欢简单,怎么简单怎么编~~ 我刚刚把查询功能加上去了,所以是改.... 请大家别忘记顶下....
  • 1.VB是什么? VB是visual Basic的简称,即初学者...) ,而用VB做个图书管理系统,医院管理系统毕业设计,是再快速和简便不过的了,功能也可以的非常强大,现在好多流行软件也用VB开发。当然Delphi也很好使。
  • 也许许多人不清楚怎么以一个软件工程的思想去完成软件开发,这就是我发布所有源代码的目的。软件=文档+程序,这是许多人都知道的;履行这个思想,便是本套程序的开发守则。但由于这个课程设计的时间太短,才2周,...
  • 一直都是理论的,我还从来没动手试过软件,像这总信息管理系统,可以说没有什么技术的含量。但是我一直无法下手,就像一次初恋,害怕失败,不知道第一步 怎么走,电视里,网络里的爱情电影,小说,多如牛毛,自己...
  • 也许许多人不清楚怎么以一个软件工程的思想去完成软件开发,这就是我发布所有源代码的目的。软件=文档+程序,这是许多人都知道的;履行这个思想,便是本套程序的开发守则。但由于这个课程设计的时间太短,才2周,...
  • 谁能帮我哦啊

    2010-08-21 10:58:00
    的是学生信息管理系统,希望高手给我发过来一段学生信息管理系统代码。谢谢我这儿有,怎么发给你呀?。网上 到处有的。http://topic.csdn.net/t/20061229/08/5263392.html - 2007-02-03 17:44:00.0<br />急需vb学生...
  • SQL server 数据库视频总结

    千次阅读 热门讨论 2013-08-14 17:10:08
    在看视频之前,曾经接收了一个学生信息管理系统,在学习 学生信息管理系统的时候,对于数据库的部分,总是那么一知半解。带着疑惑来看耿建玲老师的视频,也是别有味道的。 在六月份的时候,初次接触数据库,得五个...
  • 2016-03-30 14:20:38
    从.net到vb+.net到android,从一个二次开发的人事信息管理系统到一个给韩国用的开发票系统在到现在的android小游戏app开发。第一份工作中前三个月学会的可能不在技术上,而是在工作方式上,怎么使用一些微
  • 商务新星.NET源码

    2012-04-27 09:26:11
    1999年,经过3年的努力,我们的商品商务管理系统在市场上销量大增。可是这并没有给我们开发人员带来喜悦,正相反,带来的却是沉重的负担。面对这么多的客户,有一个问题很突出地摆在面前:每个客户都会有些特殊的...
  • C语言上机问题解答

    2014-08-30 21:34:19
    二级VB考生需要安装Visual Basic 6.0开发环境,二级VF考生需要安装Visual FoxPro 6.0开发环境,二级ACCESS考生需要安装Access 2010,二级C、C++、三级网络技术、数据库技术、信息管理技术则需要安装Visual C++ 6.0...
  • vc++ 开发实例源码包

    2014-12-16 11:25:17
    CCAMS系统是一种用于局域网下的CS模式的软件管理和监测系统源码 它包括客户端和服务端,客户端软件主要作用是监测本主机的活动,并将监测到的信息定时发送给服务器。服务器可以将收集到的信息以柱状图和文件列表以及...
  • vc++ 应用源码包_1

    热门讨论 2012-09-15 14:22:12
    CCAMS系统是一种用于局域网下的CS模式的软件管理和监测系统源码 它包括客户端和服务端,客户端软件主要作用是监测本主机的活动,并将监测到的信息定时发送给服务器。服务器可以将收集到的信息以柱状图和文件列表以及...
  • vc++ 应用源码包_2

    热门讨论 2012-09-15 14:27:40
    CCAMS系统是一种用于局域网下的CS模式的软件管理和监测系统源码 它包括客户端和服务端,客户端软件主要作用是监测本主机的活动,并将监测到的信息定时发送给服务器。服务器可以将收集到的信息以柱状图和文件列表以及...
  • vc++ 应用源码包_4

    热门讨论 2012-09-15 14:38:35
    CCAMS系统是一种用于局域网下的CS模式的软件管理和监测系统源码 它包括客户端和服务端,客户端软件主要作用是监测本主机的活动,并将监测到的信息定时发送给服务器。服务器可以将收集到的信息以柱状图和文件列表以及...

空空如也

空空如也

1 2 3
收藏数 50
精华内容 20
关键字:

vb怎么做管理系统