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            =   "系統(tǒng)_關(guān)于.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         =   "安信軟件網(wǎng)站"
      Height          =   345
      Left            =   4140
      TabIndex        =   1
      Top             =   3075
      Width           =   1485
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   585
      Left            =   180
      Picture         =   "系統(tǒng)_關(guān)于.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         =   "系統(tǒng)版本信息"
      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         =   "版權(quán)所有(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
'***********************************************************
'*    模 塊 名 稱 :系統(tǒng)關(guān)于
'*    功 能 描 述 :描述系統(tǒng)版本、版權(quán)信息
'*    程序員姓名  :張建忠
'*    最后修改人  :
'*    最后修改時(shí)間: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 = "版權(quán)所有(C)" + Chr(10) + Chr(10) + "常熟市安信軟件服務(wù)有限責(zé)任公司"
    lblTitle.Caption = "系統(tǒng)版本信息" + Chr(10) + Chr(10) + "V5.0 For Windows9X/2000/NT"
    lblDisclaimer.Caption = "警告：本軟件受版權(quán)法及國際公約保護(hù)，若未經(jīng)合法授權(quán)而擅自復(fù)制此軟件的全部或部分，將承擔(dān)嚴(yán)厲的法律責(zé)任。"

End Sub