frmadminmain.frm

图书馆信息管理系统,具有文档和源代码.是毕业设计的好参考

      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         =   "创建员工帐号   "
      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         =   "制定会员优惠政策   "
      End
      Begin VB.Menu MAdminC_BiaoZhun 
         Caption         =   "制定会员等级标准"
      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)"
      Begin VB.Menu MAdminT_month 
         Caption         =   "基本统计分析"
      End
      Begin VB.Menu MAdminT_year 
         Caption         =   "详细统计分析   "
      End
      Begin VB.Menu MAdminT_line2 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminT_KuCun 
         Caption         =   "库存统计"
      End
      Begin VB.Menu MAdminT_Sell 
         Caption         =   "售书统计"
      End
      Begin VB.Menu MAdminT_tuiHuo 
         Caption         =   "退货统计"
      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         =   "按关键词检索"
      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         =   "制定书店联系方式   "
      End
      Begin VB.Menu MBj 
         Caption         =   "-"
      End
      Begin VB.Menu MB_JINshu 
         Caption         =   "进书记录"
      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         =   "系统帮助(&H)"
      Begin VB.Menu MAdminH_about 
         Caption         =   "关于宛枫书社图书管理系统...   "
      End
      Begin VB.Menu MAdminH_hlp 
         Caption         =   "帮助"
         Shortcut        =   {F1}
      End
      Begin VB.Menu MAdminH_line 
         Caption         =   "-"
      End
      Begin VB.Menu MAdminH_webHlp 
         Caption         =   "联机帮助"
      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 "请输入检索的关键词！", vbOKOnly + vbExclamation, "图书检索"
    TxtKeyWords_Click
    Exit Sub
End If
If fenLei = "" Or fenLei = "选择分类" Then
    MsgBox "请输入检索的依据！", 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 "没有找到你要的相关记录!", vbOKOnly + vbInformation, "图书检索"
End If
LabResult.Caption = "共找到 " & Adodc1.Recordset.RecordCount & " 条相关记录"
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, "会员标准"
    ComboDengJi.SetFocus
    Exit Sub
End If
If ComboJinE.Text = "" Or ComboJinE.Text = "金额" Then
    MsgBox "请选择该等级金额标准！", vbOKOnly + vbExclamation, "会员标准"
    ComboJinE.SetFocus
    Exit Sub
End If
If ComboDaZhe.Text = "" Or ComboDaZhe.Text = "请选择打折比率" Then
    MsgBox "请选择该等级打折比率！", vbOKOnly + vbExclamation, "会员标准"
    ComboDaZhe.SetFocus
    Exit Sub
End If
If CInt(ComboDaZhe.Text) <= 0 Or CInt(ComboDaZhe.Text) > 1 Then
    MsgBox "该等级打折比率制定有误！", vbOKOnly + vbExclamation, "会员标准"
    ComboDaZhe.SetFocus
    Exit Sub
End If
If TxtLiPin.Text = "" Then TxtLiPin.Text = "无"
If TxtQT.Text = "" Then TxtQT.Text = "无"

    Adodc2.Recordset!会员标准 = ComboJinE.Text
    Adodc2.Recordset!打折 = ComboDaZhe.Text
    Adodc2.Recordset!赠送礼品 = TxtLiPin.Text
    Adodc2.Recordset!备注 = TxtQT.Text
    Adodc2.Recordset.Update
    
    MsgBox "当前等级标准更新成功！", 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 = "关键词" Then
    MsgBox "请输入检索的关键词！", vbOKOnly + vbExclamation, "图书检索"
    TxtKeyWords_Click
    Exit Sub
End If
If ComboLeiBie.Text = "" Or ComboLeiBie.Text = "选择分类" Then
    MsgBox "请输入检索的依据！", 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 "没有找到你要的相关记录", 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 "请输入书店的联系人！", 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!手机 = TxtShouJi.Text
    Adodc1.Recordset!电子邮件 = TxtMail.Text
    Adodc1.Recordset!联系人 = TxtLianXiRen.Text
    Adodc1.Recordset!地址 = TxtShopDiZhi.Text
    Adodc1.Recordset!网址 = TxtShopWeb.Text
    Adodc1.Recordset!备注 = TxtQiT.Text
    Adodc1.Recordset.Update
    
    MsgBox "书店简介更新成功！", vbOKOnly + vbInformation, "书店简介"
    
Exit Sub

errEnd:
    MsgBox Err.Description, vbOKOnly + vbExclamation, "数据库错误"
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 "请填写反馈信息!", vbOKOnly +