Private Sub book_select_Click()
Load Form1
Form1.Show
Form1.SetFocus
End Sub
Private Sub book_updata_Click()
Load Form3
Form3.Show
Form1.SetFocus
End Sub
Private Sub exit_Click()
End
End Sub
Private Sub MDIForm_Load()
End Sub
Private Sub reader_del_Click()
Load readerdel
readerdel.Show
readerdel.SetFocus
End Sub
Private Sub reader_in_Click()
Load readerzc
readerzc.Show
readerzc.SetFocus
readerzc.Text2.SetFocus
End Sub
Private Sub reader_select_Click()
Load readercx
readercx.Show
readercx.SetFocus
End Sub
Private Sub reader_updata_Click()
Load readerxg
readerxg.Show
readerxg.SetFocus
End Sub
评论2