内容发布更新时间 : 2024/12/23 15:00:01星期一 下面是文章的全部内容请认真阅读。
登录窗体
代码实现:
Private Sub Command1_Click() Dim mrc As ADODB.Recordset
txtsql = \用户名,标识 from 用户 where 用户名='\& Trim(Text1.Text) & \ Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then
MsgBox \用户名错误!\警告\ Text1.SetFocus 'Text1.SelStart = 0
'Text1.SelLength = Len(Text1.Text) Exit Sub End If
username = mrc.Fields(0) qxstra = mrc.Fields(1) mrc.Close
txtsql = \密码 from 用户 where 密码='\ Set mrc = ExecuteSQL(txtsql) If mrc.EOF = True Then
MsgBox \密码错误!\ Text2.SetFocus 'Text2.SelStart = 0
'Text2.SelLength = Len(Text2.Text) Exit Sub End If 主窗体.Show Unload Me End Sub
26
Private Sub Command2_Click() Unload Me End Sub
Private Sub Form_Load() Text1.Text = \Text2.Text = \End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub
Private Sub Label3_Click() End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If End Sub
27
代码实现:
Dim mrc As ADODB.Recordset Private Sub Command1_Click() If Text14.Text = \
MsgBox \输入查找学号!\警告\Text14.SetFocus Exit Sub End If
If Text15.Text = \
MsgBox \输入查找姓名!\警告\Text15.SetFocus Exit Sub End If
txtsql = \a.学号,a.姓名,a.性别,a.民族,a.血型,a.出生年月,b.院系名称,c.专业名称,d.班级名称,a.联系电话,a.邮编,a.籍贯,a.家庭住址,a.备注 from 学生基本信息 a,院系 b,专业 c,班级 d where a.院系代码=b.院系代码 and a.专业代码=c.专业代码 and a.班级代码=d.班级代码 and a.学号='\姓名='\Trim(Text15.Text) & \Set mrc = ExecuteSQL(txtsql) If Not mrc.EOF Then Me.fz Me.sz Else
MsgBox \不存在该档案!\警告\Text14.SetFocus Exit Sub End If
Text14.Text = \Text15.Text = \
28
mrc.Close
'使用一组按钮,不是按某一个值来查找
txtsql = \a.学号,a.姓名,a.性别,a.民族,a.血型,a.出生年月,b.院系名称,c.专业名称,d.班级名称,a.联系电话,a.邮编,a.籍贯,a.家庭住址,a.备注 from 学生基本信息 a,院系 b,专业 c,班级 d where a.院系代码=b.院系代码 and a.专业代码=c.专业代码 and a.班级代码=d.班级代码 \Set mrc = ExecuteSQL(txtsql) Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command6.Enabled = True End Sub
Private Sub Command2_Click() Unload Me End Sub
Private Sub Command3_Click()
'txtsql = \学号,a.姓名,a.性别,a.民族,a.血型,a.出生年月,b.院系名称,c.专业名称,d.班级名称,a.联系电话,a.邮编,a.籍贯,a.家庭住址,a.备注 from 学生基本信息 a,院系 b,专业 c,班级 d where a.院系代码=b.院系代码 and a.专业代码=c.专业代码 and a.班级代码=d.班级代码 \'Set mrc = ExecuteSQL(txtsql) mrc.MoveFirst Me.fz 'mrc.Close End Sub
Private Sub Command4_Click()
'txtsql = \学号,a.姓名,a.性别,a.民族,a.血型,a.出生年月,b.院系名称,c.专业名称,d.班级名称,a.联系电话,a.邮编,a.籍贯,a.家庭住址,a.备注 from 学生基本信息 a,院系 b,专业 c,班级 d where a.院系代码=b.院系代码 and a.专业代码=c.专业代码 and a.班级代码=d.班级代码 \'Set mrc = ExecuteSQL(txtsql)
29
mrc.MovePrevious If mrc.BOF Then mrc.MoveFirst
MsgBox \到第一条记录!\提示\End If Me.fz 'mrc.Close End Sub
Private Sub Command5_Click()
'txtsql = \学号,a.姓名,a.性别,a.民族,a.血型,a.出生年月,b.院系名称,c.专业名称,d.班级名称,a.联系电话,a.邮编,a.籍贯,a.家庭住址,a.备注 from 学生基本信息 a,院系 b,专业 c,班级 d where a.院系代码=b.院系代码 and a.专业代码=c.专业代码 and a.班级代码=d.班级代码 \'Set mrc = ExecuteSQL(txtsql) mrc.MoveNext If mrc.EOF Then mrc.MoveLast
MsgBox \到最后一条记录!\提示\End If Me.fz 'mrc.Close End Sub
Private Sub Command6_Click()
'txtsql = \学号,a.姓名,a.性别,a.民族,a.血型,a.出生年月,b.院系名称,c.专业名称,d.班级名称,a.联系电话,a.邮编,a.籍贯,a.家庭住址,a.备注 from 学生基本信息 a,院系 b,专业 c,班级 d where a.院系代码=b.院系代码 and a.专业代码=c.专业代码 and a.班级代码=d.班级代码 \'Set mrc = ExecuteSQL(txtsql) mrc.MoveLast Me.fz 'mrc.Close
30