Caption         =   "計(jì)算器"
      End
      Begin VB.Menu MAS_lin 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminS_logOff 
         Caption         =   "注銷(xiāo)(&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)建員工帳號(hào)   "
      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         =   "員工帳號(hào)管理"
      End
   End
   Begin VB.Menu MAdmin_ZiLiao 
      Caption         =   "個(gè)人資料(&Z)"
      Begin VB.Menu MAdminZ_jiBen 
         Caption         =   "基本資料   "
      End
      Begin VB.Menu MAdminZ_chgPasswd 
         Caption         =   "修改密碼"
      End
   End
   Begin VB.Menu MAdmin_zhengCe 
      Caption         =   "會(huì)員政策(&P)"
      Begin VB.Menu MAdminC_zc 
         Caption         =   "制定會(huì)員優(yōu)惠政策   "
      End
      Begin VB.Menu MAdminC_BiaoZhun 
         Caption         =   "制定會(huì)員等級(jí)標(biāo)準(zhǔn)"
      End
      Begin VB.Menu LINMAD 
         Caption         =   "-"
      End
      Begin VB.Menu MADHY_info 
         Caption         =   "會(huì)員信息"
      End
      Begin VB.Menu MADC_HY 
         Caption         =   "會(huì)員管理"
      End
   End
   Begin VB.Menu MAdmin_tongJi 
      Caption         =   "統(tǒng)計(jì)分析(&T)"
      Begin VB.Menu MAdminT_month 
         Caption         =   "基本統(tǒng)計(jì)分析"
      End
      Begin VB.Menu MAdminT_year 
         Caption         =   "詳細(xì)統(tǒng)計(jì)分析   "
      End
      Begin VB.Menu MAdminT_line2 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminT_KuCun 
         Caption         =   "庫(kù)存統(tǒng)計(jì)"
      End
      Begin VB.Menu MAdminT_Sell 
         Caption         =   "售書(shū)統(tǒng)計(jì)"
      End
      Begin VB.Menu MAdminT_tuiHuo 
         Caption         =   "退貨統(tǒng)計(jì)"
      End
   End
   Begin VB.Menu MAdmin_find 
      Caption         =   "圖書(shū)檢索(&F)"
      Begin VB.Menu MAdminF_bianHao 
         Caption         =   "按圖書(shū)編號(hào)檢索   "
      End
      Begin VB.Menu MAdminF_shuMing 
         Caption         =   "按書(shū)名檢索"
      End
      Begin VB.Menu MAdminF_fenLei 
         Caption         =   "按分類(lèi)檢索"
      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         =   "書(shū)店情況(&B)"
      Begin VB.Menu MAdminB_jianJie 
         Caption         =   "制定書(shū)店簡(jiǎn)介   "
      End
      Begin VB.Menu MMadminB_line 
         Caption         =   "-"
      End
      Begin VB.Menu MMadminB_lianXi 
         Caption         =   "制定書(shū)店聯(lián)系方式   "
      End
      Begin VB.Menu MBj 
         Caption         =   "-"
      End
      Begin VB.Menu MB_JINshu 
         Caption         =   "進(jìn)書(shū)記錄"
      End
      Begin VB.Menu MB_shouShu 
         Caption         =   "售書(shū)記錄"
      End
   End
   Begin VB.Menu MAdmin_info 
      Caption         =   "客戶(hù)反饋(&I)"
      Begin VB.Menu MAdminI_jianYi 
         Caption         =   "讀者意見(jiàn)或建議   "
      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)于圖書(shū)管理系統(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 "請(qǐng)輸入檢索的關(guān)鍵詞！", vbOKOnly + vbExclamation, "圖書(shū)檢索"
    TxtKeyWords_Click
    Exit Sub
End If
If fenLei = "" Or fenLei = "選擇分類(lèi)" Then
    MsgBox "請(qǐng)輸入檢索的依據(jù)！", vbOKOnly + vbExclamation, "圖書(shū)檢索"
    ComboLeiBie.SetFocus
    Exit Sub
End If
On Error GoTo errEnd

strSQL = "select * from [讀者查詢(xún)] 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 "沒(méi)有找到你要的相關(guān)記錄!", vbOKOnly + vbInformation, "圖書(shū)檢索"
End If
LabResult.Caption = "共找到 " & Adodc1.Recordset.RecordCount & " 條相關(guān)記錄"
Exit Sub

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

Private Sub CmdOK_Click()
On Error GoTo errEnd

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

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

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "更新錯(cuò)誤"
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 "請(qǐng)輸入檢索的關(guān)鍵詞！", vbOKOnly + vbExclamation, "圖書(shū)檢索"
    TxtKeyWords_Click
    Exit Sub
End If
If ComboLeiBie.Text = "" Or ComboLeiBie.Text = "選擇分類(lèi)" Then
    MsgBox "請(qǐng)輸入檢索的依據(jù)！", vbOKOnly + vbExclamation, "圖書(shū)檢索"
    ComboLeiBie.SetFocus
    Exit Sub
End If
On Error GoTo errEnd

strSQL = "select * from [讀者查詢(xún)] 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 "沒(méi)有找到你要的相關(guān)記錄", vbOKOnly + vbInformation, "圖書(shū)檢索"
End If
LabResult.Caption = "共找到 " & Adodc1.Recordset.RecordCount & " 條記錄"
Exit Sub

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

Private Sub CmdSet_Click()
On Error GoTo errEnd

    If TxtShopName.Text = "" Then
        MsgBox "請(qǐng)輸入您的書(shū)店名稱(chēng)！", vbOKOnly + vbExclamation, "書(shū)店簡(jiǎn)介"
        TxtShopName.SetFocus
        Exit Sub
    End If
    If TxtShopJianJie.Text = "" Then
        MsgBox "請(qǐng)輸入您的書(shū)店簡(jiǎn)介！", vbOKOnly + vbExclamation, "書(shū)店簡(jiǎn)介"
        TxtShopJianJie.SetFocus
        Exit Sub
    End If
    If TxtDianHua.Text = "" Then
        MsgBox "請(qǐng)輸入您的電話(huà)！", vbOKOnly + vbExclamation, "書(shū)店簡(jiǎn)介"
        TxtDianHua.SetFocus
        Exit Sub
    End If
    If TxtShouJi.Text = "" Then
        TxtShouJi.Text = "無(wú)"
    End If
    If TxtMail.Text = "" Then
        TxtMail.Text = "無(wú)"
    End If
    If TxtLianXiRen.Text = "" Then
        MsgBox "請(qǐng)輸入書(shū)店的聯(lián)系人！", vbOKOnly + vbExclamation, "書(shū)店簡(jiǎn)介"
        TxtLianXiRen.SetFocus
        Exit Sub
    End If
    If TxtShopDiZhi.Text = "" Then
        MsgBox "請(qǐng)輸入您的書(shū)店地址！", vbOKOnly + vbExclamation, "書(shū)店簡(jiǎn)介"
        TxtShopDiZhi.SetFocus
        Exit Sub
    End If
    If TxtShopWeb.Text = "" Then
        TxtShopWeb.Text = "無(wú)"
    End If
    If TxtQiT.Text = "" Then
        TxtQiT.Text = "無(wú)"
    End If
    
    Adodc1.Recordset!書(shū)店名稱(chēng) = TxtShopName.Text
    Adodc1.Recordset!書(shū)店簡(jiǎn)介 = TxtShopJianJie.Text
    Adodc1.Recordset!電話(huà) = 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 "書(shū)店簡(jiǎn)介更新成功！", vbOKOnly + vbInformation, "書(shū)店簡(jiǎn)介"
    
Exit Sub

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

Private Sub CmdSubmit_Click()
On Error GoTo errEnd

If TxtName.Text = "" Then
    MsgBox "請(qǐng)輸入你的姓名!", 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.Te