📄 frmbasic.frm
字号:
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 270
Index = 3
Left = 240
TabIndex = 24
Top = 1695
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "初 装 费:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 10
Left = 210
TabIndex = 23
Top = 2835
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "初装交费日期:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 11
Left = 5100
TabIndex = 22
Top = 2805
Width = 1560
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "工 本 费:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 12
Left = 210
TabIndex = 21
Top = 3420
Width = 1080
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "终端安装日期:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 13
Left = 5100
TabIndex = 20
Top = 3975
Width = 1560
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "开通起始日期:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 240
Index = 14
Left = 5100
TabIndex = 19
Top = 3390
Width = 1560
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "用户编号:"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00008000&
Height = 240
Index = 0
Left = 270
TabIndex = 18
Top = 450
Width = 1080
End
End
Begin VB.PictureBox picButtons
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 420
Left = 0
ScaleHeight = 420
ScaleWidth = 11850
TabIndex = 1
Top = 7005
Width = 11849
Begin VB.CommandButton cmdPrint
Caption = "打 印(&P)"
Height = 405
Left = 8460
TabIndex = 42
Top = 30
Width = 1125
End
Begin VB.CommandButton CmdLast
Caption = ">>|"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 11130
TabIndex = 11
ToolTipText = "尾记录"
Top = 0
Width = 495
End
Begin VB.CommandButton CmdNext
Caption = ">"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 10650
TabIndex = 10
ToolTipText = "下一个"
Top = 0
Width = 495
End
Begin VB.CommandButton CmdPrevious
Caption = "<"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 10170
TabIndex = 9
ToolTipText = "前一个"
Top = 0
Width = 495
End
Begin VB.CommandButton CmdFirst
Caption = "|<<"
Enabled = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 9690
TabIndex = 8
ToolTipText = "首记录"
Top = 0
Width = 495
End
Begin VB.CommandButton CmdFind
Caption = "查找(&F)"
CausesValidation= 0 'False
Height = 420
Left = 7200
TabIndex = 7
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&C)"
CausesValidation= 0 'False
Height = 420
Left = 5886
TabIndex = 6
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdRefresh
Caption = "清空(&R)"
Enabled = 0 'False
Height = 420
Left = 4572
TabIndex = 5
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Enabled = 0 'False
Height = 420
Left = 3258
TabIndex = 4
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdUpdate
Caption = "修改(&U)"
Enabled = 0 'False
Height = 420
Left = 1944
TabIndex = 3
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 420
Left = 630
TabIndex = 2
Top = 0
Width = 1095
End
End
Begin MSAdodcLib.Adodc datPrimaryRS
Height = 330
Left = 0
Top = 0
Visible = 0 'False
Width = 2280
_ExtentX = 4022
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 2
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "datPrimaryRS"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Label lblTitle
Alignment = 2 'Center
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户基本信息登记"
BeginProperty Font
Name = "黑体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 435
Left = 3660
TabIndex = 27
Top = 165
Width = 3600
End
End
Attribute VB_Name = "frmBasic"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim adoPrimaryRS As ADODB.Recordset
Attribute adoPrimaryRS.VB_VarHelpID = -1
Private sTableHead As sTableTitle '表头的全局变量
'--获取打印信息
Private Sub GetPrintInfo()
Dim adoRs As New ADODB.Recordset
Dim sSQL As String
sSQL = "SELECT * FROM 打印表头 WHERE 编号='3'"
adoRs.Open sSQL, CN, adOpenStatic, adLockReadOnly, adCmdText
If Not adoRs.EOF Then
sTableHead.sTitle = Format(adoRs![表头])
sTableHead.sDept = Format(adoRs![收费单位])
sTableHead.sInfo = Format(adoRs![服务信息])
sTableHead.sOther = Format(adoRs![其他])
Else
sTableHead.sTitle = "沈空电视台电视服务安装收据"
sTableHead.sDept = "沈空电视台"
sTableHead.sInfo = ""
sTableHead.sOther = ""
End If
adoRs.Close
End Sub
'--打印收据
Private Sub PrintReceipt()
Dim sItem(15) As tItem
Dim sTel As String
sItem(0).row = 0
sItem(0).col = 0
sItem(0).item = sTableHead.sTitle
sItem(1).row = 1
sItem(1).col = 1
sItem(1).item = "日期:" & Format(dtpOrgDate.Value, "YYYY年MM月DD日")
sItem(2).row = 2
sItem(2).col = 1
sItem(2).item = "用户编号: " & txtID.Text
sItem(3).row = 2
sItem(3).col = 2
sItem(3).item = "地址: " & txtAddr.Text
sItem(4).row = 3
sItem(4).col = 1
sItem(4).item = "姓名: " & txtName.Text
sItem(5).row = 3
sItem(5).col = 2
sItem(5).item = "单位:" & txtPlace.Text
sItem(6).row = 3
sItem(6).col = 3
sItem(6).item = "用户类型: " & "个人"
sItem(7).row = 4
sItem(7).col = 1
sItem(7).item = "交费方式: " & "年"
sItem(8).row = 4
sItem(8).col = 2
sItem(8).item = "工本费: " & txtCostFee.Text & "元"
sItem(9).row = 4
sItem(9).col = 3
sItem(9).item = "初装费: " & txtOrgFee.Text & "元"
sItem(10).row = 5
sItem(10).col = 1
sItem(10).item = "初装交费日期: " & Format(dtpOrgDate.Value, "YYYY年MM月DD日")
sItem(11).row = 5
sItem(11).col = 2
sItem(11).item = "开通起始日期: " & Format(dtpGetDate.Value, "YYYY年MM月DD日")
sItem(12).row = 6
sItem(12).col = 1
sItem(12).item = "终端安装日期: " & Format(dtpFixDate.Value, "YYYY年MM月DD日")
If Trim(txtTelephone.Text) = "无信息" Then
sTel = ""
Else
sTel = Trim(txtTelephone.Text)
End If
sItem(13).row = 6
sItem(13).col = 2
sItem(13).item = "电话:" & sTel
sItem(14).row = 7
sItem(14).col = 1
sItem(14).item = "操作员: " & lblOperator.Caption
sItem(15).row = 7
sItem(15).col = 2
sItem(15).item = "收费单位: " & sTableHead.sDept
PrintTable "print1.dot", 16, sItem
End Sub
'--显示datPrimaryRS的当前记录
Private Sub GetRecInfo()
With datPrimaryRS.Recordset
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -