📄 dt_wgcgl.frm
字号:
Left = 135
TabIndex = 2
Top = 8220
Width = 9870
Begin VB.Label JZ_DQSJ2
BackStyle = 0 'Transparent
Height = 330
Left = 7980
TabIndex = 8
Top = 225
Width = 1050
End
Begin VB.Label JZ_NAME
BackStyle = 0 'Transparent
Caption = "操作员:"
Height = 330
Left = 450
TabIndex = 7
Top = 270
Width = 690
End
Begin VB.Label JZ_USER
BackStyle = 0 'Transparent
Height = 330
Left = 1320
TabIndex = 6
Top = 240
Width = 1500
End
Begin VB.Label JZ_JRSJ1
Caption = "进入时间:"
Height = 195
Left = 3285
TabIndex = 5
Top = 225
Width = 825
End
Begin VB.Label JZ_JRSJ2
Height = 195
Left = 4380
TabIndex = 4
Top = 225
Width = 1230
End
Begin VB.Label JZ_DQSJ1
Caption = "当前时间:"
Height = 195
Left = 6930
TabIndex = 3
Top = 225
Width = 825
End
End
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 = 510
Left = 10140
TabIndex = 0
Top = 8280
Width = 1575
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
ForeColor = &H00C00000&
Height = 330
Left = 5895
TabIndex = 9
Top = 180
Visible = 0 'False
Width = 5685
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 = 1
Top = 120
Width = 11475
End
End
Attribute VB_Name = "dt_wgcgl"
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 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 t_czlsh As String
Dim wgcgl_zrrq As String '记录昨天的日期
'修改用关键字字段
Dim wgcxg_lsh As String
Dim wgcxg_fjh As String
Dim wgcxg_ddrq As String
'**************************************************************************************************
'* 功 能 : 用来设置各种控件 .edabled 的设置
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.03
'* 修改日期 : 1999.03.03
'* 参数说明 : temp_funcNo -- 表示编辑状态 '0' - 增加 '1' - 修改 '2' - 删除
'* temp_ft -- 表示控件 .Enabled 的状态 True False
'**************************************************************************************************
Private Sub tPkjEnabledFT(temp_funcNo As String, temp_ft As Boolean) '控件.enabled 的设置
m_lrrq.Enabled = temp_ft
m_wwxm.Enabled = temp_ft
m_zwxm.Enabled = temp_ft
op_xb(0).Enabled = temp_ft
op_xb(1).Enabled = temp_ft
op_xb(2).Enabled = temp_ft
m_csrq.Enabled = temp_ft
m_gjdm.Enabled = temp_ft
cm_gjmc.Enabled = temp_ft
m_zjdm.Enabled = temp_ft
cm_zjmc.Enabled = temp_ft
m_zjhm.Enabled = temp_ft
m_qzdm.Enabled = temp_ft
cm_qzmc.Enabled = temp_ft
m_sydm.Enabled = temp_ft
cm_symc.Enabled = temp_ft
m_yxq_wgc.Enabled = temp_ft
m_fjh.Enabled = temp_ft
If temp_funcNo <> "2" Or temp_funcNo <> "" Then
m_ddrq.Enabled = True
m_fjh.Enabled = True
Else
m_ddrq.Enabled = False
m_fjh.Enabled = False
End If
m_lkrq.Enabled = temp_ft
m_fjnr.Enabled = temp_ft
m_bdjddw_mc.Enabled = temp_ft
op_ycs(0).Enabled = temp_ft
op_ycs(1).Enabled = temp_ft
m_lsh.Enabled = False
End Sub
'**************************************************************************************************
'* 功 能 : 用来设置各种控件赋值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.05
'* 修改日期 : 1999.03.05
'* 参数说明 : temp_rec -- 显示的记录集名称
'* trmp_bszt -- 表示字段按何方式显示 0 - 把字段清空 1 - 按记录集显示字段 2 - 字段初始化
'**************************************************************************************************
Private Sub tPkjTextSet(temp_rec As Recordset, temp_bszt As String)
Select Case temp_bszt
Case 0 '把字段清空
m_lrrq.Text = ""
m_wwxm.Text = ""
m_zwxm.Text = ""
op_xb(0).Value = False
op_xb(1).Value = False
op_xb(2).Value = False
m_csrq.Text = ""
m_gjdm.Text = ""
cm_gjmc.Text = ""
m_zjdm.Text = ""
cm_zjmc.Text = ""
m_zjhm.Text = ""
m_qzdm.Text = ""
cm_qzmc.Text = ""
m_yxq_wgc.Text = ""
m_fjh.Text = ""
m_sydm.Text = ""
cm_symc.Text = ""
m_lsh.Text = 0
m_ddrq.Text = 0
m_lkrq.Text = ""
m_bdjddw_mc.Text = ""
m_fjnr.Text = ""
op_ycs(0).Value = False
op_ycs(1).Value = False
Case 1 '按记录集给字段赋值
With temp_rec
m_lrrq.Text = Trim(.Fields("LRRQ"))
m_wwxm.Text = Trim(.Fields("WWXM"))
m_zwxm.Text = Trim(.Fields("ZWXM"))
If .Fields("XB") = "1" Then
op_xb(1).Value = True
ElseIf .Fields("XB") = "2" Then
op_xb(2).Value = True
Else
op_xb(0).Value = True
End If
m_csrq.Text = Trim(.Fields("CSRQ"))
m_gjdm.Text = Trim(.Fields("GJ"))
If PUB_GetCMName(m_gjdm, cm_gjmc) Then
Else
cm_gjmc.Text = "*"
End If
m_zjdm.Text = Trim(.Fields("ZJDM"))
If PUB_GetCMName(m_zjdm, cm_zjmc) Then
Else
cm_zjmc.Text = "*"
End If
m_zjhm.Text = Trim(.Fields("ZJHM"))
m_qzdm.Text = Trim(.Fields("QZDM"))
If PUB_GetCMName(m_qzdm, cm_qzmc) Then
Else
cm_qzmc.Text = "*"
End If
m_yxq_wgc.Text = Trim(.Fields("YXQ_WGC"))
m_fjh.Text = Trim(.Fields("FJH"))
m_lsh.Text = .Fields("LSH")
m_ddrq.Text = Trim(.Fields("DDRQ"))
m_lkrq.Text = Trim(.Fields("LKRQ"))
m_bdjddw_mc.Text = Trim(.Fields("BDJDDW_MC"))
m_fjnr.Text = Trim(.Fields("FJNR"))
If Trim(.Fields("YCS")) = "1" Then
op_ycs(1).Value = True
Else
op_ycs(0).Value = True
End If
End With
End Select
End Sub
'**************************************************************************************************
'* 功 能 : 用来给字段赋值
'* 作 者 : 梁卫
'* 作成日期 : 1999.03.05
'* 修改日期 : 1999.03.05
'* 参数说明 : temp_rec -- 显示的记录集名称
'* trmp_lockno -- 表示修改时 锁号字段值
'* trmp_funcNo -- 表示编辑状态 '0' - 增加 '1' - 修改
'**************************************************************************************************
Private Sub tPkjFieldGet(temp_rec As Recordset, temp_lockno As Integer, temp_funcNo As String)
Dim MaxLSH_rec As Recordset 'DT_WGJK 中的最大序号
With temp_rec
.Fields("LRRQ") = IIf(Trim(m_lrrq.Text) = "", " ", Trim(m_lrrq.Text))
.Fields("WWXM") = IIf(Trim(m_wwxm.Text) = "", " ", Trim(m_wwxm.Text))
.Fields("ZWXM") = IIf(Trim(m_zwxm.Text) = "", " ", Trim(m_zwxm.Text))
If op_xb(0).Value Then
.Fields("XB") = "0"
ElseIf op_xb(1).Value Then
.Fields("XB") = "1"
Else
.Fields("XB") = "2"
End If
If Trim(m_csrq.Text) = "" Then
.Fields("CSRQ") = " "
Else
.Fields("CSRQ") = Trim(m_csrq.Text)
End If
.Fields("GJ") = IIf(Trim(m_gjdm.Text) = "", " ", Trim(m_gjdm.Text))
.Fields("ZJDM") = IIf(Trim(m_zjdm.Text) = "", " ", Trim(m_zjdm.Text))
.Fields("ZJHM") = IIf(Trim(m_zjhm.Text) = "", " ", Trim(m_zjhm.Text))
.Fields("QZDM") = IIf(Trim(m_qzdm.Text) = "", " ", Trim(m_qzdm.Text))
If Trim(m_yxq_wgc.Text) = "" Then
.Fields("YXQ_WGC") = " "
Else
.Fields("YXQ_WGC") = Trim(m_yxq_wgc.Text)
End If
.Fields("FJH") = IIf(Trim(m_fjh.Text) = "", " ", Trim(m_fjh.Text))
.Fields("BDJDDW_MC") = IIf(Trim(m_bdjddw_mc.Text) = "", " ", Trim(m_bdjddw_mc.Text))
.Fields("DDRQ") = IIf(Trim(m_ddrq.Text) = "", " ", Trim(m_ddrq.Text))
.Fields("LKRQ") = IIf(Trim(m_lkrq.Text) = "", " ", Trim(m_lkrq.Text))
.Fields("FJNR") = IIf(Trim(m_fjnr.Text) = "", " ", Trim(m_fjnr.Text))
.Fields("ZLZZ") = "0005"
If op_ycs(0).Value Then
.Fields("YCS") = "0"
Else
.Fields("YCS") = "1"
End If
If temp_funcNo = "0" Then '增加时, 计算流水号, 添加锁号
.Fields("LOCK_NO") = 0
Set MaxLSH_rec = PUB_data.OpenRecordset("SELECT MAX(LSH) AS MAXLSH,COUNT(*) AS CK_RECC FROM DT_WGJK WHERE TRIM(FJH)='" & Trim(.Fields("FJH")) & "' AND TRIM(DDRQ)='" & Trim(.Fields("DDRQ")) & "'", 4, 0, 2)
If Not MaxLSH_rec.Fields("CK_RECC") = 0 Then
MaxLSH_rec.MoveLast
.Fields("LSH") = MaxLSH_rec.Fields("MAXLSH") + 1
Else
.Fields("LSH") = 1
End If
MaxLSH_rec.Close
End If
End With
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub button_refresh(t_ft As Boolean)
cmd_ok(0).Enabled = Not t_ft
cmd_ok(1).Enabled = Not t_ft
cmd_func(5).Enabled = t_ft
cmd_func(0).Enabled = t_ft
If flex_rec.RecordCount <> 0 Then
cmd_func(1).Enabled = t_ft
cmd_func(2).Enabled = t_ft
cmd_func(3).Enabled = t_ft
Else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -