📄 ct_ythqr.frm
字号:
VERSION 5.00
Begin VB.Form ct_ythqr
BorderStyle = 3 'Fixed Dialog
ClientHeight = 3255
ClientLeft = -15
ClientTop = -15
ClientWidth = 5700
ControlBox = 0 'False
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3255
ScaleWidth = 5700
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.Frame Frame3
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1815
Left = 60
TabIndex = 2
Top = 630
Width = 5535
Begin VB.Label Label4
Caption = "台 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 210
TabIndex = 14
Top = 390
Width = 855
End
Begin VB.Label lb_th
BorderStyle = 1 'Fixed Single
Caption = "台 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1140
TabIndex = 13
Top = 360
Width = 1665
End
Begin VB.Label Label6
Caption = "人 数"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 3030
TabIndex = 12
Top = 390
Width = 855
End
Begin VB.Label lb_rs
BorderStyle = 1 'Fixed Single
Caption = "台 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3960
TabIndex = 11
Top = 360
Width = 1365
End
Begin VB.Label Label8
Caption = "结算日期"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 210
TabIndex = 10
Top = 840
Width = 855
End
Begin VB.Label lb_jsrq
BorderStyle = 1 'Fixed Single
Caption = "1999-12-12"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1140
TabIndex = 9
Top = 810
Width = 1665
End
Begin VB.Label Label10
Caption = "结算时间"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 3030
TabIndex = 8
Top = 840
Width = 855
End
Begin VB.Label lb_jssj
BorderStyle = 1 'Fixed Single
Caption = "99:99:99"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3960
TabIndex = 7
Top = 810
Width = 1365
End
Begin VB.Label Label12
Caption = "帐 单 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 210
TabIndex = 6
Top = 1290
Width = 855
End
Begin VB.Label lb_zdh
BorderStyle = 1 'Fixed Single
Caption = "123456789012345"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1140
TabIndex = 5
Top = 1260
Width = 1665
End
Begin VB.Label Label14
Caption = "金 额"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 3030
TabIndex = 4
Top = 1290
Width = 855
End
Begin VB.Label lb_sjhj
Alignment = 1 'Right Justify
BorderStyle = 1 'Fixed Single
Caption = "123456789.12"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 3960
TabIndex = 3
Top = 1260
Width = 1365
End
End
Begin VB.CommandButton Cmd_OK
Caption = "否"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 1
Left = 3210
TabIndex = 1
Top = 2700
Width = 915
End
Begin VB.CommandButton Cmd_OK
Caption = "是"
BeginProperty Font
Name = "黑体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 0
Left = 1290
TabIndex = 0
Top = 2700
Width = 915
End
Begin VB.Label Label1
Alignment = 2 'Center
Caption = "确认是否是该台帐"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 90
TabIndex = 15
Top = 150
Width = 5475
End
End
Attribute VB_Name = "ct_ythqr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim CS_rt As Boolean '确定台帐的返回值
Dim ythqr_rec As Recordset
Sub MAIN(t_rec As Recordset)
Set ythqr_rec = t_rec
End Sub
Private Sub Cmd_OK_Click(Index As Integer)
If Index = 0 Then
CS_rt = True
Else
CS_rt = False
End If
End Sub
Public Property Get thqr_Rt() As Boolean
thqr_Rt = CS_rt
End Property
Public Property Let thqr_Rt(ByVal t_rt As Boolean)
CS_rt = t_rt
End Property
Private Sub Form_Load()
lb_th.Caption = Trim(ythqr_rec!TH)
lb_rs.Caption = ythqr_rec!RS
lb_jsrq.Caption = Format(ythqr_rec!JSRQ, "YYYY-MM-DD")
lb_jssj.Caption = Trim(ythqr_rec!JSSJ)
lb_zdh.Caption = Trim(ythqr_rec!ZDH)
lb_sjhj.Caption = Format(ythqr_rec!SJHJ, "#,##0.00")
Cmd_OK(0).SetFocus
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -