企业管理

开发平台：
Visual Basic

：源码内容
							VERSION 5.00
Begin VB.Form XT_frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "固定资产管理系统"
   ClientHeight    =   3315
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5655
   ClipControls    =   0   'False
   Icon            =   "系统_关于.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2288.072
   ScaleMode       =   0  'User
   ScaleWidth      =   5310.337
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton cmdHxxdHomePage 
      Caption         =   "安信软件网站"
      Height          =   345
      Left            =   4050
      TabIndex        =   1
      Top             =   2835
      Width           =   1485
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   4035
      TabIndex        =   0
      Top             =   2385
      Width           =   1500
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   34.745
      X2              =   5259.628
      Y1              =   1552.99
      Y2              =   1552.99
   End
   Begin VB.Label lblDisclaimer 
      Caption         =   "警告: ..."
      ForeColor       =   &H00000000&
      Height          =   825
      Left            =   165
      TabIndex        =   4
      Top             =   2385
      Width           =   3630
   End
   Begin VB.Label lblVersion 
      Caption         =   "版权所有(C)"
      Height          =   645
      Left            =   1020
      TabIndex        =   3
      Top             =   930
      Width           =   3885
   End
   Begin VB.Label lblTitle 
      Caption         =   "系统版本信息"
      ForeColor       =   &H00000000&
      Height          =   630
      Left            =   1020
      TabIndex        =   2
      Top             =   90
      Width           =   3885
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   585
      Left            =   90
      Picture         =   "系统_关于.frx":1042
      Stretch         =   -1  'True
      Top             =   90
      Width           =   525
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   2
      X1              =   28.172
      X2              =   5253.055
      Y1              =   1532.283
      Y2              =   1532.283
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   42.257
      X2              =   5253.055
      Y1              =   1552.99
      Y2              =   1552.99
   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

						