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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：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_FrmWaitMess 
  4.    ClientHeight    =   855
  5.    ClientLeft      =   60
  6.    ClientTop       =   60
  7.    ClientWidth     =   3990
  8.    ControlBox      =   0   'False
  9.    Icon            =   "系统_等待提示.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   855
  12.    ScaleWidth      =   3990
  13.    StartUpPosition =   1  '所有者中心
  14.    Begin VB.Timer Timer1 
  15.       Interval        =   1
  16.       Left            =   1560
  17.       Top             =   300
  18.    End
  19.    Begin MSComCtl2.Animation Animation1 
  20.       Height          =   525
  21.       Left            =   240
  22.       TabIndex        =   0
  23.       Top             =   180
  24.       Width           =   675
  25.       _ExtentX        =   1191
  26.       _ExtentY        =   926
  27.       _Version        =   393216
  28.       AutoPlay        =   -1  'True
  29.       Center          =   -1  'True
  30.       FullWidth       =   45
  31.       FullHeight      =   35
  32.    End
  33.    Begin VB.Label Label1 
  34.       BackStyle       =   0  'Transparent
  35.       Caption         =   "系统正在组织数据,请稍后..."
  36.       ForeColor       =   &H00FF0000&
  37.       Height          =   285
  38.       Left            =   1050
  39.       TabIndex        =   1
  40.       Top             =   330
  41.       Width           =   2805
  42.    End
  43. End
  44. Attribute VB_Name = "XT_FrmWaitMess"
  45. Attribute VB_GlobalNameSpace = False
  46. Attribute VB_Creatable = False
  47. Attribute VB_PredeclaredId = True
  48. Attribute VB_Exposed = False
  49. '***********************************************************
  50. '*    模 块 名 称 :系统组织数据提示
  51. '*    功 能 描 述 :用于打开模式窗体时,调入数据速度慢而给用户
  52. '*                 一个等待提示.
  53. '*    程序员姓名  :张建忠
  54. '*    最后修改人  :
  55. '*    最后修改时间:2001/06/23
  56. '*    备        注:封版
  57. '***********************************************************
  58. Dim Tsxx As String                    '系统提示信息
  59. Dim Str_IndexSub As String            '系统功能索引号
  61. Private Sub Form_Load()
  62.     
  63.     Str_IndexSub = Xtcdcs
  64.     With Animation1
  65.         .Open App.Path + "Wait.avi"
  66.     End With
  67.     
  68. End Sub
  70. Private Sub Timer1_Timer()
  71.     
  72.     Timer1.Enabled = False
  73.     Select Case Str_IndexSub
  74.     Case "c_chdasz"                  '存货档案设置
  75.         Load MS_FrmBmsChdasz
  76.         Unload Me
  77.         MS_FrmBmsChdasz.Show 1
  78.     
  79.     Case Else
  80.         Tsxx = "此功能模块有待完善!"
  81.         Call Xtxxts(Tsxx, 0, 1)
  82.         Unload Me
  83.     End Select
  84.     
  85. End Sub