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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  3. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
  4. Begin VB.Form frm_cell 
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "单元格属性"
  7.    ClientHeight    =   4005
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   5040
  11.    HelpContextID   =   1012001
  12.    Icon            =   "单元格属性.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4005
  17.    ScaleWidth      =   5040
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   1  '所有者中心
  20.    Begin MSComctlLib.ImageList ImageList1 
  21.       Left            =   300
  22.       Top             =   3480
  23.       _ExtentX        =   1005
  24.       _ExtentY        =   1005
  25.       BackColor       =   -2147483643
  26.       ImageWidth      =   48
  27.       ImageHeight     =   16
  28.       MaskColor       =   12632256
  29.       _Version        =   393216
  30.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  31.          NumListImages   =   27
  32.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  33.             Picture         =   "单元格属性.frx":1042
  34.             Key             =   ""
  35.          EndProperty
  36.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  37.             Picture         =   "单元格属性.frx":1396
  38.             Key             =   ""
  39.          EndProperty
  40.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  41.             Picture         =   "单元格属性.frx":16EA
  42.             Key             =   ""
  43.          EndProperty
  44.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  45.             Picture         =   "单元格属性.frx":1A3E
  46.             Key             =   ""
  47.          EndProperty
  48.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "单元格属性.frx":1D92
  50.             Key             =   ""
  51.          EndProperty
  52.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "单元格属性.frx":20E6
  54.             Key             =   ""
  55.          EndProperty
  56.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  57.             Picture         =   "单元格属性.frx":243A
  58.             Key             =   ""
  59.          EndProperty
  60.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  61.             Picture         =   "单元格属性.frx":278E
  62.             Key             =   ""
  63.          EndProperty
  64.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  65.             Picture         =   "单元格属性.frx":2AE2
  66.             Key             =   ""
  67.          EndProperty
  68.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  69.             Picture         =   "单元格属性.frx":2E36
  70.             Key             =   ""
  71.          EndProperty
  72.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  73.             Picture         =   "单元格属性.frx":318A
  74.             Key             =   ""
  75.          EndProperty
  76.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  77.             Picture         =   "单元格属性.frx":34DE
  78.             Key             =   ""
  79.          EndProperty
  80.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  81.             Picture         =   "单元格属性.frx":3832
  82.             Key             =   ""
  83.          EndProperty
  84.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  85.             Picture         =   "单元格属性.frx":3B86
  86.             Key             =   ""
  87.          EndProperty
  88.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  89.             Picture         =   "单元格属性.frx":3EDA
  90.             Key             =   ""
  91.          EndProperty
  92.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  93.             Picture         =   "单元格属性.frx":422E
  94.             Key             =   ""
  95.          EndProperty
  96.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  97.             Picture         =   "单元格属性.frx":4582
  98.             Key             =   ""
  99.          EndProperty
  100.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  101.             Picture         =   "单元格属性.frx":48D6
  102.             Key             =   ""
  103.          EndProperty
  104.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  105.             Picture         =   "单元格属性.frx":4C2A
  106.             Key             =   ""
  107.          EndProperty
  108.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  109.             Picture         =   "单元格属性.frx":4F7E
  110.             Key             =   ""
  111.          EndProperty
  112.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  113.             Picture         =   "单元格属性.frx":52D2
  114.             Key             =   ""
  115.          EndProperty
  116.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  117.             Picture         =   "单元格属性.frx":5626
  118.             Key             =   ""
  119.          EndProperty
  120.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  121.             Picture         =   "单元格属性.frx":597A
  122.             Key             =   ""
  123.          EndProperty
  124.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  125.             Picture         =   "单元格属性.frx":5CCE
  126.             Key             =   ""
  127.          EndProperty
  128.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  129.             Picture         =   "单元格属性.frx":6022
  130.             Key             =   ""
  131.          EndProperty
  132.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  133.             Picture         =   "单元格属性.frx":6376
  134.             Key             =   ""
  135.          EndProperty
  136.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  137.             Picture         =   "单元格属性.frx":66CA
  138.             Key             =   ""
  139.          EndProperty
  140.       EndProperty
  141.    End
  142.    Begin TabDlg.SSTab SSTab1 
  143.       Height          =   3495
  144.       Left            =   60
  145.       TabIndex        =   3
  146.       Top             =   60
  147.       Width           =   4935
  148.       _ExtentX        =   8705
  149.       _ExtentY        =   6165
  150.       _Version        =   393216
  151.       Style           =   1
  152.       Tabs            =   4
  153.       TabsPerRow      =   4
  154.       TabHeight       =   520
  155.       TabCaption(0)   =   "对齐"
  156.       TabPicture(0)   =   "单元格属性.frx":6A1E
  157.       Tab(0).ControlEnabled=   -1  'True
  158.       Tab(0).Control(0)=   "Frame4"
  159.       Tab(0).Control(0).Enabled=   0   'False
  160.       Tab(0).Control(1)=   "Frame8"
  161.       Tab(0).Control(1).Enabled=   0   'False
  162.       Tab(0).Control(2)=   "Frame3"
  163.       Tab(0).Control(2).Enabled=   0   'False
  164.       Tab(0).ControlCount=   3
  165.       TabCaption(1)   =   "字体颜色"
  166.       TabPicture(1)   =   "单元格属性.frx":6A3A
  167.       Tab(1).ControlEnabled=   0   'False
  168.       Tab(1).Control(0)=   "Label4"
  169.       Tab(1).Control(0).Enabled=   0   'False
  170.       Tab(1).Control(1)=   "Label5"
  171.       Tab(1).Control(1).Enabled=   0   'False
  172.       Tab(1).Control(2)=   "Label6"
  173.       Tab(1).Control(2).Enabled=   0   'False
  174.       Tab(1).Control(3)=   "Label7"
  175.       Tab(1).Control(3).Enabled=   0   'False
  176.       Tab(1).Control(4)=   "ImageCombo1"
  177.       Tab(1).Control(4).Enabled=   0   'False
  178.       Tab(1).Control(5)=   "Combo2"
  179.       Tab(1).Control(5).Enabled=   0   'False
  180.       Tab(1).Control(6)=   "Combo3"
  181.       Tab(1).Control(6).Enabled=   0   'False
  182.       Tab(1).Control(7)=   "Combo4"
  183.       Tab(1).Control(7).Enabled=   0   'False
  184.       Tab(1).ControlCount=   8
  185.       TabCaption(2)   =   "数值格式"
  186.       TabPicture(2)   =   "单元格属性.frx":6A56
  187.       Tab(2).ControlEnabled=   0   'False
  188.       Tab(2).Control(0)=   "Label8"
  189.       Tab(2).Control(0).Enabled=   0   'False
  190.       Tab(2).Control(1)=   "Label9"
  191.       Tab(2).Control(1).Enabled=   0   'False
  192.       Tab(2).Control(2)=   "Label10"
  193.       Tab(2).Control(2).Enabled=   0   'False
  194.       Tab(2).Control(3)=   "Check4"
  195.       Tab(2).Control(3).Enabled=   0   'False
  196.       Tab(2).Control(4)=   "Check5"
  197.       Tab(2).Control(4).Enabled=   0   'False
  198.       Tab(2).Control(5)=   "Check6"
  199.       Tab(2).Control(5).Enabled=   0   'False
  200.       Tab(2).Control(6)=   "Combo5"
  201.       Tab(2).Control(6).Enabled=   0   'False
  202.       Tab(2).Control(7)=   "Combo6"
  203.       Tab(2).Control(7).Enabled=   0   'False
  204.       Tab(2).Control(8)=   "Text1"
  205.       Tab(2).Control(8).Enabled=   0   'False
  206.       Tab(2).ControlCount=   9
  207.       TabCaption(3)   =   "其它"
  208.       TabPicture(3)   =   "单元格属性.frx":6A72
  209.       Tab(3).ControlEnabled=   0   'False
  210.       Tab(3).Control(0)=   "Frame7"
  211.       Tab(3).Control(0).Enabled=   0   'False
  212.       Tab(3).ControlCount=   1
  213.       Begin VB.Frame Frame7 
  214.          Caption         =   "报表模板"
  215.          Height          =   2700
  216.          Left            =   -74880
  217.          TabIndex        =   40
  218.          Top             =   540
  219.          Width           =   4695
  220.          Begin VB.OptionButton Option15 
  221.             Caption         =   "转换中文大写（二）"
  222.             Height          =   375
  223.             Left            =   3300
  224.             TabIndex        =   46
  225.             Top             =   1920
  226.             Width           =   1260
  227.          End
  228.          Begin VB.OptionButton Option14 
  229.             Caption         =   "转换中文大写（一）"
  230.             Height          =   405
  231.             Left            =   1785
  232.             TabIndex        =   45
  233.             Top             =   1920
  234.             Width           =   1260
  235.          End
  236.          Begin VB.OptionButton Option13 
  237.             Caption         =   "转换中文大写金额"
  238.             Height          =   405
  239.             Left            =   345
  240.             TabIndex        =   44
  241.             Top             =   1920
  242.             Width           =   1110
  243.          End
  244.          Begin VB.CheckBox Check2 
  245.             Caption         =   "设置打印时是否隐藏本单元内容"
  246.             Height          =   375
  247.             Left            =   360
  248.             TabIndex        =   43
  249.             Top             =   1290
  250.             Width           =   3975
  251.          End
  252.          Begin VB.CheckBox Check1 
  253.             Caption         =   "设置单元只读属性"
  254.             Height          =   375
  255.             Left            =   360
  256.             TabIndex        =   42
  257.             Top             =   825
  258.             Width           =   3975
  259.          End
  260.          Begin VB.CheckBox Check7 
  261.             Caption         =   "本单元在报表中不显示公式,只显示计算结果"
  262.             Height          =   375
  263.             Left            =   360
  264.             TabIndex        =   41
  265.             Top             =   360
  266.             Width           =   3975
  267.          End
  268.       End
  269.       Begin VB.TextBox Text1 
  270.          Height          =   300
  271.          Left            =   -73710
  272.          TabIndex        =   36
  273.          Top             =   1980
  274.          Width           =   3165
  275.       End
  276.       Begin VB.ComboBox Combo6 
  277.          BeginProperty Font 
  278.             Name            =   "Tahoma"
  279.             Size            =   9
  280.             Charset         =   0
  281.             Weight          =   400
  282.             Underline       =   0   'False
  283.             Italic          =   0   'False
  284.             Strikethrough   =   0   'False
  285.          EndProperty
  286.          Height          =   330
  287.          ItemData        =   "单元格属性.frx":6A8E
  288.          Left            =   -73710
  289.          List            =   "单元格属性.frx":6A9C
  290.          Style           =   2  'Dropdown List
  291.          TabIndex        =   35
  292.          Top             =   1530
  293.          Width           =   3165
  294.       End
  295.       Begin VB.ComboBox Combo5 
  296.          BeginProperty Font 
  297.             Name            =   "Tahoma"
  298.             Size            =   9
  299.             Charset         =   0
  300.             Weight          =   400
  301.             Underline       =   0   'False
  302.             Italic          =   0   'False
  303.             Strikethrough   =   0   'False
  304.          EndProperty
  305.          Height          =   330
  306.          ItemData        =   "单元格属性.frx":6AC0
  307.          Left            =   -73710
  308.          List            =   "单元格属性.frx":6ACD
  309.          Style           =   2  'Dropdown List
  310.          TabIndex        =   34
  311.          Top             =   1080
  312.          Width           =   3165
  313.       End
  314.       Begin VB.CheckBox Check6 
  315.          Caption         =   "不显示0值"
  316.          Height          =   195
  317.          Left            =   -71610
  318.          TabIndex        =   33
  319.          Top             =   630
  320.          Width           =   1155
  321.       End
  322.       Begin VB.CheckBox Check5 
  323.          Caption         =   "科学计数"
  324.          Height          =   255
  325.          Left            =   -73155
  326.          TabIndex        =   32
  327.          Top             =   600
  328.          Width           =   1335
  329.       End
  330.       Begin VB.CheckBox Check4 
  331.          Caption         =   "百分号"
  332.          Height          =   255
  333.          Left            =   -74580
  334.          TabIndex        =   31
  335.          Top             =   600
  336.          Width           =   1215
  337.       End
  338.       Begin VB.ComboBox Combo4 
  339.          BeginProperty Font 
  340.             Name            =   "Tahoma"
  341.             Size            =   9
  342.             Charset         =   0
  343.             Weight          =   400
  344.             Underline       =   0   'False
  345.             Italic          =   0   'False
  346.             Strikethrough   =   0   'False
  347.          EndProperty
  348.          Height          =   330
  349.          ItemData        =   "单元格属性.frx":6AF7
  350.          Left            =   -74040
  351.          List            =   "单元格属性.frx":6B2B
  352.          Style           =   2  'Dropdown List
  353.          TabIndex        =   25
  354.          Top             =   1080
  355.          Width           =   1215
  356.       End
  357.       Begin VB.ComboBox Combo3 
  358.          BeginProperty Font 
  359.             Name            =   "Tahoma"
  360.             Size            =   9
  361.             Charset         =   0
  362.             Weight          =   400
  363.             Underline       =   0   'False
  364.             Italic          =   0   'False
  365.             Strikethrough   =   0   'False
  366.          EndProperty
  367.          Height          =   330
  368.          ItemData        =   "单元格属性.frx":6B6D
  369.          Left            =   -71880
  370.          List            =   "单元格属性.frx":6B89
  371.          Style           =   2  'Dropdown List
  372.          TabIndex        =   24
  373.          Top             =   1080
  374.          Width           =   1335
  375.       End
  376.       Begin VB.ComboBox Combo2 
  377.          BeginProperty Font 
  378.             Name            =   "Tahoma"
  379.             Size            =   9
  380.             Charset         =   0
  381.             Weight          =   400
  382.             Underline       =   0   'False
  383.             Italic          =   0   'False
  384.             Strikethrough   =   0   'False
  385.          EndProperty
  386.          Height          =   330
  387.          Left            =   -74040
  388.          Style           =   2  'Dropdown List
  389.          TabIndex        =   23
  390.          Top             =   600
  391.          Width           =   3495
  392.       End
  393.       Begin VB.Frame Frame3 
  394.          Caption         =   "正文显示"
  395.          Height          =   1575
  396.          Left            =   150
  397.          TabIndex        =   19
  398.          Top             =   1740
  399.          Width           =   2175
  400.          Begin VB.OptionButton Option7 
  401.             Caption         =   "单行显示"
  402.             Height          =   255
  403.             Left            =   300
  404.             TabIndex        =   22
  405.             Top             =   300
  406.             Value           =   -1  'True
  407.             Width           =   1575
  408.          End
  409.          Begin VB.OptionButton Option8 
  410.             Caption         =   "自动折行显示"
  411.             Height          =   255
  412.             Left            =   300
  413.             TabIndex        =   21
  414.             Top             =   630
  415.             Width           =   1575
  416.          End
  417.          Begin VB.OptionButton Option9 
  418.             Caption         =   "显示覆盖信息..."
  419.             Height          =   255
  420.             Left            =   300
  421.             TabIndex        =   20
  422.             Top             =   960
  423.             Width           =   1695
  424.          End
  425.       End
  426.       Begin VB.Frame Frame8 
  427.          Caption         =   "对齐"
  428.          Height          =   1035
  429.          Left            =   150
  430.          TabIndex        =   8
  431.          Top             =   510
  432.          Width           =   4635
  433.          Begin VB.Frame Frame2 
  434.             BorderStyle     =   0  'None
  435.             Height          =   255
  436.             Left            =   1320
  437.             TabIndex        =   13
  438.             Top             =   240
  439.             Width           =   2775
  440.             Begin VB.OptionButton Option3 
  441.                Caption         =   "居右"
  442.                Height          =   255
  443.                Left            =   2130
  444.                TabIndex        =   16
  445.                Top             =   30
  446.                Width           =   975
  447.             End
  448.             Begin VB.OptionButton Option2 
  449.                Caption         =   "居中"
  450.                Height          =   255
  451.                Left            =   1140
  452.                TabIndex        =   15
  453.                Top             =   30
  454.                Width           =   975
  455.             End
  456.             Begin VB.OptionButton Option1 
  457.                Caption         =   "居左"
  458.                Height          =   255
  459.                Left            =   90
  460.                TabIndex        =   14
  461.                Top             =   30
  462.                Value           =   -1  'True
  463.                Width           =   975
  464.             End
  465.          End
  466.          Begin VB.Frame Frame1 
  467.             BorderStyle     =   0  'None
  468.             Height          =   255
  469.             Left            =   1320
  470.             TabIndex        =   9
  471.             Top             =   600
  472.             Width           =   2775
  473.             Begin VB.OptionButton Option6 
  474.                Caption         =   "居下"
  475.                Height          =   255
  476.                Left            =   2130
  477.                TabIndex        =   12
  478.                Top             =   60
  479.                Value           =   -1  'True
  480.                Width           =   975
  481.             End
  482.             Begin VB.OptionButton Option5 
  483.                Caption         =   "居中"
  484.                Height          =   255
  485.                Left            =   1140
  486.                TabIndex        =   11
  487.                Top             =   60
  488.                Width           =   855
  489.             End
  490.             Begin VB.OptionButton Option4 
  491.                Caption         =   "居上"
  492.                Height          =   210
  493.                Left            =   90
  494.                TabIndex        =   10
  495.                Top             =   60
  496.                Width           =   735
  497.             End
  498.          End
  499.          Begin VB.Label Label1 
  500.             Caption         =   "水平居中:"
  501.             Height          =   255
  502.             Left            =   300
  503.             TabIndex        =   18
  504.             Top             =   270
  505.             Width           =   1095
  506.          End
  507.          Begin VB.Label Label2 
  508.             Caption         =   "垂直居中:"
  509.             Height          =   255
  510.             Left            =   300
  511.             TabIndex        =   17
  512.             Top             =   630
  513.             Width           =   975
  514.          End
  515.       End
  516.       Begin VB.Frame Frame4 
  517.          Caption         =   "文本方向"
  518.          Height          =   1575
  519.          Left            =   2520
  520.          TabIndex        =   4
  521.          Top             =   1740
  522.          Width           =   2235
  523.          Begin VB.OptionButton Option10 
  524.             Caption         =   "水平"
  525.             Height          =   255
  526.             Left            =   300
  527.             TabIndex        =   7
  528.             Top             =   300
  529.             Width           =   1575
  530.          End
  531.          Begin VB.OptionButton Option11 
  532.             Caption         =   "垂直向下"
  533.             Height          =   255
  534.             Left            =   300
  535.             TabIndex        =   6
  536.             Top             =   630
  537.             Width           =   1335
  538.          End
  539.          Begin VB.OptionButton Option12 
  540.             Caption         =   "垂直向上"
  541.             Height          =   255
  542.             Left            =   300
  543.             TabIndex        =   5
  544.             Top             =   960
  545.             Width           =   1455
  546.          End
  547.       End
  548.       Begin MSComctlLib.ImageCombo ImageCombo1 
  549.          Height          =   345
  550.          Left            =   -74040
  551.          TabIndex        =   26
  552.          Top             =   1560
  553.          Width           =   1215
  554.          _ExtentX        =   2143
  555.          _ExtentY        =   609
  556.          _Version        =   393216
  557.          ForeColor       =   -2147483640
  558.          BackColor       =   -2147483643
  559.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  560.             Name            =   "Tahoma"
  561.             Size            =   9
  562.             Charset         =   0
  563.             Weight          =   400
  564.             Underline       =   0   'False
  565.             Italic          =   0   'False
  566.             Strikethrough   =   0   'False
  567.          EndProperty
  568.          Locked          =   -1  'True
  569.          Text            =   "ImageCombo1"
  570.          ImageList       =   "ImageList1"
  571.       End
  572.       Begin VB.Label Label10 
  573.          Caption         =   "小数位数:"
  574.          Height          =   225
  575.          Left            =   -74640
  576.          TabIndex        =   39
  577.          Top             =   2040
  578.          Width           =   1095
  579.       End
  580.       Begin VB.Label Label9 
  581.          Caption         =   "货币符号:"
  582.          Height          =   225
  583.          Left            =   -74640
  584.          TabIndex        =   38
  585.          Top             =   1590
  586.          Width           =   1095
  587.       End
  588.       Begin VB.Label Label8 
  589.          Caption         =   "千分位:"
  590.          Height          =   255
  591.          Left            =   -74640
  592.          TabIndex        =   37
  593.          Top             =   1140
  594.          Width           =   1095
  595.       End
  596.       Begin VB.Label Label7 
  597.          Caption         =   "颜色:"
  598.          Height          =   375
  599.          Left            =   -74640
  600.          TabIndex        =   30
  601.          Top             =   1620
  602.          Width           =   615
  603.       End
  604.       Begin VB.Label Label6 
  605.          Caption         =   "字号:"
  606.          Height          =   375
  607.          Left            =   -74640
  608.          TabIndex        =   29
  609.          Top             =   1170
  610.          Width           =   615
  611.       End
  612.       Begin VB.Label Label5 
  613.          Caption         =   "字型:"
  614.          Height          =   375
  615.          Left            =   -72480
  616.          TabIndex        =   28
  617.          Top             =   1170
  618.          Width           =   615
  619.       End
  620.       Begin VB.Label Label4 
  621.          Caption         =   "字体:"
  622.          Height          =   375
  623.          Left            =   -74640
  624.          TabIndex        =   27
  625.          Top             =   720
  626.          Width           =   615
  627.       End
  628.    End
  629.    Begin VB.CommandButton Command2 
  630.       Cancel          =   -1  'True
  631.       Caption         =   "取消(&C)"
  632.       Height          =   300
  633.       Left            =   3870
  634.       TabIndex        =   1
  635.       Top             =   3630
  636.       Width           =   1120
  637.    End
  638.    Begin VB.CommandButton command1 
  639.       Caption         =   "确认(&O)"
  640.       Default         =   -1  'True
  641.       Height          =   300
  642.       Left            =   2640
  643.       TabIndex        =   0
  644.       Top             =   3630
  645.       Width           =   1120
  646.    End
  647.    Begin VB.TextBox Text2 
  648.       Height          =   270
  649.       Left            =   1800
  650.       TabIndex        =   2
  651.       Text            =   "Text2"
  652.       Top             =   360
  653.       Width           =   255
  654.    End
  655. End
  656. Attribute VB_Name = "frm_cell"
  657. Attribute VB_GlobalNameSpace = False
  658. Attribute VB_Creatable = False
  659. Attribute VB_PredeclaredId = True
  660. Attribute VB_Exposed = False
  661. '***********************************************
  662. '*    模 块 名 称 :单元格属性
  663. '*    功 能 描 述 :
  664. '*    程序员姓名  :奚俊峰
  665. '*    最后修改人  :奚俊峰
  666. '*    最后修改时间:2002/01/21
  667. '***********************************************
  669. Option Explicit
  670. Private Sub mf_init_color(ByVal limgcmb_1 As ImageCombo) '颜色
  671.     limgcmb_1.ComboItems.Add 1, "p1", "", 1
  672.     limgcmb_1.ComboItems.Add 2, "p2", "", 2
  673.     limgcmb_1.ComboItems.Add 3, "p3", "", 3
  674.     limgcmb_1.ComboItems.Add 4, "p4", "", 4
  675.     limgcmb_1.ComboItems.Add 5, "p5", "", 5
  676.     limgcmb_1.ComboItems.Add 6, "p6", "", 6
  677.     limgcmb_1.ComboItems.Add 7, "p7", "", 7
  678.     limgcmb_1.ComboItems.Add 8, "p8", "", 8
  679.     limgcmb_1.ComboItems.Add 9, "p9", "", 9
  680.     limgcmb_1.ComboItems.Add 10, "p10", "", 10
  681.     limgcmb_1.ComboItems.Add 11, "p11", "", 11
  682.     limgcmb_1.ComboItems.Add 12, "p12", "", 12
  683.     limgcmb_1.ComboItems.Add 13, "p13", "", 13
  684.     limgcmb_1.ComboItems.Add 14, "p14", "", 14
  685.     limgcmb_1.ComboItems.Add 15, "p15", "", 15
  686.     limgcmb_1.ComboItems.Add 16, "p16", "", 16
  687.     limgcmb_1.ComboItems.Add 17, "p17", "", 17
  688.     limgcmb_1.ComboItems.Add 18, "p18", "", 18
  689.     limgcmb_1.ComboItems.Add 19, "p19", "", 19
  690.     limgcmb_1.ComboItems.Add 20, "p20", "", 20
  691.     limgcmb_1.ComboItems.Add 21, "p21", "", 21
  692.     limgcmb_1.ComboItems.Add 22, "p22", "", 22
  693.     limgcmb_1.ComboItems.Add 23, "p23", "", 23
  694.     limgcmb_1.ComboItems.Add 24, "p24", "", 24
  695.     limgcmb_1.ComboItems.Add 25, "p25", "", 25
  696.     limgcmb_1.ComboItems.Add 26, "p26", "", 26
  697.     limgcmb_1.ComboItems.Add 27, "p27", "", 27
  698. End Sub
  700. Private Sub mf_init_combo2()
  701.     Dim i As Long
  702.     For i = 0 To Screen.FontCount
  703.         If Len(Trim(Screen.Fonts(i))) > 0 Then
  704.             Combo2.AddItem Screen.Fonts(i)
  705.         End If
  706.     Next i
  707. End Sub
  709. Private Sub Command1_Click()
  710.     Dim i As Long, j As Long, ll_alignment As Long, ll_forecolor_old
  711.     Dim ll_textstyle As Long, ll_fontsize As Long, ll_fontstyle As Long
  712.     Dim ls_fontname As String, ll_forecolor As Long, ll_backcolor
  713.     Dim ll_qfw As Long, ll_bfs As Long, ll_xsws As Long, ll_hbfh As Long
  714.     Dim ll_unit As Long, ll_fs As Long, ll_kxjs As Long, ls_note As String
  715.     Dim ls_read As Boolean, ls_hide As Boolean
  716.     Dim ls_zhdx1 As Boolean, ls_zhdx2 As Boolean, ls_zhdx3 As Boolean
  717.     Dim ll_orientation As Long, ll_zero As Long
  718.     Dim ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  719.     ll_alignment = 0
  720.     With MDI_frame.ActiveForm
  721.         '设置单元格对齐
  722.         If Option1.Value = True Then
  723.             ll_alignment = ll_alignment + 1
  724.         End If
  725.         If Option2.Value = True Then
  726.             ll_alignment = ll_alignment + 4
  727.         End If
  728.         If Option3.Value = True Then
  729.             ll_alignment = ll_alignment + 2
  730.         End If
  731.         If Option4.Value = True Then
  732.             ll_alignment = ll_alignment + 8
  733.         End If
  734.         If Option5.Value = True Then
  735.             ll_alignment = ll_alignment + 32
  736.         End If
  737.         If Option6.Value = True Then
  738.             ll_alignment = ll_alignment + 16
  739.         End If
  740.         '设置折行
  741.         If Option7.Value = True Then
  742.             ll_textstyle = 0
  743.         End If
  744.         If Option8.Value = True Then
  745.             ll_textstyle = 1
  746.         End If
  747.         If Option9.Value = True Then
  748.             ll_textstyle = 2
  749.         End If
  750.         If Option10.Value = True Then
  751.             ll_orientation = 0
  752.         End If
  753.         If Option11.Value = True Then
  754.             ll_orientation = -90
  755.         End If
  756.         If Option12.Value = True Then
  757.             ll_orientation = 90
  758.         End If
  759.         '设置字体
  760.         ls_fontname = Combo2.Text
  761.         ll_fontstyle = Combo3.ListIndex
  762.         ll_fontsize = CInt(Combo4.Text)
  763.         '设置字的颜色
  764.         Select Case ImageCombo1.SelectedItem.Index
  765.         Case 1
  766.             ll_forecolor = RGB(0, 0, 0)
  767.         Case 2
  768.             ll_forecolor = RGB(128, 128, 128)
  769.         Case 3
  770.             ll_forecolor = RGB(128, 0, 0)
  771.         Case 4
  772.             ll_forecolor = RGB(128, 128, 0)
  773.         Case 5
  774.             ll_forecolor = RGB(0, 128, 0)
  775.         Case 6
  776.             ll_forecolor = RGB(0, 128, 128)
  777.         Case 7
  778.             ll_forecolor = RGB(0, 0, 128)
  779.         Case 8
  780.             ll_forecolor = RGB(128, 0, 128)
  781.         Case 9
  782.             ll_forecolor = RGB(128, 128, 64)
  783.         Case 10
  784.             ll_forecolor = RGB(0, 64, 64)
  785.         Case 11
  786.             ll_forecolor = RGB(0, 128, 255)
  787.         Case 12
  788.             ll_forecolor = RGB(0, 64, 128)
  789.         Case 13
  790.             ll_forecolor = RGB(64, 0, 255)
  791.         Case 14
  792.             ll_forecolor = RGB(128, 64, 0)
  793.         Case 15
  794.             ll_forecolor = RGB(255, 255, 255)
  795.         Case 16
  796.             ll_forecolor = RGB(255, 0, 0)
  797.         Case 17
  798.             ll_forecolor = RGB(255, 255, 0)
  799.         Case 18
  800.             ll_forecolor = RGB(0, 255, 0)
  801.         Case 19
  802.             ll_forecolor = RGB(0, 255, 255)
  803.         Case 20
  804.             ll_forecolor = RGB(0, 0, 255)
  805.         Case 21
  806.             ll_forecolor = RGB(255, 0, 255)
  807.         Case 22
  808.             ll_forecolor = RGB(255, 255, 128)
  809.         Case 23
  810.             ll_forecolor = RGB(0, 255, 128)
  811.         Case 24
  812.             ll_forecolor = RGB(128, 255, 255)
  813.         Case 25
  814.             ll_forecolor = RGB(128, 128, 255)
  815.         Case 26
  816.             ll_forecolor = RGB(255, 0, 128)
  817.         Case 27
  818.             ll_forecolor = RGB(255, 128, 64)
  819.             
  820.         End Select
  821.         If SSTab1.TabVisible(2) = True Then
  822.             '设置%
  823.             
  824.             If Check4.Value = Checked Then
  825.                 ll_bfs = 1
  826.             Else
  827.                 ll_bfs = 0
  828.             End If
  829.             '设置科学计数
  830.             If Check5.Value = Checked Then
  831.                 ll_kxjs = 1
  832.             Else
  833.                 ll_kxjs = 0
  834.             End If
  835.             ll_qfw = Combo5.ListIndex
  836.             ll_hbfh = Combo6.ItemData(Combo6.ListIndex)
  837.             ll_xsws = CInt(Text1.Text)
  838.             If Check6.Value = Checked Then
  839.                 ll_zero = 0
  840.             Else
  841.                 ll_zero = 1
  842.             End If
  843.         End If
  844.         If Check7.Value = Checked Then
  845.             ls_note = "1"
  846.         Else
  847.             ls_note = ""
  848.         End If
  849.         If Check1.Value = Checked Then
  850.             ls_read = True
  851.         Else
  852.             ls_read = False
  853.         End If
  854.         If Check2.Value = Checked Then
  855.             ls_hide = True
  856.         Else
  857.             ls_hide = False
  858.         End If
  859.         If Option13.Value = True Then
  860.             ls_zhdx1 = True
  861.         Else
  862.             ls_zhdx1 = False
  863.         End If
  864.         If Option14.Value = True Then
  865.             ls_zhdx2 = True
  866.         Else
  867.             ls_zhdx2 = False
  868.         End If
  869.         If Option15.Value = True Then
  870.             ls_zhdx3 = True
  871.         Else
  872.             ls_zhdx3 = False
  873.         End If
  874.         .Cell1.DoGetSelectRange ll_col_begin, ll_row_begin, ll_col_end, ll_row_end
  875.         For i = ll_col_begin To ll_col_end
  876.             For j = ll_row_begin To ll_row_end
  877.                 .Cell1.DoSetCellAlignment i, j, ll_alignment
  878.                 .Cell1.DoSetCellTextStyle i, j, ll_textstyle
  879.                 .Cell1.DoSetCellTextOrientation i, j, ll_orientation
  880.                 .Cell1.DoSetCellFont i, j, ll_fontsize, ll_fontstyle, ls_fontname
  881.                 .Cell1.DoGetCellColor i, j, ll_forecolor_old, ll_backcolor
  882.                 .Cell1.DoSetCellColor i, j, ll_forecolor, ll_backcolor
  883.                 If SSTab1.TabVisible(2) = True Then
  884.                     .Cell1.DoSetCellNumberStyle i, j, ll_qfw, ll_bfs, ll_xsws, ll_hbfh, 1, -1, ll_kxjs
  885.                     .Cell1.DoSetCellShowZero i, j, ll_zero
  886.                 End If
  887.                 .Cell1.DoSetCellNote i, j, ls_note
  888.                 .Cell1.DoSetCellReadOnly i, j, ls_read
  889.                 .Cell1.DoSetCellPrintable i, j, ls_hide
  890.                 If ls_zhdx1 = True Then
  891.                     .Cell1.DoSetCellNote i, j, "转换1"
  892.                     .Cell1.DoSetCellInputOnlyValue i, j, True, 9999999999#, False, 0
  893.                 Else
  894.                     If ls_zhdx2 = True Then
  895.                         .Cell1.DoSetCellNote i, j, "转换2"
  896.                         .Cell1.DoSetCellInputOnlyValue i, j, True, 9999999999#, False, 0
  897.                     Else
  898.                         If ls_zhdx3 = True Then
  899.                             .Cell1.DoSetCellNote i, j, "转换3"
  900.                             .Cell1.DoSetCellInputOnlyValue i, j, True, 9999999999#, False, 0
  901.                         Else
  902.                             If ls_note <> "1" Then
  903.                                 .Cell1.DoSetCellNote i, j, ""
  904.                             End If
  905.                         End If
  906.                     End If
  907.                 End If
  908.             Next j
  909.         Next i
  910.         .Cell1.DoRedrawAll
  911.     End With
  912.     Unload Me
  913. End Sub
  916. Private Sub command2_Click()
  917.     Unload Me
  918. End Sub
  922. Private Sub Command3_Click()
  923.     
  924. End Sub
  926. Private Sub Form_Load()
  927.     Me.HelpContextID = "1012001"
  928.     
  929.     Dim ll_col As Long, ll_row As Long, ll_alignment As Long
  930.     Dim ll_textstyle As Long, ll_fontsize, ll_fontstyle
  931.     Dim ls_fontname, ll_forecolor, ll_backcolor
  932.     Dim ll_qfw, ll_bfs, ll_xsws, ll_hbfh
  933.     Dim ll_unit, ll_fs, ll_kxjs, ls_note As String
  934.     Dim ll_orientation As Long
  935.     Dim ls_xsws
  936.     Dim i As Long
  937.     mf_init_color ImageCombo1
  938.     
  939.     
  940.     mf_init_combo2
  941.     With MDI_frame.ActiveForm
  942.         ll_col = .ml_col
  943.         ll_row = .ml_row
  944.         ll_alignment = .Cell1.DoGetCellAlignment(ll_col, ll_row)
  945.         '设置对齐
  946.         Select Case ll_alignment
  947.         Case 9
  948.             Option1.Value = True
  949.             Option4.Value = True
  950.         Case 33
  951.             Option1.Value = True
  952.             Option5.Value = True
  953.         Case 17
  954.             Option1.Value = True
  955.             Option6.Value = True
  956.         Case 12
  957.             Option2.Value = True
  958.             Option4.Value = True
  959.         Case 36
  960.             Option2.Value = True
  961.             Option5.Value = True
  962.         Case 20
  963.             Option2.Value = True
  964.             Option6.Value = True
  965.         Case 10
  966.             Option3.Value = True
  967.             Option4.Value = True
  968.         Case 34
  969.             Option3.Value = True
  970.             Option5.Value = True
  971.         Case 18
  972.             Option3.Value = True
  973.             Option6.Value = True
  974.         Case 0
  975.             If .Cell1.DoGetCellDataType(ll_col, ll_row) = 2 Then
  976.                 Option3.Value = True
  977.                 Option6.Value = True
  978.             Else
  979.                 Option1.Value = True
  980.                 Option6.Value = True
  981.             End If
  982.         End Select
  983.         '设置自动折行
  984.         ll_textstyle = .Cell1.DoGetCellTextStyle(ll_col, ll_row)
  985.         Select Case ll_textstyle
  986.         Case 0
  987.             Option7.Value = True
  988.         Case 1
  989.             Option8.Value = True
  990.         Case 2
  991.             Option9.Value = True
  992.         End Select
  993.         ll_orientation = .Cell1.DoGetCellTextOrientation(ll_col, ll_row)
  994.         Select Case ll_orientation
  995.         Case 0
  996.             Option10.Value = True
  997.         Case -90
  998.             Option11.Value = True
  999.         Case 90
  1000.             Option2.Value = True
  1001.         End Select
  1002.         
  1003.         '设置字体
  1004.         .Cell1.DoGetCellFont ll_col, ll_row, ll_fontsize, ll_fontstyle, ls_fontname
  1005.         Combo4.Text = CStr(ll_fontsize)
  1006.         Combo3.Text = Combo3.List(ll_fontstyle)
  1007.         .Cell1.DoGetCellColor ll_col, ll_row, ll_forecolor, ll_backcolor
  1008.         Select Case ll_forecolor
  1009.         Case RGB(0, 0, 0), -1
  1010.             ImageCombo1.ComboItems(1).Selected = True
  1011.         Case RGB(128, 128, 128)
  1012.             ImageCombo1.ComboItems(2).Selected = True
  1013.         Case RGB(128, 0, 0)
  1014.             ImageCombo1.ComboItems(3).Selected = True
  1015.         Case RGB(128, 128, 0)
  1016.             ImageCombo1.ComboItems(4).Selected = True
  1017.         Case RGB(0, 128, 0)
  1018.             ImageCombo1.ComboItems(5).Selected = True
  1019.         Case RGB(0, 128, 128)
  1020.             ImageCombo1.ComboItems(6).Selected = True
  1021.         Case RGB(0, 0, 128)
  1022.             ImageCombo1.ComboItems(7).Selected = True
  1023.         Case RGB(128, 0, 128)
  1024.             ImageCombo1.ComboItems(8).Selected = True
  1025.         Case RGB(128, 128, 64)
  1026.             ImageCombo1.ComboItems(9).Selected = True
  1027.         Case RGB(0, 64, 64)
  1028.             ImageCombo1.ComboItems(10).Selected = True
  1029.         Case RGB(0, 128, 255)
  1030.             ImageCombo1.ComboItems(11).Selected = True
  1031.         Case RGB(0, 64, 128)
  1032.             ImageCombo1.ComboItems(12).Selected = True
  1033.         Case RGB(64, 0, 255)
  1034.             ImageCombo1.ComboItems(13).Selected = True
  1035.         Case RGB(128, 64, 0)
  1036.             ImageCombo1.ComboItems(14).Selected = True
  1037.         Case RGB(255, 255, 255)
  1038.             ImageCombo1.ComboItems(15).Selected = True
  1039.         Case RGB(255, 0, 0)
  1040.             ImageCombo1.ComboItems(16).Selected = True
  1041.         Case RGB(255, 255, 0)
  1042.             ImageCombo1.ComboItems(17).Selected = True
  1043.         Case RGB(0, 255, 0)
  1044.             ImageCombo1.ComboItems(18).Selected = True
  1045.         Case RGB(0, 255, 255)
  1046.             ImageCombo1.ComboItems(19).Selected = True
  1047.         Case RGB(0, 0, 255)
  1048.             ImageCombo1.ComboItems(20).Selected = True
  1049.         Case RGB(255, 0, 255)
  1050.             ImageCombo1.ComboItems(21).Selected = True
  1051.         Case RGB(255, 255, 128)
  1052.             ImageCombo1.ComboItems(22).Selected = True
  1053.         Case RGB(0, 255, 128)
  1054.             ImageCombo1.ComboItems(23).Selected = True
  1055.         Case RGB(128, 255, 255)
  1056.             ImageCombo1.ComboItems(24).Selected = True
  1057.         Case RGB(128, 128, 255)
  1058.             ImageCombo1.ComboItems(25).Selected = True
  1059.         Case RGB(255, 0, 128)
  1060.             ImageCombo1.ComboItems(26).Selected = True
  1061.         Case RGB(255, 128, 64)
  1062.             ImageCombo1.ComboItems(27).Selected = True
  1063.         End Select
  1064.         .Cell1.DoGetCellNumberStyle ll_col, ll_row, ll_qfw, ll_bfs, ll_xsws, ll_hbfh, ll_unit, ll_fs, ll_kxjs
  1065.         If ll_xsws = -1 Then
  1066.             
  1067.             .Cell1.DoGetCellData ll_col, ll_row, ls_xsws
  1068.             If InStr(1, ls_xsws, ".", vbTextCompare) > 0 Then
  1069.                 ll_xsws = Len(ls_xsws) - InStr(1, ls_xsws, ".", vbTextCompare)
  1070.             Else
  1071.                 ll_xsws = 0
  1072.             End If
  1073.         End If
  1074.         SSTab1.TabVisible(2) = True
  1075.         If ll_bfs = 0 Then
  1076.             Check4.Value = Unchecked
  1077.         Else
  1078.             Check4.Value = Checked
  1079.         End If
  1080.         If ll_kxjs = 1 Then
  1081.             Check5.Value = Checked
  1082.         Else
  1083.             Check5.Value = Unchecked
  1084.         End If
  1085.         Combo5.Text = Combo5.List(ll_qfw)
  1086.         
  1087.         For i = 0 To Combo6.ListCount() - 1
  1088.             If Combo6.ItemData(i) = ll_hbfh Then
  1089.                 Combo6.Text = Combo6.List(i)
  1090.             End If
  1091.         Next i
  1092.         Text1.Text = CStr(ll_xsws)
  1093.         If .Cell1.DoGetCellShowZero(ll_col, ll_row) = 1 Then
  1094.             Check6.Value = Checked
  1095.         Else
  1096.             Check6.Value = Unchecked
  1097.         End If
  1098.         ls_note = .Cell1.DoGetCellNote(ll_col, ll_row)
  1099.         If Left(ls_note, 1) = "1" Then
  1100.             Check7.Value = Checked
  1101.         Else
  1102.             Check7.Value = Unchecked
  1103.         End If
  1104.         
  1105.     End With
  1106.     
  1107. End Sub
  1109. Private Sub ImageCombo1_Click()
  1110.     Text2.SetFocus
  1111. End Sub
  1113. Private Sub ImageCombo1_KeyDown(KeyCode As Integer, Shift As Integer)
  1114.     KeyCode = 0
  1115. End Sub
  1117. Private Sub Text1_Change()
  1118.     If Len(Trim(Text1.Text)) = 0 Then
  1119.         Text1.Text = "0"
  1120.     End If
  1121. End Sub
  1123. Private Sub Text1_KeyPress(KeyAscii As Integer)
  1124.     If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
  1125.         KeyAscii = 0
  1126.     End If
  1127. End Sub