开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：2k
源码类别：

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Begin VB.Form XT_Wait 
  4.    BackColor       =   &H00BEBEBE&
  5.    BorderStyle     =   0  'None
  6.    ClientHeight    =   930
  7.    ClientLeft      =   4320
  8.    ClientTop       =   3060
  9.    ClientWidth     =   3960
  10.    ControlBox      =   0   'False
  11.    Icon            =   "系统_调入查询数据等待.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   930
  16.    ScaleWidth      =   3960
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  '所有者中心
  19.    Begin MSComCtl2.Animation Animation1 
  20.       Height          =   705
  21.       Left            =   210
  22.       TabIndex        =   0
  23.       Top             =   120
  24.       Width           =   795
  25.       _ExtentX        =   1402
  26.       _ExtentY        =   1244
  27.       _Version        =   393216
  28.       BackStyle       =   1
  29.       FullWidth       =   53
  30.       FullHeight      =   47
  31.    End
  32.    Begin VB.Shape Shape1 
  33.       BorderColor     =   &H00808080&
  34.       BorderStyle     =   2  'Dash
  35.       BorderWidth     =   3
  36.       Height          =   915
  37.       Left            =   0
  38.       Top             =   0
  39.       Width           =   3945
  40.    End
  41.    Begin VB.Label Label1 
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "数据正在处理中,请稍侯..."
  44.       ForeColor       =   &H00C00000&
  45.       Height          =   255
  46.       Left            =   1110
  47.       TabIndex        =   1
  48.       Top             =   420
  49.       Width           =   2445
  50.    End
  51. End
  52. Attribute VB_Name = "XT_Wait"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. '***********************************************************
  58. '*    模 块 名 称 :等待
  59. '*    功 能 描 述 :
  60. '*    程序员姓名  :张建忠
  61. '*    最后修改人  :
  62. '*    最后修改时间:2001/06/23
  63. '*    备        注:封版
  64. '***********************************************************
  66. Private Sub Form_Load()
  67.     
  68.     With Animation1
  69.         .AutoPlay = True
  70.         .Open App.Path & "Write.avi"
  71.     End With
  72.     
  73. End Sub