📄 dt_wgcgl.frm
字号:
cmd_func(1).Enabled = False
cmd_func(2).Enabled = False
cmd_func(3).Enabled = False
End If
dt_wgcgl.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
'**************************************************************************************************
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.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_ok_Click(Index As Integer)
Dim temp_ft As Boolean
Dim wgjk_rec As Recordset
Dim temp_lock As Integer
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 0 '按"确定"键
'校验数据的合法性
If Trim(m_fjh.Text) = "" Or Len(Trim(m_fjh.Text)) < 4 Then
frm_msg.Visible = True
frm_msg.Caption = "不适当的房间号"
m_fjh.SetFocus
Exit Sub
End If
If Trim(m_ddrq.Text) = "" Then
frm_msg.Visible = True
frm_msg.Caption = "不适当的抵达日期"
m_ddrq.SetFocus
Exit Sub
End If
Select Case t_funcNo
Case "0" '增加记录
Set wgjk_rec = PUB_data.OpenRecordset("SELECT * FROM DT_WGJK", 2, 0, 2)
If Not wgjk_rec.BOF Then
wgjk_rec.MoveLast
End If
wgjk_rec.AddNew
tPkjFieldGet wgjk_rec, 0, "0" '给各字段赋值
wgjk_rec.Update
wgjk_rec.Close
Call flex_refresh
Case "1", "2" '修改和删除记录
Set wgjk_rec = PUB_data.OpenRecordset("SELECT * FROM DT_WGJK WHERE LSH=" & Trim(wgcxg_lsh) & " AND TRIM(FJH)='" & Trim(wgcxg_fjh) & "' AND TRIM(DDRQ)='" & Trim(wgcxg_ddrq) & "'", 2, 0, 2)
If Not wgjk_rec.BOF Then
wgjk_rec.MoveLast
temp_lock = Pub_lock("PUBLIC", "DT_WGJK", wgjk_rec)
Select Case temp_lock
Case 0
frm_msg.Visible = True
frm_msg.Caption = "该外管处数据正被其他人占用, 请稍候再修改"
Call button_refresh(True)
Case 2
Call Pub_UNlock("DT_WGJK", wgjk_rec)
frm_msg.Visible = True
frm_msg.Caption = "该客人数据已被删除"
Call flex_refresh
Case 1
Select Case t_funcNo
Case "1" '修改
wgjk_rec.Edit
tPkjFieldGet wgjk_rec, 1, "1"
wgjk_rec.Update
Case "2" '删除
wgjk_rec.Delete
End Select
Call Pub_UNlock("DT_WGJK", wgjk_rec)
Call flex_refresh
End Select
Else
Call button_refresh(True)
End If
wgjk_rec.Close
End Select
Case 1 '按"退出"键
Call button_refresh(True)
End Select
tPkjEnabledFT "", False
lb_xxxx.Caption = "详细信息"
gd1.Enabled = True
gd1.SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_func_Click(Index As Integer)
Dim wgjk_rec As Recordset
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 0 '增加
t_funcNo = "0"
lb_xxxx.Caption = "详细信息(增加)"
'编辑字段初始化
tPkjEnabledFT t_funcNo, True
tPkjTextSet flex_rec, 0
m_lrrq.Text = wgcgl_zrrq
m_ddrq.Text = wgcgl_zrrq
op_ycs(0).Value = True
'界面BUTTON初始化
Call button_refresh(False)
gd1.Enabled = False
m_lrrq.SetFocus
Case 1, 2 '修改, 删除
If gd1.Rows - 1 <> 0 Then
wgcxg_lsh = gd1.TextArray(gd1.Row * t_fdcounts + 11)
wgcxg_fjh = Trim(gd1.TextArray(gd1.Row * t_fdcounts + 12))
wgcxg_ddrq = Trim(gd1.TextArray(gd1.Row * t_fdcounts + 13))
Set wgjk_rec = PUB_data.OpenRecordset("SELECT * FROM DT_WGJK WHERE LSH=" & wgcxg_lsh & " AND TRIM(FJH)='" & wgcxg_fjh & "' AND TRIM(DDRQ)='" & wgcxg_ddrq & "'", 4, 0, 2)
If Not wgjk_rec.BOF Then
wgjk_rec.MoveLast
Select Case Index
Case 1 '修改
t_funcNo = "1"
lb_xxxx.Caption = "详细信息(修改)"
tPkjEnabledFT t_funcNo, True
m_lrrq.SetFocus
Case 2 '删除
t_funcNo = "2"
lb_xxxx.Caption = "详细信息(删除)"
tPkjEnabledFT t_funcNo, False
End Select
tPkjTextSet wgjk_rec, 1
'界面BUTTON初始化
Call button_refresh(False)
gd1.Enabled = False
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If
wgjk_rec.Close
Else
frm_msg.Visible = True
frm_msg.Caption = "没有满足条件的记录"
End If '
Case 3 '打印
Case 4 '生成文件
Set wgjk_rec = PUB_data.OpenRecordset("SELECT * FROM DT_WGJK WHERE DDRQ<='" & wgcgl_zrrq & "' AND YCS='0'", 2, 0, 2)
If Not wgjk_rec.BOF Then
wgjk_rec.MoveLast
wgjk_rec.MoveFirst
Open "C:\BL" & Mid(CStr(Date), 1, 4) & Mid(CStr(Date), 6, 2) & Mid(CStr(Date), 9, 2) & ".TXT" For Output As #1
With wgjk_rec
Do While Not .EOF
Write #1, .Fields("LRRQ") & .Fields("WWXM") & .Fields("ZWXM") & .Fields("XB") & .Fields("CSRQ") & .Fields("GJ") & .Fields("ZJDM") & .Fields("ZJHM") & .Fields("QZDM") & .Fields("YXQ_WGC") & .Fields("ZLZZ") & .Fields("FJH") & .Fields("SYDM") & .Fields("DDRQ") & .Fields("LKRQ") & .Fields("BDJDDW_MC") & .Fields("FJNR")
.MoveNext
Loop
End With
Close #1
End If
wgjk_rec.Close
' pub_data.Execute "UPDATE DT_WGJK SET YCS='1' WHERE DDRQ='" & wgcgl_zrrq & "'"
Case 5 '刷新
Call flex_refresh
gd1.SetFocus
End Select
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
frm_msg.Caption = ""
frm_msg.Visible = False
Select Case KeyCode
Case vbKeyF2
key_index = 0 '增加
Case vbKeyF3
key_index = 1 '修改
Case vbKeyF4
key_index = 2 '删除
Case vbKeyF5
key_index = 3 '打印
Case vbKeyF8
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
Private Sub m_bdjddw_mc_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_lkrq.SetFocus
Case vbKeyReturn, vbKeyDown
m_fjnr.SetFocus
End Select
End Sub
Private Sub m_csrq_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_zwxm.SetFocus
Case vbKeyReturn, vbKeyDown
m_gjdm.SetFocus
End Select
End Sub
Private Sub m_ddrq_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
cm_symc.SetFocus
Case vbKeyReturn, vbKeyDown
m_lkrq.SetFocus
End Select
End Sub
Private Sub m_fjh_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_yxq_wgc.SetFocus
Case vbKeyDown, vbKeyReturn
m_sydm.SetFocus
End Select
End Sub
Private Sub m_fjnr_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_bdjddw_mc.SetFocus
Case vbKeyReturn, vbKeyDown
cmd_ok(0).SetFocus
End Select
End Sub
Private Sub m_gjdm_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_csrq.SetFocus
Case vbKeyReturn, vbKeyDown
cm_gjmc.SetFocus
End Select
End Sub
Private Sub m_lkrq_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyUp
m_ddrq.SetFocus
Case vbKeyReturn, vbKeyDown
m_bdjddw_mc.SetFocus
End Select
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -