资源名称:ERPSYS.zip [点击查看]
上传用户:zhpu1995
上传日期:2013-09-06
资源大小:61151k
文件大小:2k
源码类别:
企业管理
开发平台:
Visual Basic
- VERSION 5.00
- Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
- Begin VB.Form XT_FrmWaitMess
- ClientHeight = 885
- ClientLeft = 1305
- ClientTop = 2715
- ClientWidth = 4095
- ControlBox = 0 'False
- Icon = "系统_等待提示.frx":0000
- LinkTopic = "Form1"
- ScaleHeight = 885
- ScaleWidth = 4095
- Begin VB.Timer Timer1
- Interval = 1
- Left = 4200
- Top = 30
- End
- Begin MSComCtl2.Animation Animation1
- Height = 525
- Left = 240
- TabIndex = 0
- Top = 180
- Width = 675
- _ExtentX = 1191
- _ExtentY = 926
- _Version = 393216
- AutoPlay = -1 'True
- Center = -1 'True
- FullWidth = 45
- FullHeight = 35
- End
- Begin VB.Label Label1
- BackStyle = 0 'Transparent
- Caption = "系统正在组织数据,请稍后..."
- ForeColor = &H00FF0000&
- Height = 285
- Left = 1050
- TabIndex = 1
- Top = 330
- Width = 2805
- End
- End
- Attribute VB_Name = "XT_FrmWaitMess"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '***********************************************************
- '* 模 块 名 称 :系统组织数据提示
- '* 功 能 描 述 :用于打开模式窗体时,调入数据速度慢而给用户
- '* 一个等待提示.
- '* 程序员姓名 :张建忠
- '* 最后修改人 :
- '* 最后修改时间:2001/06/23
- '* 备 注:封版
- '***********************************************************
- Dim Tsxx As String '系统提示信息
- Dim Str_IndexSub As String '系统功能索引号
- Private Sub Form_Load()
- Str_IndexSub = Xtcdcs
- With Animation1
- .Open App.Path + "Wait.avi"
- End With
- End Sub
- Private Sub Timer1_Timer()
- Timer1.Enabled = False
- Select Case Str_IndexSub
- Case "c_chdasz" '存货档案设置
- Load MS_FrmBmsChdasz
- Unload Me
- MS_FrmBmsChdasz.Show 1
- Case Else
- Tsxx = "此功能模块有待完善!"
- Call Xtxxts(Tsxx, 0, 1)
- Unload Me
- End Select
- End Sub