-
VB.NET API函数画线条示例
VB.NET API函数示例,使用VB api函数画线条的一个例子,如图所示的效果中,鼠标单击两端,即可画出一条直线,主要是学习使用VB.NET中的API画图函数用法。示例运行效果请参见截图所示,本页提供该实例的源码下载。
- 2022-03-22 10:44:12下载
- 积分:1
-
VB 使用鼠标分割窗体的Split实例源码
VB6.0 使用鼠标分割窗体,用鼠标切分主窗体,实现SplitForm,可以用鼠标切分的窗体,在一些流行的应用程序中,经常见到窗体上有二个相邻的列表框,可以用鼠标任意拉动中间分割条,改变列表框的大校
演示窗口其实是一个布满了各种导航菜单的窗口,这也是大家学习的一个亮点哦,作为一个信息管理系统的主界面效果还是相当不错的,分隔窗体在很多时候我们也用得上的。
- 2022-08-08 21:38:42下载
- 积分:1
-
VB NET SQLSERVER 酒店客房管理系统
VB NET SQLSERVER 酒店管理系统,功能模块:基础设置、业务管理、预定管理、入住管理、收钱退房、信息查询、客房管理、预定信息查询、入住信息查询、入住客史查询等,只是一个基础级的酒店客户管理程序,测试前请把Database下的数据库附加,修改数据库连接字符串,然后运行Debug中的exe程序。
- 2023-04-22 15:20:03下载
- 积分:1
-
VB在数据库端禁止录入重复数据
VB在数据库端禁止录入重复数据,对插入的数据进行判断,在写入数据库时进行判断是否已经存在于数据库中,判断是基于数据库的,数据库采用的是Access,在数据库端进行重复数据判断:
rs1.Open "select * from 客户类别表 where 客户类别= + Text1(0) + _
", Cnn, adOpenKeyset, adLockOptimistic
If rs1.RecordCount > 0 And Text1(0) DataGrid1.Columns(0) Then
MsgBox "此记录已存在!", , "提示窗口"
Else
Cnn.Execute ("update 客户类别表 set 客户类别 = + Text1(0) + ,备注= + Text1(1) + _
,修改日期= + Str(Date) + where 客户类别= + DataGrid1.Columns(0) + ")
Adodc1.Refresh
tlbState Toolbar1, False
Text1(0).Locked = True: Text1(1).Locked = True
End If
- 2022-08-14 15:01:13下载
- 积分:1
-
vb 交换两个变量的值
vb 不借助第3个变量实现两个变量互换,交换两个变量的值,在窗口上输入a和b的值,从运行效果截图你可看出这个功能:
If IsNumeric(Txt_a.Text) Then
a = Val(Txt_a.Text)
Else
MsgBox "请输入数字!"
Exit Sub
End If
If IsNumeric(Txt_b.Text) Then
b = Val(Txt_b.Text)
Else
MsgBox "请输入数字!"
Exit Sub
End If
a = a + b
b = a - b
a = a - b
Lbl_Info.Caption = "a的值是:" & a & " b的值是:" & b
- 2023-09-06 03:35:03下载
- 积分:1
-
VB net 模拟考试系统 SQLSERVER版
VB net 模拟考试系统,本考试时间为30分钟,系统会进行倒计时。你必须正确输入你所在班级、姓名和学号,交卷后不能再考,即时间未到不要急于点""交卷""!点击""确定""进入考试系统。本考试系统的窗口只允许打开一个,程序会判断窗体是否已经打开,如果已经打开,则不需要重复打开,只是显示。
程序正常运行需要SQL数据库,请在测试前附加并连接好。
- 2022-02-07 21:46:47下载
- 积分:1
-
vb根据用户输入的内容决定显示指定内容
vb根据用户输入的内容决定显示指定内容,从例子来看,是一个数据库搜索的例子,也就是用户搜索的什么,列表中会显示出相关内容。只是说法不同而已,为了可以正常运行,本示例中的数据库采用Access数据库,数据库文件为:db_Client.mdb。
- 2022-08-23 09:42:29下载
- 积分:1
-
VB 类似超级兔子的程序界面
VB 类似超级兔子的程序界面,这只是一个应用程序的界面效果,不包括界面菜单中的功能,因此对界面UI的美化可以参考。这个界面是使用BMP贴图的方式实现,整个窗口就是一张图片,但是经过了处理,添加了菜单,其实挺简单的,当时用在一个手机维修管理系统中了,现在发上来,不知道对大家是否有用?
- 2022-02-07 20:21:01下载
- 积分:1
-
VB6 利用Combo、DTPicker组合框辅助录入数据
VB6.0 利用组合框辅助录入数据,输入框什么的就不多说了,主要学习VB6 中的Combo、DTPicker组合框在录入数据时的用法,方便用户选择数据、选择时间,特别是时间,可固定为指定格式,防止程序出错等。
- 2023-03-15 11:25:03下载
- 积分:1
-
VB 使用ODBC DSN连接SQL Server数据库
VB 6 使用ODBC DSN连接SQL Server数据库,要想运行本实例,首先需要附加SQL数据库,然后配置ODBC,ODBC数据源名称是“RSDAGLXT”。将连接数据库的代码写在一个按钮事件中,当用户单击按钮后,开始使用DSN连接数据库。本示例主要是连接SQLSERVER,因此主代码文件代码比较少。连接后会从数据库中读取出数据,并绑定到MSHFlexGrid控件中显示,运行效果请见截图。主代码:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open DSN=RSDAGLXT;Uid=sa;Pwd=
rs.Open 人事档案信息表, cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 100
- 2022-01-25 22:59:47下载
- 积分:1