Delphi6函数大全（1） <> 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不 区分大小写参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc例子
Private Sub Command1_Click() If Text1.Text = "admin" And Text2.Text = "admin" Then Form1.Hide Form3.Show Else If Text1.Text = "admin" Then MsgBox ("你输入的密码有误") Text2.Text = "" Text2.SetFocus Else MsgBox ("你输入的帐号不存在") Text1.Text = "" Text1.SetFocus En
SQL+VB做成的licit Public gUserName As String Public gUserKind As String Public gEmployeeId As String Public gLoginSucceeded As Boolean Public Const BLUE = &HFF0000 Public Const WHITE = &H80000005 Sub Main() Dim fLogin As New frmLogin '启动登录窗体 fLogin.Sho
很不错的哦，很好的Option Explicit Public gUserName As String Public gUserKind As String Public gLoginSucceeded As Boolean ' ****************************************************************************** '过程名：Main '说 明：系统启动函数 '参 数：无 '返回值：无 ' *****************
vb精彩编程200例Attribute VB_Name = "form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim TIM As Integer Dim mydb As Database Dim myrs As Recordset Dim sql As String
'set the global var to false 'to denote a failed login LoginSucceeded = False Unload Me End Sub Private Sub cmdOK_Click() On Error GoTo errh: Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set rs = cn.Execute("SELECT UserNam e , Password FRO
#include // Header File For Windows #include // Header File For The OpenGL32 Library #include // Header File For The GLu32 Library #include // Header File For The Glaux Library #include HDC hDC=NULL; // Private GDI Device Context HGLRC hRC=NULL
#include // Header File For Windows #include // Header File For The OpenGL32 Library #include // Header File For The GLu32 Library #include // Header File For The Glaux Library #include HDC hDC=NULL; // Private GDI Device Context HGLRC hRC=NULL
Option Explicit Dim Bupdata As Boolean Dim i As Integer Private Sub Cmbdegree_Click() If Cmbdegree.Text = "定制" Then FrmTable.Show Cmbdegree.ListIndex = 0 End If End Sub Private Sub Cmbdepart_Click() If Cmbdepart.Text = "定制" Then FrmTable.Show Cmbdep
课程设计题目，做的比较简单procedure TForm1.Button2Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text='' then showmessage('请输入用户名') else if edit2.Text='' then showmessage('请输入密码') else begin adoquer
实验报告加源码 程序代码如下： 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(
