Private Sub Text1_GotFocus() Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_GotFocus() Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Command1.SetFocus End If
End Sub 7.5、档案的主界面 本系统采用MDI方式，这是系统的所有窗口的父窗口，体统了系统的所有菜单等控制功能。 档案的主界面如下： Main.frm Private Sub dacz_Click() query.Show End Sub Private Sub dalr_Click() frm档案.Show
End Sub Private Sub datj_Click() tle.Show End Sub Private Sub guanyu_Click() frmAbout.Show End Sub Private Sub MDIForm_Load() StatusBar1.Panels(1).Text = Date Me.WindowState = 2 End Sub Private Sub ynghuxiugai_Click() edit.Show End Sub Private Sub zhuangtai_Click() If zhuangtai.Checked Then zhuangtai.Checked = False StatusBar1.Visible = False
Else zhuangtai.Checked = True StatusBar1.Visible = True End If End Sub 7.6、档案的查询、预览、打印功能 本部分能够提供对所需文件的按不同条件的查询、预览、打印等功能，利用了VB访问数据库ADO对象的强大功能，能够实现对所需文件的灵活查询，再利用VB内置的数据报表功能，实现对所需文件的预览和打印。
Query.frm Dim db As Connection Dim rs As Recordset Public tdata As String Private Sub Command1_Click() On Error GoTo er If rs.State=adStateOpen Then rs.Close rs.Open〝select * from 档案 where〝 & Combol.Text & 〝=〝 & Text1.Text & 〝,db,