📄 dt_yddq.frm
字号:
AutoSize = -1 'True
Caption = "预达时间:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3120
TabIndex = 34
Top = 2160
Width = 945
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "预离日期:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6120
TabIndex = 33
Top = 2160
Width = 945
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "订房单位:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 32
Top = 2880
Width = 945
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "订房方式:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6120
TabIndex = 31
Top = 2880
Width = 945
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "联系人:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 30
Top = 3600
Width = 735
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "联系电话:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3120
TabIndex = 29
Top = 3600
Width = 945
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "预交订金:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6120
TabIndex = 28
Top = 3600
Width = 945
End
Begin VB.Label Label15
AutoSize = -1 'True
Caption = "付款帐号:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 27
Top = 4320
Width = 945
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "如何来:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6120
TabIndex = 26
Top = 1440
Width = 735
End
Begin VB.Label Label17
AutoSize = -1 'True
Caption = "接待单位:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 25
Top = 5040
Width = 945
End
Begin VB.Label Label18
AutoSize = -1 'True
Caption = "特殊服务:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6120
TabIndex = 24
Top = 5040
Width = 945
End
Begin VB.Label Label19
AutoSize = -1 'True
Caption = "备注:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 23
Top = 5970
Width = 525
End
End
Begin VB.Label Label21
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 = 300
Left = 270
TabIndex = 43
Top = 660
Width = 945
End
Begin VB.Label Label20
Alignment = 2 'Center
Caption = "预 订 单 确 认"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 1350
TabIndex = 42
Top = 150
Width = 6795
End
End
Attribute VB_Name = "dt_yddq"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim CS_qz As String '预订单前缀
Dim yddk_yddh As String
Private Sub tPkjEnabled()
m_kr_mc.Enabled = False
m_gjdm.Enabled = False
m_gjmc.Enabled = False
m_rs.Enabled = False
m_df_js.Enabled = False
m_rzrq.Enabled = False
m_ydsj.Enabled = False
m_ldrq.Enabled = False
m_chcl.Enabled = False
m_rhl.Enabled = False
m_khdm.Enabled = False
m_ywdw_mc.Enabled = False
m_dffs.Enabled = False
m_dfr_name.Enabled = False
m_lxdh.Enabled = False
m_kr_dj.Enabled = False
m_fk_zh.Enabled = False
cm_fkdw.Enabled = False
m_dfy_dm.Enabled = False
m_bdjddw_mc.Enabled = False
m_tsfw.Enabled = False
m_bz.Enabled = False
End Sub
Private Sub tPkjTextSet(temp_rec As Variant, temp_bszt As Integer)
Select Case temp_bszt
Case 0 '清空
m_kr_mc.Text = ""
m_gjdm.Text = ""
m_gjmc.Text = ""
m_rs.Text = ""
m_df_js.Text = ""
m_rzrq.Text = "____-__-__"
m_ydsj.Text = "__:__:__"
m_ldrq.Text = "____-__-__"
m_chcl.Text = ""
m_rhl.Text = ""
m_khdm.Text = ""
m_ywdw_mc.Text = ""
m_dffs.Text = ""
m_dfr_name.Text = ""
m_lxdh.Text = ""
m_kr_dj.Text = ""
m_fk_zh.Text = ""
cm_fkdw.Text = ""
m_dfy_dm.Text = ""
m_bdjddw_mc.Text = ""
m_tsfw.Text = ""
m_bz.Text = ""
Case 1 '按记录集赋值
With temp_rec
m_kr_mc.Text = IIf(IsNull(.Fields("KR_MC")), "*", Trim(.Fields("KR_MC")))
m_gjdm.Text = IIf(IsNull(.Fields("GJDM")), "*", Trim(.Fields("GJDM")))
m_gjmc.Text = IIf(IsNull(.Fields("GJMC")), "*", Trim(.Fields("GJMC")))
m_rs.Text = IIf(IsNull(.Fields("RS")), 0, .Fields("RS"))
m_df_js.Text = IIf(IsNull(.Fields("DF_JS")), 0, .Fields("DF_JS"))
m_rzrq.Text = .Fields("RZRQ")
m_ydsj.Text = IIf(IsNull(.Fields("YDSJ")), "__:__:__", .Fields("YDSJ"))
m_ldrq.Text = .Fields("LDRQ")
m_chcl.Text = IIf(IsNull(.Fields("CHCL")), "*", Trim(.Fields("CHCL")))
m_rhl.Text = IIf(IsNull(.Fields("RHL")), "*", Trim(.Fields("RHL")))
m_khdm.Text = IIf(IsNull(.Fields("KHDM")), "*", Trim(.Fields("KHDM")))
m_ywdw_mc.Text = IIf(IsNull(.Fields("YWDW_MC")), "*", Trim(.Fields("YWDW_MC")))
m_dffs.Text = IIf(IsNull(.Fields("DF_FS")), "*", Trim(.Fields("DF_FS")))
m_dfr_name.Text = IIf(IsNull(.Fields("DFR_NAME")), "*", Trim(.Fields("DFR_NAME")))
m_lxdh.Text = IIf(IsNull(.Fields("LXDH")), "*", Trim(.Fields("LXDH")))
m_kr_dj.Text = IIf(IsNull(.Fields("KR_DJ")), 0, .Fields("KR_DJ"))
m_fk_zh.Text = IIf(IsNull(.Fields("FKZH")), "*", Trim(.Fields("FKZH")))
cm_fkdw.Text = IIf(IsNull(.Fields("FKDW")), "*", Trim(.Fields("FKDW")))
m_dfy_dm.Text = IIf(IsNull(.Fields("DFY_DM")), "*", Trim(.Fields("DFY_DM")))
m_bdjddw_mc.Text = IIf(IsNull(.Fields("BDJDDW_MC")), "*", Trim(.Fields("BDJDDW_MC")))
m_tsfw.Text = IIf(IsNull(.Fields("TSFW")), "*", Trim(.Fields("TSFW")))
m_bz.Text = IIf(IsNull(.Fields("BZ")), "*", Trim(.Fields("BZ")))
End With
End Select
End Sub
Private Sub cmd_ok_Click(Index As Integer)
Select Case Index
Case 0
yddk_yddh = Trim(m_ydd_h.Text)
Case 1
yddk_yddh = ""
End Select
Unload Me
End Sub
Private Sub Form_Activate()
m_ydd_h.SetFocus
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Call cmd_ok_Click(1)
End If
End Sub
Private Sub Form_Load()
dt_yddq.KeyPreview = True
m_ydd_h.Text = CS_qz & yddk_yddh
Call tPkjEnabled
Call tPkjTextSet("", 0)
End Sub
Sub MAIN(temp_qz As String)
CS_qz = Trim(temp_qz)
End Sub
Public Property Get YDD_H() As String
YDD_H = yddk_yddh
End Property
Public Property Let YDD_H(ByVal temp_yddh As String)
yddk_yddh = temp_yddh
End Property
Private Sub m_ydd_h_GotFocus()
If Trim(m_ydd_h.Text) = "" Then
m_ydd_h.Text = CS_qz
End If
m_ydd_h.SelStart = Len(CS_qz) + 1
m_ydd_h.SelLength = Len(Trim(m_ydd_h.Text)) - Len(Trim(CS_qz))
End Sub
Private Sub m_ydd_h_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
Cmd_OK(0).SetFocus
End If
End Sub
Private Sub m_ydd_h_LostFocus()
Dim yddk_rec As Recordset
Dim temp_ft As Boolean
temp_ft = False
Set yddk_rec = PUB_data.OpenRecordset("SELECT * FROM YD_YDDK WHERE TRIM(YDD_H)='" & Trim(m_ydd_h.Text) & "'", 4, 0, 2)
If Not yddk_rec.BOF Then
yddk_rec.MoveLast
Call tPkjTextSet(yddk_rec, 1)
Cmd_OK(0).SetFocus
temp_ft = True
End If
yddk_rec.Close
If Not temp_ft Then
Call cmd_ok_Click(1)
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -