📄 frmshoufeilogin.frm
字号:
VERSION 5.00
Begin VB.Form frmShoufeiLogin
BackColor = &H00C0FFFF&
BorderStyle = 3 'Fixed Dialog
Caption = "收费登记"
ClientHeight = 7605
ClientLeft = 45
ClientTop = 435
ClientWidth = 12360
Icon = "frmShoufeiLogin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7605
ScaleWidth = 12360
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.PictureBox Picture1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 6855
Left = 0
Picture = "frmShoufeiLogin.frx":014A
ScaleHeight = 6855
ScaleWidth = 12375
TabIndex = 3
Top = 0
Width = 12375
Begin VB.TextBox txtmoney
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Index = 0
Left = 2040
TabIndex = 13
Top = 1200
Width = 1935
End
Begin VB.TextBox txtjkr
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 9720
TabIndex = 12
Top = 6480
Width = 1215
End
Begin VB.TextBox txtmoney
BorderStyle = 0 'None
Height = 270
Index = 1
Left = 8520
TabIndex = 11
Top = 2640
Width = 1695
End
Begin VB.TextBox txtmoney
BorderStyle = 0 'None
Height = 270
Index = 2
Left = 8520
TabIndex = 10
Top = 3120
Width = 1695
End
Begin VB.TextBox txtmoney
BorderStyle = 0 'None
Height = 270
Index = 3
Left = 8520
TabIndex = 9
Top = 3600
Width = 1695
End
Begin VB.TextBox txtmoney
BorderStyle = 0 'None
Height = 270
Index = 4
Left = 8520
TabIndex = 8
Top = 4080
Width = 1695
End
Begin VB.TextBox txtmoney
BorderStyle = 0 'None
Height = 270
Index = 5
Left = 8520
TabIndex = 7
Top = 4560
Width = 1695
End
Begin VB.TextBox txtmoney
BorderStyle = 0 'None
Height = 270
Index = 6
Left = 8520
TabIndex = 6
Top = 5160
Width = 1695
End
Begin VB.TextBox txtmoney
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 7
Left = 9480
TabIndex = 5
Top = 5760
Width = 2295
End
Begin VB.TextBox txtskr
BorderStyle = 0 'None
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 390
Left = 6720
TabIndex = 4
Top = 6480
Width = 1095
End
Begin VB.Label Label1
BackColor = &H80000009&
Height = 255
Left = 6600
TabIndex = 18
Top = 1320
Width = 495
End
Begin VB.Label Label2
BackColor = &H80000009&
Height = 255
Left = 7560
TabIndex = 17
Top = 1320
Width = 255
End
Begin VB.Label Label3
BackColor = &H80000009&
Height = 255
Left = 8280
TabIndex = 16
Top = 1320
Width = 255
End
Begin VB.Label Label4
BackColor = &H80000009&
ForeColor = &H000000FF&
Height = 255
Left = 11520
TabIndex = 15
Top = 1320
Width = 615
End
Begin VB.Label Label5
BackColor = &H80000009&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 14
Top = 5640
Width = 6735
End
End
Begin VB.CommandButton cmdsave
Caption = "保 存"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 3360
TabIndex = 2
Top = 7080
Width = 1215
End
Begin VB.CommandButton cmdprint
Caption = "打 印"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 5520
TabIndex = 1
Top = 7080
Width = 1095
End
Begin VB.CommandButton cmdexit
Caption = "退 出"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 7680
TabIndex = 0
Top = 7080
Width = 1215
End
End
Attribute VB_Name = "frmShoufeiLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs_shoufei As New ADODB.Recordset
Private Sub cmdsave_Click()
Dim i As Integer
If Trim(txtmoney(0).Text) = "" Then
MsgBox "楼盘编号不能为空！", vbOKOnly + vbExclamation
txtmoney(0).SetFocus
Exit Sub
End If
Dim fee As Currency
fee = 0
For i = 1 To 6
fee = fee + CCur(txtmoney(i).Text)
Next i
txtmoney(7).Text = CStr(fee)
Label5.Caption = ChineseFormat(fee)
rs_shoufei.AddNew
rs_shoufei.Fields(0) = Label4
rs_shoufei.Fields(1) = txtmoney(0).Text
rs_shoufei.Fields(2) = Date
For i = 1 To 6
rs_shoufei.Fields(i + 2) = txtmoney(i).Text
Next i
rs_shoufei.Fields(9) = txtskr.Text
rs_shoufei.Fields(10) = txtjkr.Text
rs_shoufei.Update
MsgBox "保存成功！", vbOKOnly + vbExclamation
Exit Sub
End Sub
Private Sub cmdprint_Click()
Dim X%
X% = BitBlt(Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, _
Picture1.hDC, 0, 0, SRCCOPY)
Picture1.Picture = Picture1.Image
Printer.PaintPicture Picture1.Picture, 0, 0
End Sub
Private Sub cmdexit_Click()
rs_shoufei.Close
Unload Me
End Sub
Private Sub Form_Load()
Dim sql As String
Dim i As Integer
On Error GoTo loaderror
sql = "select * from 收费信息表"
rs_shoufei.CursorLocation = adUseClient
rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic
For i = 1 To 7
txtmoney(i).Text = "0.00"
Next i
i = rs_shoufei.RecordCount
Label1.Caption = Year(Date) 'Date取得当前系统日期
Label2.Caption = Month(Date) 'Month函数取得日期的月数部分
Label3.Caption = Day(Date)
Label4.Caption = Format(i + 1, "000000") '系统中现有记录条数加1
Exit Sub
loaderror:
MsgBox Err.Description
End Sub
Function ChineseFormat(n As Variant)
Dim s As String, sFormat As String
Dim i As Integer, c As String
Const sString = "分角元拾佰仟万拾佰仟亿拾佰仟万"
Const sNumber = "零壹贰叁肆伍陆柒捌玖"
s = Format(Int(n * 100))
sFormat = ""
For i = Len(s) To 1 Step -1
c = Mid(s, i, 1)
sFormat = Mid(sNumber, Val(c) _
+ 1, 1) + Mid(sString, Len(s) - i + 1, 1) _
+ sFormat
Next
ChineseFormat = sFormat
End Function
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -