📄 frmuserclose.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{788A625E-3B1F-4033-A5F8-E30D17B1FF43}#8.0#0"; "DecEdBox.ocx"
Begin VB.Form frmUserClose
BorderStyle = 1 'Fixed Single
Caption = "用户消户"
ClientHeight = 6585
ClientLeft = 45
ClientTop = 330
ClientWidth = 10440
Icon = "frmUserClose.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 6585
ScaleWidth = 10440
Begin VB.TextBox txtDestroyOgName
Enabled = 0 'False
Height = 330
Left = 8295
MaxLength = 5
TabIndex = 58
Text = "Text1"
Top = 75
Width = 1545
End
Begin VB.Frame Frame1
Caption = "消户原因"
ForeColor = &H00800000&
Height = 1110
Left = 120
TabIndex = 54
Top = 4695
Width = 10215
Begin RichTextLib.RichTextBox rtbDestroyNote
Height = 780
Left = 75
TabIndex = 1
Top = 240
Width = 10065
_ExtentX = 17754
_ExtentY = 1376
_Version = 393217
Enabled = -1 'True
ScrollBars = 3
MaxLength = 200
TextRTF = $"frmUserClose.frx":0442
End
End
Begin VB.TextBox txtUID
Height = 330
Left = 1245
MaxLength = 5
TabIndex = 0
Text = "Text1"
Top = 75
Width = 1575
End
Begin VB.PictureBox pbBottomBox
Height = 600
Left = 0
ScaleHeight = 540
ScaleWidth = 10380
TabIndex = 11
Top = 5985
Width = 10440
Begin VB.CommandButton cmdUserClose
Caption = "消户"
Height = 375
Left = 45
TabIndex = 2
Top = 90
Width = 1125
End
End
Begin VB.Frame Frame3
Caption = "用户信息"
ForeColor = &H8000000D&
Height = 3990
Left = 120
TabIndex = 5
Top = 585
Width = 10215
Begin VB.TextBox txtWmMakeAddr
Enabled = 0 'False
Height = 300
Left = 1275
MaxLength = 60
TabIndex = 53
Text = "Text1"
Top = 2625
Width = 4170
End
Begin VB.TextBox txtAddr
Enabled = 0 'False
Height = 300
Left = 6135
MaxLength = 60
TabIndex = 52
Text = "Text1"
Top = 735
Width = 3930
End
Begin VB.TextBox txtUName
Enabled = 0 'False
Height = 300
Left = 900
MaxLength = 60
TabIndex = 51
Text = "Text1"
Top = 735
Width = 3990
End
Begin VB.TextBox txtLinkAddr
Enabled = 0 'False
Height = 300
Left = 6135
MaxLength = 60
TabIndex = 50
Text = "Text1"
Top = 1095
Width = 3945
End
Begin VB.TextBox txtLinkPhone
Enabled = 0 'False
Height = 300
Left = 3150
MaxLength = 60
TabIndex = 49
Text = "Text1"
Top = 1095
Width = 1740
End
Begin VB.TextBox txtLinkMan
Enabled = 0 'False
Height = 300
Left = 900
MaxLength = 24
TabIndex = 48
Text = "Text1"
Top = 1095
Width = 1425
End
Begin VB.TextBox txtBankUserName
Enabled = 0 'False
Height = 300
Left = 6135
MaxLength = 60
TabIndex = 47
Text = "Text1"
Top = 1785
Width = 1905
End
Begin VB.TextBox txtAccount
Enabled = 0 'False
Height = 300
Left = 8505
MaxLength = 60
TabIndex = 46
Text = "Text1"
Top = 1785
Width = 1590
End
Begin VB.TextBox txtLeaderIdea
Enabled = 0 'False
Height = 300
Left = 5280
MaxLength = 60
TabIndex = 37
Text = "Text1"
Top = 3135
Width = 4815
End
Begin VB.TextBox txtNote
Enabled = 0 'False
Height = 300
Left = 885
MaxLength = 60
TabIndex = 35
Text = "Text1"
Top = 3555
Width = 9210
End
Begin VB.TextBox txtBankSubOrgan
Enabled = 0 'False
Height = 300
Left = 3210
TabIndex = 32
Text = "Text1"
Top = 1785
Width = 1695
End
Begin VB.TextBox txtMwm
Enabled = 0 'False
Height = 300
Left = 900
TabIndex = 31
Text = "Text1"
Top = 2265
Width = 2325
End
Begin VB.TextBox txtBank
Enabled = 0 'False
Height = 300
Left = 900
TabIndex = 30
Text = "Text1"
Top = 1785
Width = 1635
End
Begin VB.TextBox txtChargetType
Enabled = 0 'False
Height = 300
Left = 6135
TabIndex = 29
Text = "Text1"
Top = 1440
Width = 3945
End
Begin VB.TextBox txtUserType
Enabled = 0 'False
Height = 300
Left = 900
TabIndex = 28
Text = "Text1"
Top = 1440
Width = 3990
End
Begin VB.TextBox txtQ
Enabled = 0 'False
Height = 300
Left = 3825
TabIndex = 26
Text = "Text1"
Top = 255
Width = 2295
End
Begin VB.TextBox txtP
Enabled = 0 'False
Height = 300
Left = 900
TabIndex = 25
Text = "Text1"
Top = 270
Width = 2040
End
Begin VB.TextBox txtWMStartReadNumber
Enabled = 0 'False
Height = 300
Left = 6720
TabIndex = 4
Text = "Text1"
Top = 2625
Width = 1800
End
Begin VB.TextBox txtWMID
Enabled = 0 'False
Height = 300
Left = 4515
TabIndex = 3
Text = "Text1"
Top = 2265
Width = 1620
End
Begin DecEdBox.DecEditBox txtAddCharge
Height = 300
Left = 900
TabIndex = 36
Top = 3120
Width = 825
_ExtentX = 1455
_ExtentY = 529
End
Begin DecEdBox.DecEditBox txtAuditCharge
Height = 300
Left = 2775
TabIndex = 38
Top = 3120
Width = 825
_ExtentX = 1455
_ExtentY = 529
End
Begin DecEdBox.DecEditBox txtWmCaliber
Height = 300
Left = 7410
TabIndex = 45
Top = 2265
Width = 1095
_ExtentX = 1931
_ExtentY = 529
End
Begin VB.Label Label19
Caption = "增容费"
Height = 255
Left = 120
TabIndex = 44
Top = 3180
Width = 615
End
Begin VB.Label Label20
Caption = "领导审批意见"
Height = 255
Left = 4110
TabIndex = 43
Top = 3180
Width = 1170
End
Begin VB.Label Label21
Caption = "元"
Height = 255
Left = 1815
TabIndex = 42
Top = 3180
Width = 240
End
Begin VB.Label Label24
Caption = "元"
Height = 255
Left = 3690
TabIndex = 41
Top = 3180
Width = 240
End
Begin VB.Label Label25
Caption = "审批额"
Height = 255
Left = 2130
TabIndex = 40
Top = 3180
Width = 570
End
Begin VB.Label Label26
Caption = "备注"
Height = 255
Left = 120
TabIndex = 39
Top = 3585
Width = 375
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 11
X1 = 75
X2 = 10125
Y1 = 3015
Y2 = 3015
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 10
X1 = 75
X2 = 10110
Y1 = 3030
Y2 = 3030
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 7
X1 = 75
X2 = 10125
Y1 = 2175
Y2 = 2175
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 6
X1 = 75
X2 = 10110
Y1 = 2190
Y2 = 2190
End
Begin VB.Line Line1
BorderColor = &H80000003&
Index = 5
X1 = 90
X2 = 10140
Y1 = 660
Y2 = 660
End
Begin VB.Line Line1
BorderColor = &H80000005&
Index = 4
X1 = 90
X2 = 10125
Y1 = 675
Y2 = 675
End
Begin VB.Label Label18
Caption = "吨"
Height = 255
Index = 1
Left = 8595
TabIndex = 34
Top = 2685
Width = 330
End
Begin VB.Label Label23
Caption = "分理处"
Height = 255
Left = 2595
TabIndex = 33
Top = 1830
Width = 750
End
Begin VB.Label Label1
Caption = "所属片区"
Height = 255
Left = 135
TabIndex = 24
Top = 300
Width = 750
End
Begin VB.Label Label2
Caption = "所属小区"
Height = 255
Left = 3060
TabIndex = 23
Top = 315
Width = 780
End
Begin VB.Label Label8
Caption = "联系地址"
Height = 255
Left = 5370
TabIndex = 22
Top = 1140
Width = 750
End
Begin VB.Label Label7
Caption = "联系电话"
Height = 255
Left = 2400
TabIndex = 21
Top = 1155
Width = 795
End
Begin VB.Label Label6
Caption = "联系人"
Height = 255
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -