End
      Begin VB.Menu MAdminS_jsq 
         Caption         =   "計算器"
      End
      Begin VB.Menu MAS_lin 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminS_logOff 
         Caption         =   "注銷(&Q)   "
         Shortcut        =   ^Q
      End
      Begin VB.Menu MAdminS_line 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminS_exit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu MAdmin_mange 
      Caption         =   "員工管理(&M)"
      Begin VB.Menu MAdminM_newUser 
         Caption         =   "創(chuàng)建員工帳號   "
      End
      Begin VB.Menu MAdminM_modify 
         Caption         =   "修改員工資料"
      End
      Begin VB.Menu MAdminM_chgPasswd 
         Caption         =   "修改員工密碼"
      End
      Begin VB.Menu MAdminM_lin2 
         Caption         =   "-"
      End
      Begin VB.Menu MMAdminM_YuanGinfo 
         Caption         =   "員工信息"
      End
      Begin VB.Menu MAdminM_delUser 
         Caption         =   "員工帳號管理"
      End
   End
   Begin VB.Menu MAdmin_ZiLiao 
      Caption         =   "個人資料(&Z)"
      Begin VB.Menu MAdminZ_jiBen 
         Caption         =   "基本資料   "
      End
      Begin VB.Menu MAdminZ_chgPasswd 
         Caption         =   "修改密碼"
      End
   End
   Begin VB.Menu MAdmin_zhengCe 
      Caption         =   "會員政策(&P)"
      Begin VB.Menu MAdminC_zc 
         Caption         =   "制定會員優(yōu)惠政策   "
      End
      Begin VB.Menu MAdminC_BiaoZhun 
         Caption         =   "制定會員等級標(biāo)準(zhǔn)"
      End
      Begin VB.Menu LINMAD 
         Caption         =   "-"
      End
      Begin VB.Menu MADHY_info 
         Caption         =   "會員信息"
      End
      Begin VB.Menu MADC_HY 
         Caption         =   "會員管理"
      End
   End
   Begin VB.Menu MAdmin_tongJi 
      Caption         =   "統(tǒng)計分析(&T)"
      Begin VB.Menu MAdminT_month 
         Caption         =   "基本統(tǒng)計分析"
      End
      Begin VB.Menu MAdminT_year 
         Caption         =   "詳細(xì)統(tǒng)計分析   "
      End
      Begin VB.Menu MAdminT_line2 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminT_KuCun 
         Caption         =   "庫存統(tǒng)計"
      End
      Begin VB.Menu MAdminT_Sell 
         Caption         =   "售書統(tǒng)計"
      End
      Begin VB.Menu MAdminT_tuiHuo 
         Caption         =   "退貨統(tǒng)計"
      End
   End
   Begin VB.Menu MAdmin_find 
      Caption         =   "圖書檢索(&F)"
      Begin VB.Menu MAdminF_bianHao 
         Caption         =   "按圖書編號檢索   "
      End
      Begin VB.Menu MAdminF_shuMing 
         Caption         =   "按書名檢索"
      End
      Begin VB.Menu MAdminF_fenLei 
         Caption         =   "按分類檢索"
      End
      Begin VB.Menu MAdminF_zuoZhe 
         Caption         =   "按作者檢索"
      End
      Begin VB.Menu MAdminF_guanJianCi 
         Caption         =   "按關(guān)鍵詞檢索"
      End
      Begin VB.Menu MAdminF_line 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminF_all 
         Caption         =   "瀏覽全部"
      End
   End
   Begin VB.Menu MAdmin_BookShop 
      Caption         =   "書店情況(&B)"
      Begin VB.Menu MAdminB_jianJie 
         Caption         =   "制定書店簡介   "
      End
      Begin VB.Menu MMadminB_line 
         Caption         =   "-"
      End
      Begin VB.Menu MMadminB_lianXi 
         Caption         =   "制定書店聯(lián)系方式   "
      End
      Begin VB.Menu MBj 
         Caption         =   "-"
      End
      Begin VB.Menu MB_JINshu 
         Caption         =   "進(jìn)書記錄"
      End
      Begin VB.Menu MB_shouShu 
         Caption         =   "售書記錄"
      End
   End
   Begin VB.Menu MAdmin_info 
      Caption         =   "客戶反饋(&I)"
      Begin VB.Menu MAdminI_jianYi 
         Caption         =   "讀者意見或建議   "
      End
      Begin VB.Menu MAdminI_touSu 
         Caption         =   "讀者投訴"
      End
      Begin VB.Menu MAdminI_line 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminI_guanLi 
         Caption         =   "反饋信息管理   "
      End
   End
   Begin VB.Menu MAdmin_help 
      Caption         =   "系統(tǒng)幫助(&H)"
      Begin VB.Menu MAdminH_about 
         Caption         =   "關(guān)于宛楓書社圖書管理系統(tǒng)...   "
      End
      Begin VB.Menu MAdminH_hlp 
         Caption         =   "幫助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu MAdminH_line 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminH_webHlp 
         Caption         =   "聯(lián)機(jī)幫助"
      End
   End
End
Attribute VB_Name = "FrmAdminMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Sub searchBook(keyWords As String, fenLei As String)
Dim strSQL As String
SSTabGuest.Tab = 1
If keyWords = "" Then
    MsgBox "請輸入檢索的關(guān)鍵詞！", vbOKOnly + vbExclamation, "圖書檢索"
    TxtKeyWords_Click
    Exit Sub
End If
If fenLei = "" Or fenLei = "選擇分類" Then
    MsgBox "請輸入檢索的依據(jù)！", vbOKOnly + vbExclamation, "圖書檢索"
    ComboLeiBie.SetFocus
    Exit Sub
End If
On Error GoTo errEnd

strSQL = "select * from [讀者查詢] where [" & fenLei & "] like '%" & keyWords & "%'"

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strSQL
Adodc1.Refresh
Set DataGrid2.DataSource = Adodc1
DataGrid2.Refresh

If Adodc1.Recordset.RecordCount = 0 Then
    MsgBox "沒有找到你要的相關(guān)記錄!", vbOKOnly + vbInformation, "圖書檢索"
End If
LabResult.Caption = "共找到 " & Adodc1.Recordset.RecordCount & " 條相關(guān)記錄"
Exit Sub

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "檢索錯誤"
End Sub

Private Sub CmdOK_Click()
On Error GoTo errEnd

If ComboDengJi.Text = "" Or ComboDengJi.Text = "請選擇會員級別" Then
    MsgBox "請選擇會員級別！", vbOKOnly + vbExclamation, "會員標(biāo)準(zhǔn)"
    ComboDengJi.SetFocus
    Exit Sub
End If
If ComboJinE.Text = "" Or ComboJinE.Text = "金額" Then
    MsgBox "請選擇該等級金額標(biāo)準(zhǔn)！", vbOKOnly + vbExclamation, "會員標(biāo)準(zhǔn)"
    ComboJinE.SetFocus
    Exit Sub
End If
If ComboDaZhe.Text = "" Or ComboDaZhe.Text = "請選擇打折比率" Then
    MsgBox "請選擇該等級打折比率！", vbOKOnly + vbExclamation, "會員標(biāo)準(zhǔn)"
    ComboDaZhe.SetFocus
    Exit Sub
End If
If CInt(ComboDaZhe.Text) <= 0 Or CInt(ComboDaZhe.Text) > 1 Then
    MsgBox "該等級打折比率制定有誤！", vbOKOnly + vbExclamation, "會員標(biāo)準(zhǔn)"
    ComboDaZhe.SetFocus
    Exit Sub
End If
If TxtLiPin.Text = "" Then TxtLiPin.Text = "無"
If TxtQT.Text = "" Then TxtQT.Text = "無"

    Adodc2.Recordset!會員標(biāo)準(zhǔn) = ComboJinE.Text
    Adodc2.Recordset!打折 = ComboDaZhe.Text
    Adodc2.Recordset!贈送禮品 = TxtLiPin.Text
    Adodc2.Recordset!備注 = TxtQT.Text
    Adodc2.Recordset.Update
    
    MsgBox "當(dāng)前等級標(biāo)準(zhǔn)更新成功！", vbOKOnly + vbInformation, "會員政策"
    
Exit Sub

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "更新錯誤"
End Sub

Private Sub CmdReset_Click()
TxtName.Text = ""
TxtDanWei.Text = ""
TxtDiZhi.Text = ""
TxtEmail.Text = ""
TxtInfo.Text = ""
End Sub

Private Sub CmdSearch_Click()
Dim strSQL As String
If TxtKeyWords.Text = "" Or TxtKeyWords.Text = "關(guān)鍵詞" Then
    MsgBox "請輸入檢索的關(guān)鍵詞！", vbOKOnly + vbExclamation, "圖書檢索"
    TxtKeyWords_Click
    Exit Sub
End If
If ComboLeiBie.Text = "" Or ComboLeiBie.Text = "選擇分類" Then
    MsgBox "請輸入檢索的依據(jù)！", vbOKOnly + vbExclamation, "圖書檢索"
    ComboLeiBie.SetFocus
    Exit Sub
End If
On Error GoTo errEnd

strSQL = "select * from [讀者查詢] where [" & ComboLeiBie.Text & "] like '%" & TxtKeyWords.Text & "%'"

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = strSQL
Adodc1.Refresh
Set DataGrid2.DataSource = Adodc1
DataGrid2.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
    MsgBox "沒有找到你要的相關(guān)記錄", vbOKOnly + vbInformation, "圖書檢索"
End If
LabResult.Caption = "共找到 " & Adodc1.Recordset.RecordCount & " 條記錄"
Exit Sub

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "檢索錯誤"
End Sub

Private Sub CmdSet_Click()
On Error GoTo errEnd

    If TxtShopName.Text = "" Then
        MsgBox "請輸入您的書店名稱！", vbOKOnly + vbExclamation, "書店簡介"
        TxtShopName.SetFocus
        Exit Sub
    End If
    If TxtShopJianJie.Text = "" Then
        MsgBox "請輸入您的書店簡介！", vbOKOnly + vbExclamation, "書店簡介"
        TxtShopJianJie.SetFocus
        Exit Sub
    End If
    If TxtDianHua.Text = "" Then
        MsgBox "請輸入您的電話！", vbOKOnly + vbExclamation, "書店簡介"
        TxtDianHua.SetFocus
        Exit Sub
    End If
    If TxtShouJi.Text = "" Then
        TxtShouJi.Text = "無"
    End If
    If TxtMail.Text = "" Then
        TxtMail.Text = "無"
    End If
    If TxtLianXiRen.Text = "" Then
        MsgBox "請輸入書店的聯(lián)系人！", vbOKOnly + vbExclamation, "書店簡介"
        TxtLianXiRen.SetFocus
        Exit Sub
    End If
    If TxtShopDiZhi.Text = "" Then
        MsgBox "請輸入您的書店地址！", vbOKOnly + vbExclamation, "書店簡介"
        TxtShopDiZhi.SetFocus
        Exit Sub
    End If
    If TxtShopWeb.Text = "" Then
        TxtShopWeb.Text = "無"
    End If
    If TxtQiT.Text = "" Then
        TxtQiT.Text = "無"
    End If
    
    Adodc1.Recordset!書店名稱 = TxtShopName.Text
    Adodc1.Recordset!書店簡介 = TxtShopJianJie.Text
    Adodc1.Recordset!電話 = TxtDianHua.Text
    Adodc1.Recordset!手機(jī) = TxtShouJi.Text
    Adodc1.Recordset!電子郵件 = TxtMail.Text
    Adodc1.Recordset!聯(lián)系人 = TxtLianXiRen.Text
    Adodc1.Recordset!地址 = TxtShopDiZhi.Text
    Adodc1.Recordset!網(wǎng)址 = TxtShopWeb.Text
    Adodc1.Recordset!備注 = TxtQiT.Text
    Adodc1.Recordset.Update
    
    MsgBox "書店簡介更新成功！", vbOKOnly + vbInformation, "書店簡介"
    
Exit Sub

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "數(shù)據(jù)庫錯誤"
End Sub

Private Sub CmdSubmit_Click()
On Error GoTo errEnd

If TxtName.Text = "" Then
    MsgBox "請輸入你的姓名!", vbOKOnly + vbExclamation, "信息反饋"
    TxtName.SetFocus
    Exit Sub
End If
If TxtDanWei.Text = "" Then
    TxtDanWei.Text = "未知"
End If
If TxtDiZhi.Text = "" Then
    TxtDiZhi.Text = "未知"
End If
If TxtEmail.Text = "" Then
    TxtEmail.Text = "未知"
End If
If TxtInfo.Text = "" Then
    MsgBox "請?zhí)顚懛答佇畔?", vbOKOnly +