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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Begin VB.Form Proc_Frm 
  4.    BackColor       =   &H80000009&
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "Form1"
  7.    ClientHeight    =   645
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   5400
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   645
  15.    ScaleWidth      =   5400
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   3  '窗口缺省
  18.    Begin VB.Timer Tm_Proc 
  19.       Enabled         =   0   'False
  20.       Interval        =   200
  21.       Left            =   4845
  22.       Top             =   -45
  23.    End
  24.    Begin MSComctlLib.ProgressBar PB_Proc 
  25.       Height          =   315
  26.       Left            =   75
  27.       TabIndex        =   0
  28.       Top             =   255
  29.       Width           =   5175
  30.       _ExtentX        =   9128
  31.       _ExtentY        =   556
  32.       _Version        =   393216
  33.       Appearance      =   1
  34.       Scrolling       =   1
  35.    End
  36.    Begin VB.Label Lab_Mark 
  37.       AutoSize        =   -1  'True
  38.       BackColor       =   &H80000009&
  39.       BackStyle       =   0  'Transparent
  40.       Caption         =   "正在刷新数据..."
  41.       Height          =   180
  42.       Left            =   90
  43.       TabIndex        =   1
  44.       Top             =   45
  45.       Width           =   1350
  46.    End
  47. End
  48. Attribute VB_Name = "Proc_Frm"
  49. Attribute VB_GlobalNameSpace = False
  50. Attribute VB_Creatable = False
  51. Attribute VB_PredeclaredId = True
  52. Attribute VB_Exposed = False
  53. Option Explicit
  55. Private Sub Tm_Proc_Timer()
  56.     With Me.PB_Proc
  57.          .Value = (.Value + 5) Mod 100
  58.     End With
  59. End Sub