📄 dt_ydlb.frm
字号:
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form dt_ydlb
BorderStyle = 3 'Fixed Dialog
ClientHeight = 6030
ClientLeft = 45
ClientTop = 330
ClientWidth = 7710
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6030
ScaleWidth = 7710
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.CommandButton CMD_EXIT
Caption = "退 出(Esc)"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 450
Left = 4290
TabIndex = 0
Top = 5220
Width = 1575
End
Begin VB.Frame Frame1
Height = 5865
Left = 120
TabIndex = 1
Top = 0
Width = 7440
Begin VB.CommandButton cmd_func
Caption = "选中(Return)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1770
TabIndex = 7
Top = 5250
Width = 1575
End
Begin MSFlexGridLib.MSFlexGrid gd1
Height = 4410
Left = 330
TabIndex = 2
Top = 690
Width = 6780
_ExtentX = 11959
_ExtentY = 7779
_Version = 327680
Rows = 10
Cols = 6
FixedCols = 0
BackColor = 12648447
FocusRect = 0
ScrollBars = 2
SelectionMode = 1
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
Caption = "ddd"
ForeColor = &H8000000D&
Height = 195
Left = 2220
TabIndex = 6
Top = 180
Width = 4845
End
Begin VB.Label Label2
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
Left = 1440
TabIndex = 5
Top = 450
Width = 4215
End
Begin VB.Label Label4
Caption = "记录数:"
Height = 195
Left = 5640
TabIndex = 4
Top = 450
Width = 675
End
Begin VB.Label lb_jls
Height = 195
Left = 6390
TabIndex = 3
Top = 450
Width = 615
End
End
End
Attribute VB_Name = "dt_ydlb"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim key_index As Integer '表示当前功能键的代码
Dim flex_rec As Recordset '
Dim t_funcNo As String '0:增加记录 1:修改记录
Dim t_bt As String '存储列表显示的表头
Dim t_fields As Variant '存储列表显示的字段名
Dim t_fdxs As Variant '显示列是否有特殊处理 0 无, 1 有
Dim t_fdcounts As Integer '表示列表所显示的字段的个数
Dim ydkl_lsh As Integer '记录返回的常来客序号
Dim CS_yddh As String
Sub MAIN(temp_yddh As String)
CS_yddh = Trim(temp_yddh)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
cmd_func.Enabled = t_ft
dt_ydlb.KeyPreview = t_ft
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub flex_refresh()
Call Flex_full(gd1, t_bt, flex_rec, t_fields, t_fdcounts - 1, t_fdxs)
lb_jls.Caption = gd1.Rows - 1
gd1.Refresh
Call button_refresh(True)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
flex_rec.Close
Unload Me
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_func_Click()
Dim ydkr_rec As Recordset
If gd1.Rows - 1 <> 0 Then
If IsNumeric(gd1.TextArray(gd1.Row * t_fdcounts)) Then
ydkl_lsh = gd1.TextArray(gd1.Row * t_fdcounts)
Else
ydkl_lsh = 0
End If
Else
ydkl_lsh = 0
End If
CMD_EXIT_Click
End Sub
Private Sub Form_Activate()
gd1.SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
key_index = 100
Select Case KeyCode
Case vbKeyReturn
key_index = 0 '选中
Case vbKeyEscape
key_index = 101 '退出
End Select
If key_index = 101 Then
Call CMD_EXIT_Click
Else
Call cmd_func_Click
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_Load()
frm_msg.Visible = False
frm_msg.Caption = ""
dt_ydlb.KeyPreview = True
Set flex_rec = PUB_data.OpenRecordset("SELECT * FROM YD_KRQD WHERE TRIM(YDD_H)='" & Trim(CS_yddh) & "' AND TRIM(GZ_FH)='' ORDER BY KR_X,KR_M,YW_X,YW_M", 4, 0, 2)
If Not flex_rec.BOF Then
flex_rec.MoveLast
flex_rec.MoveFirst
End If
t_fields = Array("LSH", "KR_X", "KR_M", "YW_X", "YW_M", "KR_XBMC", "GJMC") '设置显示字段
t_fdxs = Array(0, 0, 0, 0, 0, 0, 0) '设置显示字段
t_bt = ">序号 |<客 人 姓|<客 人 名|<英 文 姓|<英 文 名|^性别|<国 籍 " '设置显示表头格式
t_fdcounts = 7
Call flex_refresh
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
cmd_func.SetFocus
End If
End Sub
Public Property Get LSH() As Integer
LSH = ydkl_lsh
End Property
Public Property Let LSH(ByVal temp_lsh As Integer)
ydkl_lsh = temp_lsh
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -