📄 frm_用户信息.frm
字号:
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 CSCommand.Command CmdEsc
Height = 375
Left = 7740
TabIndex = 10
Top = 2160
Width = 1005
_ExtentX = 1773
_ExtentY = 661
IconAlign = 0
Icon = "frm_用户信息.frx":2897
Caption = "取消(&E)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin EditGridCtrlLib.EnumEditBox cmbDian
Height = 340
Left = 4800
TabIndex = 4
Top = 840
Width = 1695
_ExtentX = 2990
_ExtentY = 609
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
BackColor = -2147483643
FlatStyle = -2
End
Begin CSCommand.Command CmdFind
Height = 375
Left = 5730
TabIndex = 28
Top = 2160
Width = 1005
_ExtentX = 1773
_ExtentY = 661
IconAlign = 0
Icon = "frm_用户信息.frx":28B3
Caption = "查找(&F)"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "欠费月份"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6840
TabIndex = 30
Top = 435
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "地 址"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 6
Left = 6840
TabIndex = 27
Top = 1380
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "联系电话"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 5
Left = 480
TabIndex = 26
Top = 1335
Width = 840
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "家庭人口"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3720
TabIndex = 25
Top = 1395
Width = 840
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户姓名"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 3720
TabIndex = 18
Top = 420
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "用户编号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 0
Left = 480
TabIndex = 17
Top = 420
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "说 明"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 1
Left = 480
TabIndex = 16
Top = 1785
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "电费单价"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 3
Left = 3720
TabIndex = 15
Top = 885
Width = 840
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "欠费金额"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 6840
TabIndex = 14
Top = 905
Width = 840
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "水费单价"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Index = 7
Left = 480
TabIndex = 13
Top = 885
Width = 840
End
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
'窗体对象数据
'------------------------------------------
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
Label6.left = (Me.width - Label6.width) / 2
End Sub
Private Sub CmdAdd_Click()
Dim rsOp As New ADODB.Recordset
Me.tag = "add"
Start True
With rsOp
If .State = adStateOpen Then .Close
.Open "select max(用户编号) as maxno from 用户信息", strcnn, adOpenStatic
If Not .BOF And Not .EOF Then
txtid.Text = Format(Val(Trim(.Fields("maxno"))) + 1, "0000")
.Close
End If
End With
End Sub
Private Sub CmdEsc_Click()
Start False
Me.tag = "find"
End Sub
Private Sub Cmdexit_Click()
Unload Me
End Sub
Private Sub CmdFind_Click()
Dim username As String
Dim rsOp As New ADODB.Recordset
username = InputBox("请输入用户姓名", "系统提示")
'If Len(Trim(username)) < 1 Then
' MsgBox "用户姓名录入不正确", , "系统提示"
' Exit Sub
'Else
With AdoUser.Recordset
.Filter = ""
If Trim(username) <> "" Then
.Filter = "姓名 like '" & Trim(username) & "%'"
If .BOF Or .EOF Then .Filter = ""
End If
End With
'End If
Me.tag = "find"
End Sub
Private Sub CmdModi_Click()
Dim rsOp As New ADODB.Recordset
Dim userid As String
Me.tag = "modi"
Start True
With grdMain
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -