📄 申告登记.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form Frmsgdj
BorderStyle = 1 'Fixed Single
Caption = "用户申告登记"
ClientHeight = 6105
ClientLeft = 45
ClientTop = 330
ClientWidth = 8970
Icon = "申告登记.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 6105
ScaleWidth = 8970
Begin VB.Frame Frame3
Caption = "申告内容"
Height = 3735
Left = 0
TabIndex = 2
Top = 2280
Width = 8895
Begin VB.CheckBox Chkbj
Caption = "开发部信息卡标记"
Height = 255
Left = 5400
TabIndex = 34
Top = 2520
Width = 1815
End
Begin VB.CommandButton Cmdexit
Caption = "退出"
Height = 375
Left = 7680
TabIndex = 32
Top = 3120
Width = 975
End
Begin VB.CommandButton Cmdadd
Caption = "登记"
Height = 375
Left = 7680
TabIndex = 31
Top = 2520
Width = 975
End
Begin VB.ComboBox Comboclr
Height = 300
Left = 5400
Style = 2 'Dropdown List
TabIndex = 30
Top = 3240
Width = 1935
End
Begin VB.TextBox Txtfwk
Height = 270
Left = 5400
TabIndex = 29
Top = 2880
Width = 1935
End
Begin VB.ComboBox Combojg
Height = 300
Left = 5400
Style = 2 'Dropdown List
TabIndex = 28
Top = 2160
Width = 1935
End
Begin MSComCtl2.DTPicker DTPickcl
Height = 255
Left = 5280
TabIndex = 27
Top = 240
Width = 1935
_ExtentX = 3413
_ExtentY = 450
_Version = 393216
CalendarTitleBackColor= 16744576
Format = 23658497
CurrentDate = 38348
End
Begin MSComCtl2.DTPicker DTPicksg
Height = 255
Left = 1080
TabIndex = 26
Top = 240
Width = 1935
_ExtentX = 3413
_ExtentY = 450
_Version = 393216
CalendarTitleBackColor= 16744576
Format = 23658497
CurrentDate = 38348
End
Begin VB.TextBox Txtclff
Height = 1215
Left = 5280
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 25
Top = 720
Width = 3375
End
Begin VB.TextBox Txtsgnr
Height = 2895
Left = 1080
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 24
Top = 720
Width = 3135
End
Begin VB.Label Label14
Caption = "处理时间"
Height = 375
Left = 4320
TabIndex = 23
Top = 240
Width = 735
End
Begin VB.Label Label13
Caption = "处理人"
Height = 255
Left = 4320
TabIndex = 22
Top = 3240
Width = 735
End
Begin VB.Label Label12
Caption = "处理结果"
Height = 255
Left = 4320
TabIndex = 21
Top = 2280
Width = 855
End
Begin VB.Label Label11
Caption = "服务\信息卡"
Height = 255
Left = 4320
TabIndex = 20
Top = 2880
Width = 1095
End
Begin VB.Label Label10
Caption = "处理方法"
Height = 375
Left = 4320
TabIndex = 19
Top = 720
Width = 975
End
Begin VB.Label Label9
Caption = "申告时间"
Height = 375
Left = 240
TabIndex = 18
Top = 240
Width = 975
End
Begin VB.Label Label8
Caption = "申告内容"
Height = 375
Left = 240
TabIndex = 17
Top = 720
Width = 975
End
End
Begin VB.Frame Frame2
Caption = "联系人"
Height = 2175
Left = 3240
TabIndex = 1
Top = 0
Width = 5655
Begin VB.CommandButton Command1
Caption = "清空局方信息及联系人信息"
Height = 255
Left = 2880
TabIndex = 33
Top = 240
Width = 2655
End
Begin VB.TextBox Txtdz
Height = 375
Left = 1320
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 16
Top = 1680
Width = 4215
End
Begin VB.TextBox Txtyb
Height = 270
Left = 1320
TabIndex = 15
Top = 1320
Width = 2175
End
Begin VB.TextBox Txtdhb
Height = 270
Left = 1320
TabIndex = 14
Top = 960
Width = 4215
End
Begin VB.TextBox Txtdha
Height = 270
Left = 1320
TabIndex = 13
Top = 600
Width = 4215
End
Begin VB.ComboBox Combolxr
Height = 300
Left = 1320
TabIndex = 12
Top = 240
Width = 1455
End
Begin VB.Label Label7
Caption = "通讯地址"
Height = 255
Left = 120
TabIndex = 11
Top = 1680
Width = 975
End
Begin VB.Label Label6
Caption = "邮政编码"
Height = 255
Left = 120
TabIndex = 10
Top = 1320
Width = 855
End
Begin VB.Label Label5
Caption = "联系电话B"
Height = 255
Left = 120
TabIndex = 9
Top = 960
Width = 975
End
Begin VB.Label Label4
Caption = "联系电话A"
Height = 255
Left = 120
TabIndex = 8
Top = 600
Width = 975
End
Begin VB.Label Label3
Caption = "联系人"
Height = 255
Left = 120
TabIndex = 7
Top = 240
Width = 975
End
End
Begin VB.Frame Frame1
Caption = "局方信息"
Height = 2175
Left = 0
TabIndex = 0
Top = 0
Width = 3135
Begin VB.ComboBox Combojm
Height = 300
Left = 1080
TabIndex = 6
Top = 1320
Width = 1935
End
Begin VB.ComboBox Combosm
Height = 300
Left = 1080
TabIndex = 5
Top = 240
Width = 1935
End
Begin VB.Label Label2
Caption = "用户局名"
Height = 375
Left = 120
TabIndex = 4
Top = 1320
Width = 735
End
Begin VB.Label Label1
Caption = "用户省名"
Height = 375
Left = 120
TabIndex = 3
Top = 240
Width = 855
End
End
End
Attribute VB_Name = "Frmsgdj"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cmdadd_Click()
On Error GoTo err
Dim idjm As Integer
Dim sm, jm As String
Dim idlxr As Integer
Dim lxr, dha, dhb, yb, dz As String
Dim sgnr, clff, fwbh, cljg, clr, sgsj, clsj As String
'检查数据完成性
If Combosm.Text = "" Then
MsgBox "用户省名不能为空！", vbInformation, "信息"
Combosm.SetFocus
Exit Sub
End If
If Combojm.Text = "" Then
MsgBox "用户局名不能为空！", vbInformation, "信息"
Combojm.SetFocus
Exit Sub
End If
If Combojg.Text = "" Then
MsgBox "处理结果不能为空！", vbInformation, "信息"
Combojg.SetFocus
Exit Sub
End If
If Comboclr.Text = "" Then
MsgBox "处理人不能为空！", vbInformation, "信息"
Comboclr.SetFocus
Exit Sub
End If
If Txtsgnr.Text = "" Then
MsgBox "申告内容不能为空！", vbInformation, "信息"
Txtsgnr.SetFocus
Exit Sub
End If
If Len(Trim(Txtdha.Text)) > 20 Then
MsgBox "电话A内容超过20位", vbExclamation, "错误提示"
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -