loading
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 \