frmmember.frm

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

SSTabGuest.Tab = 4
End Sub

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

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

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

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

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

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

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

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

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

Private Sub MMemberH_webHelp_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 MMemberI_jianYi_Click()
SSTabGuest.Tab = 3
End Sub

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

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

Private Sub MMemberM_passwd_Click()
Load FrmChgPasswd
FrmChgPasswd.Show vbModal

End Sub

Private Sub MMemberM_ziLiao_Click()
Load FrmUserMemo
FrmUserMemo.Show vbModal
End Sub

Private Sub MMemberS_exit_Click()
Call Sys_exit
End Sub

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

Private Sub MMemberS_Logoff_Click()
Call LogOff
End Sub

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

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

Private Sub MMI_XX_Click()
Load FrmUserInfo
FrmUserInfo.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.Refresh
    Set DataGrid2.DataSource = Adodc1
    DataGrid2.Refresh
    FrmMain.FrmMainSBar.Panels(1).Text = "检索书目"
    
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
    
    ComboDengJi.Clear
    ComboDengJi.AddItem "★☆☆☆☆"
    ComboDengJi.AddItem "★★☆☆☆"
    ComboDengJi.AddItem "★★★☆☆"
    ComboDengJi.AddItem "★★★★☆"
    ComboDengJi.AddItem "★★★★★"
    ComboDengJi.Text = "请选择会员级别"
    ComboJinE.Text = "金额"
    ComboDaZhe.Text = "打折比率"
    
    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
    
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = "select * from [售书查询] where [会员卡号]=""" & userName & """"
    Adodc1.Refresh
    
    Set DataGrid4.DataSource = Adodc1
    DataGrid4.Refresh
    FrmMain.FrmMainSBar.Panels(1).Text = "会员政策及购书记录"
    
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
    
    Adodc1.CommandType = adCmdTable
    Adodc1.RecordSource = "反馈信息"
    Adodc1.Refresh
    Set DataGrid3.DataSource = Adodc1
    DataGrid3.Refresh
    FrmMain.FrmMainSBar.Panels(1).Text = "读者反馈信息"
    
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 \ 7
    End If
    
    Adodc1.CommandType = adCmdTable
    Adodc1.RecordSource = "书店简介"
    Adodc1.Refresh
    Adodc1.Recordset.MoveFirst
    
    TxtShopName.Text = Adodc1.Recordset!书店名称 & ""
    TxtShopJianJie.Text = Adodc1.Recordset!书店简介 & ""
    TxtDianHua.Text = Adodc1.Recordset!电话 & ""
    TxtShouJi.Text = Adodc1.Recordset!手机 & ""
    TxtMail.Text = Adodc1.Recordset!电子邮件 & ""
    TxtLianXiRen.Text = Adodc1.Recordset!联系人 & ""
    TxtShopDiZhi.Text = Adodc1.Recordset!地址 & ""
    TxtShopWeb.Text = Adodc1.Recordset!网址 & ""
    TxtQiT.Text = Adodc1.Recordset!备注 & ""
    
    FrmMain.FrmMainSBar.Panels(1).Text = "本店简介"
    
End If
Exit Sub

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "数据库错误"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
    Case "logoff"
        '注销
        Call LogOff
    Case "ziliao"
        '资料
        Load FrmUserMemo
        FrmUserMemo.Show vbModal
    Case "histry"
        '记录
        SSTabGuest.Tab = 2
    Case "findall"
        '浏览
        SSTabGuest.Tab = 0
    Case "find"
        '检索
        SSTabGuest.Tab = 1
    Case "fankui"
        '反馈
        SSTabGuest.Tab = 3
    Case "info"
        '信息
        Load FrmUserInfo
        FrmUserInfo.Show vbModal
    Case "ZhengCe"
        '政策
        SSTabGuest.Tab = 2
    Case "BookShop"
        '书店
        SSTabGuest.Tab = 4
    Case "aboutMe"
        '关于
        Load frmAbout
        frmAbout.Show vbModal
    Case "sys_hlp"
        '帮助
        Load FrmHelp
        FrmHelp.Show vbModal
End Select
    
End Sub

Private Sub TxtKeyWords_Click()
TxtKeyWords.SelStart = 0
TxtKeyWords.SelLength = Len(TxtKeyWords.Text)
TxtKeyWords.SetFocus
End Sub