-
vb报表（二）——打印报表
所属栏目：[大数据] 日期：2020-12-16 热度：95
报表显示： Private Sub Form_Load() Dim WithEvents report As grproLibCtl.GridppReport '实例化报表 Set report = New grproLibCtl.GridppReport '报表建立的位置 report.LoadFromFile (App.Path "CheckDay.grf") '和数据库连接 report.DetailGrid.Recor[详细]
-
vb报表（三）——显示时间
所属栏目：[大数据] 日期：2020-12-16 热度：166
在做报表显示时间这一块，用到了三种方法，如下： 获取系统时间信息： 第一种：插入一个系统变量框， 系统变量设置为当前日期时间： 设置好就OK了。 第二种：引用一个函数SystemVar 插入一个综合文字框，输入内容：[#SystemVar(CurrentDateTime):yyyy-MM-dd#[详细]
-
vb.net structure结构类型
所属栏目：[大数据] 日期：2020-12-16 热度：82
编写一个记录学生信息和学习成绩的程序 学号（num）、姓名（name）、性别（sex）、年龄（age）、住址（address）、学习成绩（mark） 学习成绩分为5们 分数分别为95,90,112,94,90 Module Module1 Public Structure student Dim num As Integer Dim name As St[详细]
-
15位身份证转18位批量转换工具及其算法（VB版）
所属栏目：[大数据] 日期：2020-12-16 热度：201
15位身份证转18位批量转换工具及其算法 ************************************************* ID_Change身份证自动转换工具BY：JuNe-Ff ************************************************** **************************************************************[详细]
-
采用vb以十六进制的形式读取文本文档数据
所属栏目：[大数据] 日期：2020-12-16 热度：55
窗体上放入一个多行文本框（带纵向滚动条），一个命令按钮： Private Sub Command1_Click()Dim ss() As Byte,i As LongOpen "e:tmp123.txt" For Binary As #1ss = InputB(LOF(1),#1)Close #1For i = 0 To UBound(ss) If i 0 And (i Mod 16) = 0 Then Text1[详细]
-
VB.NET使用SMTP发送邮件
所属栏目：[大数据] 日期：2020-12-16 热度：90
’需要邮箱支持SMTP功能 Public Function SendMail( ByVal fstr As String , ByVal tstr As String ) As String Dim smtp As New System.Net.Mail. SmtpClient ( "smtp.qq.com" ,25) '发件t邮箱?身份Y验证,参?数y分?别e为a 发件t邮箱?登?录?名?和密码? smtp.[详细]
-
VB.NET三种读SQL数据库命令实例一ADODB
所属栏目：[大数据] 日期：2020-12-16 热度：73
Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rst As New ADODB.Recordset cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=class.mdb" cnn.Open() Dim sql As String = "select * from class where classnam[详细]
-
VB.NET 三种读SQL数据库命令实例二OLEDB
所属栏目：[大数据] 日期：2020-12-16 热度：103
Dim myCon As New OleDbConnection Dim ds As New DataSet Dim mycmd As New OleDbCommand Dim myada As New OleDbDataAdapter myCon.ConnectionString = ConfigurationManager.ConnectionStrings( "wb2012ConnectionString" ).ToString() myCon.Open() Dim[详细]
-
VB.NET获取内容IP
所属栏目：[大数据] 日期：2020-12-16 热度：103
Dim Address() As IPAddress Dim str As String = Dns .GetHostName() Address = Dns .GetHostEntry(str).AddressList[详细]
-
VB.NET使用正则表达式：只取中文并替换多余空格
所属栏目：[大数据] 日期：2020-12-16 热度：78
VB.NET使用正则表达式：只取中文并替换多余空格 Regex .Replace( Regex .Replace(str, "[^u4E00-u9FA5]" , " " ).Trim(), "[s]{2,} " , " " )[详细]
-
自定义分页存储过程 及VB.NET 调用
所属栏目：[大数据] 日期：2020-12-16 热度：79
ALTER PROCEDURE [dbo].[GetRecordFromPage] @tblName nvarchar(255),-- 表名 @fldName nvarchar(255),-- 字段名 @PageSize int = 10,-- 页尺寸 @PageIndex int = 1,-- 页码 @OrderType int = 0,-- 设置排序类型,非0 值则降序 @IsCount int = 0,-- 返回记录[详细]
-
VB.Net.to.C.Sharp.Converter.v3.01.Incl.Keymaker-CORE
所属栏目：[大数据] 日期：2020-12-16 热度：127
http://www.datafilehost.com/download-725024fc.html http://www.mirrorcreator.com/files/1SHNJOTV/vbntcsc301.rar_links[详细]
-
vb6.0散架
所属栏目：[大数据] 日期：2020-12-16 热度：108
有时候vb6.0可能突然间就变得这个样子了： 这如何是好？如何解决？其实很简单，一般都是个人不小心更改了一些设置而已…… 步骤： 1、打开vb6.0，工具——选项（注意要新建一个项目才能选择，要不然为灰色不可选状态）——高级选项——去掉sdi开发环境前面的[详细]
-
VB完全控制IE浏览器，操作ie对象，响应ie事件
所属栏目：[大数据] 日期：2020-12-16 热度：63
IE浏览器完全控制,相信现在绝大多数计算机上使用的是IE浏览器。如何通过编程控制IE的操作呢，本文将一步步介绍如何通过VB调用IE的对象库来对IE进行控制。 本文使用的编程工具是VB6英文企业版，浏览器是IE5，以下的代码只能在IE4及以上版本下运行。另外为了能[详细]
-
一个普通 IT 人的十年回顾
所属栏目：[大数据] 日期：2020-12-16 热度：94
这是我第二次看金老师的这篇文章,感触真的很大.我把它摘抄在这里,以资激励... ---------------------------------------------------------------------------------------------------------------------------------------------------------- 今年（2003[详细]
-
VB机房收费系统问题
所属栏目：[大数据] 日期：2020-12-16 热度：63
这次的VB机房收费系统,昨天算是完全做完了. 其实还是有些问题,比如我的特殊字符检查就做的不好,我只检查了单引号,其他的特殊字符,想想都觉得麻烦,就没做.其实还是有些方法的,比如杨元说可以用正则表达式来控制输入,W就是只能输入数字,字母,汉字和_的,就不用[详细]
-
寻找数组中的最小值和最大值——编程之美2.10
所属栏目：[大数据] 日期：2020-12-16 热度：168
转自：http://www.jb51.cc/article/p-vqxjuxmc-bag.html 问题：寻找数组中的最小值和最大值。 一道很简单的题目，一般有下面4种解法： 1遍历两次，每次分别找出最小值和最大值。 2只遍历一次，每次取出的元素先与已找到的最小值比较，再与已找到的最大值比较[详细]
-
VB6: 通过窗口句柄得到窗口所在程序的名称和路径(实例)
所属栏目：[大数据] 日期：2020-12-16 热度：159
Option ExplicitPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,ByVal lpWindowName As String) As LongPublic Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long,lpdwProc[详细]
-
VB.NET复制删除文件
所属栏目：[大数据] 日期：2020-12-16 热度：189
有些人认为操作文件是一件非常简单的是，其实并不是，如果你没有权限你就不能对文件进行更改，但是我们今天不讲权限的问题，我们来对VB .NET 复制删除文件这个问题进行简单的介绍一下。 VB. NET 复制删除文件代码： VB.NET 版 Imports System .IO ImportsSys[详细]
-
开发的程序终于有成果了
所属栏目：[大数据] 日期：2020-12-16 热度：195
开发的棉花管理系统软件终于拿到软件著作权了。主要使用vb开发，通过建模，建立数学模型！转换成程序实现，实现功能播前方案设计知识模型包括产量目标、品种选择、播栽日期、种植密度与播种量、肥料和水分运筹等；生育指标动态知识模型包括适宜生育期、株高[详细]
-
VB.Net程序设计：Dictionary和Collection搭配使用
所属栏目：[大数据] 日期：2020-12-16 热度：90
只为自己练习，参考，备忘。或许对你没有参考价值，请不要模仿。 一个单据有几个小项目，每个小项目又有几个小项目。可以理解：一个主表，有子表，子表又有子表。 某些单据套用，简单的处理程序。 Public Class Form2 '一个总集合：子表。 Dim mList As New[详细]
-
VB做的程序的代码是放在哪里了呢？
所属栏目：[大数据] 日期：2020-12-16 热度：132
VB做的程序的代码是放在哪里了呢？ 从第一次开始接触VB做程序，我就是根据书上的步骤一步一步的来，添加窗体然后双击窗体在里面写代码，有时还添加个模块或者是类模块在里面写代码，当时就已经想了，为什么模块和类模块没有窗体？为什么我可以添加窗体后双击[详细]
-
vb三点求圆，多点求外接圆。
所属栏目：[大数据] 日期：2020-12-16 热度：139
'本程序运行时耗时约为5-7秒。 '以前在vb版回复问题时编写。 VBScript code Option Explicit Private Type mypoint x As Double y As Double End Type Dim p(0 To 49) As mypoint Dim smallcx As Double Dim smallcy As Double Dim smallr As Double Private[详细]
-
VB.Net程序计算程序运行时间
所属栏目：[大数据] 日期：2020-12-16 热度：62
大家直接看代码，很简单，不知大家平时怎么测试的！ Dim timer As New Stopwatch()timer.Start()Dim j As Integer = 1For i As Integer = 0 To 100000000j += 1Nexttimer.Stop()Me.Label1.Text = timer.Elapsed.ToString() + "显示秒：" + timer.ElapsedMill[详细]
-
VB打包发布--不带源代码
所属栏目：[大数据] 日期：2020-12-16 热度：141
在提高班算起来，做了三个系统了，一个是今年 5 月份作品展时的灵机妙算，一个是今年暑假的学生信息管理系统，再一个就是刚刚完工的这个机房收费系统了。 三个系统，三次打包发布，三次赠送源代码。 不知道你的有没有呢？ 不过好在，有了这个意识，什么都好[详细]
