📄 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 VB.CommandButton Command1
BackColor = &H00C0C0C0&
Caption = "[&P]打印"
Height = 360
Left = 6240
TabIndex = 8
Tag = "MOVEALL"
Top = 5520
Width = 960
End
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 = 2640
Top = 5520
Visible = 0 'False
Width = 2295
_ExtentX = 4048
_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 = 1800
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 = 61603843
UpDown = -1 'True
CurrentDate = 38948
End
Begin VB.CommandButton CmdAdd
BackColor = &H00C0C0C0&
Caption = "[&A]登记"
Height = 360
Left = 5280
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()
With AdoID
.ConnectionString = strcnn
.RecordSource = "select 姓名,用户编号,电费单价,水费单价,人口 ,selcol, 欠费登记 from f_sdfcount('" & Format(DtpOut.Value, "yymm") & "') where 欠费登记 <>0 and cast(本月电量 as float) =0 order by 用户编号"
.Refresh
End With
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -