?? zw_zpcx.frm
字號:
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
'**************************************************************************************************
Private Sub tPxs_ZPXYK()
lb_xxxx.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "信息"
lb_title.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "查詢"
t_fields = Array("FSRQ", "ZDH", "XYK_HM", "YH_HM", "FKDW", "HJ") '設置顯示字段
t_fdxs = Array(0, 0, 0, 0, 0, 2) '設置顯示字段
t_bt = "^發生日期 |<帳 單 號 |<" & IIf(op_zpxyk(1).Value, "支票號碼 ", "信用卡號碼 ") & "|<所屬銀行 |<付款單位 |>填寫金額 " '設置顯示表頭格式
t_fdcounts = 6
Set flex_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_ZPXYK WHERE ZP_FT='" & IIf(op_zpxyk(1).Value, "1", "0") & "' AND TRIM(JZY)='" & SYS_USER & "'", 4, 0, 2)
If Not flex_rec.BOF Then
flex_rec.MoveLast
End If
Call flex_refresh
Call tPkjEnabledFT(False)
End Sub
'**************************************************************************************************
'* 功 能 : 用來設置各種控件 .edabled 的設置
'* 作 者 : 梁衛
'* 作成日期 : 1999.03.03
'* 修改日期 : 1999.03.03
'* 參數說明 : temp_ft -- 表示控件 .Enabled 的狀態 True False
'**************************************************************************************************
Private Sub tPkjEnabledFT(temp_ft As Boolean) '控件.enabled 的設置
If op_zpxyk(1).Value Then '支 票
cm_lb_mc.Visible = False
cm_sx_mc.Visible = False
lb_lb.Visible = False
lb_sx.Visible = False
lb_sqhm.Visible = False
m_lb.Visible = False
m_sx.Visible = False
m_sqhm.Visible = False
Else '信用卡
lb_lb.Visible = True
lb_sx.Visible = True
lb_sqhm.Visible = True
m_lb.Visible = True
cm_lb_mc.Visible = True
m_sx.Visible = True
cm_sx_mc.Visible = True
m_sqhm.Visible = True
End If
m_xyk_hm.Enabled = temp_ft
m_yh_hh.Enabled = temp_ft
cm_yh_hm.Enabled = temp_ft
m_fkdw.Enabled = temp_ft
m_lxdh.Enabled = temp_ft
m_lxr.Enabled = temp_ft
m_kr_zjhm.Enabled = temp_ft
m_qfrq.Enabled = temp_ft
m_bz.Enabled = temp_ft
m_lb.Enabled = temp_ft
cm_lb_mc.Enabled = temp_ft
m_sx.Enabled = temp_ft
cm_sx_mc.Enabled = temp_ft
m_sqhm.Enabled = temp_ft
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 '把字段清空
lb_fsrq.Caption = "____-__-__"
lb_zdh.Caption = ""
lb_zh.Caption = ""
lb_hj.Caption = ""
lb_jzy.Caption = ""
m_xyk_hm.Text = ""
m_yh_hh.Text = ""
cm_yh_hm.Text = ""
m_fkdw.Text = ""
m_lxdh.Text = ""
m_lxr.Text = ""
m_kr_zjhm.Text = ""
m_qfrq.Text = "____-__-__"
m_bz.Text = ""
If op_zpxyk(0).Value Then
m_lb.Text = ""
cm_lb_mc.Text = ""
m_sx.Text = ""
cm_sx_mc.Text = ""
m_sqhm.Text = ""
End If
Case 1 '按記錄集給字段賦值
With temp_rec
lb_fsrq.Caption = Format(.Fields("FSRQ"), "YYYY-MM-DD")
lb_zdh.Caption = Trim(.Fields("ZDH"))
lb_zh.Caption = Trim(.Fields("ZH"))
lb_hj.Caption = Format(.Fields("HJ"), "#,##0.00")
lb_jzy.Caption = Trim(.Fields("JZY"))
m_xyk_hm.Text = Trim(.Fields("XYK_HM"))
m_yh_hh.Text = Trim(.Fields("YH_HH"))
If PUB_GetCMName(m_yh_hh, cm_yh_hm) Then
Else
cm_yh_hm.Text = "*"
End If
m_fkdw.Text = Trim(.Fields("FKDW"))
m_lxdh.Text = Trim(.Fields("LXDH"))
m_lxr.Text = Trim(.Fields("LXR"))
m_kr_zjhm.Text = Trim(.Fields("KR_ZJHM"))
m_qfrq.Text = IIf(IsNull(.Fields("QFRQ")), "____-__-__", Format(.Fields("QFRQ"), "YYYY-MM-DD"))
m_bz.Text = Trim(.Fields("BZ"))
m_lb.Text = Trim(.Fields("XYK_DM"))
If PUB_GetCMName(m_lb, cm_lb_mc) Then
Else
cm_lb_mc.Text = "*"
End If
m_sx.Text = Trim(.Fields("XYK_SX"))
If PUB_GetCMName(m_sx, cm_sx_mc) Then
Else
cm_sx_mc.Text = "*"
End If
m_sqhm.Text = Trim(.Fields("SQHM"))
End With
End Select
End Sub
'**************************************************************************************************
'* 功 能 : 用來給字段賦值
'* 作 者 : 梁衛
'* 作成日期 : 1999.03.05
'* 修改日期 : 1999.03.05
'* 參數說明 : temp_rec -- 顯示的記錄集名稱
'* trmp_funcNo -- 表示編輯狀態 '0' - 增加 '1' - 修改
'**************************************************************************************************
Private Sub tPkjFieldGet(temp_rec As Recordset, temp_funcNo As String)
Dim GJ_rec As Recordset 'DT_KRGJK
Dim MaxXH_rec As Recordset 'ZW_ZPXYK 中的最大序號
Dim temp_xbdm As Integer
With temp_rec
.Fields("XYK_HM") = IIf(Trim(m_xyk_hm.Text) = "", "*", Trim(m_xyk_hm.Text))
.Fields("YH_HH") = IIf(Trim(m_yh_hh.Text) = "", "*", Trim(m_yh_hh.Text))
.Fields("YH_HM") = IIf(Trim(cm_yh_hm.Text) = "", "*", Trim(cm_yh_hm.Text))
.Fields("FKDW") = IIf(Trim(m_fkdw.Text) = "", "*", Trim(m_fkdw.Text))
.Fields("LXDH") = IIf(Trim(m_lxdh.Text) = "", "*", Trim(m_lxdh.Text))
.Fields("LXR") = IIf(Trim(m_lxr.Text) = "", "*", Trim(m_lxr.Text))
.Fields("KR_ZJHM") = IIf(Trim(m_kr_zjhm.Text) = "", "*", Trim(m_kr_zjhm.Text))
If Trim(m_qfrq.Text) = "____-__-__" Then
.Fields("QFRQ") = Null
Else
.Fields("QFRQ") = CDate(m_qfrq.Text)
End If
.Fields("BZ") = IIf(Trim(m_bz.Text) = "", "*", Trim(m_bz.Text))
.Fields("XYK_DM") = IIf(Trim(m_lb.Text) = "", "*", Trim(m_lb.Text))
.Fields("XYK_SX") = IIf(Trim(m_sx.Text) = "", "*", Trim(m_sx.Text))
.Fields("SQHM") = IIf(Trim(m_sqhm.Text) = "", "*", Trim(m_sqhm.Text))
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
If flex_rec.RecordCount <> 0 Then
cmd_func(1).Enabled = t_ft
cmd_func(3).Enabled = t_ft
Else
cmd_func(1).Enabled = False
cmd_func(3).Enabled = False
End If
zw_zpcx.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)
gd1.Refresh
lb_jls.Caption = gd1.Rows - 1
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 zpxyk_rec As Recordset
Dim temp_lock As Integer
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 0 '按"確定"鍵
'補記時校驗字段合法性
Set zpxyk_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_ZPXYK WHERE FSRQ=#" & CDate(lb_fsrq.Caption) & "# AND TRIM(ZDH)='" & Trim(lb_zdh.Caption) & "' AND TRIM(JZY)='" & SYS_USER & "'", 2, 0, 2)
If Not zpxyk_rec.BOF Then
zpxyk_rec.MoveLast
temp_lock = Pub_lock("PUBLIC", "ZW_ZPXYK", zpxyk_rec)
Select Case temp_lock
Case 0
frm_msg.Visible = True
frm_msg.Caption = "該" & IIf(op_zpxyk(1).Value, "支票", "信用卡") & "正被其他人占用, 請稍候再修改"
Call button_refresh(True)
Case 2
Call Pub_UNlock("ZW_ZPXYK", zpxyk_rec)
frm_msg.Visible = True
frm_msg.Caption = "該" & IIf(op_zpxyk(1).Value, "支票", "信用卡") & "記錄已被刪除"
Call flex_refresh
Case 1
t_czlsh = Pub_czls(PUB_data, "ZW_ZPCX", Time(), pub_code)
zpxyk_rec.Edit
tPkjFieldGet zpxyk_rec, "1"
zpxyk_rec.Update
Call Pub_czle(PUB_data, t_czlsh, IIf(op_zpxyk(1).Value, "支票", "信用卡") & Format(lb_fsrq.Caption, "yyyy-mm-dd") & ",帳單號:" & Trim(lb_zdh.Caption) & " 補記成功", Time(), pub_code)
Call Pub_UNlock("ZW_ZPXYK", zpxyk_rec)
frm_msg.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "補記成功"
frm_msg.Visible = True
Call flex_refresh
End Select
Else
Call button_refresh(True)
End If
zpxyk_rec.Close
Case 1 '按"退出"鍵
Call button_refresh(True)
End Select
tPkjEnabledFT False
lb_xxxx.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "信息"
gd1.Enabled = True
gd1.SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 者 : 梁衛
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_func_Click(Index As Integer)
Dim zpxyk_rec As Recordset
frm_msg.Visible = False
frm_msg.Caption = ""
Select Case Index
Case 1 '補記
If gd1.Rows - 1 <> 0 Then
Set zpxyk_rec = PUB_data.OpenRecordset("SELECT * FROM ZW_ZPXYK WHERE FSRQ=#" & gd1.TextArray(gd1.Row * t_fdcounts) & "# AND TRIM(ZDH)='" & Trim(gd1.TextArray(gd1.Row * t_fdcounts + 1)) & "' AND TRIM(JZY)='" & SYS_USER & "'", 4, 0, 2)
If Not zpxyk_rec.BOF Then
zpxyk_rec.MoveLast
lb_xxxx.Caption = IIf(op_zpxyk(1).Value, "支票", "信用卡") & "信息(修改)"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -