📄 frmqyxx.frm
字号:
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 2640
TabIndex = 16
Top = 120
Width = 4335
End
Begin VB.Shape Shape1
BorderWidth = 2
Height = 2655
Left = 480
Top = 480
Width = 7335
End
Begin VB.Label Label2
BorderStyle = 1 'Fixed Single
Caption = "主管单位"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 720
TabIndex = 14
Top = 1560
Width = 1815
End
Begin VB.Label Label1
BorderStyle = 1 'Fixed Single
Caption = "全矿总人数"
BeginProperty Font
Name = "宋体"
Size = 15
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Left = 4800
TabIndex = 12
Top = 2580
Width = 1815
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "E-Mial:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 4
Left = 720
TabIndex = 8
Top = 2580
Width = 1815
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "联系电话:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 3
Left = 4080
TabIndex = 6
Top = 2085
Width = 1455
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "邮政编码:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 2
Left = 720
TabIndex = 4
Top = 2085
Width = 1815
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "企业地址:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 1
Left = 720
TabIndex = 2
Top = 1005
Width = 1815
End
Begin VB.Label lblLabels
BorderStyle = 1 'Fixed Single
Caption = "企业全名:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 420
Index = 0
Left = 720
TabIndex = 0
Top = 540
Width = 1815
End
End
Attribute VB_Name = "frmqyxx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'CODE Manger By BcodeXRose
'##################################################################
'## 过程名称：cmdAdd_Click
'## 参数： 无
'##################################################################
Private Sub cmdAdd_Click()
Adodc1.Recordset.AddNew
End Sub
'##################################################################
'## 过程名称：cmdDelete_Click
'## 参数： 无
'##################################################################
Private Sub cmdDelete_Click()
'如果删除记录集的最后一条记录
'记录或记录集中唯一的记录
Adodc1.Recordset.delete
Adodc1.Recordset.MoveNext
End Sub
'##################################################################
'## 过程名称：cmdRefresh_Click
'## 参数： 无
'##################################################################
Private Sub cmdRefresh_Click()
'这仅对多用户应用程序才是需要的
Adodc1.refresh
End Sub
'##################################################################
'## 过程名称：cmdUpdate_Click
'## 参数： 无
'##################################################################
Private Sub cmdUpdate_Click()
Adodc1.Recordset.UpdateBatch
'Adodc1.Recordset.Bookmark = Adodc1.Recordset.LastModified
'Form7.Show
End Sub
'##################################################################
'## 过程名称：cmdClose_Click
'## 参数： 无
'##################################################################
Private Sub cmdClose_Click()
Unload Me
End Sub
'##################################################################
'## 过程名称：ADODC1_Reposition
'## 参数： 无
'##################################################################
Private Sub ADODC1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'这将显示当前记录位置
'为动态集和快照
Adodc1.Caption = "记录：" & (data1.Recordset.AbsolutePosition + 1)
'对于 Table 对象，当记录集创建后并使用下面的行时，
'必须设置 Index 属性
'Data1.Caption = "记录：" & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
'##################################################################
'## 过程名称：ADODC1_Validate
'## 参数：Action 为Integer型
'## 参数：Save 为Integer型
'##################################################################
Private Sub ADODC1_Validate(Action As Integer, Save As Integer)
'这是放置验证代码的地方
'当下面的动作发生时，调用这个事件
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
''Screen.MousePointer = vbHourglass
End Sub
'##################################################################
'## 过程名称：Form_Load
'## 参数： 无
'##################################################################
Private Sub Form_Load()
Adodc1.refresh
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.AddNew
End If
End Sub
'##################################################################
'## 过程名称：Form_Unload
'## 参数：Cancel 为Integer型
'##################################################################
Private Sub Form_Unload(Cancel As Integer)
mainfrm.Picture1.Visible = True
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -