vb程序补充答案.docVIP

1．假设用Access创建了一个名为“学生.MDB”的数据库，并在其中创建了一张名为“学生基本情况”的数据表，表中存放了学生的基本信息，如图1所示。 现在要求利用VB编写一个数据库查询程序，程序的运行界面如图2所示，基本逻辑是：首先文本框(Text1)中输入希望查询的学生学号，然后点击“查询”按钮(Command1)，如果数据库中存在该学号，则分别在Text2、Text3、Text4中显示学号、姓名、籍贯信息，否则提示用户“记录不存在”并使Text1获得焦点，要求用户重新输入。当点击退出按钮(Command2)时关闭本窗体。 图1用Access创建的学生基本情况数据表 图2 查询程序运行界面 Private ADOcn As Connection Private Sub Form_Load() Set ADOcn = New Connection ADOcn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\学生.MDB End Sub Private Sub Command1_Click() Dim strSQL As String Dim ADOrs As New Recordset ADOrs.ActiveConnection = ADOcn strSQL = Select * From 学生基本情况 Where 学号= + + Text1 + ADOrs.Open strSQL If Not ADOrs.EOF Then Text2 = ADOrs.Fields(学号) Text3 = ADOrs.Fields(姓名) Text4 = ADOrs.Fields(籍贯) Else MsgBox 要查询的学号不存在，请重新输入!, vbOKOnly, 信息提示 Text1 = Text1.SetFocus End If End Sub Private Sub Command2_Click() UnLoad Me End Option Explicit Const pi = 3.14159 Private len_S As Single, len_M As Single, len_H As Single Private Sub Form_Load() 先取各指针的长度 len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ^ 2) 秒针长度 len_M = Sqr((LineM.Y2 - LineM.Y1) ^ 2 + (LineM.X2 - LineM.X1) ^ 2) 分针长度 len_H = Sqr((LineH.Y2 - LineH.Y1) ^ 2 + (LineH.X2 - LineH.X1) ^ 2) 时针长度 Call timer1_timer End Sub Private Sub timer1_timer() 定时器的定时事件过程 Dim s As Single, m As Single, h As Single Form1.Caption = Time s = Second(Time) m = Minute(Time) h = Hour(Time) + m / 60 绘制秒针 LineS.X2 = LineS.X1 + len_S * Sin(pi * s / 30) LineS.Y2 = LineS.Y1 - len_S * Cos(pi * s / 30) 绘制分针 LineM.X2 = LineM.X1 + len_M * Sin(pi * m / 30) LineM.Y2 = LineM.Y1 - len_M * Cos(pi * m / 30) 绘制时针 If h = 12 Then h = h - 12 LineH.X2 = LineH.X1 + len_H * Sin(pi * h / 6) LineH.Y2 = LineH.Y1 - len_H *