:大数据实习报告

　　Private Sub Form_Load() Combo1.AddItem "借阅状态"

　　新用户注册界面代码：

　　CmdOk.Enabled = False CmdCancel.Enabled = False CmdFirst.FontSize = 12 CmdPre.FontSize = 12 CmdNext.FontSize = 12 CmdLast.FontSize = 12 CmdAdd.FontSize = 12 CmdDel.FontSize = 12 CmdOk.FontSize = 12 CmdCancel.FontSize = 12 Cmdexit.FontSize = 12 Label1.FontSize = 12 Label2.FontSize = 12 Label3.FontSize = 12 Label4.FontSize = 12 Text1.FontSize = 12 Text2.FontSize = 12 Text3.FontSize = 12 Text4.FontSize = 12 End Sub

　　Combo1.AddItem "借阅次数" Combo1.AddItem "出版社" Combo1.AddItem "类别" Combo1.AddItem "书名" Combo1.Text = "借阅状态" Text1.Text = ""

　　Label1.FontSize = 12 Label2.FontSize = 12 Combo1.FontSize = 12 Text1.FontSize = 12 cmdquery.FontSize = 12 cmdexit.FontSize = 12 End Sub

　　Dim i As Integer

　　Private Sub CmdCancle_Click() Unload Me End Sub

　　Private Sub CmdEmpty_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" End Sub

　　Private Sub CmdExamine_Click() Dim str As String

　　Dim pcount As Integer