企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Begin VB.Form XT_frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "百利/ERP5.0-质量系统"
   ClientHeight    =   3555
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5730
   ClipControls    =   0   'False
   Icon            =   "系统_关于.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2453.724
   ScaleMode       =   0  'User
   ScaleWidth      =   5380.766
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdHxxdHomePage 
      Caption         =   "安信软件网站"
      Height          =   345
      Left            =   4110
      TabIndex        =   1
      Top             =   3045
      Width           =   1485
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   4095
      TabIndex        =   0
      Top             =   2595
      Width           =   1500
   End
   Begin VB.Label lblDisclaimer 
      Caption         =   "警告: ..."
      ForeColor       =   &H00000000&
      Height          =   825
      Left            =   225
      TabIndex        =   4
      Top             =   2595
      Width           =   3630
   End
   Begin VB.Label lblVersion 
      Caption         =   "版权所有(C)"
      Height          =   645
      Left            =   1200
      TabIndex        =   3
      Top             =   1140
      Width           =   3885
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   70.429
      X2              =   5281.227
      Y1              =   1677.229
      Y2              =   1677.229
   End
   Begin VB.Label lblTitle 
      Caption         =   "系统版本信息"
      ForeColor       =   &H00000000&
      Height          =   630
      Left            =   1200
      TabIndex        =   2
      Top             =   300
      Width           =   3885
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   56.343
      X2              =   5281.227
      Y1              =   1666.876
      Y2              =   1666.876
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   585
      Left            =   240
      Picture         =   "系统_关于.frx":1042
      Stretch         =   -1  'True
      Top             =   330
      Width           =   525
   End
End
Attribute VB_Name = "XT_frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************************
'*    模 块 名 称 :系统关于
'*    功 能 描 述 :描述系统版本、版权信息
'*    程序员姓名  :张建忠
'*    最后修改人  :张晶石
'*    最后修改时间:200/01/25
'*    备        注:封版
'***********************************************************
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub cmdHxxdHomePage_Click()
    ShellExecute 0, "open", "www.axsoft.cn", "", "", 0
End Sub
Private Sub cmdOK_Click()
    Unload Me
End Sub
Private Sub Form_Load()
    
    lblVersion.Caption = "版权所有(C)" + Chr(10) + Chr(10) + "常熟市安信软件服务有限责任公司"
    lblTitle.Caption = "系统版本信息" + Chr(10) + Chr(10) + "V5.0 For Windows9X/2000/NT"
    lblDisclaimer.Caption = "警告：本软件受版权法及国际公约保护，若未经合法授权而擅自复制此软件的全部或部分，将承担严厉的法律责任。"
End Sub

						