📄 ct_main.frm
字号:
VERSION 5.00
Begin VB.Form ct_main
ClientHeight = 8310
ClientLeft = 0
ClientTop = 570
ClientWidth = 11880
LinkTopic = "Form3"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8310
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin VB.CommandButton CMD_EXIT
Cancel = -1 'True
Caption = "退 出(Esc)"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 510
Left = 10140
TabIndex = 8
Top = 7740
Width = 1575
End
Begin VB.Frame JZ
Enabled = 0 'False
Height = 600
Left = 135
TabIndex = 1
Top = 7650
Width = 9870
Begin VB.Label JZ_DQSJ1
Caption = "当前时间:"
Height = 195
Left = 6930
TabIndex = 7
Top = 225
Width = 825
End
Begin VB.Label JZ_JRSJ2
Height = 195
Left = 4185
TabIndex = 6
Top = 225
Width = 1230
End
Begin VB.Label JZ_JRSJ1
Caption = "进入时间:"
Height = 195
Left = 3285
TabIndex = 5
Top = 225
Width = 825
End
Begin VB.Label JZ_USER
BackStyle = 0 'Transparent
Height = 330
Left = 1215
TabIndex = 4
Top = 270
Width = 1500
End
Begin VB.Label JZ_NAME
BackStyle = 0 'Transparent
Caption = "操作员:"
Height = 330
Left = 450
TabIndex = 3
Top = 270
Width = 690
End
Begin VB.Label JZ_DQSJ2
BackStyle = 0 'Transparent
Height = 330
Left = 7785
TabIndex = 2
Top = 180
Width = 1050
End
End
Begin VB.Timer Timer1
Interval = 1000
Left = 90
Top = 5640
End
Begin VB.Timer XT_Timer
Interval = 1000
Left = 1170
Top = 6975
End
Begin VB.Label XT_BT
BackStyle = 0 'Transparent
Caption = "系统"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 870
Index = 3
Left = 7740
TabIndex = 11
Top = 3195
Width = 1725
End
Begin VB.Label XT_BT
BackStyle = 0 'Transparent
Caption = "管理"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 870
Index = 2
Left = 6120
TabIndex = 10
Top = 3195
Width = 1725
End
Begin VB.Label XT_BT
BackStyle = 0 'Transparent
Caption = "信息"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 870
Index = 1
Left = 4500
TabIndex = 9
Top = 3195
Width = 1725
End
Begin VB.Label XT_BT
BackStyle = 0 'Transparent
Caption = "酒店"
BeginProperty Font
Name = "黑体"
Size = 42
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00400000&
Height = 870
Index = 0
Left = 2880
TabIndex = 0
Top = 3195
Width = 1725
End
Begin VB.Image XT_IMAGE
BorderStyle = 1 'Fixed Single
Enabled = 0 'False
Height = 7575
Left = 30
Picture = "ct_main.frx":0000
Stretch = -1 'True
Top = 0
Width = 11820
End
Begin VB.Menu FILE1
Caption = "&1日常业务"
NegotiatePosition= 2 'Middle
WindowList = -1 'True
Begin VB.Menu FILE11
Caption = "1.日常业务(?)"
End
Begin VB.Menu FILE12
Caption = "2.街帐结算(宫)"
End
Begin VB.Menu FILE13
Caption = "3.街帐错帐处理(OK ?)"
End
Begin VB.Menu FILE14
Caption = "4.收入查询"
End
Begin VB.Menu FILE15
Caption = "5.支票登记(OK ????)"
End
End
Begin VB.Menu FILE2
Caption = "&2错帐处理"
Begin VB.Menu FILE21
Caption = "1.错帐处理"
End
Begin VB.Menu FILE22
Caption = "2.帐页查询"
End
End
Begin VB.Menu FILE3
Caption = "&3其他业务"
Begin VB.Menu FILE31
Caption = "1.领用优惠券(OK)"
End
Begin VB.Menu FILE32
Caption = "2.酒水统计(OK)"
End
Begin VB.Menu FILE33
Caption = "3.更改密码(宫)"
End
End
Begin VB.Menu FILE4
Caption = "&4查询"
Begin VB.Menu FILE41
Caption = "1.菜牌查询(OK)"
End
Begin VB.Menu FILE42
Caption = "2.台帐查询"
End
Begin VB.Menu FILE43
Caption = "3.台帐列表查询"
End
Begin VB.Menu FILE44
Caption = "4.酒水情况查询(OK)"
End
Begin VB.Menu FILE45
Caption = "5.优惠券统计(OK)"
End
Begin VB.Menu FILE46
Caption = "6.上座情况统计(OK)"
End
Begin VB.Menu FILE47
Caption = "7.销售数量统计"
End
Begin VB.Menu FILE48
Caption = "8.台帐帐首档案"
End
Begin VB.Menu FILE49
Caption = "9.台帐帐页档案"
End
Begin VB.Menu FILE4A
Caption = "A.帐号查询"
End
End
Begin VB.Menu FILE5
Caption = "&5报表"
Begin VB.Menu FILE51
Caption = "1.营业班报"
End
Begin VB.Menu FILE52
Caption = "2.业务流水"
End
Begin VB.Menu FILE53
Caption = "3.营业日报"
End
Begin VB.Menu FILE54
Caption = "4.历史班报"
End
Begin VB.Menu FILE55
Caption = "5.历史日报"
End
End
Begin VB.Menu FILE6
Caption = "&6初始化"
Begin VB.Menu FILE61
Caption = "1.菜牌维护(OK)"
End
End
Begin VB.Menu FILE7
Caption = "&X退出"
End
End
Attribute VB_Name = "ct_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer, key_index As Integer
Public sj1 As Integer, sj2 As Integer, sj3 As Integer
Public R1 As Integer, g1 As Integer, b1 As Integer
Public t_cs As Currency
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Sub MAIN(T_GWDM As String, T_GWMC As String, T_USER As String, T_NAME As String, T_RIGHT As String)
SYS_GWDM = T_GWDM
SYS_GWMC = T_GWMC
SYS_USER = T_USER
SYS_NAME = T_NAME
SYS_RIGHT = T_RIGHT
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
MY_RUN = "1"
Unload Me
End Sub
Private Sub FILE11_Click()
XT_Timer.Enabled = False
Call ct_zdjs.MAIN("1")
ct_zdjs.Show (1)
End Sub
Private Sub FILE13_Click()
XT_Timer.Enabled = False
ct_jzcz.Show (1)
End Sub
Private Sub FILE15_Click()
XT_Timer.Enabled = False
zw_zpcx.Show (1)
End Sub
Private Sub FILE31_Click()
XT_Timer.Enabled = False
Dim A As Integer
Call CT_YHQ("领用", A)
End Sub
Private Sub FILE32_Click()
XT_Timer.Enabled = False
Call CT_JSTJ
End Sub
Private Sub FILE41_Click()
XT_Timer.Enabled = False
ct_cpcx.Show (1)
End Sub
Private Sub FILE44_Click()
XT_Timer.Enabled = False
ct_jscx.Show (1)
End Sub
Private Sub FILE45_Click()
XT_Timer.Enabled = False
ct_yhqcx.Show (1)
End Sub
Private Sub FILE46_Click()
XT_Timer.Enabled = False
ct_szqk.Show (1)
End Sub
Private Sub FILE61_Click()
XT_Timer.Enabled = False
Call ct_cpwh.MAIN(FILE61.Caption)
ct_cpwh.Show (1)
End Sub
Private Sub FILE7_Click()
Call CMD_EXIT_Click
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_Activate()
XT_Timer.Enabled = True
End Sub
'**************************************************************************************************
'* 功 能 : 更新当前时间
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Timer1_Timer()
JZ_DQSJ2 = Time()
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_Load()
Dim sys_uid As String, sys_pwd As String
sys_uid = "db2user"
sys_pwd = "db2user"
Set PUB_data = WRK.OpenDatabase("PUBLIC", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
Set ZW_data = WRK.OpenDatabase("ZW", dbDriverNoPrompt, False, "uid=" & sys_uid & ";pwd=" & sys_pwd)
Set LOCAL_data = OpenDatabase(SYS_LOCALBASE)
ct_main.KeyPreview = False
XT_IMAGE.Visible = True
ct_main.Caption = SYS_GWMC
JZ_USER = SYS_USER + Space(1) + SYS_NAME
JZ_JRSJ2 = Time()
Call Sys_get
sj1 = -10
sj2 = 5
sj3 = 10
R1 = 0
g1 = 255
b1 = 125
t_cs = 0
XT_BT(0).ForeColor = RGB(R1, g1, b1)
XT_BT(1).ForeColor = RGB(R1, g1, b1)
XT_BT(2).ForeColor = RGB(R1, g1, b1)
XT_BT(3).ForeColor = RGB(R1, g1, b1)
End Sub
'**************************************************************************************************
'* 功 能 : 处理系统每隔60秒重新进行注册
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub XT_Timer_Timer()
t_cs = t_cs + 1
If t_cs > 60 Then
frmLogin.Show (1)
t_cs = 0
End If
If R1 + sj1 <= 0 Or R1 + sj1 >= 255 Then
sj1 = -sj1
End If
If g1 + sj2 <= 0 Or g1 + sj2 >= 255 Then
sj2 = -sj2
End If
If b1 + sj3 <= 0 Or b1 + sj3 >= 255 Then
sj3 = -sj3
End If
R1 = R1 + sj1
g1 = g1 + sj2
b1 = b1 + sj3
XT_BT(t_cs Mod 4).ForeColor = RGB(R1, g1, b1)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -