📄 pub_zhpd.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 8
Top = 1440
Width = 840
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
Caption = "国 籍"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 7
Top = 1020
Width = 840
End
Begin VB.Label Label18
Alignment = 1 'Right Justify
Caption = "客 人 姓"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 6
Top = 630
Width = 840
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
Caption = "帐 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 5
Top = 240
Width = 840
End
End
Begin VB.CommandButton cmd_ok
Caption = "确定"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 0
Left = 2190
TabIndex = 0
Top = 2670
Width = 1035
End
Begin VB.CommandButton cmd_ok
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Index = 1
Left = 3840
TabIndex = 1
Top = 2670
Width = 1035
End
Begin VB.Label lb_title
Alignment = 2 'Center
Caption = "是该帐户否?"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 3
Top = 300
Width = 6915
End
End
Begin VB.Label frm_msg
Alignment = 1 'Right Justify
Caption = "是该帐户否?"
ForeColor = &H8000000D&
Height = 255
Left = 4380
TabIndex = 44
Top = 180
Width = 3255
End
Begin VB.Label Label4
Caption = "是该帐户否?"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 240
TabIndex = 43
Top = 180
Width = 1455
End
End
Attribute VB_Name = "fm_zhpd"
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 t_rec As Recordset
Dim t_czlsh As String
Dim PUB_data As Database
Dim SYS_TZYSK As String
Dim SYS_SK As String
Dim SYS_TD As String
Dim SYS_GWDM As String
Dim SYS_GW_ZW As String
Dim CS_tbname As String '帐号所要查询的表名
Dim CS_zh As String '帐号
Dim t_zhpdFT As Boolean
'**************************************************************************************************
'* 功 能 : 给帐号判断赋返回值
'* 作 成 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Get ZHPD_FT() As Boolean
ZHPD_FT = t_zhpdFT
End Property
'**************************************************************************************************
'* 功 能 : 给帐号判断的返回值赋初值
'* 作 成 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Public Property Let ZHPD_FT(temp_ft As Boolean)
t_zhpdFT = temp_ft
End Property
'**************************************************************************************************
'* 功 能 :
'* 作 成 者 : 梁卫
'* 作成日期 : 1999.03.15
'* 修改日期 : 1999.03.15
'**************************************************************************************************
Sub MAIN(temp_data As Database, temp_gwdm As String, temp_gwzw As String, temp_tzysk As String, temp_sk As String, temp_td As String, temp_tbname As String, temp_zh As String)
Set PUB_data = temp_data
SYS_GWDM = temp_gwdm
SYS_GW_ZW = temp_gwzw
SYS_TZYSK = temp_tzysk
SYS_SK = temp_sk
SYS_TD = temp_td
CS_tbname = Trim(temp_tbname)
CS_zh = Trim(temp_zh)
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 成 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub cmd_ok_Click(Index As Integer)
Select Case Index
Case 0 '按"确定"键
t_zhpdFT = True
Case 1 '按"退出"键
t_zhpdFT = False
End Select
Unload Me
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 成 者 : 梁卫
'* 作成日期 : 1999.03.19
'* 修改日期 : 1999.03.19
'**************************************************************************************************
Private Sub Form_Activate()
cmd_ok(0).SetFocus
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 成 者 : 梁卫
'* 作成日期 : 1999.03.16
'* 修改日期 : 1999.03.16
'**************************************************************************************************
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
frm_msg.Caption = ""
frm_msg.Visible = False
If KeyCode = vbKeyEscape Then
t_zhpdFT = False
Unload Me
End If
End Sub
'**************************************************************************************************
'* 功 能 :
'* 作 成 者 : 梁卫
'* 作成日期 : 1999.02.25
'* 修改日期 : 1999.02.25
'**************************************************************************************************
Private Sub Form_Load()
Dim temp_zhsw As String
frm_msg.Visible = False
frm_msg.Caption = ""
temp_zhsw = Left(CS_zh, 1)
fm_sk.Visible = False
fm_td.Visible = False
fm_dw.Visible = False
Set t_rec = PUB_data.OpenRecordset("SELECT * FROM " & CS_tbname & " WHERE ZH='" & Trim(CS_zh) & "'", 4, 0, 2)
If Not t_rec.BOF Then
t_rec.MoveLast
End If
If InStr(SYS_SK, temp_zhsw) Then
lb_title.Caption = "确认住客帐号"
If SYS_GWDM <> SYS_GW_ZW Then
If t_rec.Fields("MFZC_FT") Then
frm_msg.Visible = True
frm_msg.Caption = "该客人可以签单 ..."
Else
frm_msg.Visible = True
frm_msg.Caption = "前台没有允许该客人签单消费 ..."
End If
End If
ElseIf InStr(SYS_TZYSK, temp_zhsw) Then
lb_title.Caption = "确认特种应收款帐号"
ElseIf InStr(SYS_TD, temp_zhsw) Then
lb_title.Caption = "确认团队帐号"
Else
lb_title.Caption = "确认单位帐号"
End If
If InStr(SYS_SK, temp_zhsw) Or InStr(SYS_TZYSK, temp_zhsw) Then
fm_sk.Visible = True
lb_zh_sk.Caption = Trim(t_rec.Fields("ZH"))
lb_ye_sk.Caption = Format(t_rec.Fields("YE"), "#,##0.00")
lb_kr_x_sk.Caption = Trim(t_rec.Fields("KR_X"))
lb_kr_m_sk.Caption = Trim(t_rec.Fields("KR_M"))
lb_gjmc_sk.Caption = Trim(t_rec.Fields("GJMC"))
lb_kr_zjhm_sk.Caption = Trim(t_rec.Fields("KR_ZJHM"))
lb_kr_dj_sk.Caption = Format(t_rec.Fields("KR_DJ"), "#,##0.00")
lb_zxfe_sk.Caption = Format(t_rec.Fields("ZXFE"), "#,##0.00")
ElseIf InStr(SYS_TD, temp_zhsw) Then
fm_td.Visible = True
lb_zh_td.Caption = Trim(t_rec.Fields("ZH"))
lb_ye_td.Caption = Format(t_rec.Fields("YE"), "#,##0.00")
lb_mc_td.Caption = Trim(t_rec.Fields("TDMC"))
lb_kr_dj_td.Caption = Format(t_rec.Fields("KR_DJ"), "#,##0.00")
lb_zxfe_td.Caption = Format(t_rec.Fields("ZXFE"), "#,##0.00")
Else
fm_dw.Visible = True
lb_zh_dw.Caption = Trim(t_rec.Fields("ZH"))
lb_ye_dw.Caption = Format(t_rec.Fields("YE"), "#,##0.00")
lb_mc_dw.Caption = Trim(t_rec.Fields("DWMC"))
lb_kr_dj_dw.Caption = Format(t_rec.Fields("KR_DJ"), "#,##0.00")
lb_zxfe_dw.Caption = Format(t_rec.Fields("ZXFE"), "#,##0.00")
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -