系统_关于.frm

适合于中小型企业管理

VERSION 5.00
Begin VB.Form XT_frmAbout 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "宇迪资源管理系统 "
   ClientHeight    =   3555
   ClientLeft      =   2340
   ClientTop       =   1935
   ClientWidth     =   5760
   ClipControls    =   0   'False
   Icon            =   "系统_关于.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2453.724
   ScaleMode       =   0  'User
   ScaleWidth      =   5408.938
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command1 
      Caption         =   "注  册"
      Height          =   375
      Left            =   213
      TabIndex        =   2
      Top             =   2040
      Width           =   855
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   345
      Left            =   4080
      TabIndex        =   0
      Top             =   2640
      Width           =   1500
   End
   Begin VB.CommandButton cmdHomePage 
      Caption         =   "易博科技主页"
      Height          =   345
      Left            =   4080
      TabIndex        =   1
      Top             =   3075
      Width           =   1485
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "E_Mail: [e-mail]  [e-mail]"
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   1320
      MouseIcon       =   "系统_关于.frx":0ECA
      MousePointer    =   99  'Custom
      TabIndex        =   11
      Top             =   1560
      Width           =   3780
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "我们将竭诚为客户提供优质的服务！"
      ForeColor       =   &H00000000&
      Height          =   180
      Left            =   1320
      TabIndex        =   10
      Top             =   2160
      Width           =   2880
   End
   Begin VB.Label lblVersion 
      AutoSize        =   -1  'True
      Caption         =   "版本2.00 （服务器标准版）"
      Height          =   180
      Left            =   1320
      TabIndex        =   9
      Top             =   660
      Width           =   2250
   End
   Begin VB.Label lblTitle 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "YD-ERP 2008"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15.75
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   315
      Left            =   1200
      TabIndex        =   8
      Top             =   120
      Width           =   1980
   End
   Begin VB.Label lblDescription 
      AutoSize        =   -1  'True
      Caption         =   "本系统专门为 南通宇迪光学仪器有限公司 定制。"
      ForeColor       =   &H00000000&
      Height          =   180
      Left            =   1320
      TabIndex        =   7
      Top             =   1920
      Width           =   3960
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "（For Windows2000/XP/Vista）"
      Height          =   180
      Left            =   3240
      TabIndex        =   6
      Top             =   240
      Width           =   2520
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "作者：倪德根   技术支持:13301481112"
      Height          =   180
      Left            =   1320
      TabIndex        =   5
      Top             =   960
      Width           =   3150
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "版权所有：南通易博科技资讯有限公司"
      ForeColor       =   &H00FF0000&
      Height          =   180
      Left            =   1320
      MouseIcon       =   "系统_关于.frx":11D4
      TabIndex        =   4
      Top             =   1304
      Width           =   3060
   End
   Begin VB.Label lblDisclaimer 
      Caption         =   $"系统_关于.frx":14DE
      ForeColor       =   &H00000000&
      Height          =   825
      Left            =   120
      TabIndex        =   3
      Top             =   2640
      Width           =   3855
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   1905
      Left            =   120
      Picture         =   "系统_关于.frx":1574
      Stretch         =   -1  'True
      Top             =   120
      Width           =   1005
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   84.515
      X2              =   5296.251
      Y1              =   1687.583
      Y2              =   1687.583
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   98.6
      X2              =   5296.251
      Y1              =   1697.936
      Y2              =   1697.936
   End
End
Attribute VB_Name = "XT_frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'***********************************************************
'*    模 块 名 称 :系统关于
'*    功 能 描 述 :描述系统版本、版权信息
'*    程序员姓名  :倪德根
'*    最后修改人  :
'*    最后修改时间:2007/12/18
'*    备        注:封版
'***********************************************************
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 cmdHomePage_Click()
    ShellExecute 0, "open", "www.Ebodiy.com", "", "", 0
End Sub

Private Sub cmdOK_Click()
    Unload Me
End Sub

Private Sub Command1_Click()
    MsgBox "本系统为定制产品，赋予完全使用权限！", vbExclamation, "系统注册"
End Sub

Private Sub Label5_Click()
    ShellExecute 0&, vbNullString, "MailTo:[e-mail];[e-mail]", vbNullString, vbNullString, vbNormalFocus
End Sub