📄 zw_jsfs.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form fm_jsfs
BorderStyle = 3 'Fixed Dialog
ClientHeight = 3885
ClientLeft = -15
ClientTop = -15
ClientWidth = 2505
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3885
ScaleWidth = 2505
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Timer XT_Timer
Interval = 1000
Left = 270
Top = 1620
End
Begin VB.Frame Frame1
Height = 3915
Left = 0
TabIndex = 0
Top = -60
Width = 2490
Begin MSFlexGridLib.MSFlexGrid gd1
Height = 3150
Left = 90
TabIndex = 2
Top = 420
Width = 2280
_ExtentX = 4022
_ExtentY = 5556
_Version = 327680
Rows = 10
Cols = 6
FixedCols = 0
BackColor = 12648447
FocusRect = 0
ScrollBars = 2
SelectionMode = 1
End
Begin VB.Label lb_title
Alignment = 2 'Center
Caption = "ENTER:选中"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Index = 1
Left = 150
TabIndex = 3
Top = 3630
Width = 2145
End
Begin VB.Label lb_title
Alignment = 2 'Center
Caption = "选择结算方式"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 0
Left = 210
TabIndex = 1
Top = 180
Width = 2085
End
End
End
Attribute VB_Name = "fm_jsfs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim t_bt As String '存储列表显示的表头
Dim t_fields As Variant '存储列表显示的字段名
Dim t_fdxs As Variant '显示列是否有特殊处理 0 无, 1 有
Dim t_fdcounts As Integer '表示列表所显示的字段的个数
Dim jsfs_jsfs As String
Dim jsfs_sql As String
Dim CS_CODE As String '功能代码
Dim CS_R4 As String '结算代码(第4位)
Dim CS_DATA As Database '库名
Sub MAIN(t_data As Database, t_r4 As String, t_code As String)
Set CS_DATA = t_data
CS_CODE = t_code
CS_R4 = t_r4
End Sub
'***********************************************************************
'* 功 能 : 给 Form 赋焦点
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'***********************************************************************
Private Sub Form_Activate()
gd1.SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.19
'* 修改日期 : 1999.03.19
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If gd1.Rows > 1 Then
jsfs_jsfs = Trim(gd1.TextArray(gd1.Row * t_fdcounts))
Else
jsfs_jsfs = ""
End If
Unload Me
End If
End Sub
'***********************************************************************
'* 功 能 : 按 Esc 键时， 退出
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.18
'* 修改日期 : 1999.03.18
'***********************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
jsfs_jsfs = ""
Unload Me
Else
If (KeyCode >= Asc("0") And KeyCode <= Asc("9")) Or (KeyCode >= Asc("A") And KeyCode <= Asc("Z")) Or (KeyCode >= Asc("a") And KeyCode <= Asc("z")) Then
jsfs_jsfs = UCase(Trim(Chr(KeyCode)))
Dim jsfs_rec As Recordset
Dim temp_ft As Boolean
temp_ft = False
Set jsfs_rec = CS_DATA.OpenRecordset(jsfs_sql & " AND TRIM(JS_FS)='" & Trim(jsfs_jsfs) & "'", 4, 0, 2)
If Not jsfs_rec.BOF Then
jsfs_rec.MoveLast
temp_ft = True
End If
jsfs_rec.Close
If temp_ft Then
Unload Me
End If
End If
End If
End Sub
'***********************************************************************
'* 功 能 :
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.04
'* 修改日期 : 1999.03.04
'***********************************************************************
Private Sub Form_Load()
Dim jsfs_rec As Recordset
KeyPreview = True
Me.Left = (Screen.Width - Me.Width) / 2 ' 在水平方向上居中。
Me.Top = (Screen.Height - Me.Height) / 2 ' 在垂直方向上居中。
If Left(CS_CODE, 4) = "G022" Then '前厅错帐恢复
jsfs_sql = "SELECT JS_FS,JS_MC FROM ZW_JSFS WHERE QT_FT='1'"
Else
Select Case CS_CODE
Case "G0100", "S0200", "G0210" '前厅客帐输入, 小商场消费结算, 前厅客帐冲正
If Trim(CS_R4) = "1" Then
jsfs_sql = "SELECT JS_FS,JS_MC FROM ZW_JSFS WHERE SR_FT='1'"
Else
jsfs_sql = "SELECT JS_FS,JS_MC FROM ZW_JSFS WHERE TK_FT='1' AND SR_FT='1'"
End If
Case "G0400" '前厅客帐结算
jsfs_sql = "SELECT JS_FS,JS_MC FROM ZW_JSFS WHERE QT_FT='1'"
Case "F0200", "E4300" '餐厅错帐处理, 餐厅客帐结算
jsfs_sql = "SELECT JS_FS,JS_MC FROM ZW_JSFS WHERE CT_FT='1'"
End Select
End If
Set jsfs_rec = CS_DATA.OpenRecordset(jsfs_sql & " ORDER BY JS_FS", 4, 0, 2)
If Not jsfs_rec.BOF Then
jsfs_rec.MoveLast
End If
t_fields = Array("JS_FS", "JS_MC") '设置显示字段
t_fdxs = Array(0, 0) '设置显示字段
t_bt = "^代码|< 结算方式名称 " '设置显示表头格式
t_fdcounts = 2
Call Flex_full(gd1, t_bt, jsfs_rec, t_fields, t_fdcounts - 1, t_fdxs)
jsfs_rec.Close
End Sub
'***********************************************************************
'* 功 能 :
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.21
'* 修改日期 : 1999.03.21
'***********************************************************************
Public Property Get JS_FS() As String
JS_FS = jsfs_jsfs
End Property
'***********************************************************************
'* 功 能 :
'* 作 成 者 : 梁 卫
'* 生成日期 : 1999.03.21
'* 修改日期 : 1999.03.21
'***********************************************************************
Public Property Let JS_FS(ByVal temp_jsfs As String)
jsfs_jsfs = temp_jsfs
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -