(完整版)计算机信息管理毕业论文

tablename = \Call connect_db

open_connection (\Set DataGrid1.DataSource = rst

TabStrip1.Tabs.Item(1) = \图书信息浏览\TabStrip1.Tabs.Item(2) = \员工信息浏览\TabStrip1.Tabs.Item(3) = \图书借阅情况浏览\Text1.Text = \

open_connection (\Set DataGrid1.DataSource = rst frmLogin.Show End Sub

Private Sub Image1_Click() End Sub

Private Sub Option1_Click() Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \图书编码]\ Case \员工信息浏览\ sfield = \工号]\ Case \图书借阅情况浏览\ sfield = \图书编码]\End Select End Sub

Private Sub Option2_Click()

'选择查询的字段

Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \图书名称]\ Case \员工信息浏览\ sfield = \姓名]\ Case \图书借阅情况浏览\ sfield = \工号]\End Select End Sub

Private Sub Option3_Click() '选择查询的字段

Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \出版社]\End Select End Sub

Private Sub Option4_Click() '选择查询的字段

Select Case TabStrip1.SelectedItem Case \图书信息浏览\ sfield = \作者]\End Select End Sub

Private Sub Text2_Change()

Text1.Text = Time End Sub

Private Sub TabStrip1_Click() Call connect_db

Select Case TabStrip1.SelectedItem Case \图书信息浏览\

open_connection (\连接book表 tablename = \ Option1.Caption = \书号\ Option2.Caption = \书名\ Set DataGrid1.DataSource = rst Case \员工信息浏览\

If privilege = 1 Then '如果只是普通用户,无法查询员工信息

frmMsg.Show

frmMsg.error.Visible = True

frmMsg.Text1.Text = \对不起，您没有查阅的权限！\ Exit Sub End If

open_connection (\连接worker表 Option1.Caption = \工号\ Option2.Caption = \姓名\ tablename = \

Set DataGrid1.DataSource = rst Case \图书借阅情况浏览\

open_connection (\连接record表 Option1.Caption = \书号\ Option2.Caption = \工号\ tablename = \

Set DataGrid1.DataSource = rst End Select End Sub

Private Sub Timer1_Timer() Label3.Caption = Now End Sub

Private Sub xpcmdbutton1_Click() Form4.Show End Sub

Private Sub xpcmdbutton12_Click() Form6.Show End Sub

Private Sub xpcmdbutton13_Click() frmAbout.Show End Sub

Private Sub xpcmdbutton14_Click() Unload Me frmLogin.Show End Sub

Private Sub xpcmdbutton15_Click() open_connection \