📄 frmabout.frm
字号:
VERSION 5.00
Begin VB.Form frmAbout
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 3 'Fixed Dialog
Caption = "系统信息"
ClientHeight = 3555
ClientLeft = 2340
ClientTop = 1935
ClientWidth = 5730
ClipControls = 0 'False
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2453.724
ScaleMode = 0 'User
ScaleWidth = 5380.766
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.PictureBox picIcon
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BorderStyle = 0 'None
ClipControls = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 1170
Left = 120
Picture = "frmAbout.frx":0000
ScaleHeight = 821.73
ScaleMode = 0 'User
ScaleWidth = 821.73
TabIndex = 1
Top = 120
Width = 1170
End
Begin VB.CommandButton cmdOK
Cancel = -1 'True
Caption = "确定"
Default = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 4365
TabIndex = 0
Top = 2625
Width = 1260
End
Begin VB.CommandButton cmdRegister
Caption = "注册"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 4380
TabIndex = 2
Top = 3075
Width = 1245
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "人事劳资管理系统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 2700
TabIndex = 7
Top = 840
Width = 2760
End
Begin VB.Line Line1
BorderColor = &H00808080&
BorderStyle = 6 'Inside Solid
Index = 1
X1 = 84.515
X2 = 5309.398
Y1 = 1687.583
Y2 = 1687.583
End
Begin VB.Label lblDescription
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "版权:陕西支点电子科技有限责任公司"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 195
Left = 1290
TabIndex = 3
Top = 1965
Width = 3480
End
Begin VB.Label lblTitle
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "长庆石油勘探局"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 315
Left = 1740
TabIndex = 5
Top = 360
Width = 2415
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 0
X1 = 98.6
X2 = 5309.398
Y1 = 1697.936
Y2 = 1697.936
End
Begin VB.Label lblVersion
AutoSize = -1 'True
BackColor = &H80000009&
Caption = "版本号:2.00"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 1320
TabIndex = 6
Top = 1560
Width = 1230
End
Begin VB.Label lblDisclaimer
BackColor = &H80000009&
Caption = "警告:本软件由陕西支点电子科技有限责任公司开发制作,受法律保护.未经本公司同意,任何团体和个人不得随意传播或使用,违者将负法律责任!"
ForeColor = &H00000000&
Height = 825
Left = 255
TabIndex = 4
Top = 2625
Width = 3870
End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_Reg As New FTACUTILLib.Register
Private Sub cmdRegister_Click()
' Dim i As Long
'
' m_Reg.AppPath = App.Path
' m_Reg.AppName = C_APP_NAME
' m_Reg.AppPublishDate = C_APP_PUBLISH_DATE
'
' 'm_Reg.UserName = RegGetString(HKEY_LOCAL_MACHINE, C_RegPath, "OrgName")
' i = m_Reg.Register
' If i = 0 Then
' frmRegister.Show
' ElseIf i <> 1 Then
' MsgBox "必须重新启动系统，才能注册！", vbInformation, "提示"
' Unload Me
' ElseIf i = 1 Then
' MsgBox "已经注册！", vbOKOnly, "提示"
' Exit Sub
' End If
End Sub
Private Sub cmdOK_Click()
MDIfrmMain.SSActiveToolBarsMain.Tools("ID_关于本系统...").Enabled = True
Unload Me
End Sub
Private Sub Form_Load()
' Me.Caption = "About " & App.Title
' lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
' lblTitle.Caption = App.Title
If G_iIsRegistered = 1 Then
cmdRegister.Enabled = False
End If
End Sub
'' 长庆石油勘探局自行用工统计表
'Public Function Getsp_bureau_self_emp() As Boolean
' Dim i As Long
' Dim i4Organ As Integer
' Dim int4organ_no As Integer
' Dim int4TempCount As Long
' Dim m_Command4Report As New ADODB.Command
' Dim m_Params4Report As ADODB.Parameters
' Dim m_oRs4Report As New ADODB.Recordset
'On Error GoTo Err:
' Getsp_bureau_self_emp = False
' With m_Command4Report
' Set .ActiveConnection = g_oConnection4This
' .CommandType = adCmdStoredProc
' Set m_Params4Report = .Parameters
' m_Params4Report.Append .CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue, 0)
' m_Params4Report.Append .CreateParameter("@Organ_no", adVarChar, adParamInput, 50)
' End With
'
' m_Params4Report("@Organ_no") = frmReport.SSComboBoxEx4Organ.ItemData(frmReport.SSComboBoxEx4Organ.ListIndex)
'
' m_Command4Report.CommandText = "sp_bureau_self_emp"
' Set m_oRs4Report = m_Command4Report.Execute()
'
' If ExportExcel(, , C_USER_WORK, frmReport.Dir4This.Path) = False Then
' Set m_Command4Report = Nothing
' Set m_Params4Report = Nothing
' Set m_oRs4Report = Nothing
' Getsp_bureau_self_emp = False
' Exit Function
' End If
'
' i4Organ = m_oRs4Report.Fields(0)
'
' Set m_oRs4Report = m_oRs4Report.NextRecordset
' If m_oRs4Report.EOF = False Then g_oSheet4Export.Range("c15:g" & i4Organ).CopyFromRecordset m_oRs4Report
'
' Set m_oRs4Report = m_oRs4Report.NextRecordset
' If m_oRs4Report.EOF = False Then g_oSheet4Export.Range("i15:m" & i4Organ).CopyFromRecordset m_oRs4Report
'
' Set m_oRs4Report = m_oRs4Report.NextRecordset
' If m_oRs4Report.EOF = False Then g_oSheet4Export.Range("o15:s" & i4Organ).CopyFromRecordset m_oRs4Report
'
' Set m_oRs4Report = m_oRs4Report.NextRecordset
' If m_oRs4Report.EOF = False Then g_oSheet4Export.Range("u15:y" & i4Organ).CopyFromRecordset m_oRs4Report
'
' Set m_oRs4Report = m_oRs4Report.NextRecordset
' If m_oRs4Report.EOF = False Then g_oSheet4Export.Range("aa15:ae" & i4Organ).CopyFromRecordset m_oRs4Report
' g_oSheet4Export.Range("c" & CStr(4)) = CheckVariant(g_str4ReportOrgan)
' g_oSheet4Export.Range("o" & CStr(4)) = CheckVariant(g_str4ReportTime)
' g_oSheet4Export.Range("e" & CStr(int4TempCount)) = CheckVariant(g_str4OrganEmp)
' g_oSheet4Export.Range("k" & CStr(int4TempCount)) = CheckVariant(g_str4CompanyEmp)
' g_oSheet4Export.Range("u" & CStr(int4TempCount)) = CheckVariant(g_str4TableEmp)
' g_oSheet4Export.Range("ac" & CStr(int4TempCount)) = CheckVariant(g_str4ReportTime)
' g_oSheet4Export.Cells(16, 2).Select
'
' Set m_Command4Report = Nothing
' Set m_Params4Report = Nothing
' Set m_oRs4Report = Nothing
' Getsp_bureau_self_emp = True
'Err:
' Exit Function
'End Function
'
'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -