📄 dt_krgl.frm
字号:
Name = "宋体"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 2400
TabIndex = 16
Top = 3420
Width = 2715
End
Begin VB.Label Label1
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 180
TabIndex = 7
Top = 120
Width = 11475
End
End
Attribute VB_Name = "dt_krgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim i As Integer
Dim key_index As Integer '表示当前功能键的代码
Dim krgl_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 '表示显示列是否由代码转换成文字
Dim t_fdcounts As Integer '表示列表所显示的字段的个数
Dim n_lockno As String '存储当前记录号
Dim t_rec As Recordset
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
cmd_func(4).Enabled = t_ft
cmd_func(5).Enabled = t_ft
cmd_func(2).Enabled = t_ft
cmd_func(3).Enabled = t_ft
If krgl_rec.RecordCount <> 0 Then
cmd_func(0).Enabled = t_ft
cmd_func(1).Enabled = t_ft
Else
cmd_func(0).Enabled = False
cmd_func(1).Enabled = False
End If
dt_krgl.KeyPreview = t_ft
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub flex_refresh()
krgl_rec.Requery
Call Flex_full(gd1, t_bt, krgl_rec, t_fields, t_fdcounts - 1, t_fdxs)
lb_jls.Caption = gd1.Rows - 1
gd1.Refresh
Call button_refresh(True)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Sub MAIN(t_gnmc As String)
Label1.Caption = t_gnmc
JZ_USER = SYS_USER + Space(1) + SYS_NAME
JZ_JRSJ2 = Time()
JZ_DQSJ2 = Time()
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub CMD_EXIT_Click()
Unload Me
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub cmd_func_Click(Index As Integer)
Dim temp_zh As String
Dim temp_dffls() As Integer
Dim temp_pffls() As Integer
frm_msg.Visible = False
frm_msg.Caption = ""
ReDim temp_dffls(SYS_LXN + 1)
ReDim temp_pffls(SYS_LXN + 1)
For i = 1 To SYS_LXN
temp_dffls(i) = 0
temp_pffls(i) = 0
Next i
Select Case Index
Case 0 '明细显示
If gd1.Rows - 1 <> 0 Then
pub_code = Left(Pub_getcode(PUB_data, "DT_KRXG"), 5)
Call dt_krdj.MAIN("显示", gd1.TextArray(gd1.Row * t_fdcounts), "", "", "", Date, Date, temp_dffls, 0, 0, "", "", "")
dt_krdj.Show (1)
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If
Case 1 '修改
If gd1.Rows - 1 <> 0 Then
pub_code = Left(Pub_getcode(PUB_data, "DT_KRXG"), 5)
Call dt_krdj.MAIN("修改", gd1.TextArray(gd1.Row * t_fdcounts), "", "", "", Date, Date, temp_dffls, 0, 0, "", "", "")
dt_krdj.Show (1)
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If
Case 2 '有预订登记
pub_code = Left(Pub_getcode(PUB_data, "DT_SYDJ"), 5)
Call DT_SYDJ(frm_msg, pub_code)
Case 3 '无预订登记
pub_code = Left(Pub_getcode(PUB_data, "DT_SFDJ"), 5)
dt_sfdj.Show (1)
Case 4 '同住登记
pub_code = Left(Pub_getcode(PUB_data, "DT_TZDJ"), 5)
If gd1.Rows - 1 <> 0 Then
Call dt_krdj.MAIN("同住", gd1.TextArray(gd1.Row * t_fdcounts), "", "", "", Date, Date, temp_dffls, 0, 0, "", "", "")
dt_krdj.Show (1)
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If
Case 5 '刷新
Call flex_refresh
End Select
If tx_bjRT.Text = 1 Then '增加或修改记录成功时, 重新刷新界面
flex_refresh
End If
tx_bjRT.Text = 0
gd1.SetFocus
End Sub
Private Sub Form_Activate()
' gd1.SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
key_index = 100
frm_msg.Caption = ""
frm_msg.Visible = False
Select Case KeyCode
Case vbKeySpace
key_index = 0 '明细显示
Case vbKeyF3
key_index = 1 '修改
Case vbKeyF7
key_index = 2 '有预订
Case vbKeyF8
key_index = 3 '无预订
Case vbKeyF10
key_index = 4 '同住
Case vbKeyF9
key_index = 5 '刷新
Case vbKeyEscape
key_index = 101 '退出
End Select
If key_index = 101 Then
Call CMD_EXIT_Click
Else
Call cmd_func_Click(key_index)
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub Form_Load()
tx_bjRT.Text = 0
dt_krgl.KeyPreview = True
Set krgl_rec = PUB_data.OpenRecordset("select ZH,KR_X,KR_M,GJMC,KR_XBMC,RZRQ,LDRQ,ZKLX_MC,TDMC,KF_ZKL,KF_FZ,KR_DJ,ZXFE,YE,QD_FT,BXX_FT,MFZC_FT,JYWP_FT,TSFW from DT_KRQD order by ZH", 4, 0, 2)
If Not krgl_rec.BOF Then
krgl_rec.MoveLast
krgl_rec.MoveFirst
End If
t_fields = Array("ZH", "KR_X", "KR_M", "GJMC", "KR_XBMC", "RZRQ", "LDRQ", "ZKLX_MC", "TDMC", "KF_ZKL", "KF_FZ", "KR_DJ", "ZXFE", "YE", "QD_FT", "BXX_FT", "MFZC_FT", "JYWP_FT", "TSFW") '设置显示字段
t_fdxs = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 1, 1, 1, 1, 0) '设置显示字段
t_bt = "<帐 号|< 客 人 姓 |< 客 人 名 |^国 籍 |^性别|^入住日期 |^离店日期 |^住客类型|^团队名称 |>折扣率|> 房 租 |> 定 金 |> 总消费额 |> 余 额 |^签单|^保险箱|^免费早餐|^借用物品|< 特 殊 服 务 " '设置显示表头格式
t_fdcounts = 19
Call flex_refresh
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub gd1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
cmd_func(0).SetFocus
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.24
'* 修改日期 : 1999.02.24
'**************************************************************************************************
Private Sub XT_Timer_Timer()
JZ_DQSJ2.Caption = Time()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -