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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
  4. Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "comct332.ocx"
  5. Begin VB.MDIForm MDI_frame 
  6.    BackColor       =   &H00808080&
  7.    Caption         =   "百利/ERP5.0-电子报表"
  8.    ClientHeight    =   7425
  9.    ClientLeft      =   165
  10.    ClientTop       =   630
  11.    ClientWidth     =   11295
  12.    HelpContextID   =   10
  13.    Icon            =   "系统MDI窗口.frx":0000
  14.    LinkTopic       =   "MDIForm1"
  15.    StartUpPosition =   1  '所有者中心
  16.    WindowState     =   2  'Maximized
  17.    Begin ComCtl3.CoolBar CoolBar3 
  18.       Align           =   1  'Align Top
  19.       Height          =   390
  20.       Left            =   0
  21.       TabIndex        =   4
  22.       Top             =   780
  23.       Width           =   11295
  24.       _ExtentX        =   19923
  25.       _ExtentY        =   688
  26.       BandCount       =   1
  27.       _CBWidth        =   11295
  28.       _CBHeight       =   390
  29.       _Version        =   "6.0.8450"
  30.       Child1          =   "Toolbar3"
  31.       MinHeight1      =   330
  32.       Width1          =   7920
  33.       NewRow1         =   0   'False
  34.       Begin MSComctlLib.Toolbar Toolbar3 
  35.          Height          =   330
  36.          Left            =   30
  37.          TabIndex        =   6
  38.          Top             =   30
  39.          Width           =   11175
  40.          _ExtentX        =   19711
  41.          _ExtentY        =   582
  42.          ButtonWidth     =   609
  43.          ButtonHeight    =   582
  44.          AllowCustomize  =   0   'False
  45.          Style           =   1
  46.          ImageList       =   "ImageList3"
  47.          _Version        =   393216
  48.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  49.             NumButtons      =   23
  50.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  51.                Key             =   "color"
  52.                Object.ToolTipText     =   "颜色"
  53.                ImageIndex      =   15
  54.                Style           =   5
  55.             EndProperty
  56.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  57.                Style           =   3
  58.             EndProperty
  59.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  60.                Style           =   4
  61.                Object.Width           =   1700
  62.             EndProperty
  63.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  64.                Style           =   3
  65.             EndProperty
  66.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  67.                Style           =   4
  68.                Object.Width           =   800
  69.             EndProperty
  70.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  71.                Style           =   3
  72.             EndProperty
  73.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  74.                Key             =   "jiacu"
  75.                Object.ToolTipText     =   "加粗"
  76.                ImageIndex      =   1
  77.                Style           =   1
  78.             EndProperty
  79.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  80.                Key             =   "qinxie"
  81.                Object.ToolTipText     =   "倾斜"
  82.                ImageIndex      =   2
  83.                Style           =   1
  84.             EndProperty
  85.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  86.                Key             =   "xiahuaxian"
  87.                Object.ToolTipText     =   "下划线"
  88.                ImageIndex      =   3
  89.                Style           =   1
  90.             EndProperty
  91.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  92.                Key             =   "zhxs"
  93.                Object.ToolTipText     =   "折行显示"
  94.                ImageIndex      =   4
  95.                Style           =   1
  96.             EndProperty
  97.             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  98.                Style           =   3
  99.             EndProperty
  100.             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  101.                Key             =   "left"
  102.                Object.ToolTipText     =   "居左"
  103.                ImageIndex      =   5
  104.                Style           =   1
  105.             EndProperty
  106.             BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  107.                Key             =   "mid_sp"
  108.                Object.ToolTipText     =   "水平居中"
  109.                ImageIndex      =   6
  110.                Style           =   1
  111.             EndProperty
  112.             BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  113.                Key             =   "right"
  114.                Object.ToolTipText     =   "居右"
  115.                ImageIndex      =   7
  116.                Style           =   1
  117.             EndProperty
  118.             BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  119.                Style           =   3
  120.             EndProperty
  121.             BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  122.                Key             =   "top"
  123.                Object.ToolTipText     =   "居上"
  124.                ImageIndex      =   8
  125.                Style           =   1
  126.             EndProperty
  127.             BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  128.                Key             =   "mid_cz"
  129.                Object.ToolTipText     =   "垂直居中"
  130.                ImageIndex      =   9
  131.                Style           =   1
  132.             EndProperty
  133.             BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  134.                Key             =   "bottom"
  135.                Object.ToolTipText     =   "居下"
  136.                ImageIndex      =   10
  137.                Style           =   1
  138.             EndProperty
  139.             BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  140.                Style           =   3
  141.             EndProperty
  142.             BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  143.                Key             =   "hbfh"
  144.                Object.ToolTipText     =   "货币符号"
  145.                ImageIndex      =   11
  146.                Style           =   1
  147.             EndProperty
  148.             BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  149.                Key             =   "%"
  150.                Object.ToolTipText     =   "百分号"
  151.                ImageIndex      =   12
  152.                Style           =   1
  153.             EndProperty
  154.             BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  155.                Key             =   ","
  156.                Object.ToolTipText     =   "千分位"
  157.                ImageIndex      =   13
  158.                Style           =   1
  159.             EndProperty
  160.             BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  161.                Key             =   "E"
  162.                Object.ToolTipText     =   "科学计数"
  163.                ImageIndex      =   14
  164.                Style           =   1
  165.             EndProperty
  166.          EndProperty
  167.          Begin VB.ComboBox Combo2 
  168.             Height          =   300
  169.             ItemData        =   "系统MDI窗口.frx":1042
  170.             Left            =   2505
  171.             List            =   "系统MDI窗口.frx":1076
  172.             Style           =   2  'Dropdown List
  173.             TabIndex        =   9
  174.             Top             =   0
  175.             Width           =   705
  176.          End
  177.          Begin VB.ComboBox Combo1 
  178.             Height          =   300
  179.             Left            =   720
  180.             Sorted          =   -1  'True
  181.             Style           =   2  'Dropdown List
  182.             TabIndex        =   8
  183.             Top             =   0
  184.             Width           =   1605
  185.          End
  186.       End
  187.    End
  188.    Begin ComCtl3.CoolBar CoolBar2 
  189.       Align           =   1  'Align Top
  190.       Height          =   390
  191.       Left            =   0
  192.       TabIndex        =   3
  193.       Top             =   390
  194.       Width           =   11295
  195.       _ExtentX        =   19923
  196.       _ExtentY        =   688
  197.       BandCount       =   1
  198.       _CBWidth        =   11295
  199.       _CBHeight       =   390
  200.       _Version        =   "6.0.8450"
  201.       Child1          =   "Toolbar2"
  202.       MinHeight1      =   330
  203.       Width1          =   7500
  204.       NewRow1         =   0   'False
  205.       Begin MSComctlLib.Toolbar Toolbar2 
  206.          Height          =   330
  207.          Left            =   30
  208.          TabIndex        =   5
  209.          Top             =   30
  210.          Width           =   11175
  211.          _ExtentX        =   19711
  212.          _ExtentY        =   582
  213.          ButtonWidth     =   609
  214.          ButtonHeight    =   582
  215.          AllowCustomize  =   0   'False
  216.          Style           =   1
  217.          ImageList       =   "ImageList2"
  218.          _Version        =   393216
  219.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  220.             NumButtons      =   24
  221.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  222.                Key             =   "color"
  223.                Object.ToolTipText     =   "颜色"
  224.                ImageIndex      =   17
  225.                Style           =   5
  226.             EndProperty
  227.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  228.                Style           =   3
  229.             EndProperty
  230.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  231.                Style           =   4
  232.                Object.Width           =   1700
  233.             EndProperty
  234.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  235.                Style           =   3
  236.             EndProperty
  237.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  238.                Key             =   "net"
  239.                Object.ToolTipText     =   "网格"
  240.                ImageIndex      =   1
  241.             EndProperty
  242.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  243.                Key             =   "rectange"
  244.                Object.ToolTipText     =   "矩形线"
  245.                ImageIndex      =   2
  246.             EndProperty
  247.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  248.                Key             =   "top"
  249.                Object.ToolTipText     =   "上边线"
  250.                ImageIndex      =   3
  251.             EndProperty
  252.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  253.                Key             =   "button"
  254.                Object.ToolTipText     =   "下边线"
  255.                ImageIndex      =   4
  256.             EndProperty
  257.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  258.                Key             =   "left"
  259.                Object.ToolTipText     =   "左边线"
  260.                ImageIndex      =   5
  261.             EndProperty
  262.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  263.                Key             =   "right"
  264.                Object.ToolTipText     =   "右边线"
  265.                ImageIndex      =   6
  266.             EndProperty
  267.             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  268.                Key             =   "xiexian"
  269.                Object.ToolTipText     =   "斜线"
  270.                ImageIndex      =   7
  271.             EndProperty
  272.             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  273.                Key             =   "fanxiexian"
  274.                Object.ToolTipText     =   "反斜线"
  275.                ImageIndex      =   8
  276.             EndProperty
  277.             BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  278.                Style           =   3
  279.             EndProperty
  280.             BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  281.                Key             =   "formula"
  282.                Object.ToolTipText     =   "输入公式"
  283.                ImageIndex      =   9
  284.             EndProperty
  285.             BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  286.                Key             =   "fill_formula"
  287.                Object.ToolTipText     =   "公式填充"
  288.                ImageIndex      =   10
  289.             EndProperty
  290.             BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  291.                Style           =   3
  292.             EndProperty
  293.             BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  294.                Key             =   "czqh"
  295.                Object.ToolTipText     =   "垂直求和"
  296.                ImageIndex      =   11
  297.             EndProperty
  298.             BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  299.                Key             =   "spqh"
  300.                Object.ToolTipText     =   "水平求和"
  301.                ImageIndex      =   12
  302.             EndProperty
  303.             BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  304.                Key             =   "sxqh"
  305.                Object.ToolTipText     =   "双向求和"
  306.                ImageIndex      =   13
  307.             EndProperty
  308.             BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  309.                Style           =   3
  310.             EndProperty
  311.             BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  312.                Key             =   "computer"
  313.                Object.ToolTipText     =   "计算器"
  314.                ImageIndex      =   14
  315.             EndProperty
  316.             BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  317.                Key             =   "notepad"
  318.                Object.ToolTipText     =   "记事本"
  319.                ImageIndex      =   15
  320.             EndProperty
  321.             BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  322.                Style           =   3
  323.             EndProperty
  324.             BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  325.                Key             =   "internet"
  326.                Object.ToolTipText     =   "网上华夏新达"
  327.                ImageIndex      =   16
  328.             EndProperty
  329.          EndProperty
  330.          Begin MSComctlLib.ImageCombo ImageCombo2 
  331.             Height          =   315
  332.             Left            =   720
  333.             TabIndex        =   7
  334.             Top             =   0
  335.             Width           =   1605
  336.             _ExtentX        =   2831
  337.             _ExtentY        =   556
  338.             _Version        =   393216
  339.             ForeColor       =   -2147483640
  340.             BackColor       =   -2147483638
  341.             OLEDragMode     =   1
  342.             OLEDropMode     =   1
  343.             Locked          =   -1  'True
  344.             Text            =   "线"
  345.             ImageList       =   "ImageList5"
  346.          End
  347.       End
  348.    End
  349.    Begin MSComctlLib.ImageList ImageList5 
  350.       Left            =   3630
  351.       Top             =   3000
  352.       _ExtentX        =   1005
  353.       _ExtentY        =   1005
  354.       BackColor       =   -2147483643
  355.       ImageWidth      =   55
  356.       ImageHeight     =   13
  357.       MaskColor       =   12632256
  358.       _Version        =   393216
  359.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  360.          NumListImages   =   4
  361.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  362.             Picture         =   "系统MDI窗口.frx":10B8
  363.             Key             =   "p1"
  364.          EndProperty
  365.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  366.             Picture         =   "系统MDI窗口.frx":1994
  367.             Key             =   "p2"
  368.          EndProperty
  369.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  370.             Picture         =   "系统MDI窗口.frx":2270
  371.             Key             =   "p3"
  372.          EndProperty
  373.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  374.             Picture         =   "系统MDI窗口.frx":2B4C
  375.             Key             =   "p4"
  376.          EndProperty
  377.       EndProperty
  378.    End
  379.    Begin MSComctlLib.StatusBar StatusBar1 
  380.       Align           =   2  'Align Bottom
  381.       Height          =   375
  382.       Left            =   0
  383.       TabIndex        =   2
  384.       Top             =   7050
  385.       Width           =   11295
  386.       _ExtentX        =   19923
  387.       _ExtentY        =   661
  388.       _Version        =   393216
  389.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  390.          NumPanels       =   5
  391.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  392.             AutoSize        =   1
  393.             Object.Width           =   7241
  394.             MinWidth        =   4410
  395.             Text            =   "华夏新达电子报表系统"
  396.             TextSave        =   "华夏新达电子报表系统"
  397.          EndProperty
  398.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  399.             Object.Width           =   5292
  400.             MinWidth        =   5292
  401.          EndProperty
  402.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  403.             Object.Width           =   3528
  404.             MinWidth        =   3528
  405.          EndProperty
  406.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  407.             Object.Width           =   1940
  408.             MinWidth        =   1940
  409.          EndProperty
  410.          BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  411.             Style           =   5
  412.             Object.Width           =   1323
  413.             MinWidth        =   1323
  414.             TextSave        =   "19:55"
  415.          EndProperty
  416.       EndProperty
  417.    End
  418.    Begin MSComctlLib.ImageList ImageList3 
  419.       Left            =   3060
  420.       Top             =   3000
  421.       _ExtentX        =   1005
  422.       _ExtentY        =   1005
  423.       BackColor       =   -2147483643
  424.       ImageWidth      =   16
  425.       ImageHeight     =   16
  426.       MaskColor       =   12632256
  427.       _Version        =   393216
  428.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  429.          NumListImages   =   41
  430.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  431.             Picture         =   "系统MDI窗口.frx":3428
  432.             Key             =   ""
  433.          EndProperty
  434.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  435.             Picture         =   "系统MDI窗口.frx":3584
  436.             Key             =   ""
  437.          EndProperty
  438.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  439.             Picture         =   "系统MDI窗口.frx":36E0
  440.             Key             =   ""
  441.          EndProperty
  442.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.             Picture         =   "系统MDI窗口.frx":383C
  444.             Key             =   ""
  445.          EndProperty
  446.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.             Picture         =   "系统MDI窗口.frx":3AF8
  448.             Key             =   ""
  449.          EndProperty
  450.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.             Picture         =   "系统MDI窗口.frx":3C54
  452.             Key             =   ""
  453.          EndProperty
  454.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.             Picture         =   "系统MDI窗口.frx":3DB0
  456.             Key             =   ""
  457.          EndProperty
  458.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.             Picture         =   "系统MDI窗口.frx":3F0C
  460.             Key             =   ""
  461.          EndProperty
  462.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.             Picture         =   "系统MDI窗口.frx":4260
  464.             Key             =   ""
  465.          EndProperty
  466.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.             Picture         =   "系统MDI窗口.frx":45B4
  468.             Key             =   ""
  469.          EndProperty
  470.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.             Picture         =   "系统MDI窗口.frx":4908
  472.             Key             =   ""
  473.          EndProperty
  474.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.             Picture         =   "系统MDI窗口.frx":4B98
  476.             Key             =   ""
  477.          EndProperty
  478.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.             Picture         =   "系统MDI窗口.frx":4EEC
  480.             Key             =   ""
  481.          EndProperty
  482.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.             Picture         =   "系统MDI窗口.frx":5240
  484.             Key             =   ""
  485.          EndProperty
  486.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.             Picture         =   "系统MDI窗口.frx":5594
  488.             Key             =   ""
  489.          EndProperty
  490.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.             Picture         =   "系统MDI窗口.frx":58E8
  492.             Key             =   ""
  493.          EndProperty
  494.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.             Picture         =   "系统MDI窗口.frx":5C3C
  496.             Key             =   ""
  497.          EndProperty
  498.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.             Picture         =   "系统MDI窗口.frx":5F90
  500.             Key             =   ""
  501.          EndProperty
  502.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.             Picture         =   "系统MDI窗口.frx":62E4
  504.             Key             =   ""
  505.          EndProperty
  506.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.             Picture         =   "系统MDI窗口.frx":6638
  508.             Key             =   ""
  509.          EndProperty
  510.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.             Picture         =   "系统MDI窗口.frx":698C
  512.             Key             =   ""
  513.          EndProperty
  514.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.             Picture         =   "系统MDI窗口.frx":6CE0
  516.             Key             =   ""
  517.          EndProperty
  518.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.             Picture         =   "系统MDI窗口.frx":7034
  520.             Key             =   ""
  521.          EndProperty
  522.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.             Picture         =   "系统MDI窗口.frx":7388
  524.             Key             =   ""
  525.          EndProperty
  526.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.             Picture         =   "系统MDI窗口.frx":76DC
  528.             Key             =   ""
  529.          EndProperty
  530.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.             Picture         =   "系统MDI窗口.frx":7A30
  532.             Key             =   ""
  533.          EndProperty
  534.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.             Picture         =   "系统MDI窗口.frx":7D84
  536.             Key             =   ""
  537.          EndProperty
  538.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.             Picture         =   "系统MDI窗口.frx":80D8
  540.             Key             =   ""
  541.          EndProperty
  542.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.             Picture         =   "系统MDI窗口.frx":842C
  544.             Key             =   ""
  545.          EndProperty
  546.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.             Picture         =   "系统MDI窗口.frx":8780
  548.             Key             =   ""
  549.          EndProperty
  550.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.             Picture         =   "系统MDI窗口.frx":8AD4
  552.             Key             =   ""
  553.          EndProperty
  554.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.             Picture         =   "系统MDI窗口.frx":8E28
  556.             Key             =   ""
  557.          EndProperty
  558.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  559.             Picture         =   "系统MDI窗口.frx":917C
  560.             Key             =   ""
  561.          EndProperty
  562.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  563.             Picture         =   "系统MDI窗口.frx":94D0
  564.             Key             =   ""
  565.          EndProperty
  566.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  567.             Picture         =   "系统MDI窗口.frx":9824
  568.             Key             =   ""
  569.          EndProperty
  570.          BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  571.             Picture         =   "系统MDI窗口.frx":9B78
  572.             Key             =   ""
  573.          EndProperty
  574.          BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  575.             Picture         =   "系统MDI窗口.frx":9ECC
  576.             Key             =   ""
  577.          EndProperty
  578.          BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  579.             Picture         =   "系统MDI窗口.frx":A220
  580.             Key             =   ""
  581.          EndProperty
  582.          BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  583.             Picture         =   "系统MDI窗口.frx":A574
  584.             Key             =   ""
  585.          EndProperty
  586.          BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  587.             Picture         =   "系统MDI窗口.frx":A8C8
  588.             Key             =   ""
  589.          EndProperty
  590.          BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  591.             Picture         =   "系统MDI窗口.frx":AC1C
  592.             Key             =   ""
  593.          EndProperty
  594.       EndProperty
  595.    End
  596.    Begin MSComctlLib.ImageList ImageList2 
  597.       Left            =   2490
  598.       Top             =   3000
  599.       _ExtentX        =   1005
  600.       _ExtentY        =   1005
  601.       BackColor       =   -2147483643
  602.       ImageWidth      =   16
  603.       ImageHeight     =   16
  604.       MaskColor       =   12632256
  605.       _Version        =   393216
  606.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  607.          NumListImages   =   43
  608.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  609.             Picture         =   "系统MDI窗口.frx":AF70
  610.             Key             =   ""
  611.          EndProperty
  612.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  613.             Picture         =   "系统MDI窗口.frx":B1D4
  614.             Key             =   ""
  615.          EndProperty
  616.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  617.             Picture         =   "系统MDI窗口.frx":B438
  618.             Key             =   ""
  619.          EndProperty
  620.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  621.             Picture         =   "系统MDI窗口.frx":B6C8
  622.             Key             =   ""
  623.          EndProperty
  624.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  625.             Picture         =   "系统MDI窗口.frx":B958
  626.             Key             =   ""
  627.          EndProperty
  628.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  629.             Picture         =   "系统MDI窗口.frx":BBE4
  630.             Key             =   ""
  631.          EndProperty
  632.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  633.             Picture         =   "系统MDI窗口.frx":BE70
  634.             Key             =   ""
  635.          EndProperty
  636.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  637.             Picture         =   "系统MDI窗口.frx":C074
  638.             Key             =   ""
  639.          EndProperty
  640.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  641.             Picture         =   "系统MDI窗口.frx":C278
  642.             Key             =   ""
  643.          EndProperty
  644.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  645.             Picture         =   "系统MDI窗口.frx":C59C
  646.             Key             =   ""
  647.          EndProperty
  648.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  649.             Picture         =   "系统MDI窗口.frx":C8F0
  650.             Key             =   ""
  651.          EndProperty
  652.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  653.             Picture         =   "系统MDI窗口.frx":CC14
  654.             Key             =   ""
  655.          EndProperty
  656.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  657.             Picture         =   "系统MDI窗口.frx":CF30
  658.             Key             =   ""
  659.          EndProperty
  660.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  661.             Picture         =   "系统MDI窗口.frx":D284
  662.             Key             =   ""
  663.          EndProperty
  664.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  665.             Picture         =   "系统MDI窗口.frx":D5E8
  666.             Key             =   ""
  667.          EndProperty
  668.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  669.             Picture         =   "系统MDI窗口.frx":D93C
  670.             Key             =   ""
  671.          EndProperty
  672.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  673.             Picture         =   "系统MDI窗口.frx":DA98
  674.             Key             =   ""
  675.          EndProperty
  676.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  677.             Picture         =   "系统MDI窗口.frx":DDEC
  678.             Key             =   ""
  679.          EndProperty
  680.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  681.             Picture         =   "系统MDI窗口.frx":E140
  682.             Key             =   ""
  683.          EndProperty
  684.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  685.             Picture         =   "系统MDI窗口.frx":E494
  686.             Key             =   ""
  687.          EndProperty
  688.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  689.             Picture         =   "系统MDI窗口.frx":E7E8
  690.             Key             =   ""
  691.          EndProperty
  692.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  693.             Picture         =   "系统MDI窗口.frx":EB3C
  694.             Key             =   ""
  695.          EndProperty
  696.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  697.             Picture         =   "系统MDI窗口.frx":EE90
  698.             Key             =   ""
  699.          EndProperty
  700.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  701.             Picture         =   "系统MDI窗口.frx":F1E4
  702.             Key             =   ""
  703.          EndProperty
  704.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  705.             Picture         =   "系统MDI窗口.frx":F538
  706.             Key             =   ""
  707.          EndProperty
  708.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  709.             Picture         =   "系统MDI窗口.frx":F88C
  710.             Key             =   ""
  711.          EndProperty
  712.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  713.             Picture         =   "系统MDI窗口.frx":FBE0
  714.             Key             =   ""
  715.          EndProperty
  716.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  717.             Picture         =   "系统MDI窗口.frx":FF34
  718.             Key             =   ""
  719.          EndProperty
  720.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  721.             Picture         =   "系统MDI窗口.frx":10288
  722.             Key             =   ""
  723.          EndProperty
  724.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  725.             Picture         =   "系统MDI窗口.frx":105DC
  726.             Key             =   ""
  727.          EndProperty
  728.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  729.             Picture         =   "系统MDI窗口.frx":10930
  730.             Key             =   ""
  731.          EndProperty
  732.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  733.             Picture         =   "系统MDI窗口.frx":10C84
  734.             Key             =   ""
  735.          EndProperty
  736.          BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  737.             Picture         =   "系统MDI窗口.frx":10FD8
  738.             Key             =   ""
  739.          EndProperty
  740.          BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  741.             Picture         =   "系统MDI窗口.frx":1132C
  742.             Key             =   ""
  743.          EndProperty
  744.          BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  745.             Picture         =   "系统MDI窗口.frx":11680
  746.             Key             =   ""
  747.          EndProperty
  748.          BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  749.             Picture         =   "系统MDI窗口.frx":119D4
  750.             Key             =   ""
  751.          EndProperty
  752.          BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  753.             Picture         =   "系统MDI窗口.frx":11D28
  754.             Key             =   ""
  755.          EndProperty
  756.          BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  757.             Picture         =   "系统MDI窗口.frx":1207C
  758.             Key             =   ""
  759.          EndProperty
  760.          BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  761.             Picture         =   "系统MDI窗口.frx":123D0
  762.             Key             =   ""
  763.          EndProperty
  764.          BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  765.             Picture         =   "系统MDI窗口.frx":12724
  766.             Key             =   ""
  767.          EndProperty
  768.          BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  769.             Picture         =   "系统MDI窗口.frx":12A78
  770.             Key             =   ""
  771.          EndProperty
  772.          BeginProperty ListImage42 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  773.             Picture         =   "系统MDI窗口.frx":12DCC
  774.             Key             =   ""
  775.          EndProperty
  776.          BeginProperty ListImage43 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  777.             Picture         =   "系统MDI窗口.frx":13120
  778.             Key             =   ""
  779.          EndProperty
  780.       EndProperty
  781.    End
  782.    Begin MSComctlLib.ImageList ImageList1 
  783.       Left            =   1920
  784.       Top             =   3000
  785.       _ExtentX        =   1005
  786.       _ExtentY        =   1005
  787.       BackColor       =   -2147483643
  788.       ImageWidth      =   16
  789.       ImageHeight     =   16
  790.       MaskColor       =   12632256
  791.       _Version        =   393216
  792.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  793.          NumListImages   =   26
  794.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  795.             Picture         =   "系统MDI窗口.frx":13474
  796.             Key             =   ""
  797.          EndProperty
  798.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  799.             Picture         =   "系统MDI窗口.frx":135D0
  800.             Key             =   ""
  801.          EndProperty
  802.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  803.             Picture         =   "系统MDI窗口.frx":1372C
  804.             Key             =   ""
  805.          EndProperty
  806.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  807.             Picture         =   "系统MDI窗口.frx":13888
  808.             Key             =   ""
  809.          EndProperty
  810.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  811.             Picture         =   "系统MDI窗口.frx":139E4
  812.             Key             =   ""
  813.          EndProperty
  814.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  815.             Picture         =   "系统MDI窗口.frx":13F30
  816.             Key             =   ""
  817.          EndProperty
  818.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  819.             Picture         =   "系统MDI窗口.frx":1408C
  820.             Key             =   ""
  821.          EndProperty
  822.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  823.             Picture         =   "系统MDI窗口.frx":141E8
  824.             Key             =   ""
  825.          EndProperty
  826.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  827.             Picture         =   "系统MDI窗口.frx":14344
  828.             Key             =   ""
  829.          EndProperty
  830.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  831.             Picture         =   "系统MDI窗口.frx":144A0
  832.             Key             =   ""
  833.          EndProperty
  834.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  835.             Picture         =   "系统MDI窗口.frx":145FC
  836.             Key             =   ""
  837.          EndProperty
  838.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  839.             Picture         =   "系统MDI窗口.frx":14758
  840.             Key             =   ""
  841.          EndProperty
  842.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  843.             Picture         =   "系统MDI窗口.frx":148B4
  844.             Key             =   ""
  845.          EndProperty
  846.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  847.             Picture         =   "系统MDI窗口.frx":14A10
  848.             Key             =   ""
  849.          EndProperty
  850.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  851.             Picture         =   "系统MDI窗口.frx":14E1C
  852.             Key             =   ""
  853.          EndProperty
  854.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  855.             Picture         =   "系统MDI窗口.frx":15224
  856.             Key             =   ""
  857.          EndProperty
  858.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  859.             Picture         =   "系统MDI窗口.frx":155B4
  860.             Key             =   ""
  861.          EndProperty
  862.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  863.             Picture         =   "系统MDI窗口.frx":15948
  864.             Key             =   ""
  865.          EndProperty
  866.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  867.             Picture         =   "系统MDI窗口.frx":15BF4
  868.             Key             =   ""
  869.          EndProperty
  870.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  871.             Picture         =   "系统MDI窗口.frx":15EBC
  872.             Key             =   ""
  873.          EndProperty
  874.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  875.             Picture         =   "系统MDI窗口.frx":1614C
  876.             Key             =   ""
  877.          EndProperty
  878.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  879.             Picture         =   "系统MDI窗口.frx":163DC
  880.             Key             =   ""
  881.          EndProperty
  882.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  883.             Picture         =   "系统MDI窗口.frx":16730
  884.             Key             =   ""
  885.          EndProperty
  886.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  887.             Picture         =   "系统MDI窗口.frx":16A84
  888.             Key             =   ""
  889.          EndProperty
  890.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  891.             Picture         =   "系统MDI窗口.frx":16CF4
  892.             Key             =   ""
  893.          EndProperty
  894.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  895.             Picture         =   "系统MDI窗口.frx":17018
  896.             Key             =   ""
  897.          EndProperty
  898.       EndProperty
  899.    End
  900.    Begin ComCtl3.CoolBar CoolBar1 
  901.       Align           =   1  'Align Top
  902.       Height          =   390
  903.       Left            =   0
  904.       TabIndex        =   1
  905.       Top             =   0
  906.       Width           =   11295
  907.       _ExtentX        =   19923
  908.       _ExtentY        =   688
  909.       BandCount       =   1
  910.       _CBWidth        =   11295
  911.       _CBHeight       =   390
  912.       _Version        =   "6.0.8450"
  913.       Child1          =   "Toolbar1"
  914.       MinHeight1      =   330
  915.       Width1          =   870
  916.       NewRow1         =   0   'False
  917.       Begin MSComctlLib.Toolbar Toolbar1 
  918.          Height          =   330
  919.          Left            =   30
  920.          TabIndex        =   0
  921.          Top             =   30
  922.          WhatsThisHelpID =   10
  923.          Width           =   11175
  924.          _ExtentX        =   19711
  925.          _ExtentY        =   582
  926.          ButtonWidth     =   609
  927.          ButtonHeight    =   582
  928.          AllowCustomize  =   0   'False
  929.          HelpContextID   =   10
  930.          Style           =   1
  931.          ImageList       =   "ImageList1"
  932.          _Version        =   393216
  933.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  934.             NumButtons      =   33
  935.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  936.                Key             =   "new"
  937.                Object.ToolTipText     =   "新建"
  938.                ImageIndex      =   1
  939.             EndProperty
  940.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  941.                Key             =   "open"
  942.                Object.ToolTipText     =   "打开"
  943.                ImageIndex      =   2
  944.             EndProperty
  945.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  946.                Key             =   "save"
  947.                Object.ToolTipText     =   "保存"
  948.                ImageIndex      =   3
  949.             EndProperty
  950.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  951.                Style           =   3
  952.             EndProperty
  953.             BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  954.                Key             =   "print"
  955.                Object.ToolTipText     =   "打印"
  956.                ImageIndex      =   4
  957.             EndProperty
  958.             BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  959.                Key             =   "preview"
  960.                Object.ToolTipText     =   "预览"
  961.                ImageIndex      =   5
  962.             EndProperty
  963.             BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  964.                Style           =   3
  965.             EndProperty
  966.             BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  967.                Key             =   "cut"
  968.                Object.ToolTipText     =   "剪切"
  969.                ImageIndex      =   6
  970.             EndProperty
  971.             BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  972.                Key             =   "copy"
  973.                Object.ToolTipText     =   "复制"
  974.                ImageIndex      =   7
  975.             EndProperty
  976.             BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  977.                Key             =   "paste"
  978.                Object.ToolTipText     =   "粘贴"
  979.                ImageIndex      =   8
  980.             EndProperty
  981.             BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  982.                Key             =   "find"
  983.                Object.ToolTipText     =   "查找"
  984.                ImageIndex      =   9
  985.             EndProperty
  986.             BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  987.                Style           =   3
  988.             EndProperty
  989.             BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  990.                Key             =   "undo"
  991.                Object.ToolTipText     =   "撤消"
  992.                ImageIndex      =   10
  993.             EndProperty
  994.             BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  995.                Key             =   "redo"
  996.                Object.ToolTipText     =   "重复"
  997.                ImageIndex      =   11
  998.             EndProperty
  999.             BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1000.                Style           =   3
  1001.             EndProperty
  1002.             BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1003.                Key             =   "sort_ascend"
  1004.                Object.ToolTipText     =   "升序排列"
  1005.                ImageIndex      =   12
  1006.             EndProperty
  1007.             BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1008.                Key             =   "sort_descend"
  1009.                Object.ToolTipText     =   "降序排列"
  1010.                ImageIndex      =   13
  1011.             EndProperty
  1012.             BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1013.                Style           =   3
  1014.             EndProperty
  1015.             BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1016.                Key             =   "insert_row"
  1017.                Object.ToolTipText     =   "插入一行"
  1018.                ImageIndex      =   14
  1019.             EndProperty
  1020.             BeginProperty Button20 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1021.                Key             =   "insert_col"
  1022.                Object.ToolTipText     =   "插入一列"
  1023.                ImageIndex      =   15
  1024.             EndProperty
  1025.             BeginProperty Button21 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1026.                Key             =   "del_row"
  1027.                Object.ToolTipText     =   "删除一行"
  1028.                ImageIndex      =   16
  1029.             EndProperty
  1030.             BeginProperty Button22 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1031.                Key             =   "del_col"
  1032.                Object.ToolTipText     =   "删除一列"
  1033.                ImageIndex      =   17
  1034.             EndProperty
  1035.             BeginProperty Button23 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1036.                Style           =   3
  1037.             EndProperty
  1038.             BeginProperty Button24 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1039.                Key             =   "spcf"
  1040.                Object.ToolTipText     =   "水平拆分"
  1041.                ImageIndex      =   18
  1042.             EndProperty
  1043.             BeginProperty Button25 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1044.                Key             =   "czcf"
  1045.                Object.ToolTipText     =   "垂直拆分"
  1046.                ImageIndex      =   19
  1047.             EndProperty
  1048.             BeginProperty Button26 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1049.                Key             =   "qxzh"
  1050.                Object.ToolTipText     =   "取消组合"
  1051.                ImageIndex      =   20
  1052.             EndProperty
  1053.             BeginProperty Button27 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1054.                Key             =   "zhdy"
  1055.                Object.ToolTipText     =   "组合单元"
  1056.                ImageIndex      =   21
  1057.             EndProperty
  1058.             BeginProperty Button28 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1059.                Style           =   3
  1060.             EndProperty
  1061.             BeginProperty Button29 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1062.                Key             =   "graph_wizard"
  1063.                Object.ToolTipText     =   "图表向导"
  1064.                ImageIndex      =   22
  1065.             EndProperty
  1066.             BeginProperty Button30 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1067.                Key             =   "recompute_page"
  1068.                Object.ToolTipText     =   "重算本页"
  1069.                ImageIndex      =   23
  1070.             EndProperty
  1071.             BeginProperty Button31 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1072.                Key             =   "cztc"
  1073.                Object.ToolTipText     =   "垂直填充"
  1074.                ImageIndex      =   24
  1075.             EndProperty
  1076.             BeginProperty Button32 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1077.                Key             =   "cftc"
  1078.                Object.ToolTipText     =   "重复填充"
  1079.                ImageIndex      =   25
  1080.             EndProperty
  1081.             BeginProperty Button33 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  1082.                Key             =   "dctc"
  1083.                Object.ToolTipText     =   "等差填充"
  1084.                ImageIndex      =   26
  1085.             EndProperty
  1086.          EndProperty
  1087.       End
  1088.    End
  1089.    Begin MSComDlg.CommonDialog CommonDialog1 
  1090.       Left            =   4200
  1091.       Top             =   3060
  1092.       _ExtentX        =   847
  1093.       _ExtentY        =   847
  1094.       _Version        =   393216
  1095.    End
  1096.    Begin VB.Menu m_file 
  1097.       Caption         =   "文件(&F)"
  1098.       Begin VB.Menu m_new 
  1099.          Caption         =   "新建(&N)"
  1100.          Shortcut        =   ^N
  1101.       End
  1102.       Begin VB.Menu m_open 
  1103.          Caption         =   "打开(&O)"
  1104.          Shortcut        =   ^O
  1105.       End
  1106.       Begin VB.Menu m_close 
  1107.          Caption         =   "关闭(&C)"
  1108.       End
  1109.       Begin VB.Menu m_save 
  1110.          Caption         =   "保存(&S)"
  1111.          Shortcut        =   ^S
  1112.       End
  1113.       Begin VB.Menu m_lcwxtzygswj 
  1114.          Caption         =   "另存为文件"
  1115.       End
  1116.       Begin VB.Menu m_saveasmodel 
  1117.          Caption         =   "另存为模板"
  1118.       End
  1119.       Begin VB.Menu m_fg1 
  1120.          Caption         =   "-"
  1121.       End
  1122.       Begin VB.Menu m_drwj 
  1123.          Caption         =   "读入文件"
  1124.          Begin VB.Menu m_cxtzygswjdr 
  1125.             Caption         =   "从系统专用格式文件读入"
  1126.          End
  1127.          Begin VB.Menu m_cewjdr 
  1128.             Caption         =   "从Excel文件读入"
  1129.          End
  1130.          Begin VB.Menu m_cwbwjdr 
  1131.             Caption         =   "从文本文件读入"
  1132.          End
  1133.       End
  1134.       Begin VB.Menu m_lcwj 
  1135.          Caption         =   "输出文件"
  1136.          Begin VB.Menu m_lcwewj 
  1137.             Caption         =   "另存为Excel文件"
  1138.          End
  1139.          Begin VB.Menu m_lcwhtmlwj 
  1140.             Caption         =   "另存为HTML文件"
  1141.          End
  1142.          Begin VB.Menu m_lcwwbwj 
  1143.             Caption         =   "另存为文本文件"
  1144.          End
  1145.       End
  1146.       Begin VB.Menu m_fg2 
  1147.          Caption         =   "-"
  1148.       End
  1149.       Begin VB.Menu m_preview 
  1150.          Caption         =   "打印预览"
  1151.       End
  1152.       Begin VB.Menu m_print 
  1153.          Caption         =   "打印"
  1154.       End
  1155.       Begin VB.Menu m_fg11 
  1156.          Caption         =   "-"
  1157.       End
  1158.       Begin VB.Menu m_exit 
  1159.          Caption         =   "退出"
  1160.       End
  1161.    End
  1162.    Begin VB.Menu m_edit 
  1163.       Caption         =   "编辑(&E)"
  1164.       Begin VB.Menu m_undo 
  1165.          Caption         =   "撤消"
  1166.       End
  1167.       Begin VB.Menu m_redo 
  1168.          Caption         =   "重复"
  1169.       End
  1170.       Begin VB.Menu m_fg3 
  1171.          Caption         =   "-"
  1172.       End
  1173.       Begin VB.Menu m_cut 
  1174.          Caption         =   "剪切"
  1175.       End
  1176.       Begin VB.Menu m_copy 
  1177.          Caption         =   "复制"
  1178.       End
  1179.       Begin VB.Menu m_paste 
  1180.          Caption         =   "粘贴"
  1181.       End
  1182.       Begin VB.Menu m_fg4 
  1183.          Caption         =   "-"
  1184.       End
  1185.       Begin VB.Menu m_find 
  1186.          Caption         =   "查找"
  1187.       End
  1188.       Begin VB.Menu m_replace 
  1189.          Caption         =   "替换"
  1190.       End
  1191.       Begin VB.Menu m_goto 
  1192.          Caption         =   "定位"
  1193.       End
  1194.       Begin VB.Menu m_fg5 
  1195.          Caption         =   "-"
  1196.       End
  1197.       Begin VB.Menu m_selectall 
  1198.          Caption         =   "全部选中"
  1199.       End
  1200.       Begin VB.Menu m_deselectall 
  1201.          Caption         =   "全部不选"
  1202.       End
  1203.       Begin VB.Menu m_clear 
  1204.          Caption         =   "清除"
  1205.       End
  1206.       Begin VB.Menu m_fg6 
  1207.          Caption         =   "-"
  1208.       End
  1209.       Begin VB.Menu m_fill_nr 
  1210.          Caption         =   "填充内容"
  1211.          Begin VB.Menu m_fill_cf 
  1212.             Caption         =   "重复填充"
  1213.          End
  1214.          Begin VB.Menu m_fill_dc 
  1215.             Caption         =   "等差填充"
  1216.          End
  1217.          Begin VB.Menu m_fill_db 
  1218.             Caption         =   "等比填充"
  1219.          End
  1220.          Begin VB.Menu m_fill_xl 
  1221.             Caption         =   "序列填充"
  1222.          End
  1223.       End
  1224.       Begin VB.Menu m_fill_formula 
  1225.          Caption         =   "公式填充"
  1226.       End
  1227.       Begin VB.Menu m_fill_cz 
  1228.          Caption         =   "垂直填充"
  1229.       End
  1230.    End
  1231.    Begin VB.Menu m_view 
  1232.       Caption         =   "视图(&V)"
  1233.       Begin VB.Menu m_toolbar 
  1234.          Caption         =   "工具栏"
  1235.          Begin VB.Menu m_toolbar_cy 
  1236.             Caption         =   "常用工具栏"
  1237.             Checked         =   -1  'True
  1238.          End
  1239.          Begin VB.Menu m_toolbar_fz 
  1240.             Caption         =   "辅助工具栏"
  1241.             Checked         =   -1  'True
  1242.          End
  1243.          Begin VB.Menu m_toolbar_cell 
  1244.             Caption         =   "单元格式工具栏"
  1245.             Checked         =   -1  'True
  1246.          End
  1247.       End
  1248.       Begin VB.Menu m_statusbar 
  1249.          Caption         =   "状态栏"
  1250.          Checked         =   -1  'True
  1251.       End
  1252.       Begin VB.Menu m_fg7 
  1253.          Caption         =   "-"
  1254.       End
  1255.       Begin VB.Menu m_lock_row 
  1256.          Caption         =   "行锁定"
  1257.       End
  1258.       Begin VB.Menu m_lock_col 
  1259.          Caption         =   "列锁定"
  1260.       End
  1261.       Begin VB.Menu m_unlock 
  1262.          Caption         =   "解除锁定"
  1263.       End
  1264.       Begin VB.Menu YCHB 
  1265.          Caption         =   "隐藏行标"
  1266.          Checked         =   -1  'True
  1267.       End
  1268.       Begin VB.Menu YCLB 
  1269.          Caption         =   "隐藏列标"
  1270.          Checked         =   -1  'True
  1271.       End
  1272.    End
  1273.    Begin VB.Menu m_biaoge 
  1274.       Caption         =   "表格(&T)"
  1275.       Begin VB.Menu m_cell 
  1276.          Caption         =   "单元格"
  1277.       End
  1278.       Begin VB.Menu m_size 
  1279.          Caption         =   "表尺寸"
  1280.       End
  1281.       Begin VB.Menu bgbj 
  1282.          Caption         =   "表格背景"
  1283.       End
  1284.       Begin VB.Menu m_fg12 
  1285.          Caption         =   "-"
  1286.       End
  1287.       Begin VB.Menu m_hide 
  1288.          Caption         =   "打印时隐藏"
  1289.       End
  1290.       Begin VB.Menu m_show 
  1291.          Caption         =   "取消隐藏"
  1292.       End
  1293.       Begin VB.Menu m_fg8 
  1294.          Caption         =   "-"
  1295.       End
  1296.       Begin VB.Menu m_insert_row 
  1297.          Caption         =   "插入行"
  1298.       End
  1299.       Begin VB.Menu m_insert_col 
  1300.          Caption         =   "插入列"
  1301.       End
  1302.       Begin VB.Menu m_del_row 
  1303.          Caption         =   "删除行"
  1304.       End
  1305.       Begin VB.Menu m_del_col 
  1306.          Caption         =   "删除列"
  1307.       End
  1308.       Begin VB.Menu m_fg9 
  1309.          Caption         =   "-"
  1310.       End
  1311.       Begin VB.Menu m_insert_picture 
  1312.          Caption         =   "插入图片"
  1313.       End
  1314.       Begin VB.Menu m_szzh 
  1315.          Caption         =   "设置组合"
  1316.       End
  1317.       Begin VB.Menu m_qxzh 
  1318.          Caption         =   "取消组合"
  1319.       End
  1320.       Begin VB.Menu m_same_height 
  1321.          Caption         =   "行等高"
  1322.       End
  1323.       Begin VB.Menu m_same_width 
  1324.          Caption         =   "列等宽"
  1325.       End
  1326.    End
  1327.    Begin VB.Menu m_page 
  1328.       Caption         =   "表页(&P)"
  1329.       Begin VB.Menu m_label 
  1330.          Caption         =   "设置页签"
  1331.       End
  1332.       Begin VB.Menu m_backcolor 
  1333.          Caption         =   "公式单元背景颜色"
  1334.       End
  1335.       Begin VB.Menu m_fg10 
  1336.          Caption         =   "-"
  1337.       End
  1338.       Begin VB.Menu m_insert_page 
  1339.          Caption         =   "插入表页"
  1340.       End
  1341.       Begin VB.Menu m_append_page 
  1342.          Caption         =   "追加表页"
  1343.       End
  1344.       Begin VB.Menu bbcopy 
  1345.          Caption         =   "拷贝表页"
  1346.       End
  1347.       Begin VB.Menu m_del_page 
  1348.          Caption         =   "删除表页"
  1349.       End
  1350.       Begin VB.Menu a1111 
  1351.          Caption         =   "-"
  1352.       End
  1353.       Begin VB.Menu bbhz 
  1354.          Caption         =   "报表汇总"
  1355.       End
  1356.    End
  1357.    Begin VB.Menu m_data 
  1358.       Caption         =   "数据(&D)"
  1359.       Begin VB.Menu m_set_formula 
  1360.          Caption         =   "公式设置"
  1361.       End
  1362.       Begin VB.Menu m_insert_formula 
  1363.          Caption         =   "输入公式"
  1364.       End
  1365.       Begin VB.Menu m_recompute 
  1366.          Caption         =   "公式重算"
  1367.          Begin VB.Menu m_compute_page 
  1368.             Caption         =   "本页重算"
  1369.          End
  1370.          Begin VB.Menu m_compute_all 
  1371.             Caption         =   "全部重算"
  1372.          End
  1373.       End
  1374.       Begin VB.Menu m_sjzz 
  1375.          Caption         =   "数据转置"
  1376.       End
  1377.       Begin VB.Menu m_graph_wizard 
  1378.          Caption         =   "图表向导"
  1379.       End
  1380.    End
  1381.    Begin VB.Menu m_manage 
  1382.       Caption         =   "管理(&M)"
  1383.       Begin VB.Menu m_module 
  1384.          Caption         =   "新建报表模版"
  1385.       End
  1386.       Begin VB.Menu m_modifymodule 
  1387.          Caption         =   "修改报表模版"
  1388.       End
  1389.       Begin VB.Menu m_model_manage 
  1390.          Caption         =   "报表模板管理"
  1391.       End
  1392.       Begin VB.Menu m_report_manage 
  1393.          Caption         =   "报表管理"
  1394.       End
  1395.    End
  1396.    Begin VB.Menu m_windows 
  1397.       Caption         =   "窗口(&W)"
  1398.       WindowList      =   -1  'True
  1399.       Begin VB.Menu m_Horizontal 
  1400.          Caption         =   "水平平铺"
  1401.       End
  1402.       Begin VB.Menu m_vertical 
  1403.          Caption         =   "垂直平铺"
  1404.       End
  1405.       Begin VB.Menu m_cascade 
  1406.          Caption         =   "层叠"
  1407.       End
  1408.       Begin VB.Menu m_icons 
  1409.          Caption         =   "排列图标"
  1410.       End
  1411.    End
  1412.    Begin VB.Menu m_help 
  1413.       Caption         =   "帮助(&H)"
  1414.       Begin VB.Menu mnubz 
  1415.          Caption         =   "帮助主题"
  1416.          HelpContextID   =   10
  1417.       End
  1418.       Begin VB.Menu m_about 
  1419.          Caption         =   "关于"
  1420.       End
  1421.    End
  1422. End
  1423. Attribute VB_Name = "MDI_frame"
  1424. Attribute VB_GlobalNameSpace = False
  1425. Attribute VB_Creatable = False
  1426. Attribute VB_PredeclaredId = True
  1427. Attribute VB_Exposed = False
  1428. '******************************************************************
  1429. '*    模 块 名 称 : 系统MDI窗体
  1430. '*    功 能 描 述 : 系统MDI窗体
  1431. '*    程序员姓名  : 奚俊峰
  1432. '*    最后修改人  : 奚俊峰
  1433. '*    最后修改时间: 2002/01/13
  1434. '******************************************************************
  1437. Option Explicit
  1439. '声明必要的 API 例程：
  1440. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As Long) As Long
  1441. Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  1443. Dim SONG_i As Integer, SONG_j As Integer
  1445. Public ml_new_lx As Long                             '新建类型
  1446. Public ml_open_lx As Long                            '打开类型
  1447. Public ms_txt_file As String                         '文本文件名称
  1448. Public ml_txt_format As Long                         '文本文件格式
  1449. Public lcls_xltc As cls_xltc                         '序列填充
  1450. Public mcls_new_report As cls_new_report             '新建报表类
  1451. Public mcls_new_report_model As cls_new_report_model '新建报表模板类
  1452. Public mcls_open_report As cls_open_report           '打开报表类
  1453. Public mcls_open_report_model As cls_open_report_model '打开报表模板类
  1454. Public mb_new_report As Boolean                      '是否新建报表
  1455. Public mb_new_report_model As Boolean                '是否新建报表模板
  1456. Public mb_open_report As Boolean                     '是否打开报表
  1457. Public mb_open_report_model As Boolean               '是否打开报表模板
  1458. Public ml_frmedit_count As Long                      '打开的编辑窗口数量
  1459. Public ml_new_file_count As Long                     '新建文件数量
  1460. Public mb_setfont As Boolean                         '是否设置字体，用以解决两个COMBO控件之间的冲突
  1462. Sub DetectExcel()
  1463.     '该过程检测并登记正在运行的 Excel。
  1464.     Const WM_USER = 1024
  1465.     Dim hwnd As Long
  1466.     '如果 Excel 在运行，则该 API 调用将返回其句柄。
  1467.     hwnd = FindWindow("XLMAIN", 0)
  1468.     If hwnd = 0 Then    '0 表示没有 Excel 在运行。
  1469.         Exit Sub
  1470.     Else
  1471.         'Excel 在运行，因此可以使用 SendMessage API
  1472.         '函数将其放入运行对象表。
  1473.         SendMessage hwnd, WM_USER + 18, 0, 0
  1474.     End If
  1475. End Sub
  1477. Sub GetExcel(ByVal OPENEXCEL_FILENAME As String)
  1478.     Dim MyXL As Object   '用于存放
  1479.     'Microsoft Excel 引用的变量。
  1480.     Dim ExcelWasNotRunning As Boolean   '用于最后释放的标记。
  1481.     
  1482.     '测试 Microsoft Excel 的副本是否在运行。
  1483.     On Error Resume Next   '延迟错误捕获。
  1484.     '不带第一个参数调用 Getobject 函数将
  1485.     '返回对该应用程序的实例的引用。
  1486.     '如果该应用程序不在运行，则会产生错误。
  1487.     Set MyXL = GetObject(, "Excel.Application")
  1488.     If Err.Number <> 0 Then ExcelWasNotRunning = True
  1489.     Err.Clear   '如果发生错误则要清除 Err 对象。
  1490.     
  1491.     '检测 Microsoft Excel。如果 Microsoft Excel 在运行，
  1492.     '则将其加入运行对象表。
  1493.     DetectExcel
  1494.     
  1495.     '将对象变量设为对要看的文件的引用。
  1496.     Set MyXL = GetObject(OPENEXCEL_FILENAME)
  1497.      
  1498.     '设置其 Application 属性，显示 Microsoft Excel。
  1499.     '然后使用 MyXL 对象引用的 Windows 集合
  1500.     '显示包含该文件的实际窗口。
  1501.     ' MyXL.Application.Visible = True
  1502.     SONG_i = 1
  1503.     '将Excel 文件在没用的窗体中打开
  1504.     Do While SONG_i < 30
  1505.         If MyXL.parent.Windows(SONG_i).Visible = False Then
  1506.             MyXL.parent.Windows(SONG_i).Visible = True
  1507.             Exit Do
  1508.         Else
  1509.             SONG_i = SONG_i + 1
  1510.         End If
  1511.     Loop
  1512.     MyXL.Application.WindowState = 2
  1513.     MyXL.Application.Visible = False
  1514.     If SONG_i = 30 Then
  1515.         MsgBox "打开EXCEL 文件失败!!!" & vbCrLf & "Excel 打开文件太多!!!", vbInformation + vbOKOnly, "百利/ERP5.0-电子报表"
  1516.         Exit Sub
  1517.     End If
  1518.     MDI_frame.Caption = Left(MDI_frame.Caption, 20) & OPENEXCEL_FILENAME
  1519.     '在此处对文件
  1520.     '进行操作。
  1521.     Dim excelcolA(1 To 26) As Variant '定义阿A-Z 的储存数组
  1522.     '定义合并单元的位置
  1523.     Dim TEMP_STAROW As Integer, TEMP_STACOL As Integer, TEMP_ENDCOL As Integer, TEMP_ENDrow As Integer
  1524.     Dim k As Integer
  1525.     Dim tempmergearea As Variant '定义合并单元位置地址的字符串
  1526.     Dim excelsheetname As String
  1527.     For SONG_i = 65 To 90
  1528.         '得到A-Z的ASCII码
  1529.         excelcolA(SONG_i - 64) = Chr(SONG_i)
  1530.     Next SONG_i
  1531.     '重新设置CELL的行列
  1532.     excelsheetname = MyXL.worksheets(1).Name
  1533.     ActiveForm.Cell1.DoSetPageLabel = excelsheetname
  1534.     ActiveForm.Cell1.Cols = 0
  1535.     ActiveForm.Cell1.Rows = 0
  1536.     song_row = 20
  1537.     song_col = 15
  1538.     Dim ap
  1539.     For SONG_i = Len(OPENEXCEL_FILENAME) To 0 Step -1
  1540.         If Mid(OPENEXCEL_FILENAME, SONG_i, 1) = "" Then
  1541.             ap = Right(OPENEXCEL_FILENAME, Len(OPENEXCEL_FILENAME) - SONG_i)
  1542.             Exit For
  1543.         End If
  1544.     Next SONG_i
  1545.     frm_rowcol.Label2.Caption = "您打开的文件为：" & ap
  1546.     frm_rowcol.Label2.AutoSize = True
  1547.     
  1548.     frm_rowcol.Show vbModal, MDI_frame
  1549.     
  1550.     ActiveForm.Cell1.Rows = song_row
  1551.     ActiveForm.Cell1.Cols = song_col
  1552.     
  1553.     
  1554.     For SONG_j = 1 To ActiveForm.Cell1.Rows
  1555.         ActiveForm.Cell1.DoSetRowHeight SONG_j - 1, MyXL.worksheets(excelsheetname).Rows(SONG_j).Height * 1.4
  1556.     Next SONG_j
  1557.     For SONG_i = 1 To ActiveForm.Cell1.Cols - 1
  1558.         ActiveForm.Cell1.DoSetColWidth SONG_i - 1, MyXL.worksheets(excelsheetname).Columns(SONG_i).Width * 1.4
  1559.     Next SONG_i
  1560.     '以下为读取Excel 文件并填充数据
  1561.     SONG_j = 1 '初始化行
  1562.     Do While SONG_j < ActiveForm.Cell1.Rows
  1563.         SONG_i = 1 '列
  1564.         If MyXL.worksheets(excelsheetname).range(excelcolA(SONG_i) & Trim(Str(SONG_j))).Borders(7).LineStyle = 1 Then
  1565.             ActiveForm.Cell1.DoDrawLine SONG_i - 1, SONG_j - 1, SONG_i - 1, SONG_j - 1, 2, 1, RGB(0, 0, 0) '边框
  1566.         End If
  1567.         Do While SONG_i < ActiveForm.Cell1.Cols
  1568.             Set tempmergearea = MyXL.worksheets(excelsheetname).range(excelcolA(SONG_i) & Trim(Str(SONG_j))).mergearea
  1569.             If tempmergearea.ADDRESS = "$" & excelcolA(SONG_i) & "$" & Trim(Str(SONG_j)) Then '不再合并组合中
  1570.                 
  1571.                 If MyXL.worksheets(excelsheetname).range(excelcolA(SONG_i) & Trim(Str(SONG_j))).Borders(8).LineStyle = 1 Then
  1572.                     ActiveForm.Cell1.DoDrawLine SONG_i - 1, SONG_j - 1, SONG_i - 1, SONG_j - 1, 4, 1, RGB(0, 0, 0) '边框
  1573.                 End If
  1574.                 If MyXL.worksheets(excelsheetname).range(excelcolA(SONG_i) & Trim(Str(SONG_j))).Borders(10).LineStyle = 1 Then
  1575.                     ActiveForm.Cell1.DoDrawLine SONG_i - 1, SONG_j - 1, SONG_i - 1, SONG_j - 1, 3, 1, RGB(0, 0, 0) '边框
  1576.                 End If
  1577.                 ActiveForm.Cell1.DoSetCellFont SONG_i - 1, SONG_j - 1, MyXL.worksheets(excelsheetname).cells(SONG_j, SONG_i).Font.Size, MyXL.worksheets(excelsheetname).cells(SONG_j, SONG_i).Font.FONTSTYLE, MyXL.worksheets(excelsheetname).cells(SONG_j, SONG_i).Font.Name '字体
  1578.                 If MyXL.worksheets(excelsheetname).cells(SONG_j, SONG_i).HorizontalAlignment = -4108 And MyXL.worksheets(excelsheetname).cells(SONG_j, SONG_i).VerticalAlignment = -4108 Then
  1579.                     ActiveForm.Cell1.DoSetCellAlignment SONG_i - 1, SONG_j - 1, 36
  1580.                 ElseIf MyXL.worksheets(excelsheetname).cells(SONG_j, SONG_i).HorizontalAlignment = -4108 Then
  1581.                     ActiveForm.Cell1.DoSetCellAlignment SONG_i - 1, SONG_j - 1, 4
  1582.                 ElseIf MyXL.worksheets(excelsheetname).cells(SONG_j, SONG_i).VerticalAlignment = -4108 Then
  1583.                     ActiveForm.Cell1.DoSetCellAlignment SONG_i - 1, SONG_j - 1, 32
  1584.                 End If
  1585.                 ActiveForm.Cell1.DoSetCellString SONG_i - 1, SONG_j - 1, MyXL.worksheets(excelsheetname).range(excelcolA(SONG_i) & Trim(Str(SONG_j))).Value
  1586.             Else '在合并组合中
  1587.                 TEMP_STACOL = 0
  1588.                 TEMP_STAROW = 0
  1589.                 TEMP_ENDCOL = 0
  1590.                 TEMP_ENDrow = 0
  1591.                 
  1592.                 TEMP_STACOL = Asc(Mid(tempmergearea.ADDRESS, 2, 1)) - 65
  1593.                 If SONG_j > 10 Then
  1594.                     TEMP_STAROW = Mid(tempmergearea.ADDRESS, 4, 2) - 1
  1595.                     TEMP_ENDrow = Mid(tempmergearea.ADDRESS, 10, 2) - 1
  1596.                     TEMP_ENDCOL = Asc(Mid(tempmergearea.ADDRESS, 8, 1)) - 65
  1597.                 Else
  1598.                     
  1599.                     TEMP_STAROW = Mid(tempmergearea.ADDRESS, 4, 1) - 1
  1600.                     TEMP_ENDrow = Mid(tempmergearea.ADDRESS, 9, 1) - 1
  1601.                     TEMP_ENDCOL = Asc(Mid(tempmergearea.ADDRESS, 7, 1)) - 65
  1602.                 End If
  1603.                 ActiveForm.Cell1.DoJoinCells TEMP_STACOL, TEMP_STAROW, TEMP_ENDCOL, TEMP_ENDrow
  1604.                 If MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).HorizontalAlignment = -4108 And MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).VerticalAlignment = -4108 Then
  1605.                     ActiveForm.Cell1.DoSetCellAlignment SONG_i - 1, SONG_j - 1, 36
  1606.                 ElseIf MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).HorizontalAlignment = -4108 Then
  1607.                     ActiveForm.Cell1.DoSetCellAlignment SONG_i - 1, SONG_j - 1, 4
  1608.                 ElseIf MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).VerticalAlignment = -4108 Then
  1609.                     ActiveForm.Cell1.DoSetCellAlignment SONG_i - 1, SONG_j - 1, 32
  1610.                 End If
  1611.                 ActiveForm.Cell1.DoSetCellFont TEMP_STACOL, TEMP_STAROW, MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).Font.Size, MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).Font.FONTSTYLE, MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).Font.Name '字体
  1612.                 ActiveForm.Cell1.DoSetCellString TEMP_STACOL, TEMP_STAROW, MyXL.worksheets(excelsheetname).cells(TEMP_STAROW + 1, TEMP_STACOL + 1).Value
  1613.                 If MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).Borders(8).LineStyle = 1 Then
  1614.                     ActiveForm.Cell1.DoDrawLine TEMP_STACOL, TEMP_STAROW, TEMP_ENDCOL, TEMP_ENDrow, 4, 1, RGB(0, 0, 0)    '边框
  1615.                 End If
  1616.                 If MyXL.worksheets(excelsheetname).range(deleteword(tempmergearea.ADDRESS, "$")).Borders(7).LineStyle = 1 Then
  1617.                     ActiveForm.Cell1.DoDrawLine TEMP_STACOL, TEMP_STAROW, TEMP_ENDCOL, TEMP_ENDrow, 3, 1, RGB(0, 0, 0)  '边框
  1618.                 End If
  1619.                 
  1620.             End If
  1621.             SONG_i = SONG_i + 1
  1622.         Loop
  1623.         SONG_j = SONG_j + 1
  1624.     Loop
  1625.     For SONG_i = 1 To ActiveForm.Cell1.Cols
  1626.         If MyXL.worksheets(excelsheetname).range(excelcolA(SONG_i) & Trim(Str(SONG_j))).Borders(8).LineStyle = 1 Then
  1627.             ActiveForm.Cell1.DoDrawLine SONG_i - 1, SONG_j - 1, SONG_i - 1, SONG_j - 1, 4, 1, RGB(0, 0, 0) '边框
  1628.         End If
  1629.     Next SONG_i
  1630.     '如果在启动时，Microsoft Excel 的这份副本不在运行中，
  1631.     '则使用 Application 属性的 Quit 方法来关闭它。
  1632.     '注意，当试图退出 Microsoft Excel 时，
  1633.     '标题栏会闪烁，并显示一条消息
  1634.     If ExcelWasNotRunning = True Then
  1635.         MyXL.saved = True
  1636.         MyXL.Application.Quit
  1637.     Else
  1638.         MyXL.saved = True
  1639.         MyXL.Application.Visible = True
  1640.     End If
  1641.     
  1642.     Set MyXL = Nothing   '释放对该应用程序
  1643.     '和电子数据表的引用。
  1644. End Sub
  1646. Private Sub mf_set_pagelabels()
  1647.     Dim i As Long, ls_label
  1648.     With Me.ActiveForm.Cell1
  1649.         For i = 0 To .DoGetTotalPages - 1
  1650.             .DoGetPageLabel i, ls_label
  1651.             If (Left(ls_label, 1) = "第" And Right(ls_label, 1) = "页") Or IsNumeric(ls_label) Then
  1652.                 .DoSetPageLabel i, "第" & CStr(i + 1) & "页"
  1653.             End If
  1654.         Next i
  1655.     End With
  1656. End Sub
  1658. Private Sub mf_sort(ByVal ls_sort As String)
  1659.     Dim ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  1660.     With Me.ActiveForm
  1661.         .Cell1.DoGetSelectRange ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  1662.         If ll_col_begin = ll_col_end And ll_row_begin = ll_row_end Then
  1663.             Exit Sub
  1664.         End If
  1665.         If ls_sort = "ascend" Then
  1666.             frm_sort.mb_sort = True
  1667.         Else
  1668.             frm_sort.mb_sort = False
  1669.         End If
  1670.         frm_sort.Show vbModal
  1671.     End With
  1672. End Sub
  1674. Private Sub mf_Alignment(ByVal ls_alignment As String)
  1675.     Dim ll_alignment As Long, i As Long, j As Long
  1676.     Dim ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  1677.     ll_alignment = 0
  1678.     With Me.Toolbar3
  1679.         Select Case ls_alignment
  1680.         Case "left"
  1681.             .Buttons("left").Value = tbrPressed
  1682.             .Buttons("mid_sp").Value = tbrUnpressed
  1683.             .Buttons("right").Value = tbrUnpressed
  1684.         Case "mid_sp"
  1685.             .Buttons("left").Value = tbrUnpressed
  1686.             .Buttons("mid_sp").Value = tbrPressed
  1687.             .Buttons("right").Value = tbrUnpressed
  1688.         Case "right"
  1689.             .Buttons("left").Value = tbrUnpressed
  1690.             .Buttons("mid_sp").Value = tbrUnpressed
  1691.             .Buttons("right").Value = tbrPressed
  1692.         Case "top"
  1693.             .Buttons("top").Value = tbrPressed
  1694.             .Buttons("mid_cz").Value = tbrUnpressed
  1695.             .Buttons("bottom").Value = tbrUnpressed
  1696.         Case "mid_cz"
  1697.             .Buttons("top").Value = tbrUnpressed
  1698.             .Buttons("mid_cz").Value = tbrPressed
  1699.             .Buttons("bottom").Value = tbrUnpressed
  1700.         Case "bottom"
  1701.             .Buttons("top").Value = tbrUnpressed
  1702.             .Buttons("mid_cz").Value = tbrUnpressed
  1703.             .Buttons("bottom").Value = tbrPressed
  1704.         End Select
  1705.         If .Buttons("left").Value = tbrPressed Then
  1706.             ll_alignment = ll_alignment + 1
  1707.         End If
  1708.         If .Buttons("mid_sp").Value = tbrPressed Then
  1709.             ll_alignment = ll_alignment + 4
  1710.         End If
  1711.         If .Buttons("right").Value = tbrPressed Then
  1712.             ll_alignment = ll_alignment + 2
  1713.         End If
  1714.         If .Buttons("top").Value = tbrPressed Then
  1715.             ll_alignment = ll_alignment + 8
  1716.         End If
  1717.         If .Buttons("mid_cz").Value = tbrPressed Then
  1718.             ll_alignment = ll_alignment + 32
  1719.         End If
  1720.         If .Buttons("bottom").Value = tbrPressed Then
  1721.             ll_alignment = ll_alignment + 16
  1722.         End If
  1723.         
  1724.     End With
  1725.     With Me.ActiveForm
  1726.         .Cell1.DoGetSelectRange ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  1727.         For i = ll_col_begin To ll_col_end
  1728.             For j = ll_row_begin To ll_row_end
  1729.                 .Cell1.DoSetCellAlignment i, j, ll_alignment
  1730.             Next j
  1731.         Next i
  1732.         .Cell1.DoRedrawAll
  1733.     End With
  1734. End Sub
  1736. Private Sub mf_setfont()
  1737.     Dim ls_fontname As String, ll_fontsize As Long
  1738.     Dim ll_fontstyle As Long, i As Long, j As Long
  1739.     Dim ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  1740.     ls_fontname = Combo1.Text
  1741.     ll_fontsize = CInt(Combo2.Text)
  1742.     With Toolbar3
  1743.         If .Buttons("jiacu").Value = tbrUnpressed And _
  1744.             .Buttons("qinxie").Value = tbrUnpressed And _
  1745.             .Buttons("xiahuaxian").Value = tbrUnpressed Then
  1746.             ll_fontstyle = 0
  1747.         End If
  1748.         If .Buttons("jiacu").Value = tbrPressed And _
  1749.             .Buttons("qinxie").Value = tbrUnpressed And _
  1750.             .Buttons("xiahuaxian").Value = tbrUnpressed Then
  1751.             ll_fontstyle = 1
  1752.             
  1753.         End If
  1754.         If .Buttons("jiacu").Value = tbrUnpressed And _
  1755.             .Buttons("qinxie").Value = tbrPressed And _
  1756.             .Buttons("xiahuaxian").Value = tbrUnpressed Then
  1757.             ll_fontstyle = 2
  1758.             
  1759.         End If
  1760.         If .Buttons("jiacu").Value = tbrUnpressed And _
  1761.             .Buttons("qinxie").Value = tbrUnpressed And _
  1762.             .Buttons("xiahuaxian").Value = tbrPressed Then
  1763.             ll_fontstyle = 3
  1764.             
  1765.         End If
  1766.         If .Buttons("jiacu").Value = tbrPressed And _
  1767.             .Buttons("qinxie").Value = tbrPressed And _
  1768.             .Buttons("xiahuaxian").Value = tbrUnpressed Then
  1769.             ll_fontstyle = 4
  1770.             
  1771.         End If
  1772.         If .Buttons("jiacu").Value = tbrPressed And _
  1773.             .Buttons("qinxie").Value = tbrUnpressed And _
  1774.             .Buttons("xiahuaxian").Value = tbrPressed Then
  1775.             ll_fontstyle = 5
  1776.             
  1777.         End If
  1778.         If .Buttons("jiacu").Value = tbrUnpressed And _
  1779.             .Buttons("qinxie").Value = tbrPressed And _
  1780.             .Buttons("xiahuaxian").Value = tbrPressed Then
  1781.             ll_fontstyle = 6
  1782.             
  1783.         End If
  1784.         If .Buttons("jiacu").Value = tbrPressed And _
  1785.             .Buttons("qinxie").Value = tbrPressed And _
  1786.             .Buttons("xiahuaxian").Value = tbrPressed Then
  1787.             ll_fontstyle = 7
  1788.             
  1789.         End If
  1790.         
  1791.     End With
  1792.     With Me.ActiveForm
  1793.         .Cell1.DoGetSelectRange ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  1794.         For i = ll_col_begin To ll_col_end
  1795.             For j = ll_row_begin To ll_row_end
  1796.                 .Cell1.DoSetCellFont i, j, ll_fontsize, ll_fontstyle, ls_fontname
  1797.             Next j
  1798.         Next i
  1799.         .Cell1.DoRedrawAll
  1800.     End With
  1801. End Sub
  1803. Private Sub mf_setcolor()
  1804.     Dim ll_color As Long, i As Long, j As Long, ll_backcolor, ll_forecolor
  1805.     Dim ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  1806.     ll_color = mf_getcolor(Toolbar3)
  1807.     Me.ActiveForm.Cell1.DoGetSelectRange ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  1808.     For i = ll_col_begin To ll_col_end
  1809.         For j = ll_row_begin To ll_row_end
  1810.             Me.ActiveForm.Cell1.DoGetCellColor i, j, ll_forecolor, ll_backcolor
  1811.             Me.ActiveForm.Cell1.DoSetCellColor i, j, ll_color, ll_backcolor
  1812.         Next j
  1813.     Next i
  1814.     Me.ActiveForm.Cell1.DoRedrawAll
  1815. End Sub
  1817. Private Sub mf_init_combo1()
  1818.     Dim i As Long
  1819.     For i = 0 To Screen.FontCount
  1820.         If Len(Trim(Screen.Fonts(i))) > 0 Then
  1821.             Combo1.AddItem Screen.Fonts(i)
  1822.         End If
  1823.     Next i
  1824.     Combo1.Text = "宋体"
  1825. End Sub
  1827. Private Function mf_getcolor(ByVal ltlbar_color As ToolBar) As Long
  1828.     If ltlbar_color.Name = "Toolbar3" Then
  1829.         Select Case ltlbar_color.Buttons("color").Image
  1830.         Case 15
  1831.             mf_getcolor = RGB(0, 0, 0)
  1832.         Case 16
  1833.             mf_getcolor = RGB(128, 128, 128)
  1834.         Case 17
  1835.             mf_getcolor = RGB(128, 0, 0)
  1836.         Case 18
  1837.             mf_getcolor = RGB(128, 128, 0)
  1838.         Case 19
  1839.             mf_getcolor = RGB(0, 128, 0)
  1840.         Case 20
  1841.             mf_getcolor = RGB(0, 128, 128)
  1842.         Case 21
  1843.             mf_getcolor = RGB(0, 0, 128)
  1844.         Case 22
  1845.             mf_getcolor = RGB(128, 0, 128)
  1846.         Case 23
  1847.             mf_getcolor = RGB(128, 128, 64)
  1848.         Case 24