📄 frm_交费登记.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "Mscomct2.ocx"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "Msadodc.OCX"
Object = "{FCD7ED96-3275-41C9-B835-C4C80DC30069}#16.12#0"; "EDITGRIDCTRLLIB.OCX"
Begin VB.Form frm_交费登记
BorderStyle = 3 'Fixed Dialog
Caption = "交费登记"
ClientHeight = 6000
ClientLeft = 4215
ClientTop = 5745
ClientWidth = 10425
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6000
ScaleWidth = 10425
ShowInTaskbar = 0 'False
Begin EditGridCtrlLib.EditGridCtrl grdmain
Height = 4815
Left = 120
TabIndex = 7
Tag = "STRETCHALL"
Top = 600
Width = 10215
_ExtentX = 18018
_ExtentY = 8493
BackColorSel = 13546157
ForeColorSel = -2147483633
ForeColorFixed = -2147483641
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Rows = 5
BeginProperty FontFixed {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
AllowUserResizing= 3
OverLocked = -1 'True
HotTracking = 0 'False
End
Begin MSAdodcLib.Adodc AdoOutMan
Height = 375
Left = 0
Top = 5520
Visible = 0 'False
Width = 2160
_ExtentX = 3810
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
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 = "转出人"
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 MSAdodcLib.Adodc AdoID
Height = 330
Left = 4560
Top = 5520
Visible = 0 'False
Width = 1455
_ExtentX = 2566
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
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 = "用户ID"
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 MSAdodcLib.Adodc Adoname
Height = 330
Left = 2280
Top = 5520
Visible = 0 'False
Width = 1935
_ExtentX = 3413
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
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 = "用户姓名"
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 MSComCtl2.DTPicker DtpOut
Height = 330
Left = 1260
TabIndex = 0
Top = 120
Width = 1575
_ExtentX = 2778
_ExtentY = 582
_Version = 393216
CustomFormat = "yyyy 年 MM月"
Format = 24903683
UpDown = -1 'True
CurrentDate = 38948
End
Begin VB.CommandButton CmdAdd
BackColor = &H00C0C0C0&
Caption = "[&A]登记"
Height = 360
Left = 6240
TabIndex = 1
Tag = "MOVEALL"
Top = 5520
Width = 960
End
Begin VB.CommandButton CmdSave
BackColor = &H00C0C0C0&
Caption = "[&S]保存"
Enabled = 0 'False
Height = 360
Left = 7200
TabIndex = 4
Tag = "MOVEALL"
Top = 5520
Width = 975
End
Begin VB.CommandButton CmdEsc
BackColor = &H00C0C0C0&
Caption = "[&E]取消"
Enabled = 0 'False
Height = 360
Left = 8175
TabIndex = 3
Tag = "MOVEALL"
Top = 5520
Width = 975
End
Begin VB.CommandButton CmdExit
BackColor = &H00C0C0C0&
Caption = "[&X]退出"
Height = 360
Left = 9120
TabIndex = 2
Tag = "MOVEALL"
Top = 5520
Width = 975
End
Begin VB.Label Label4
AutoSize = -1 'True
Height = 180
Left = 7440
TabIndex = 6
Top = 195
Width = 90
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "登记月份："
Height = 180
Left = 360
TabIndex = 5
Top = 195
Width = 900
End
End
Attribute VB_Name = "frm_交费登记"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strcnn As New ADODB.Connection
Public Depcode As String
Dim grdmainlns As Integer
Dim colname
Dim colwtd
Dim coltype
Dim collock
Dim StartLns As Integer
'窗体对象数据
'------------------------------------------
Dim frm_test_objects() As objectinfo
Dim frm_test_effectobjects() As Object
Private frm_test_noofobjects As Integer
Private frm_test_startwidth As Long
Private frm_test_startheight As Long
Private Sub Form_Resize()
'------------------------------------------
'YOU WILL NOTICE THAT THIS RESIZE FUNCTION
'IS SLIGHTLY MORE COMPLEX, THIS IS ONLY
'TO STOP THE APPLICATION FROM RESIZING
'OBJECTS BELOW THEIR BOUNDRIES. BASICALLY
'WHEN THE OBJECT IS WIDE ENOUGH, THE WIDTH
'IS EFFECTED, BUT WHEN ITS NOT, ITS IGNORED
'THE SAME GOES FOR THE HEIGHT.
If Me.WindowState <> 0 Then Exit Sub
If Me.width >= frm_test_startwidth And Me.height >= frm_test_startheight Then
Autosizeform frm_test_objects, frm_test_effectobjects, frm_test_startwidth, frm_test_startheight, frm_test_noofobjects, Me
ElseIf Me.width >= frm_test_startwidth And Me.height <= frm_test_startheight Then
Autosizeform frm_test_objects, frm_test_effectobjects, frm_test_startwidth, frm_test_startheight, frm_test_noofobjects, Me, , size_axis_x
ElseIf Me.height >= frm_test_startheight And Me.width <= frm_test_startwidth Then
Autosizeform frm_test_objects, frm_test_effectobjects, frm_test_startwidth, frm_test_startheight, frm_test_noofobjects, Me, , size_axis_y
End If
'------------------------------------------
' Text1.top = Me.height / Screen.TwipsPerPixelY - Text1.height
'Text1.left = Me.width - Text1.width
Me.WindowState = 2
Autosizeform frm_test_objects, frm_test_effectobjects, frm_test_startwidth, frm_test_startheight, frm_test_noofobjects, Me
End Sub
Private Sub CmdAdd_Click()
Dim rscp As New ADODB.Recordset
Dim i As Integer
If MsgBox("您现在是否登记:" & Format(DtpOut.Value, "yyyy年mm月") & "的电费? ", vbYesNo, "系统提示") = vbNo Then
Exit Sub
End If
AdoID.Refresh
If AdoID.Recordset.RecordCount = 0 Then
MsgBox "没有欠费用户,请先录入用电量", , "系统提示"
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -