第一范文网 - 专业文章范例文档资料分享平台

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

来源:用户分享 时间:2025/6/11 9:21:33 本文由loading 分享 下载这篇文档手机版
说明:文章内容仅供预览,部分内容可能不全,需要完整文档或者需要复制内容,请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ:xxxxxx 处理(尽可能给您提供完整文档),感谢您的支持与谅解。

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 \

搜索更多关于: (完整版)计算机信息管理毕业论文 的文档
(完整版)计算机信息管理毕业论文.doc 将本文的Word文档下载到电脑,方便复制、编辑、收藏和打印
本文链接:https://www.diyifanwen.net/c6cd3w9kp1q072ie1yi364bptb11wxs00mf1_6.html(转载请注明文章来源)
热门推荐
Copyright © 2012-2023 第一范文网 版权所有 免责声明 | 联系我们
声明 :本网站尊重并保护知识产权,根据《信息网络传播权保护条例》,如果我们转载的作品侵犯了您的权利,请在一个月内通知我们,我们会及时删除。
客服QQ:xxxxxx 邮箱:xxxxxx@qq.com
渝ICP备2023013149号
Top