Dim TempTime As String Private Sub Command1_Click() Dim Ret As String If Trim(Text3.Text) = "" Then Text3.Text = 0 End If TempTime = Timer Ret = EncryptFile(Trim(Text1.Text), Trim(Text2.Text), Trim(Text3.Text)) Debug.Print Timer - TempTime Me.Captio
Option Explicit Const KeyName = "Software\Microsoft\Windows NT\CurrentVersion\Windows" Private Sub Command1_Click() Dim Ver As OSVERSIONINFO, S As String, hKey As Long Dim Device As String, length As Long Ver.dwOSVersionInfoSize = Len(Ver) GetVersio
实验报告加源码 程序代码如下： Private Sub cmdok_Click() '检查正确的密码 '首先要对用户名特殊字符的过滤 '防止非授权用户的登陆访问 Dim s1 As String Dim i As Integer Dim j As Integer Dim a(18) As String j = Len(txtUserName.Text) s1 = txtUserName.Text Dim c As Integer c = 1 For i = 1 To j a(i) = Mid(
VB+SQL2000 学生信息管理 毕业设计(带数据库文件)；功能很强大！ If txtUserID.Text = "Administrator" And txtPass.Text = "ACCP2002" Then Unload Me FrmMain.Show Exit Sub End If If txtUserID.Text = "" Then MsgBox "请输入用户编号！", vbOKOnly + vbInformation, "用户登陆" txtUserID.SetFocus Ex
漂亮的界面，可执行的代码 菜谱管理： Dim cnn As New ADODB.Connection Dim rsImage As New ADODB.Recordset Dim Chunk() As Byte Dim lngLengh As Long Dim intChunks As Integer Dim intFragment As Integer Const ChunkSize = 1000 Const lngDataFile = 1 Dim sql As String Private
操作简单，适合小型手机店铺。Dim rs1 As New ADODB.Recordset Private Sub cmdexit_Click() frmmain.Visible = True Unload Me End Sub Private Sub cmdOK_Click() If txtuserid.Text = "" Then MsgBox "请输入操作员编号！", vbOKOnly + vbInformation, "修改密码" txtuserid.Text = "" txtuseri
我的一段登陆按钮代码，用户表里有三个用户名，在登陆时只有第一个用户名有效，其他几个都是用户名或密码错误，不知什么原因，请高手指点，代码如下，谢谢！ Option Compare Database Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Private Sub cmd_登陆_Click() Set conn = CurrentProject.Connection Set rs = New ADODB.Recordset rs.
由于使用了一些新的函数，本程序必须在Windows2000下运行。 Option Explicit Public Declare Function GetObjectAPI Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long Public Declare Function DeleteObject Lib "gdi32" (ByVal hObj
下面就用一些代码来说明一下：'修改 Private Sub Command2_Click() If a = True Or f = True Then If Command2.Caption = "确定" Then DataGrid1.AllowUpdate = False Command.Caption = "修改" Command3.Caption = "删除" Else Command1.Enabled = False Command2.Caption = "确定" Command3.C
学生学籍管理系统 浏览学生档案 Private Sub liulan Click qxstr Executeqx 2 If qxstr "false" Then ss MsgBox "对不起 你没有管理本功能的权限 请与管理员联系 " vbInformation + vbOKOnly " 警告" Exit Sub End If find False Form3 Show End Sub">学生学籍管理系统 浏览学生档案 Priv
Private Sub Form Load a Inet1 OpenURL "www ip38 com" "打开这个网页 获取源码 b InStr a "您的本机IP地址：" "获取这个字符出现的位置 c InStr a " " "截取这个字符出现的位置 d Mid a b + 9 c b 10 "截取这两个字符间的字符 就是IP了 Text1 Text d
