精华内容
下载资源
问答
  • VB窗体控件设计登录注册页面 界面如下 代码如下 Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Button3_Click(sender As Object, e As ...

    VB窗体控件设计登录注册页面

    界面如下
    在这里插入图片描述

    代码如下

    Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
    End Sub
    
    
    '登录
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    
        Dim myconnect As New SqlClient.SqlConnection
        Dim mycommand As New SqlClient.SqlCommand
        Dim myread As SqlClient.SqlDataReader = Nothing
        Dim mytable As New DataTable()
        myconnect.ConnectionString = "server=127.0.0.1;database=master;integrated security=true;uid=chk;pwd=chk123456"
        myconnect.Open()        '打开数据库
        '设置命令属性
        mycommand.Connection = myconnect
        mycommand.CommandType = CommandType.Text
    
        Dim name As String
        Dim password As String
        name = Me.TextBox1.Text
        password = Me.TextBox2.Text
    
        mycommand.CommandText = "select * from test where name = '" + name.ToString() + "' and password= '" + password.ToString() + "'"
        myread = mycommand.ExecuteReader
        If (myread.Read) Then
            Form2.Show()
        Else MsgBox("账号或者密码错误")
        End If
    
        myread.Close()      '关闭读
        myconnect.Close()   '关闭连接
    
    
    End Sub
    
    
    '注册用户
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles button1.Click
    
        Dim myconnect As New SqlClient.SqlConnection
        Dim mycommand As New SqlClient.SqlCommand
        Dim myread As SqlClient.SqlDataReader = Nothing
        Dim sun As Integer
        Dim mytable As New DataTable()
        myconnect.ConnectionString = "server=127.0.0.1;database=master;integrated security=true;uid=chk;pwd=chk123456"
        myconnect.Open()        '打开数据库
        '设置命令属性
        mycommand.Connection = myconnect
        mycommand.CommandType = CommandType.Text
    
        Dim name As String
        Dim password As String
        name = Me.TextBox1.Text
        password = Me.TextBox2.Text
    
        mycommand.CommandText = "select * from test where name = '" + name.ToString() + "' and password= '" + password.ToString() + "'"
        myread = mycommand.ExecuteReader
        If (myread.Read()) Then
            MsgBox("账号已存在,请重新注册")
    
            'Dim obj As Boolean
            'obj = IsNothing(myread)
    
            'If obj = False Then
            '    MsgBox("账号已存在,请重新注册")
        Else
            myread.Close()
            Dim a As Integer
            a = Int((100 * Rnd()) + 100) '20-100随机数
            mycommand.CommandText = "INSERT INTO [dbo].[test](Id,[name],[password],[user] ) VALUES('" + a.ToString() + "', '" + name.ToString() + "','" + password.ToString() + "','" + a.ToString() + "' )"
            sun = mycommand.ExecuteNonQuery
    
            If sun > 0 Then
                MsgBox("注册成功,请登录")
            End If
        End If
    
        myconnect.Close()   '关闭连接
    
    End Sub
    End Class
    

    -標籤系統,大包標籤,修改每箱数量时自动带出重量,预计9/23完成
    ● HSMES庫中BC_PARAMETER表新增三个字段,显示姓名,工号,每PCS重量,已完成
    ● 大包單PCS重量維護系統 新增和修改数据时记录时间,已完成
    ● 大包刷BarCode系統 修改每箱数量时自动带出重量,20%->60%,预计9/23完成

    -C# 研究
    ● C#基礎與架構學習,進度30%,預計10/14完成
    ● .net Core架構與用法學習,進度10%,預計10/20完成

    -新進學習
    ● 公司通識: 已完成
    ● ICT部門通識: 已完成
    ● 技術通識及規範: 已完成
    ● 公用系統: 已完成
    ● MES通識: 進度80%,預計9/28完成
    ● 產品工程系統: 進度70%,預計9/29完成
    ● HRM通識: 進度0%,預計9/30完成
    ● 財務系統: 進度0%,預計10/9完成
    ● 資材系統: 進度0%,預計10/10完成
    ● 公司通識考試: 已完成
    ● ICT部門通識作業: 已完成
    ● SVN操作作業: 已完成
    ● ICT技術規範課後作業: winform小程序設計,已完成
    ● ICT技術規範課後作業: web小程序設計,已完成
    ● 畫一個標籤頁面作業: 已完成
    ● 水晶報表作業: 已完成
    ● 數據庫操作規範及常用函數作業: 已完成
    ● workflow表單創建及簽核作業: 進度10%,預計10/10完成

    -查詢人數卡控元件
    ● 設計: 進度50%,預計9/30完成
    ● 編程: 進度60%,經理審核原代碼中,預計9/30上線

    展开全文
  • VB机房收费系统04——注册窗体

    热门讨论 2017-12-11 19:42:08
    先挂一张注册的流程图 正文 If Not语句 If Not 是如果不是的意思,具体应用上述VB语句中,它起的作用是如果txtSID里面的文本不是或没有,系统提示请输入学号。 为列表框添加内容 不在添加控件过程中编写,在...

    前言

    先挂一张注册的流程图



    正文

    If Not语句


    If Not 是如果不是的意思,具体应用上述VB语句中,它起的作用是如果txtSID里面的文本不是或没有,系统提示请输入学号。



    为列表框添加内容

    不在添加控件过程中编写,在窗体过程中编写


    Set mrc = ExecutesSQL(txtsql,msgtext)

    ExecuteSQL是执行SQL语句。里面的两个参数txtsql是指用来执行的SQL语句:比如:select * from表;Msgtext参数 指的是实行完SQL语句后的弹出框,是成功了还是失败了之类的。



    限制条件

    • 如何限制输入的字数
    选中需要限制的文本框,选择maxlength属性,如图。

    • 如何限制只能输入数字
    我们需要查找ASCll码表,得到0的ASCll码是48.输入语句如下:
    if KeyAscill < 48 Or KeyAscill > 57 Then KeyAscill = 0
    这条语句用来判断输入的字符是否在0-9的范围中,如果不在这个范围,就把这个输入的字符屏蔽掉

    但这么做会产生一个问题,就是使用BackSpace删除字符的时候,由于按键被屏蔽,无法删除。怎么解决呢?解决方法很简单,只要在上面的语句前在添加一条语句:
    If KeyAscii = 8 Then Exit Sub
    意思是,如果按了BackSpace,就直接退出该过程,按键就不会被屏蔽了。

    • 限制只能输入汉字
    Private Sub name_KeyPress(KeyAscii As Integer)
    If KeyAscii > 0 And KeyAscii <> 13 And KeyAscii <> 8 Then
    KeyAscii = 0
    MsgBox "只允许输入汉字", 48, "温馨提示"
    End If
    End Sub



    VB错误无效限定符


    本错误出现在注册时输入姓名里,因为机房是头一个自己命名的项目,我把注册中姓名文本框的名称设置为name,报错如上。
    原因是这样,name程序无法判断是文本框还是标签还是函数,因为同名的词在程序运行中也设计到其他作用。




    无法向数据表中插入指定列


    图中的问题是,在为数据库添加记录时,UserID列无法插入记录。

    可是问题是UserID列的数据记录在User_Info表上,那么我们要想用field()=的方法添加语句。就得再调用user表。具体方法是:

    '为数据库添加记录
            txtsql = "select*from student_Info"           
            Set mrc = ExecuteSQL(txtsql, msgtext)                          ’我们需要再查询User表数据

            txtsql = "select*from User_Info"                                    'UserID在student表中是第13列,在UserID表中是第11列
            Set mrc1 = ExecuteSQL(txtsql, msgtext)    

            mrc.AddNew

            mrc.Fields(11) = mrc2.Fields(13)







    展开全文
  • VB窗体乱了

    2009-06-18 15:48:00
    不小心VB窗体都乱了,结果就视图里摆弄,拖来拖去,最后的下场是越来越乱,搞的好心烦,网上找了找大部分也都是说:“菜单-〉视图,然后自己手动调一下就是了”,可是实在是没有信心调整好了,于是乎干脆来个绝的,...

     

    不小心VB窗体都乱了,结果就视图里摆弄,拖来拖去,最后的下场是越来越乱,搞的好心烦,网上找了找大部分也都是说:“菜单-〉视图,然后自己手动调一下就是了”,可是实在是没有信心调整好了,于是乎干脆来个绝的,注册表里动动手脚 :D,哈哈,结果成功了,跟大家分享一下。

    1. 开始->运行 输入 regedit进入注册表编辑器
    2. 找到 HKEY_CURRENT_USER/Software/Microsoft/Visual Basic 这个分支
    3. 将这个分支的备份成*.reg
    4. 删除下面目录之后重启VB
    5. O了 :-)
    展开全文
  • VB窗体美化,QQ2009风格,无需注册DLL OCX.....
  • vb枚举窗体、标题文字,自定义热键程序,注册热键失败,请使用其它热键!本软件是由wssccc开发的自由软件,具有鼠标中键操作功能,添加图标到任务栏提示区,使用鼠标隐藏,随Windows加载。程序可枚举当前打开的所有...
  • vb 窗体画面打不开

    2010-11-24 16:48:00
    前段时间 ,我电脑的vb 窗体画面打不开,只要一双击,就自动关闭。   忽然有一天,重新注册了一下 msstdfmt.dll就好了。   运行: regsvr32 msstdfmt.dll

    前段时间 ,我电脑的vb 窗体画面打不开,只要一双击,就自动关闭。

     

    忽然有一天,重新注册了一下 msstdfmt.dll就好了。

     

    运行:

    regsvr32 msstdfmt.dll

    展开全文
  • vb编程语言怎么设置多个启动对象的窗体,比如同时显示登录和注册,启动窗体对象的配置多个窗体实现?
  • 于是自己就花了点时间重新写了个界面,本来打算重绘自身窗体的,但是想要透明效果和QQ迅雷那样的换肤效果,所以就没有用重绘了呵呵.等以后有时间了,加上vb一些基本控件的重绘 这个完成才没多久,所以大家多提提建议...
  • 假设前面的组建都已生成注册成功。 vb程序添加好vc的com组建的引用之后,这是第一次调用前引用路径设置,编译运行成功。第二次再查看引用的路径,就会变为vb当前路径中的obj文件夹下的com组建,而不是原来第一次...
  • 一个让窗体加上滚动条的 VB 源码 用到了子类化的技术 如果显示未找到库,可以到 http://download.csdn.net/source/778537 窗中加滚动条需要的库 请将文件拷贝到system32目录下,再打开运行输入 regsvr32 ...
  • 可方便的开发出网络围棋对弈程序(18KB) 65,133.zip FormShaper,定制窗体形状的控件(18KB) 66,c4.zip 翻滚文字的 ActiveX 控件(6KB) 67,FreeActiveX.zip 取消控件注册的About对话框限制(45KB)...
  • 可方便的开发出网络围棋对弈程序(18KB) 65,133.zip FormShaper,定制窗体形状的控件(18KB) 66,c4.zip 翻滚文字的 ActiveX 控件(6KB) 67,FreeActiveX.zip 取消控件注册的About对话框限制(45KB)...
  • 如何用Vb注册Dll

    2010-11-26 14:27:00
    '隐藏窗体 Me.Visible = False '拷贝控件到系统目录 FileCopy App.Path & "/test.dll", "C:/windows/system32/VbTest.dll" '注册Dll '/u——反注册控件 '/s——不管注册成功与否,均不显示提示框 '/c——...
  • 内容索引:VB源码,系统相关,定时,保存,记事本  定时保存功能个性记事本,不要小看这个小程序哦,相信里面有一些功能大家肯定比较喜欢了,比如换肤功能,所拥有的皮肤包括QQ2010风格、新年大吉、复古木纹、Vista风格...
  • VB.NET注册热键示例

    千次阅读 2007-05-28 09:30:00
    Public Class Form1 Inherits System.Windows.Forms.Form#Region " Windows 窗体设计器生成的代码 " Public Sub New() MyBase.New() 该调用是 Windows 窗体设计器所必需的。 InitializeComponent() 
  • 好不容易才找到的!这是一款关于VB程序反编译工具...1、分析程序所用窗体,模块,类模块API,图标,图像; 2、反编译P-CodeExe代码; 3、重建VB工程; 4、加密到模块,防止了其它软件反编译; 5、抓取了内存映射文件。
  • VB开发的一个面向DLL.OCX等控件的快速注册工具,将指定控件快速注册到windows中,以便程序能够调用。这个XP风格的控件注册软件,已经过多次改良修正:★ 加入启动位置判断  ★ 全面改进拖放系统,整个窗体适用  ...
  • VB两种方法注册热键

    2012-06-06 23:56:00
    热键是什么东西想必大家都明白,它的... 第一种:定义激活窗口的热键 这个热键的功能是无论在哪个程序中,只要按下我们定义的这组热键就可以激活某个窗体。这里我们要用到sendmessage这个API函数。程序如下: Op...
  • VB PHP实现机器码注册码计算并生成,使用:Key_API.dll,只做了一个PHP API接口,用法:把key_api.dll 复制到你的PHP目录下 ext 目录下 例:\php52\ext 用AIP_REG.bat 注册下控件,如果PHP不能正常调用请修改PHP.ini...
  • VB数据库编程DBGRID32.OCX部件导入及许可证信息注册工具 解决DBGrid控件放在窗体上时,谈出对话框“该部件的许可证信息没有找到。在设计环境中,没有合适的许可证使用该功能。”
  • 使用RegisterHotkey的概念是,它会定义一组或单个按键的组合,不管在哪个程序之中,按下程序窗体注册的HotKey时,系统会传送WM_HOTKEY 的讯息给待接收该讯息的程序窗体,而该程序窗体接收到WM_HOTKEY时,便可知道...
  • 三层注册+VB.net实现

    千次阅读 2010-12-14 19:21:00
    创建窗体 搭建三层: 新建解决方案 模板层 数据访问层 业务逻辑层 在解决方案中新建三个类库:编译成为dll文件   建立模板层: 模板层的作用:与数据库表字段一一对应的cs文件。   建立数据访问层: ...
  • -- [部件] 添加此Microsoft Windows Common Controls-6.0 (SP6)部件,如果列表中没有,浏览到~\project\包\Support中 添加MSCOMCTL.OCX此部件,如果还不行,需要注册一下此部件,然后保存重启电脑或者vb。...
  • '窗体中 Option Explicit Private Sub Form_Load() Dim ret As Long  '记录原来的window程序地址  preWinProc = GetWindowLong(Me.hWnd, GWL_WNDPROC)  '用自定义程序代替...
  • 根据窗体句柄传值.rar

    2020-06-04 18:29:11
    VB利用windowsapi进行另一程序窗口操作。 如出现无法打开窗口,请先注册mscomct2.ocx
  • VB.RezQ反编译软件

    2008-10-28 09:24:09
    VB RezQ是一款VB程序反编译软件,可反编译exe,ocx和dll文件,窗体控件,API函数及窗体事件等。 含license 注册
  • 这几天技术上有了重大的突破,日夜研究2周了。 exe上的多线程几年前就弄稳定了,基本没...另一种就是找到了一个奇怪的问题,调用其中一个API加载一下DLL中窗体,不显示出来都行,然后再关闭进程就没事了,想不通...
  • VB经典算法50例.txt

    2020-01-27 01:22:28
    VB经典算法50例:为程序注册热键 、利用模拟键盘拷屏、只容许运行一个程序实例、窗体分割条、检测是否以联网及联网方式 、查表法 CRC函数等。

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 161
精华内容 64
关键字:

vb注册窗体