📄 frm_main.frm
字号:
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Alignment = 1
Object.Width = 13405
MinWidth = 13405
Text = "版权所有：吉林省*****有限公司 电话：0431-8497****，8497**** http://www.****.com"
TextSave = "版权所有：吉林省*****有限公司 电话：0431-8497****，8497**** http://www.****.com"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3881
MinWidth = 3881
EndProperty
EndProperty
End
Begin VB.Menu xtcs
Caption = "系统初始设计(&B)"
Begin VB.Menu bdwdy
Caption = "本单位定义(&D)"
End
Begin VB.Menu gys
Caption = "供应商管理(&G)"
End
End
Begin VB.Menu qtgl
Caption = "前台管理(&Q)"
Begin VB.Menu ktgl
Caption = "开台管理"
End
Begin VB.Menu mdgl
Caption = "买单管理"
End
Begin VB.Menu lin9
Caption = "-"
End
Begin VB.Menu rjsgl
Caption = "日结算管理"
End
Begin VB.Menu rjzfx
Caption = "当日结账数据分析"
End
End
Begin VB.Menu htgl
Caption = "后台管理(&H)"
NegotiatePosition= 1 'Left
Begin VB.Menu jhgl
Caption = "进货管理"
Shortcut = ^X
End
Begin VB.Menu jhcxtj
Caption = "进货查询统计"
Shortcut = ^R
End
Begin VB.Menu lin2
Caption = "-"
End
Begin VB.Menu kccx
Caption = "库存查询"
End
Begin VB.Menu ckinf
Caption = "仓库信息管理(&C)"
End
Begin VB.Menu lin3
Caption = "-"
End
Begin VB.Menu ftlx
Caption = "房间台号类型设置(&F)"
End
Begin VB.Menu fjthgl
Caption = "房间台号管理"
End
Begin VB.Menu spxxgl
Caption = "商品信息管理"
End
Begin VB.Menu lin6
Caption = "-"
End
Begin VB.Menu ygxxgl
Caption = "员工信息管理"
End
Begin VB.Menu ygjbgl
Caption = "员工级别管理(&Y)"
End
Begin VB.Menu line8
Caption = "-"
End
Begin VB.Menu bmxxgl
Caption = "部门信息管理(&B)"
End
End
Begin VB.Menu czgl
Caption = "财务管理(C)"
Begin VB.Menu yjsgl
Caption = "月结算管理"
End
Begin VB.Menu gzgl
Caption = "挂账管理"
Shortcut = ^J
End
Begin VB.Menu yfgl
Caption = "应付账款管理"
Shortcut = ^H
End
Begin VB.Menu lin5
Caption = "-"
End
Begin VB.Menu yyyfx
Caption = "月营业分析"
End
Begin VB.Menu nyyfx
Caption = "年营业分析"
End
Begin VB.Menu lin8
Caption = "-"
End
Begin VB.Menu lsgz
Caption = "历史挂账查询"
End
End
Begin VB.Menu xtgl
Caption = "系统管理(&S)"
Begin VB.Menu xtwh
Caption = "系统维护向导"
End
Begin VB.Menu line5
Caption = "-"
End
Begin VB.Menu qxsz
Caption = "权限管理"
End
End
Begin VB.Menu fzgj
Caption = "辅助工具(T)"
Begin VB.Menu addressList
Caption = "通讯录"
End
Begin VB.Menu q
Caption = "-"
End
Begin VB.Menu note
Caption = "记事本"
End
Begin VB.Menu w
Caption = "-"
End
Begin VB.Menu computer
Caption = "计算器"
End
Begin VB.Menu e
Caption = "-"
End
Begin VB.Menu memo
Caption = "备忘录"
End
End
Begin VB.Menu bz
Caption = "帮助(&H)"
Begin VB.Menu help
Caption = "帮助"
End
Begin VB.Menu line6
Caption = "-"
End
Begin VB.Menu gy
Caption = "关于"
End
End
Begin VB.Menu Exit
Caption = "退出(&E)"
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub addressList_Click()
main_fzgj_addressList.Show
End Sub
Private Sub cmdReturn_Click()
Timer2.Enabled = False
Frame1(1).Visible = False
End Sub
Private Sub DataGrid1_DblClick()
With adoMemo
If MsgBox("是否取消 ID 为 ：" & DataGrid1.Columns(0).text & " 的备忘吗 ？", vbOKCancel + vbQuestion, "提示") = vbOK Then
.Recordset.Delete '删除记录
If .Recordset.RecordCount = 0 Then
Frame1(1).Visible = False
Timer2.Enabled = False
End If
End If
End With
End Sub
Private Sub computer_Click()
Shell "calc.exe" '调用系统计算器
End Sub
Private Sub Form_Activate()
Dim rs As New ADODB.Recordset '声明记录集变量
Sql = "select 显示 ,关闭 from 权限信息表 " & _
"where 操作员姓名='" & St1.Panels(3).text & "'" '查询frmTip窗体是否显示的信息
rs.Open Sql, cn, adOpenStatic, adLockReadOnly '执行Sql语句
If rs.RecordCount > 0 And rs.Fields("显示") = 0 And rs.Fields("关闭") = 0 _
Then frmTip.Show '如果数据库中“显示”和“关闭”字段都为0，则显示frmTip窗体
End Sub
Private Sub Form_Load()
Me.Caption = App.Title & " 版本： V" & App.Major & "." _
& App.Minor & "." & App.Revision '显示软件名称及版本
Sql = "select * from 备忘录" '查询当日备忘录的内容
Call FunAdo(adoMemo, Sql) '调用ADO控件的执行函数
End Sub
Private Sub Form_Unload(Cancel As Integer)
Sql = "update 权限信息表 set 关闭=0 where 操作员姓名='" & St1.Panels(3).text & "'"
cn.Execute Sql
End
End Sub
Private Sub jhgl_Click() '调入进货管理
Load main_htgl_jhgl '使用Load语句装载窗体
main_htgl_jhgl.Show '使用窗体的Show方法 显示窗体
frm_main.Enabled = False
End Sub
Private Sub jhcxtj_Click() '调入进货查询统计
Load main_htgl_jhcxtj
main_htgl_jhcxtj.Show
frm_main.Enabled = False
End Sub
Private Sub kccx_Click() '调入库存查询
Load main_htgl_kccx
main_htgl_kccx.Show
frm_main.Enabled = False
End Sub
Private Sub fjthgl_Click() '调入房间台号管理
Load main_htgl_fjthgl
main_htgl_fjthgl.Show
frm_main.Enabled = False
End Sub
Private Sub memo_Click()
main_fzgj_memo.Show
End Sub
Private Sub note_Click()
main_fzgj_jsb.Show
End Sub
Private Sub spxxgl_Click() '调入商品信息管理
Load main_htgl_spinf
main_htgl_spinf.Show
frm_main.Enabled = False
End Sub
Private Sub Timer2_Timer()
Sql = "select * from 备忘录 where 提醒日期 =" & _
"'" + Format(Date, "yyyy-mm-dd") + "'" '查询当日的备忘信息
Call FunAdo(adoMemo, Sql) '调用ADO控件的执行函数
adoMemo.Refresh '刷新adoMemo控件的记录集
If adoMemo.Recordset.RecordCount > 0 Then '如果记录集不为空
Frame1(1).Visible = True '显示记录内容
End If '结束If语句
End Sub
Private Sub ygxxgl_Click() '调入员工信息管理
Load main_htgl_yginf
main_htgl_yginf.Show
frm_main.Enabled = False
End Sub
Private Sub ktgl_Click() '调入开台管理
Load main_qtgl_ktgl '载入开台管理窗体
main_qtgl_ktgl.Show '显示开台管理窗体
frm_main.Enabled = False '设置主窗体不可用
End Sub
Private Sub mdgl_Click() '调入买单管理
Load main_qtgl_mdgl
main_qtgl_mdgl.Show
frm_main.Enabled = False
End Sub
Private Sub rjzfx_Click() '调入当日结账数据分析
Load main_qtgl_rjzfx
main_qtgl_rjzfx.Show
frm_main.Enabled = False
End Sub
Private Sub rjsgl_Click() '调入日结算管理
Load main_qtgl_rjgl
main_qtgl_rjgl.Show
frm_main.Enabled = False
End Sub
Private Sub yjsgl_Click() '调入月结算管理
Load main_czgl_yjgl
main_czgl_yjgl.Show
frm_main.Enabled = False
End Sub
Private Sub yyyfx_Click() '调入月营业分析
Load main_czgl_yjzfx
main_czgl_yjzfx.Show
frm_main.Enabled = False
End Sub
Private Sub nyyfx_Click() '调入年营业分析
Load main_czgl_njzfx
main_czgl_njzfx.Show
frm_main.Enabled = False
End Sub
Private Sub yfgl_Click() '调入应付管理
Load main_ysyf_yfzkgl
main_ysyf_yfzkgl.Show
frm_main.Enabled = False
End Sub
Private Sub gzgl_Click() '调入挂账管理
Load main_ysyf_gzgl
main_ysyf_gzgl.Show
frm_main.Enabled = False
End Sub
Private Sub lsgz_Click() '调入历史挂账查询
Load main_ysyf_lsgzcx
main_ysyf_lsgzcx.Show
frm_main.Enabled = False
End Sub
Private Sub bdwdy_Click() '调入本单位定义
main_bdwdy.Show
frm_main.Enabled = False
End Sub
Private Sub gys_Click() '调入供应商管理
Load main_gys
main_gys.Show
frm_main.Enabled = False
End Sub
Private Sub ftlx_Click() '调入房台类型设置
Load main_htgl_fjthlx
main_htgl_fjthlx.Show
frm_main.Enabled = False
End Sub
Private Sub bmxxgl_Click() '调入部门信息管理
Load main_htgl_bminf
main_htgl_bminf.Show
frm_main.Enabled = False
End Sub
Private Sub ckinf_Click() '调入仓库信息管理
Load main_htgl_ckinf
main_htgl_ckinf.Show
frm_main.Enabled = False
End Sub
Private Sub ygjbgl_Click() '调入员工级别管理
Load main_htgl_ygjb
main_htgl_ygjb.Show
frm_main.Enabled = False
End Sub
Private Sub xtwh_Click() '调入系统维护向导
Load main_xtgl_xtwh
main_xtgl_xtwh.Show
frm_main.Enabled = False
End Sub
Private Sub qxsz_Click() '调入权限管理
Load main_xtgl_qxgl
main_xtgl_qxgl.Show
frm_main.Enabled = False
End Sub
Private Sub help_Click() '调入帮助
CommonDialog1.HelpFile = "HELP.HLP" '设置帮助文件路径
CommonDialog1.HelpCommand = cdlHelpContents '设置命令方式
CommonDialog1.ShowHelp ' 显示 Visual Basic 帮助目录主题
' SendKeys "{F1}"
End Sub
Private Sub gy_Click() '调入关于
Load frm_about
frm_about.Show
frm_main.Enabled = False
End Sub
Private Sub Timer1_Timer() '设置时间
St1.Panels(1).text = Format(Date, "long date") & " " & Time
'使用Format函数将系统当前日期格式为长日期格式，Date返回系统当前日期，Time返回系统当前时间
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key '选择条件是单击的MSComctlLib.Button
Case Is = "rjs": rjsgl_Click '调入日结算管理
Case Is = "jzfx": rjzfx_Click '调入当日结账数据分析
Case Is = "ktgl": ktgl_Click '调入开台管理
Case Is = "mdgl": mdgl_Click '调入买单管理
Case Is = "gzgl": gzgl_Click '调入挂账管理
Case Is = "yfgl": yfgl_Click '调入应付管理
Case Is = "qxgl": qxsz_Click '调入权限管理
Case Is = "help": help_Click '调入帮助
Case Is = "about": gy_Click '调入关于
Case Is = "end": Unload Me '结束程序
End Select '结束Select语句
End Sub
Private Sub Exit_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -