📄 frmbooksellermain.frm
字号:
_Version = 393216
AllowUpdate = 0 'False
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "关键词:"
Height = 180
Left = -74880
TabIndex = 16
Top = 600
Width = 630
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "类别:"
Height = 180
Left = -72720
TabIndex = 15
Top = 600
Width = 450
End
Begin VB.Label LabResult
AutoSize = -1 'True
Caption = "检索结果数"
Height = 180
Left = -69480
TabIndex = 14
Top = 600
Width = 900
End
End
Begin VB.Menu MBookSeller_sys
Caption = "系统(&S)"
Begin VB.Menu MBookSellerS_notepad
Caption = "记事本"
End
Begin VB.Menu MBookSellerS_jsq
Caption = "计算器"
End
Begin VB.Menu MBSS_line1
Caption = "-"
End
Begin VB.Menu MBookSellerS_logOff
Caption = "注销(&Q) "
Shortcut = ^Q
End
Begin VB.Menu MBSS_lin2
Caption = "-"
End
Begin VB.Menu MBookSellerS_exit
Caption = "退出(&X)"
End
End
Begin VB.Menu MBS_manger
Caption = "销售管理(&E)"
Begin VB.Menu MBSM_sell
Caption = "图书销售 "
Shortcut = ^M
End
Begin VB.Menu MBSM_tongJi
Caption = "售书记录"
End
Begin VB.Menu MBSE_line
Caption = "-"
End
Begin VB.Menu MBSL_TJ
Caption = "本日售书统计 "
End
Begin VB.Menu MBSE_tongJi
Caption = "基本售书统计 "
End
End
Begin VB.Menu MBS_huiYuan
Caption = "会员管理(&M)"
Begin VB.Menu MBSM_nreUser
Caption = "创建会员帐号 "
End
Begin VB.Menu MBSM_modify
Caption = "修改会员资料"
End
Begin VB.Menu MBSM_chgPasswd
Caption = "更改会员密码"
End
Begin VB.Menu MBSHM_line
Caption = "-"
End
Begin VB.Menu MBSHM_GL
Caption = "会员管理"
End
End
Begin VB.Menu MBS_find
Caption = "图书检索(&F)"
Begin VB.Menu MBSF_BianHao
Caption = "按图书编号检索 "
End
Begin VB.Menu MBSF_shuMing
Caption = "按书名检索"
End
Begin VB.Menu MBSF_fenLei
Caption = "按分类检索"
End
Begin VB.Menu MBSF_zuoZhe
Caption = "按作者检索"
End
Begin VB.Menu MBSF_guanJianCi
Caption = "按关键词检索"
End
Begin VB.Menu MBSF_line
Caption = "-"
End
Begin VB.Menu MBSF_all
Caption = "浏览全部"
End
End
Begin VB.Menu MBS_ziLiao
Caption = "个人资料(&Z)"
Begin VB.Menu MBSZ_ziLiao
Caption = "基本资料 "
End
Begin VB.Menu MBSZ_chgPasswd
Caption = "修改密码"
End
End
Begin VB.Menu MBS_zhiDu
Caption = "会员制度(&P)"
Begin VB.Menu MBSD_zhengCe
Caption = "优惠政策 "
End
Begin VB.Menu MBSD_reg
Caption = "会员信息 "
End
End
Begin VB.Menu MBS_info
Caption = "信息反馈(&I)"
Begin VB.Menu MBSI_jianYi
Caption = "意见或建议 "
End
Begin VB.Menu MBSI_touSu
Caption = "读者投诉"
End
Begin VB.Menu MBSIG_line
Caption = "-"
End
Begin VB.Menu MBookSeller_GL
Caption = "反馈信息管理 "
End
End
Begin VB.Menu MBS_bookShop
Caption = "书店情况(&B)"
Begin VB.Menu MBSB_shopJianJie
Caption = "书店简介 "
End
Begin VB.Menu MBSB_LianXi
Caption = "联系方式"
End
Begin VB.Menu MMBBSS
Caption = "-"
End
Begin VB.Menu MBSMB_YGXX
Caption = "员工信息"
End
End
Begin VB.Menu MBS_help
Caption = "系统帮助(&H)"
Begin VB.Menu MBSH_about
Caption = "关于宛枫书社图书管理系统... "
End
Begin VB.Menu MBSH_help
Caption = "帮助"
Shortcut = {F1}
End
Begin VB.Menu MBSH_line
Caption = "-"
End
Begin VB.Menu MBSH_webHlp
Caption = "联机帮助"
End
End
End
Attribute VB_Name = "FrmBookSellerMain"
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 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 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 + vbExclamation, "信息反馈"
TxtInfo.SetFocus
Exit Sub
End If
Adodc1.Recordset.AddNew
Adodc1.Recordset!姓名 = TxtName.Text
Adodc1.Recordset!身份 = UserShenFen
If SexMan.Value Then
Adodc1.Recordset!性别 = "男"
Else
Adodc1.Recordset!性别 = "女"
End If
Adodc1.Recordset!单位 = TxtDanWei.Text
Adodc1.Recordset!地址 = TxtDiZhi.Text
Adodc1.Recordset!电子邮件 = TxtEmail.Text
Adodc1.Recordset!反馈信息 = TxtInfo.Text
Adodc1.Recordset!反馈日期 = Now
Adodc1.Recordset.Update
MsgBox "感谢你的意见或建议！", vbOKOnly + vbInformation, "信息反馈"
Call CmdReset_Click
Exit Sub
errEnd:
MsgBox Err.Description, vbOKOnly + vbExclamation, "数据库错误"
End Sub
Private Sub ComboDengJi_Click()
If ComboDengJi.Text <> "请选择会员级别" Then
Adodc2.CommandType = adCmdText
Adodc2.RecordSource = "select * from [会员政策] where [会员级别]=""" & ComboDengJi.Text & """"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Adodc2.Recordset.MoveFirst
ComboJinE.Clear
ComboJinE.Text = Adodc2.Recordset!会员标准 & ""
ComboJinE.AddItem Adodc2.Recordset!会员标准 & ""
ComboDaZhe.Clear
ComboDaZhe.Text = Adodc2.Recordset!打折 & ""
ComboDaZhe.AddItem Adodc2.Recordset!打折 & ""
TxtLiPin.Text = Adodc2.Recordset!赠送礼品 & ""
TxtQT.Text = Adodc2.Recordset!备注 & ""
Else
MsgBox "数据丢失！请与程序员联系！", vbOKOnly + vbExclamation, "数据库错误"
End If
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -