企业管理

开发平台：
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 cmdOK 
      Cancel          =   -1  'True
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   4125
      TabIndex        =   0
      Top             =   2625
      Width           =   1500
   End
   Begin VB.CommandButton cmdHxxdHomePage 
      Caption         =   "安信软件网站"
      Height          =   345
      Left            =   4140
      TabIndex        =   1
      Top             =   3075
      Width           =   1485
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   585
      Left            =   180
      Picture         =   "系统_关于.frx":1042
      Stretch         =   -1  'True
      Top             =   330
      Width           =   525
   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 lblTitle 
      Caption         =   "系统版本信息"
      ForeColor       =   &H00000000&
      Height          =   630
      Left            =   1110
      TabIndex        =   3
      Top             =   330
      Width           =   3885
   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 
      Caption         =   "版权所有(C)"
      Height          =   645
      Left            =   1110
      TabIndex        =   4
      Top             =   1170
      Width           =   3885
   End
   Begin VB.Label lblDisclaimer 
      Caption         =   "警告: ..."
      ForeColor       =   &H00000000&
      Height          =   825
      Left            =   255
      TabIndex        =   2
      Top             =   2625
      Width           =   3630
   End
End
Attribute VB_Name = "XT_frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************************
'*    模 块 名 称 :系统关于
'*    功 能 描 述 :描述系统版本、版权信息
'*    程序员姓名  :张建忠
'*    最后修改人  :
'*    最后修改时间:2001/06/23
'*    备        注:封版
'***********************************************************
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

						