frmbooksellermain.frm

一个适用于书店的图书管理信息系统

Private Sub Form_Activate()
Call Form_Resize
Adodc1.CommandType = adCmdTable
Adodc1.RecordSource = "读者查询"

Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

Private Sub Form_Load()
Dim dbName As String
Dim connSTR As String

On Error GoTo errEnd

dbName = App.Path
If Right(dbName, 1) <> "\" Then dbName = dbName + "\"
dbName = dbName + "DataBase\WFSSDataBase.mdb"

connSTR = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbName & ";Persist Security Info=False"
Adodc1.ConnectionString = connSTR
Adodc2.ConnectionString = connSTR

SSTabGuest.Tab = 0
FrmMain.FrmMainSBar.Panels(1).Text = "就绪"
Exit Sub

errEnd:
    MsgBox "连接数据库失败!", vbOKOnly + vbExclamation, "打开数据库出错"
    End
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
End Sub

Private Sub Form_Resize()
If Me.WindowState <> 2 Then
    Me.WindowState = 2
End If

SSTabGuest.Left = 0
SSTabGuest.Top = Toolbar1.Height
SSTabGuest.Width = Me.ScaleWidth
SSTabGuest.Height = Me.ScaleHeight - Toolbar1.Height

If SSTabGuest.Tab = 0 Then
    DataGrid1.Left = 100
    DataGrid1.Top = 450
    DataGrid1.Width = Me.ScaleWidth - 230
    DataGrid1.Height = Me.ScaleHeight - Toolbar1.Height - 550
ElseIf SSTabGuest.Tab = 1 Then
    DataGrid2.Left = 100
    DataGrid2.Top = 560 + ComboLeiBie.Height
    DataGrid2.Width = Me.ScaleWidth - 230
    DataGrid2.Height = Me.ScaleHeight - Toolbar1.Height - 660 - ComboLeiBie.Height
ElseIf SSTabGuest.Tab = 2 Then
    Frame1.Left = 100
    Frame1.Top = 450
    Frame1.Width = SSTabGuest.Width \ 3 + 200
    Frame1.Height = SSTabGuest.Height - 550
    
    TxtLiPin.Width = Frame1.Width - 1380
    TxtQT.Width = TxtLiPin.Width
    If FrmMain.WindowState = 2 Then
        TxtQT.Height = Frame1.Height \ 2 + 200
    ElseIf FrmMain.WindowState = 0 Then
        TxtQT.Height = Frame1.Height \ 3 + 600
        ComboDengJi.Width = TxtLiPin.Width
    End If
    
    Frame2.Left = 200 + Frame1.Width
    Frame2.Top = 450
    Frame2.Width = (SSTabGuest.Width \ 3) * 2 - 600
    Frame2.Height = SSTabGuest.Height - 550
    
    DataGrid4.Left = 100
    DataGrid4.Top = 300
    DataGrid4.Width = Frame2.Width - 200
    DataGrid4.Height = Frame2.Height - 400
    
ElseIf SSTabGuest.Tab = 3 Then
    Frame3.Left = 100
    Frame3.Top = 450
    Frame3.Width = SSTabGuest.Width \ 3 - 200
    Frame3.Height = SSTabGuest.Height - 550
    
    If FrmMain.WindowState = 2 Then
        TxtName.Width = Frame3.Width \ 2 + 600
        TxtDanWei.Width = TxtName.Width
        TxtDiZhi.Width = TxtName.Width
        TxtEmail.Width = TxtName.Width
        TxtInfo.Width = TxtName.Width
        TxtInfo.Height = Frame3.Height \ 2
        CmdSubmit.Top = TxtInfo.Height + 2600
        CmdReset.Top = CmdSubmit.Top
        CmdSubmit.Left = 500
        CmdReset.Left = CmdSubmit.Width + 800
    ElseIf FrmMain.WindowState = 0 Then
        TxtName.Width = Frame3.Width \ 2
        TxtDanWei.Width = TxtName.Width
        TxtDiZhi.Width = TxtName.Width
        TxtEmail.Width = TxtName.Width
        TxtInfo.Width = TxtName.Width
        TxtInfo.Height = Frame3.Height \ 3
        CmdSubmit.Top = TxtInfo.Height + 2500
        CmdReset.Top = CmdSubmit.Top
        CmdSubmit.Left = 200
        CmdReset.Left = CmdSubmit.Width + 300
    End If
    
    Frame4.Left = 200 + Frame3.Width
    Frame4.Top = 450
    Frame4.Width = (SSTabGuest.Width \ 3) * 2 - 200
    Frame4.Height = SSTabGuest.Height - 550
    
    DataGrid3.Left = 100
    DataGrid3.Top = 300
    DataGrid3.Width = Frame4.Width - 200
    DataGrid3.Height = Frame4.Height - 400
ElseIf SSTabGuest.Tab = 4 Then
    Frame5.Left = 100
    Frame5.Top = 450
    Frame5.Width = SSTabGuest.Width \ 2 - 200
    Frame5.Height = SSTabGuest.Height - 550
    
    TxtShopName.Left = 120
    TxtShopName.Top = 360
    TxtShopName.Width = Frame5.Width - 240
    TxtShopJianJie.Left = 120
    TxtShopJianJie.Top = 840
    TxtShopJianJie.Width = TxtShopName.Width
    TxtShopJianJie.Height = Frame5.Height - 950
    
    Frame6.Left = 200 + Frame5.Width
    Frame6.Top = 450
    Frame6.Width = SSTabGuest.Width \ 2 - 200
    Frame6.Height = SSTabGuest.Height - 550
    
    TxtDianHua.Left = 1080
    TxtDianHua.Width = Frame6.Width - 1300
    TxtShouJi.Left = 1080
    TxtShouJi.Width = TxtDianHua.Width
    TxtMail.Left = 1080
    TxtMail.Width = TxtDianHua.Width
    TxtShopWeb.Left = 1080
    TxtShopWeb.Width = TxtDianHua.Width
    TxtShopDiZhi.Left = 1080
    TxtShopDiZhi.Width = TxtDianHua.Width
    TxtLianXiRen.Left = 1080
    TxtLianXiRen.Width = TxtDianHua.Width
    TxtQiT.Left = 1080
    TxtQiT.Width = TxtDianHua.Width
    If FrmMain.WindowState = 2 Then
        TxtQiT.Height = Frame6.Height \ 3
    ElseIf FrmMain.WindowState = 0 Then
        TxtQiT.Height = Frame6.Height \ 8
    End If
ElseIf SSTabGuest.Tab = 5 Then
    DataGrid5.Left = 100
    DataGrid5.Top = 450
    DataGrid5.Width = Me.ScaleWidth - 230
    DataGrid5.Height = Me.ScaleHeight - Toolbar1.Height - 550
ElseIf SSTabGuest.Tab = 6 Then
    DataGrid6.Left = 100
    DataGrid6.Top = 450
    DataGrid6.Width = Me.ScaleWidth - 230
    DataGrid6.Height = Me.ScaleHeight - Toolbar1.Height - 550

End If

End Sub

Private Sub MBookSeller_GL_Click()
Load FrmInfo
FrmInfo.Show vbModal
End Sub

Private Sub MBookSellerS_exit_Click()
Call Sys_exit
End Sub

Private Sub MBookSellerS_jsq_Click()
Dim pid As Long
pid = Shell("Calc.exe", vbNormalFocus)
If pid = 0 Then
    MsgBox "无法打开计算器！", vbOKOnly + vbExclamation, "打开程序出错"
End If
End Sub

Private Sub MBookSellerS_logOff_Click()
Call LogOff
End Sub

Private Sub MBookSellerS_notepad_Click()
Dim pid As Long
pid = Shell("Notepad.exe", vbNormalFocus)
If pid = 0 Then
    MsgBox "无法打开记事本！", vbOKOnly + vbExclamation, "打开程序出错"
End If
End Sub

Private Sub MBSB_LianXi_Click()
SSTabGuest.Tab = 4
End Sub

Private Sub MBSB_shopJianJie_Click()
SSTabGuest.Tab = 4
End Sub

Private Sub MBSD_reg_Click()
SSTabGuest.Tab = 2
End Sub

Private Sub MBSD_zhengCe_Click()
SSTabGuest.Tab = 2
End Sub

Private Sub MBSE_tongJi_Click()
Load FrmSellBook
FrmSellBook.Show vbModal
End Sub

Private Sub MBSF_all_Click()
SSTabGuest.Tab = 0
End Sub

Private Sub MBSF_BianHao_Click()
Dim bianHao As String
bianHao = InputBox$("请输入你要检索的图书的编号，可以使用模糊检索。", "图书检索", "图书编号")
If bianHao <> "" And bianHao <> "图书编号" Then
    Call searchBook(bianHao, "图书编号")
End If
End Sub

Private Sub MBSF_fenLei_Click()
Dim bianHao As String
bianHao = InputBox$("请输入你要检索的图书的分类名，可以使用模糊检索。", "图书检索", "图书分类名")
If bianHao <> "" And bianHao <> "图书分类名" Then
    Call searchBook(bianHao, "图书分类")
End If
End Sub

Private Sub MBSF_guanJianCi_Click()
Dim bianHao As String
bianHao = InputBox$("请输入你要检索的图书的关键词，可以使用模糊检索。", "图书检索", "关键词")
If bianHao <> "" Then
    Call searchBook(bianHao, "关键词")
End If
End Sub

Private Sub MBSF_shuMing_Click()
Dim bianHao As String
bianHao = InputBox$("请输入你要检索的书名，可以使用模糊检索。", "图书检索", "书名")
If bianHao <> "" Then
    Call searchBook(bianHao, "书名")
End If
End Sub

Private Sub MBSF_zuoZhe_Click()
Dim bianHao As String
bianHao = InputBox$("请输入你要检索的图书的作者名，可以使用模糊检索。", "图书检索", "作者")
If bianHao <> "" Then
    Call searchBook(bianHao, "作者")
End If
End Sub

Private Sub MBSH_about_Click()
Load frmAbout
frmAbout.Show vbModal
End Sub

Private Sub MBSH_help_Click()
Load FrmHelp
FrmHelp.Show vbModal
End Sub

Private Sub MBSH_webHlp_Click()
Dim pid As Long
pid = Shell("Explorer.exe http://hmj.student.hvttc.edu.cn", vbNormalFocus)
If pid = 0 Then
    MsgBox "无法打开浏览器！", vbOKOnly + vbExclamation, "打开程序出错"
End If
End Sub

Private Sub MBSHM_GL_Click()
Load FrmHYMemo
FrmHYMemo.Show vbModal
End Sub

Private Sub MBSI_jianYi_Click()
SSTabGuest.Tab = 3
End Sub

Private Sub MBSI_touSu_Click()
SSTabGuest.Tab = 3
End Sub

Private Sub MBSL_TJ_Click()
Load FrmToday
FrmToday.Show vbModal
End Sub

Private Sub MBSM_chgPasswd_Click()
Load FrmChgHYPasswd
FrmChgHYPasswd.Show vbModal
End Sub

Private Sub MBSM_modify_Click()
Load FrmChgHYMemo
FrmChgHYMemo.Show vbModal
End Sub

Private Sub MBSM_nreUser_Click()
Load FrmRegMe
FrmRegMe.Show vbModal
End Sub

Private Sub MBSM_sell_Click()
Load FrmBookSell
FrmBookSell.Show vbModal
End Sub

Private Sub MBSM_tongJi_Click()
SSTabGuest.Tab = 6
End Sub

Private Sub MBSMB_YGXX_Click()
SSTabGuest.Tab = 5
End Sub

Private Sub MBSZ_chgPasswd_Click()
Load FrmChgPasswd
FrmChgPasswd.Show vbModal
End Sub

Private Sub MBSZ_ziLiao_Click()
Load FrmAdminMemo
FrmAdminMemo.Show vbModal

End Sub

Private Sub SSTabGuest_Click(PreviousTab As Integer)
On Error GoTo errEnd

If SSTabGuest.Tab = 0 Then
    DataGrid1.Left = 100
    DataGrid1.Top = 450
    DataGrid1.Width = Me.ScaleWidth - 230
    DataGrid1.Height = Me.ScaleHeight - Toolbar1.Height - 550
    
    Adodc1.CommandType = adCmdTable
    Adodc1.RecordSource = "读者查询"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
    DataGrid1.Refresh
    FrmMain.FrmMainSBar.Panels(1).Text = "浏览本店全部书目"
    
ElseIf SSTabGuest.Tab = 1 Then
    DataGrid2.Left = 100
    DataGrid2.Top = 560 + ComboLeiBie.Height
    DataGrid2.Width = Me.ScaleWidth - 230
    DataGrid2.Height = Me.ScaleHeight - Toolbar1.Height - 660 - ComboLeiBie.Height
    With ComboLeiBie
        .Clear
        .Text = "选择分类"
        .AddItem "图书编号"
        .AddItem "关键词"
        .AddItem "书名"
        .AddItem "作者"
        .AddItem "出版社"
        .AddItem "图书分类"
        .AddItem "ISBN"
        .AddItem "内容简介"
    End With
    Adodc1.CommandType = adCmdTable
    Adodc1.RecordSource = "读者查询"
    Adodc1.