学生信息管理系统(VB 干货篇)

引言

       

        最近一直在学生信息管理系统徘徊不前,不敢进入机房。分析其主要原因是之前的知识学的有点Low,不敢前进,怕进到机房也是停着,所以一直徘徊在这里。因此最近总结了很多VB中的基础知识。比如:常用的函数(因为每次都能在代码中看到,但是就是不理解是什么含义,更不知道怎么使用);一些优化学生系统的代码段等。

 

正文

 

一、VB中的常用函数

1. ASC(X)Chr(X):转换字符字符码

[格式]

P=Asc(X) 返回字符串X的第一个字符的字符码

P=Chr(X) 返回字符码等于X的字符

[范例]

(1)P=Chr(65)

输出字符A,因为AASCII码等于65

(2)P=Asc(“A”)

输出65

 

2. Len(X) 计算字符串X的长度

[格式]

P=Len(X)

[说明]

空字符串长度为0,空格符也算一个字符,一个中文字虽然占用2 Bytes,但也算一个字符。

[范例]

(1) X=”” (空字符串)

Len(X) 输出结果为0

(2) X=”abcd”

Len(X) 输出结果为4

(3) X=”VB教程”

Len(X) 输出结果为4

 

3. Mid(X)函数:读取字符串X中间的字符

[格式]

P=Mid(X,n)

X的第n个字符读起,读取后面的所有字符。

P=Mid(X,n,m)

X的第n个字符读起,读取后面的m个字符。

[范例]

(1) X=”abcdefg”

P=Mid(X,5)

结果为:P=”efg”

(2) X=”abcdefg”

P=Mid(X,2,4)

结果为P=”bcde”

 

4. StrReverse:反转字符串

[格式]

P=StrReverse(X)

[说明]

返回X参数反转后的字符串

[范例]

1X=”abc”

P=StrReverse(X)

输出结果:P=”cba”

 

5. Ucase(X)Lcase(X):转换英文字母的大小写

[格式]

P=Lcase(X)

X字符串中的大写字母转换成小写

P=Ucase(X)

X字符串中的小写字母转换成大写

[说明]:除了英文字母外,其他字符或中文字都不会受到影响。

[范例]

  X=”VB and VC”

Lcase(X)的结果为”vb and vc”Ucase(X)的结果为”VB AND VC”

 

6. InStr函数:寻找字符串

[格式]

P=InStr(X,Y)

X第一个字符起找出Y出现的位置

P=InStr(n,X,Y)

Xn个字符起找出Y出现的位置

[说明]

1 若在X中找到Y,则返回值是Y第一个字符出现在X中的位置。

2 InStr(X,Y)相当于InStr(1,X,Y)

3 若字符串长度,或X为空字符串,或在X中找不到Y,则都返回0

4 Y为空字符串,则返回0

 

7.下面重点说下msgbox函数,它很重要,也经常的用到。MsgBoxvb中的一个函数,功能是弹出一个对话框,等待用户单击按钮,并返回一个Integer值的表示用户单击了哪一个按钮

语法:

MsgBox (Prompt[,Buttons] [,Title] [,Helpfile,Context])

参数(MsgBox函数参数)

 

部分

描述

Prompt

必选。字符串表达式,显示在对话框中的消息。Prompt的最大长度大约为

1024个字符,由所用字符的字节大小决定。如果Prompt的内容超过一行,则可以在每一行之间用回车符(Chr(13))、换行符(Chr(10))或是回车与换行符的组合(Chr(13) & Chr(10),即vbCrLf)将各行分隔开来。

Buttons

可选。数值表达式,是一些数值的总和,指定所显示的按钮的数目及形式、使用的图标样式(及声音),缺省按钮以及消息框的强制性等。如果省略,则其缺省值为0。具体数值见“参数设置值”表格。

Title

可选。字符串表达式,在对话框标题栏中显示的内容。如果省略Title,则将应用程序标题(App.Title)放在标题栏中。

Helpfile

可选。字符串表达式,用来向对话框提供上下文相关帮助的帮助文件。如果提供了Helpfile,则也必须提供Context

Context

可选。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了Context,则也必须提供Helpfile

 

参数设置值(Buttons参数设置值)

常数

描述

对话框中显示的按钮的类型与数目

 

 

vbOKOnly

0

只显示“确定”按钮。(缺省)

vbOKCancel

1

显示“确定”和“取消”按钮。

vbAbortRetryIgnore

2

显示“终止”、“重试”和“忽略”按钮。

vbYesNoCancel

3

显示“是”、“否”和“取消”按钮。

vbYesNo

4

显示“是”和“否”按钮。

vbRetryCancel

5

显示“重试”和“取消”按钮。

图标的样式(根据系统设置,可能伴有声音)

 

 

vbCritical

16

显示“错误信息”图标。

vbQuestion

32

显示“询问信息”图标。

vbExclamation

48

显示“警告消息”图标。

vbInformation

64

显示“通知消息”图标。

默认按钮

 

 

vbDefaultButton1

0

第一个按钮是默认按钮。(缺省)

vbDefaultButton2

256

第二个按钮是默认按钮。

vbDefaultButton3

512

第三个按钮是默认按钮。

vbDefaultButton4

768

第四个按钮是默认按钮。

对话框的强制返回性

 

 

vbApplicationModal

0

应用程序强制返回;应用程序一直被挂起,直到用户对消息框作出响应才继续工作。

vbSystemModal

4096

系统强制返回;全部应用程序都被挂起,直到用户对消息框作出响应才继续工作。

对话框特殊设置

 

 

vbMsgBoxHelpButton

16384

将帮助按钮添加到消息框。

vbMsgBoxSetForeground

65536

指定消息框窗口作为前景窗口。

vbMsgBoxRight

524288

文本为右对齐。

vbMsgBoxRtlReading

1048576

指定文本应为在希伯来和阿拉伯语系统中的从右到左显示。

这些常数都是Visual Basic for ApplicationsVBA)指定的。所以,可以在程序代码中使用这些常数名称,而不使用实际数值。

MsgBox函数返回值

常数

描述

vbOK

1

单击了“确定”按钮。

vbCancel

2

单击了“取消”按钮。

vbAbort

3

单击了“终止”按钮。

vbRetry

4

单击了“重试”按钮。

vbIgnore

5

单击了“忽略”按钮。

vbYes

6

单击了“是”按钮。

vbNo

7

单击了“否”按钮。

 

二、下面分享几个优化学生系统中常用到的代码段,本人觉得非常的管用。

1、调整文本框空格的代码:(就是文本框中还没有输入任何字符的时候,单击空格键产生的空格的情况)

Private Subtxtname_Click()

    Dim s As String

    s = txtName.Text

    s = Replace(s, " ", "")

    txtName.Text = s

End Sub

 

2、只能输入汉字:(这个主要是应用到文本框中只能输入汉字的情况)

Private SubtxtDirector_KeyPress(KeyAscii As Integer)  

    If KeyAscii > 0 And KeyAscii <> 13And KeyAscii <> 8 Then KeyAscii = 0

End Sub

 

3、限制特殊的字符:(其实在百度上可以搜到很多类似的代码,但是他们有很多情况限制不住,我这个可以限制住,但是也会有很多的其他缺陷)

Private SubtxtClassroom_KeyPress(KeyAscii As Integer)

    If ((KeyAscii >= 48 And KeyAscii <=57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or _

      (KeyAscii >= 97 And KeyAscii <=122) Or (KeyAscii = 8)) = flase Then KeyAscii = 0

End Sub

 

三、再给大家分享几个常用的,又似懂非懂的:

EOF:为End OfFile的缩写,在操作系统中表示资料源无更多的资料可读取;在C语言中,或更精确地说成C标准函数库中表示文件结束符(end offile)。在while循环中以EOF作为文件结束标志,这种以EOF作为文件结束标志的文件,必须是文本文件。在文本文件中,数据都是以字符的ASCII代码值的形式存放。我们知道,ASCII代码值的范围是0~127,不可能出现-1,因此可以用EOF作为文件结束标志。

BOFBeginning offortune 一个好运的开始,

在电脑的术语缩写通常为 BOF,在作业系统决定资料源无更多的资料可读取。资料源通常称为档案或串流。bof用于指在第一条记录的前面,当记录集为空是,bof和eof都为true。

总结

      

         学习本来就是一个循序渐进的过程,一点一点的积累,一点一点的学习,一点一点的总结,总有一天你可以摸到它的全貌。

猜你喜欢

转载自blog.csdn.net/whc888666/article/details/79087647
今日推荐