资源名称:ERPSYS.zip [点击查看]
上传用户:zhpu1995
上传日期:2013-09-06
资源大小:61151k
文件大小:4k
源码类别:
企业管理
开发平台:
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