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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "comct332.ocx"
  4. Begin VB.Form frm_color 
  5.    BorderStyle     =   0  'None
  6.    Caption         =   "颜色"
  7.    ClientHeight    =   3060
  8.    ClientLeft      =   0
  9.    ClientTop       =   0
  10.    ClientWidth     =   1245
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3060
  15.    ScaleWidth      =   1245
  16.    ShowInTaskbar   =   0   'False
  17.    Begin ComCtl3.CoolBar CoolBar1 
  18.       Height          =   3030
  19.       Left            =   0
  20.       TabIndex        =   0
  21.       Top             =   0
  22.       Width           =   1215
  23.       _ExtentX        =   2143
  24.       _ExtentY        =   5345
  25.       BandCount       =   1
  26.       _CBWidth        =   1215
  27.       _CBHeight       =   3030
  28.       _Version        =   "6.0.8450"
  29.       Child1          =   "Toolbar1"
  30.       MinHeight1      =   2970
  31.       Width1          =   1335
  32.       NewRow1         =   0   'False
  33.       Begin MSComctlLib.Toolbar Toolbar1 
  34.          Height          =   2970
  35.          Left            =   30
  36.          TabIndex        =   1
  37.          Top             =   30
  38.          Width           =   1095
  39.          _ExtentX        =   1931
  40.          _ExtentY        =   5239
  41.          ButtonWidth     =   609
  42.          ButtonHeight    =   582
  43.          Style           =   1
  44.          ImageList       =   "ImageList1"
  45.          _Version        =   393216
  46.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  47.             NumButtons      =   27
  48.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  49.                ImageIndex      =   1
  50.             EndProperty
  51.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  52.                ImageIndex      =   2
  53.             EndProperty
  54.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  55.                ImageIndex      =   3
  56.             EndProperty
  57.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  58.                ImageIndex      =   4
  59.             EndProperty
  60.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  61.                ImageIndex      =   5
  62.             EndProperty
  63.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  64.                ImageIndex      =   6
  65.             EndProperty
  66.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  67.                ImageIndex      =   7
  68.             EndProperty
  69.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  70.                ImageIndex      =   8
  71.             EndProperty
  72.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  73.                ImageIndex      =   9
  74.             EndProperty
  75.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  76.                ImageIndex      =   10
  77.             EndProperty
  78.             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  79.                ImageIndex      =   11
  80.             EndProperty
  81.             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  82.                ImageIndex      =   12
  83.             EndProperty
  84.             BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  85.                ImageIndex      =   13
  86.             EndProperty
  87.             BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  88.                ImageIndex      =   14
  89.             EndProperty
  90.             BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  91.                ImageIndex      =   15
  92.             EndProperty
  93.             BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  94.                ImageIndex      =   16
  95.             EndProperty
  96.             BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  97.                ImageIndex      =   17
  98.             EndProperty
  99.             BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  100.                ImageIndex      =   18
  101.             EndProperty
  102.             BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  103.                ImageIndex      =   19
  104.             EndProperty
  105.             BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  106.                ImageIndex      =   20
  107.             EndProperty
  108.             BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  109.                ImageIndex      =   21
  110.             EndProperty
  111.             BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  112.                ImageIndex      =   22
  113.             EndProperty
  114.             BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  115.                ImageIndex      =   23
  116.             EndProperty
  117.             BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  118.                ImageIndex      =   24
  119.             EndProperty
  120.             BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  121.                ImageIndex      =   25
  122.             EndProperty
  123.             BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  124.                ImageIndex      =   26
  125.             EndProperty
  126.             BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  127.                ImageIndex      =   27
  128.             EndProperty
  129.          EndProperty
  130.       End
  131.    End
  132.    Begin MSComctlLib.ImageList ImageList1 
  133.       Left            =   1680
  134.       Top             =   1560
  135.       _ExtentX        =   1005
  136.       _ExtentY        =   1005
  137.       BackColor       =   -2147483643
  138.       ImageWidth      =   16
  139.       ImageHeight     =   16
  140.       MaskColor       =   12632256
  141.       _Version        =   393216
  142.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  143.          NumListImages   =   27
  144.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  145.             Picture         =   "颜色.frx":0000
  146.             Key             =   ""
  147.          EndProperty
  148.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  149.             Picture         =   "颜色.frx":0358
  150.             Key             =   ""
  151.          EndProperty
  152.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  153.             Picture         =   "颜色.frx":06B0
  154.             Key             =   ""
  155.          EndProperty
  156.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  157.             Picture         =   "颜色.frx":0A04
  158.             Key             =   ""
  159.          EndProperty
  160.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  161.             Picture         =   "颜色.frx":0D58
  162.             Key             =   ""
  163.          EndProperty
  164.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  165.             Picture         =   "颜色.frx":10AC
  166.             Key             =   ""
  167.          EndProperty
  168.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  169.             Picture         =   "颜色.frx":1400
  170.             Key             =   ""
  171.          EndProperty
  172.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  173.             Picture         =   "颜色.frx":1754
  174.             Key             =   ""
  175.          EndProperty
  176.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  177.             Picture         =   "颜色.frx":1AA8
  178.             Key             =   ""
  179.          EndProperty
  180.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  181.             Picture         =   "颜色.frx":1DFC
  182.             Key             =   ""
  183.          EndProperty
  184.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  185.             Picture         =   "颜色.frx":2150
  186.             Key             =   ""
  187.          EndProperty
  188.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  189.             Picture         =   "颜色.frx":24A4
  190.             Key             =   ""
  191.          EndProperty
  192.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  193.             Picture         =   "颜色.frx":27F8
  194.             Key             =   ""
  195.          EndProperty
  196.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  197.             Picture         =   "颜色.frx":2B4C
  198.             Key             =   ""
  199.          EndProperty
  200.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  201.             Picture         =   "颜色.frx":2EA0
  202.             Key             =   ""
  203.          EndProperty
  204.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  205.             Picture         =   "颜色.frx":31F4
  206.             Key             =   ""
  207.          EndProperty
  208.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  209.             Picture         =   "颜色.frx":3548
  210.             Key             =   ""
  211.          EndProperty
  212.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  213.             Picture         =   "颜色.frx":389C
  214.             Key             =   ""
  215.          EndProperty
  216.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  217.             Picture         =   "颜色.frx":3BF0
  218.             Key             =   ""
  219.          EndProperty
  220.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  221.             Picture         =   "颜色.frx":3F44
  222.             Key             =   ""
  223.          EndProperty
  224.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  225.             Picture         =   "颜色.frx":4298
  226.             Key             =   ""
  227.          EndProperty
  228.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  229.             Picture         =   "颜色.frx":45EC
  230.             Key             =   ""
  231.          EndProperty
  232.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  233.             Picture         =   "颜色.frx":4940
  234.             Key             =   ""
  235.          EndProperty
  236.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  237.             Picture         =   "颜色.frx":4C94
  238.             Key             =   ""
  239.          EndProperty
  240.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  241.             Picture         =   "颜色.frx":4FE8
  242.             Key             =   ""
  243.          EndProperty
  244.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  245.             Picture         =   "颜色.frx":533C
  246.             Key             =   ""
  247.          EndProperty
  248.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  249.             Picture         =   "颜色.frx":5690
  250.             Key             =   ""
  251.          EndProperty
  252.       EndProperty
  253.    End
  254. End
  255. Attribute VB_Name = "frm_color"
  256. Attribute VB_GlobalNameSpace = False
  257. Attribute VB_Creatable = False
  258. Attribute VB_PredeclaredId = True
  259. Attribute VB_Exposed = False
  260. '***********************************************
  261. '*    模 块 名 称 :选择颜色
  262. '*    功 能 描 述 :
  263. '*    程序员姓名  :奚俊峰
  264. '*    最后修改人  :奚俊峰
  265. '*    最后修改时间:2002/01/21
  266. '***********************************************
  268. Option Explicit
  269. Public ms_toolbar As String
  271. Private Sub Form_LostFocus()
  272.     Unload Me
  273. End Sub
  275. Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  276.     Select Case ms_toolbar
  277.     Case "toolbar2"
  278.         MDI_frame.Toolbar2.Buttons("color").Image = Button.Index + 16
  279.     Case "toolbar3"
  280.         MDI_frame.Toolbar3.Buttons("color").Image = Button.Index + 14
  281.         MDI_frame.Toolbar3_ButtonClick MDI_frame.Toolbar3.Buttons("color")
  282.     End Select
  283.     
  284.     Unload Me
  285. End Sub