码迷,mamicode.com
首页 > 其他好文 > 详细

VB的第一个项目(一)

时间:2017-09-25 22:55:58      阅读:147      评论:0      收藏:0      [点我收藏+]

标签:管理系统   replace   password   查询语句   标记   成功   rate   refresh   ado   

         前言-----本人也是刚刚接触VB,企业的VB代码基本能看的懂,但是自己开发,只能呵呵。一般在刚学习一门新的语言时,很容易发生一些自己相当然的认识错误,so,记下并分享开发学习的过程,望指正。-----------世界因分享而精彩,安卓因开源更强大。

 


 

           不知道是否有人和我一样,看不下去那些VB的书籍,既然这样,不如就在项目中学习,我在学习java的时候做的第一个项目就是---fuck的学生信息管理系统,屁话说了一大堆,直接开始。

  首先对这个little的project进行一下分析,就很不正式的直接意淫一下大概是什么样子的了,(一般正规的公司都要做一大堆的图啊,表啊的什么的,一个案子的60%的时间就这么烧了)。

       功能模块划分

  • 登录注册(IndexForm)    共分实现四个阶段 :1.比对字符串,字符串层次上的实现(一个人) 。    2.比对对象,对象层次的实现(一个人)。3 数组,集合,列表层次的实现(多个人)。4.数据库层次上的实现(多个人),连接oracle和Access数据库。
  • 显示及增删改查(Mainform)。显示学生的基本信息,实现学生信息数据的基本维护。

 

  一个基本简单的Excel级别的管理系统就是这样了。在开始代码之前要解决以下一些问题。

     问题一:VB代码的文件是什么样子的。

 

       一般情况会有以下一些文件的产生,正常的话至少是3个。

      技术分享

   首先.vbp  .vbw  .frm是必须的,其中.vbp保存的是版本版权等信息,.vbw保存的是离开工程时的一些信息,.frm中保存的窗体代码,一般当它还没修炼成.exe文件是,要想运行都是要运行.vbp文件的。那个黑色箭头的.scc文件是只有外接团队协同软件VSS的时候才会生成。.cls是class module的产物,.bas是module的产物,其他的.pag是属性文件的后缀,.ctl是用户控制文件的后缀。是不是很烦,java中就只有.java和.class文件。

  

  问题二:VB中怎么去调试程序。

  老师傅在我进公司的第一天告诉我的,F8 单步执行,正常的按F8,会直接到达程序的入口。shift+F8,不会进入函数方法直接得到返回值。F5全速前进,一般配合断点使用,直接在循环的结束位置设断点,然后全速。

  VB中好像没有控制台输出,我找了很久,试了很多也没能在控制台输出,有人知道的,赐教一下,就像就java中System.out.println和c#中的Console.WriteLine()。我的解决方案是打开‘‘立即"窗口,?+“从代码中复制的变量”+enter,会输出值。

       立即窗口在“视图”下面的‘立即’,快捷键是ctrl+G。最low的方法就是鼠标点到变量上去。

技术分享

 

 问题三:文件夹架构是怎样的。

  在我不知道什么spring,mybits等等这些被业界吹得神乎其神的javaEE框架时,我总感觉这些框架好屌,等我真正掌握这些框架时,它给我的感觉就是文件夹和配置文件也就是XML的装X而已,当然这是我的戏谑之言,框架还是很屌的。相比而言VB中的文件夹好像被限定死了,这让我很不习惯。虽然有三层架构也就是模型--控制器--视图的文件分法,但是在实际的项目中文件怎么分还是我自己说了算,但是VB中,好像变了,只有个命名权。

技术分享

   只能在project下面点击添加这些东西,其中三个非常重要的就是form,module,和class module。很自然就有了问题四。

  问题四:module和class module的区别以及这2者里面的标准是怎么定义的,比如javaBean是有很严格的格式的,包括属性的权限,空参构造,有参构造,set/get函数等。

  

 技术分享

  大概的意思就是module中定义的对象不可实例化,class module中定义的可以实例化,还有作用域的区别。还有就是module中存放的一些公用的Sub(方法)和函数(function)。而类中存放的大概就是标准的类吧!

      先看2个标准的module和class module的例子,看看其中定义了一些什么,以及是怎么定义的,具体的区别我将在自己实际定义的时候,去尝试总结。

       module:

  1 Public fMainForm As frmMain
  2 Private IsConnect As Boolean     标记数据库是否连接
  3 
  4 Private cnn As ADODB.Connection   连接数据库的Connection对象
  5 Private rs As ADODB.Recordset     保存结果集的Recordset对象
  6 Public strSQL As String     保存执行SQL语句的字符串
  7 Public Conn As String   连接字符串
  8 Public MyUser As New clsUser            用户对象
  9 Public CurUser As New clsUser            当前用户对象
 10 Public strDB As String  数据库名称
 11 Public Pension_Rate As Single   养老保险交费比例
 12 Public Medi_Rate As Single   医疗保险交费比例
 13 Public Tax_Start As Currency     个税起征点
 14 Sub Main()
 15     Dim fLogin As New frmLogin
 16     strDB = "\DATA\工资.mdb"
 17     Conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
 18     App.Path + strDB + ";Persist Security Info=False"
 19     
 20     fLogin.Show vbModal
 21     If Not fLogin.OK Then
 22         登录失败,退出应用程序
 23         End
 24     End If
 25     Unload fLogin
 26     frmSplash.Show
 27     frmSplash.Refresh
 28     Set fMainForm = New frmMain
 29     Load fMainForm
 30     Unload frmSplash
 31     fMainForm.Show
 32 End Sub
 33 
 34 Public Sub Connect() 连接数据库
 35     If IsConnect = True Then  如果连接标记为真,则返回。否则会出错
 36         Exit Sub
 37     End If
 38     Set cnn = New ADODB.Connection  关键New用于创建新对象cnn
 39     cnn.ConnectionString = Conn  设置连接字符串ConnectionString属性
 40     cnn.Open  打开到数据库的连接
 41     
 42     If cnn.State <> adStateOpen Then  判断连接的状态
 43         MsgBox "数据库连接失败", vbOKOnly + vbCritical, "警告"    如果连接不成功,则显示提示信息,退出程序
 44         End
 45     End If
 46     
 47     IsConnect = True  设置连接标记,表示已经连接到数据库
 48 End Sub
 49 
 50 Public Sub Disconnect() 断开与数据库的连接
 51     Dim rc As Long
 52     If IsConnect = False Then Exit Sub 如果连接标记为假,标明已经断开连接,则直接返回
 53     cnn.Close  关闭连接
 54     
 55     Set cnn = Nothing
 56     IsConnect = False
 57 End Sub
 58  59 Public Sub DB_Connect() ‘使用Connect_Num控制数据库连接
 60     Connect_Num = Connect_Num + 1
 61     Connect
 62 End Sub
 63 Public Sub DB_Disconnect()
 64     If Connect_Num >= CONNECT_LOOP_MAX Then
 65         Connect_Num = 0
 66         Disconnect
 67     End If
 68 End Sub
 69 Public Sub DB_Disconnect_Forced() ‘强制关闭数据库,计数器复位
 70     Connect_Num = 0
 71     Disconnect
 72 End Sub
 73 
 74 Public Sub SQLExt(ByVal strSQLstmt As String)   执行数据库操作语句
 75     Dim cmd As New ADODB.Command  创建Command对象cmd
 76     Connect    连接到数据库
 77     Set cmd.ActiveConnection = cnn  设置cmd的ActiveConnection属性,指定与其关联的数据库连接
 78     cmd.CommandText = strSQLstmt  设置要执行的命令文本
 79     cmd.Execute
 80     Set cmd = Nothing
 81     Disconnect
 82 End Sub
 83 
 84 Public Function QueryExt(ByVal strSQLstmt As String) As ADODB.Recordset 执行数据库查询语句
 85     Dim rst As New ADODB.Recordset
 86     Connect    连接到数据库
 87     
 88     Set rst.ActiveConnection = cnn    设置rst的ActiveConnection属性,指定与其关联的数据库连接
 89     rst.CursorType = adOpenDynamic    设置游标类型
 90     rst.LockType = adLockOptimistic   设置锁定类型
 91     rst.Open strSQLstmt    打开记录集
 92     Set QueryExt = rst    返回记录集
 93 End Function
 94 
 95 Public Function CountTax(curPay As Currency)                定义过程,用于计算所得税
 96     Dim curTemp As Currency, curTax As Currency
 97     curTemp = curPay - Tax_Start
 98     Select Case curTemp
 99     Case Is <= 0
100         curTax = 0
101     Case 0.01 To 500
102         curTax = curTemp * 0.05
103     Case 500.01 To 2000
104         curTax = curTemp * 0.1 - 25
105     Case 2000.01 To 5000
106         curTax = curTemp * 0.15 - 125
107     Case 5000.01 To 20000
108         curTax = curTemp * 0.2 - 375
109     Case 20000.01 To 40000
110         curTax = curTemp * 0.25 - 1375
111     Case 40000.01 To 60000
112         curTax = curTemp * 0.3 - 3375
113     Case 60000.01 To 80000
114         curTax = curTemp * 0.35 - 6375
115     Case 80000.01 To 100000
116         curTax = curTemp * 0.4 - 10375
117     Case Is > 100000
118         curTax = curTemp * 0.45 - 15375
119     End Select
120     CountTax = curTax
121 End Function
122 
123 Public Function MakeStr(ByVal Str As String) As String
124     MakeStr = Trim(Replace(Str, "", "‘‘"))
125 End Function

  class module:

 1 Public strName As String    用户名
 2 Public strPWD As String 密码
 3 Public iUserClass As Integer    用户类型
 4 Public Sub Init()
 5     strName = ""
 6     strPWD = ""
 7     iUserClass = 0
 8 End Sub
 9 
10 Public Sub DeleteUser(ByVal UserName As String) 删除用户数据
11     If UserName = "Admin" Then
12         Exit Sub
13     End If
14     strSQL = "DELETE FROM [User] WHERE name=‘" + Trim(UserName) + ""
15     SQLExt (strSQL)
16 End Sub
17 
18 Public Function GetInfo(ByVal UserName As String) As Boolean
19     Dim rs As New ADODB.Recordset
20     strName = UserName
21     strSQL = "SELECT * FROM [User] WHERE name=‘" + Trim(UserName) + ""
22     Set rs = QueryExt(strSQL)
23     If rs.EOF Then
24         Init    调用该类的初始化方法
25         GetInfo = False
26         Exit Function
27     Else
28         strPWD = Trim(rs.Fields(1))
29         iUserClass = rs.Fields(2)
30         GetInfo = True
31     End If
32 End Function
33 
34 Public Function ExistUser(ByVal UserName As String) As Boolean 存在用户
35     Dim rs As New ADODB.Recordset
36     strSQL = "SELECT * FROM [User] WHERE Name=‘" + Trim(UserName) + ""
37     Set rs = QueryExt(strSQL)
38     If Not rs.EOF Then
39         ExistUser = True
40     Else
41         ExistUser = False
42     End If
43 End Function
44 
45 Public Sub AddUser() 增加用户
46     strSQL = "INSERT INTO [User] Values(‘" + Trim(strName) + "‘,‘" + Trim(strPWD) _
47         + "‘," + Trim(Str(iUserClass)) + ")"
48     SQLExt (strSQL)
49 End Sub
50 Public Sub UpdateUser(ByVal UserName As String) 更改用户信息
51     strSQL = "Update [User] Set name=‘" + Trim(strName) _
52         + "‘,PWD=‘" + Trim(strPWD) + "‘,UserClass=" + Trim(Str(iUserClass)) _
53         + " WHERE name=‘" + Trim(UserName) + ""
54     SQLExt (strSQL)
55 End Sub
56 
57 Public Sub UpdatePassword(ByVal UserName As String) 更改用户密码
58     strSQL = "Update mima Set PWD=‘" + Trim(strPWD) _
59         + "‘ WHERE name=‘" + Trim(UserName) + ""
60     SQLExt (strSQL)
61 End Sub

 

   解决了这些总体的问题之后,就可以开始写宇宙级的学生信息管理系统了。

 

VB的第一个项目(一)

标签:管理系统   replace   password   查询语句   标记   成功   rate   refresh   ado   

原文地址:http://www.cnblogs.com/wuxinwuxin/p/7594258.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!