📄 frmmain.frm
字号:
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
MousePointer = 1
NumItems = 9
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "机号"
Object.Width = 1658
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "开机时间"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "到点时间"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "已用时间"
Object.Width = 1656
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "单价"
Object.Width = 1304
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "金额"
Object.Width = 1906
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "其他费用"
Object.Width = 1658
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 7
Text = "总金额"
Object.Width = 1906
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 8
Text = "用户"
Object.Width = 2540
EndProperty
End
Begin VB.Menu cd1
Caption = "系统(&S)"
Begin VB.Menu cd11
Caption = "计算机设置"
End
Begin VB.Menu cd12
Caption = "管理员设置"
End
Begin VB.Menu cd01
Caption = "-"
End
Begin VB.Menu cd13
Caption = "数据备份"
End
Begin VB.Menu cd14
Caption = "数据还原"
End
Begin VB.Menu cd02
Caption = "-"
End
Begin VB.Menu cd16
Caption = "系统设置"
End
Begin VB.Menu cd03
Caption = "-"
End
Begin VB.Menu cd18
Caption = "以其他用户登陆"
End
Begin VB.Menu cd19
Caption = "锁定桌面"
End
Begin VB.Menu cd104
Caption = "-"
End
Begin VB.Menu cd17
Caption = "退出"
End
End
Begin VB.Menu cdJF
Caption = "记费(&M)"
Begin VB.Menu cdJF1
Caption = "开始记费"
End
Begin VB.Menu cdJF2
Caption = "限定时间"
End
Begin VB.Menu cdJF01
Caption = "-"
End
Begin VB.Menu cdJF3
Caption = "结帐"
End
Begin VB.Menu cdJF03
Caption = "-"
End
Begin VB.Menu cdJF4
Caption = "调换计算机"
End
Begin VB.Menu cdJF5
Caption = "选购商品"
End
Begin VB.Menu cdJF02
Caption = "-"
End
Begin VB.Menu cdJF6
Caption = "查看当前机程序"
End
Begin VB.Menu cdJF7
Caption = "客户机控制"
End
End
Begin VB.Menu cdView
Caption = "查看(&V)"
Begin VB.Menu cdView1
Caption = "大图标"
End
Begin VB.Menu cdView2
Caption = "小图标"
End
Begin VB.Menu cdView3
Caption = "列表"
End
Begin VB.Menu cdView4
Caption = "详细资料"
Checked = -1 'True
End
Begin VB.Menu cdView01
Caption = "-"
End
Begin VB.Menu cdView5
Caption = "刷新"
Shortcut = {F5}
End
Begin VB.Menu cdView6
Caption = "显示网格"
Checked = -1 'True
End
Begin VB.Menu cdView7
Caption = "字体"
End
Begin VB.Menu cdView8
Caption = "背景图片"
End
Begin VB.Menu cdView9
Caption = "背影颜色"
End
Begin VB.Menu cdView10
Caption = "还原为默认"
End
End
Begin VB.Menu cdGL
Caption = "管理(&G)"
Begin VB.Menu cdGL1
Caption = "商品资料管理"
End
Begin VB.Menu cdGL2
Caption = "客户管理"
End
Begin VB.Menu cdGL3
Caption = "储金卡管理"
End
Begin VB.Menu cdGL4
Caption = "快速网址"
End
Begin VB.Menu cdGL5
Caption = "访问限制"
End
End
Begin VB.Menu cdTJ
Caption = "统计(&P)"
Begin VB.Menu cdTJ1
Caption = "日报表"
Begin VB.Menu cdTJ11
Caption = "机时收费表"
End
Begin VB.Menu cdTJ12
Caption = "商品销售统计表"
End
Begin VB.Menu cdTJ13
Caption = "收入统计表"
End
End
Begin VB.Menu cdTJ2
Caption = "月报表"
Begin VB.Menu cdTJ21
Caption = "机时收费表"
End
Begin VB.Menu cdTJ22
Caption = "商品销售统计表"
End
Begin VB.Menu cdTJ23
Caption = "收入统计表"
End
End
End
Begin VB.Menu cdHelp
Caption = "帮助(&H)"
Begin VB.Menu cdHelp1
Caption = "联机帮助"
End
Begin VB.Menu cdHelp01
Caption = "-"
End
Begin VB.Menu cdHelpAbout
Caption = "关于..."
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cdJF1_Click()
frmStart.Command8.Enabled = True
frmStart.cmdOpen.Enabled = True
frmStart.Command12.Enabled = False
frmStart.Caption = ListView1.SelectedItem.Text + "->开始记费？"
'frmStart.Visible = True
frmStart.Show vbModal, Me
End Sub
Private Sub cdJF2_Click()
frmStart.Command8.Enabled = False
frmStart.cmdOpen.Enabled = False
frmStart.Command12.Enabled = True
frmStart.Caption = ListView1.SelectedItem.Text + "->重新设定开机？"
frmStart.Show vbModal, Me
End Sub
Private Sub cdJF3_Click()
Load frmEndPlay
frmEndPlay.Caption = ListView1.SelectedItem.Text + "->要结帐？"
frmEndPlay.Show vbModal, Me
End Sub
Private Sub cdJF4_Click()
frmChangeJSJ.Show vbModal, Me
End Sub
Private Sub cdJF5_Click()
frmShangPin.Show vbModal, Me
End Sub
Private Sub cdJF6_Click()
On Error Resume Next
'cmdOpen_Click
For i = 0 To Winsock1.Count - 1
If Data1.Recordset.Fields("IP") = Winsock1(i).RemoteHostIP Then
frmComputer.SelectComIndex = i
frmMain.Winsock1(i).SendData "_prog" + Chr(0) + "get" + Chr(0) + "OK$"
DoEvents
Exit For
End If
Next i
frmComputer.Show
End Sub
Private Sub cdJF7_Click()
'客户机控制
frmManager.Show vbModal, Me
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "帮助"
'应做:添加 '帮助' 按钮代码。
cdHelp1_Click
Case "查看"
'应做:添加 '查看' 按钮代码。
PopupMenu cdView
Case "记费"
'应做:添加 '记费' 按钮代码。
cdJF1_Click
Case "结帐"
'应做:添加 '结帐' 按钮代码。
cdJF3_Click
Case "统计"
'应做:添加 '统计' 按钮代码。
PopupMenu cdTJ
End Select
End Sub
Private Sub cd11_Click()
frmJSJ.Show vbModal, Me
End Sub
Private Sub cd12_Click()
frmAdmin.Show vbModal, Me
End Sub
Private Sub cd13_Click()
'备份数据
On Error Resume Next
ComDlg.CancelError = True
ComDlg.FileName = Format(Date, "yyyymmdd") & ".bak"
ComDlg.Filter = "备份文件|*.bak"
ComDlg.ShowSave
If Err <> mscomdlg.cdlCancel Then
'MsgBox Dir(ComDlg.FileName) = ""
If Dir(ComDlg.FileName) <> "" Then
If MsgBox("当前日期已经备份了，确实要再次备份吗？", vbYesNo + vbQuestion) = vbNo Then
Exit Sub
End If
End If
pd = CopyFile(App.Path & "\dbase.mdb", ComDlg.FileName, 0)
If pd = 0 Then
MsgBox "发现错误备份失败！", vbCritical, "错误"
Else
MsgBox "备份成功！", vbQuestion, "好消息"
End If
End If
End Sub
Private Sub cd14_Click()
'数据还原
On Error Resume Next
ComDlg.CancelError = True
'ComDlg.FileName = Format(Date, "yyyymmdd") & ".bak"
ComDlg.Filter = "备份文件|*.bak"
ComDlg.ShowOpen
If Err <> mscomdlg.cdlCancel Then
If MsgBox("请您确认“" & ComDlg.FileName & "”是您以前备份的文件，否则可能出现不可想像的错误。如果发生了错误，请你参见联机帮助的解决办法，建议您先对当前数据库进行备份。而且还原后，在您备份以后的数据都将丢失。您真的要还原这个数据库吗？", _
vbYesNo + vbQuestion + vbDefaultButton2, "问题") = vbNo Then Exit Sub
'关闭所有数据库
Data1.Database.Close
Data2.Database.Close
Data3.Database.Close
Data4.Database.Close
Data5.Database.Close
Data6.Database.Close
Data7.Database.Close
Data8.Database.Close
Data9.Database.Close
FileCopy ComDlg.FileName, App.Path & "\dbase.mdb"
If Err <> 0 Then
MsgBox "发现错误：" & Error$, vbCritical, "错误"
Else
MsgBox "还原成功！请您点击确定，将使用这个数据库。如果发生了错误，请您参见联机帮助的解决办法。", vbExclamation, "注意"
End If
Me.Visible = False
Form_Load
Me.Visible = True
End If
End Sub
Private Sub cd16_Click()
frmOptions.Show vbModal, Me
End Sub
Private Sub cd17_Click()
Unload Me
End Sub
Private Sub cd18_Click()
Longin
End Sub
Private Sub cd19_Click()
frmScreen.Show
End Sub
Private Sub cdGL1_Click()
frmGood.Show , Me
End Sub
Private Sub cdGL2_Click()
'客户管理
frmKeHuGL.Show
End Sub
Private Sub cdGL3_Click()
frmCJKGL.Show
End Sub
Private Sub cdGL4_Click()
frmQuickHttp.Show
End Sub
Private Sub cdGL5_Click()
frmHickHttp.Show
End Sub
Private Sub cdHelp1_Click()
ShellExecute 0, "open", SystemPath & App.HelpFile, "", "", 1
End Sub
Private Sub cdHelpAbout_Click()
frmAbout.Show vbModal, Me
End Sub
Private Sub cdTJ11_Click()
frmBiaoBiao.Show , Me
frmBiaoBiao.Combo1.Text = cdTJ11.Caption
frmBiaoBiao.DTP1.Value = Date
frmBiaoBiao.DTP2.Value = Date
frmBiaoBiao.DTP1.Hour = 0
frmBiaoBiao.DTP1.Minute = 0
frmBiaoBiao.DTP1.Second = 0
frmBiaoBiao.DTP2.Hour = 23
frmBiaoBiao.DTP2.Minute = 59
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -