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

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

企业管理

开发平台：

Visual Basic

ͩ：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form Zbfx_IteFx 
  5.    Caption         =   "指标分析_项目毛利率分析"
  6.    ClientHeight    =   7095
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   9375
  10.    HelpContextID   =   412003
  11.    Icon            =   "指标分析_项目毛利率分析.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   7095
  15.    ScaleWidth      =   9375
  16.    Begin VB.PictureBox Pic_Title 
  17.       Height          =   1185
  18.       Left            =   -30
  19.       Picture         =   "指标分析_项目毛利率分析.frx":1042
  20.       ScaleHeight     =   1125
  21.       ScaleWidth      =   9345
  22.       TabIndex        =   0
  23.       Top             =   585
  24.       Width           =   9405
  25.       Begin VB.Label labDate 
  26.          AutoSize        =   -1  'True
  27.          BackStyle       =   0  'Transparent
  28.          Caption         =   "---"
  29.          Height          =   180
  30.          Left            =   5985
  31.          TabIndex        =   6
  32.          Top             =   840
  33.          Width           =   270
  34.       End
  35.       Begin VB.Label labDateCaption 
  36.          AutoSize        =   -1  'True
  37.          BackStyle       =   0  'Transparent
  38.          Caption         =   "分析日期:"
  39.          Height          =   195
  40.          Left            =   5160
  41.          TabIndex        =   5
  42.          Top             =   840
  43.          Width           =   765
  44.       End
  45.       Begin VB.Label TsLabel 
  46.          BackColor       =   &H80000018&
  47.          BackStyle       =   0  'Transparent
  48.          Caption         =   "项目毛利率分析"
  49.          BeginProperty Font 
  50.             Name            =   "宋体"
  51.             Size            =   12
  52.             Charset         =   134
  53.             Weight          =   700
  54.             Underline       =   0   'False
  55.             Italic          =   0   'False
  56.             Strikethrough   =   0   'False
  57.          EndProperty
  58.          ForeColor       =   &H00000000&
  59.          Height          =   270
  60.          Index           =   4
  61.          Left            =   570
  62.          TabIndex        =   1
  63.          Top             =   210
  64.          Width           =   3705
  65.       End
  66.    End
  67.    Begin VB.Timer Timer1 
  68.       Enabled         =   0   'False
  69.       Interval        =   1
  70.       Left            =   7080
  71.       Top             =   150
  72.    End
  73.    Begin MSComctlLib.Toolbar GsToolbar 
  74.       Height          =   525
  75.       Left            =   7695
  76.       TabIndex        =   2
  77.       Top             =   15
  78.       Width           =   1665
  79.       _ExtentX        =   2937
  80.       _ExtentY        =   926
  81.       ButtonWidth     =   1455
  82.       ButtonHeight    =   926
  83.       AllowCustomize  =   0   'False
  84.       Appearance      =   1
  85.       Style           =   1
  86.       ImageList       =   "ImageList1"
  87.       _Version        =   393216
  88.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  89.          NumButtons      =   2
  90.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  91.             Caption         =   "保存格式"
  92.             Key             =   "bcgs"
  93.             ImageKey        =   "bcgs"
  94.          EndProperty
  95.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  96.             Caption         =   "默认列宽"
  97.             Key             =   "hfmrgs"
  98.             ImageKey        =   "mrlk"
  99.          EndProperty
  100.       EndProperty
  101.    End
  102.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  103.       Height          =   5265
  104.       Left            =   -30
  105.       TabIndex        =   3
  106.       Top             =   1815
  107.       Width           =   9405
  108.       _cx             =   5080
  109.       _cy             =   5080
  110.       Appearance      =   1
  111.       BorderStyle     =   1
  112.       Enabled         =   -1  'True
  113.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  114.          Name            =   "宋体"
  115.          Size            =   9
  116.          Charset         =   134
  117.          Weight          =   400
  118.          Underline       =   0   'False
  119.          Italic          =   0   'False
  120.          Strikethrough   =   0   'False
  121.       EndProperty
  122.       MousePointer    =   0
  123.       BackColor       =   16777215
  124.       ForeColor       =   -2147483640
  125.       BackColorFixed  =   12632256
  126.       ForeColorFixed  =   -2147483630
  127.       BackColorSel    =   -2147483635
  128.       ForeColorSel    =   -2147483634
  129.       BackColorBkg    =   -2147483636
  130.       BackColorAlternate=   16777215
  131.       GridColor       =   -2147483633
  132.       GridColorFixed  =   -2147483632
  133.       TreeColor       =   -2147483632
  134.       FloodColor      =   192
  135.       SheetBorder     =   -2147483642
  136.       FocusRect       =   1
  137.       HighLight       =   1
  138.       AllowSelection  =   -1  'True
  139.       AllowBigSelection=   -1  'True
  140.       AllowUserResizing=   0
  141.       SelectionMode   =   0
  142.       GridLines       =   1
  143.       GridLinesFixed  =   2
  144.       GridLineWidth   =   1
  145.       Rows            =   50
  146.       Cols            =   10
  147.       FixedRows       =   1
  148.       FixedCols       =   0
  149.       RowHeightMin    =   0
  150.       RowHeightMax    =   0
  151.       ColWidthMin     =   0
  152.       ColWidthMax     =   0
  153.       ExtendLastCol   =   0   'False
  154.       FormatString    =   ""
  155.       ScrollTrack     =   0   'False
  156.       ScrollBars      =   3
  157.       ScrollTips      =   0   'False
  158.       MergeCells      =   0
  159.       MergeCompare    =   0
  160.       AutoResize      =   -1  'True
  161.       AutoSizeMode    =   0
  162.       AutoSearch      =   0
  163.       AutoSearchDelay =   2
  164.       MultiTotals     =   -1  'True
  165.       SubtotalPosition=   1
  166.       OutlineBar      =   0
  167.       OutlineCol      =   0
  168.       Ellipsis        =   0
  169.       ExplorerBar     =   0
  170.       PicturesOver    =   0   'False
  171.       FillStyle       =   0
  172.       RightToLeft     =   0   'False
  173.       PictureType     =   0
  174.       TabBehavior     =   0
  175.       OwnerDraw       =   0
  176.       Editable        =   0
  177.       ShowComboButton =   1
  178.       WordWrap        =   0   'False
  179.       TextStyle       =   0
  180.       TextStyleFixed  =   0
  181.       OleDragMode     =   0
  182.       OleDropMode     =   0
  183.       DataMode        =   0
  184.       VirtualData     =   -1  'True
  185.       DataMember      =   ""
  186.       ComboSearch     =   3
  187.       AutoSizeMouse   =   -1  'True
  188.       FrozenRows      =   0
  189.       FrozenCols      =   0
  190.       AllowUserFreezing=   0
  191.       BackColorFrozen =   0
  192.       ForeColorFrozen =   0
  193.       WallPaperAlignment=   9
  194.       AccessibleName  =   ""
  195.       AccessibleDescription=   ""
  196.       AccessibleValue =   ""
  197.       AccessibleRole  =   24
  198.    End
  199.    Begin MSComctlLib.Toolbar SzToolbar 
  200.       Align           =   1  'Align Top
  201.       Height          =   555
  202.       Left            =   0
  203.       TabIndex        =   4
  204.       Top             =   0
  205.       Width           =   9375
  206.       _ExtentX        =   16536
  207.       _ExtentY        =   979
  208.       ButtonWidth     =   820
  209.       ButtonHeight    =   926
  210.       AllowCustomize  =   0   'False
  211.       Appearance      =   1
  212.       Style           =   1
  213.       ImageList       =   "ImageList1"
  214.       _Version        =   393216
  215.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  216.          NumButtons      =   10
  217.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  218.             Caption         =   "设置"
  219.             Key             =   "ymsz"
  220.             ImageKey        =   "sz"
  221.          EndProperty
  222.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  223.             Caption         =   "打印"
  224.             Key             =   "dy"
  225.             ImageKey        =   "dy"
  226.          EndProperty
  227.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  228.             Caption         =   "预览"
  229.             Key             =   "yl"
  230.             ImageKey        =   "yl"
  231.          EndProperty
  232.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  233.             Style           =   3
  234.          EndProperty
  235.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  236.             Caption         =   "查询"
  237.             Key             =   "cx"
  238.             ImageKey        =   "cx"
  239.          EndProperty
  240.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  241.             Object.Visible         =   0   'False
  242.             Style           =   3
  243.          EndProperty
  244.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  245.             Object.Visible         =   0   'False
  246.             Caption         =   "累计"
  247.             Key             =   "lj"
  248.             ImageKey        =   "lj"
  249.             Style           =   1
  250.          EndProperty
  251.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  252.             Style           =   3
  253.          EndProperty
  254.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  255.             Caption         =   "帮助"
  256.             Key             =   "bz"
  257.             ImageKey        =   "bz"
  258.          EndProperty
  259.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  260.             Caption         =   "退出"
  261.             Key             =   "fh"
  262.             ImageKey        =   "tc"
  263.          EndProperty
  264.       EndProperty
  265.       BorderStyle     =   1
  266.       Begin MSComctlLib.ImageList ImageList1 
  267.          Left            =   6450
  268.          Top             =   30
  269.          _ExtentX        =   1005
  270.          _ExtentY        =   1005
  271.          BackColor       =   -2147483643
  272.          ImageWidth      =   16
  273.          ImageHeight     =   16
  274.          MaskColor       =   12632256
  275.          _Version        =   393216
  276.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  277.             NumListImages   =   35
  278.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "指标分析_项目毛利率分析.frx":35106
  280.                Key             =   "sz"
  281.             EndProperty
  282.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "指标分析_项目毛利率分析.frx":354A0
  284.                Key             =   "dy"
  285.             EndProperty
  286.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "指标分析_项目毛利率分析.frx":3583A
  288.                Key             =   "yl"
  289.             EndProperty
  290.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "指标分析_项目毛利率分析.frx":35BD4
  292.                Key             =   "xg"
  293.             EndProperty
  294.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "指标分析_项目毛利率分析.frx":35F6E
  296.                Key             =   "zh"
  297.             EndProperty
  298.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "指标分析_项目毛利率分析.frx":36308
  300.                Key             =   "sh"
  301.             EndProperty
  302.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "指标分析_项目毛利率分析.frx":366A2
  304.                Key             =   "bc"
  305.             EndProperty
  306.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "指标分析_项目毛利率分析.frx":36A3C
  308.                Key             =   "fq"
  309.             EndProperty
  310.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "指标分析_项目毛利率分析.frx":36DD6
  312.                Key             =   "bz"
  313.             EndProperty
  314.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "指标分析_项目毛利率分析.frx":37170
  316.                Key             =   "tc"
  317.             EndProperty
  318.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "指标分析_项目毛利率分析.frx":3750A
  320.                Key             =   "bcgs"
  321.             EndProperty
  322.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "指标分析_项目毛利率分析.frx":378A4
  324.                Key             =   "mrlk"
  325.             EndProperty
  326.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "指标分析_项目毛利率分析.frx":37C3E
  328.                Key             =   "xsxm"
  329.             EndProperty
  330.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "指标分析_项目毛利率分析.frx":37FD8
  332.                Key             =   "first"
  333.             EndProperty
  334.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "指标分析_项目毛利率分析.frx":38372
  336.                Key             =   "prev"
  337.             EndProperty
  338.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "指标分析_项目毛利率分析.frx":3870C
  340.                Key             =   "next"
  341.             EndProperty
  342.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "指标分析_项目毛利率分析.frx":38AA6
  344.                Key             =   "last"
  345.             EndProperty
  346.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "指标分析_项目毛利率分析.frx":38E40
  348.                Key             =   "xx"
  349.             EndProperty
  350.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "指标分析_项目毛利率分析.frx":391DA
  352.                Key             =   "define"
  353.             EndProperty
  354.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "指标分析_项目毛利率分析.frx":39574
  356.                Key             =   "exec"
  357.             EndProperty
  358.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  359.                Picture         =   "指标分析_项目毛利率分析.frx":3990E
  360.                Key             =   "xz"
  361.             EndProperty
  362.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  363.                Picture         =   "指标分析_项目毛利率分析.frx":39CA8
  364.                Key             =   "sc"
  365.             EndProperty
  366.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  367.                Picture         =   "指标分析_项目毛利率分析.frx":3A042
  368.                Key             =   "sx"
  369.             EndProperty
  370.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  371.                Picture         =   "指标分析_项目毛利率分析.frx":3A3DC
  372.                Key             =   "cx"
  373.             EndProperty
  374.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  375.                Picture         =   "指标分析_项目毛利率分析.frx":3A776
  376.                Key             =   "zd"
  377.             EndProperty
  378.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  379.                Picture         =   "指标分析_项目毛利率分析.frx":3AB10
  380.                Key             =   "dz"
  381.             EndProperty
  382.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  383.                Picture         =   "指标分析_项目毛利率分析.frx":3AEAA
  384.                Key             =   "ph"
  385.             EndProperty
  386.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  387.                Picture         =   "指标分析_项目毛利率分析.frx":3B244
  388.                Key             =   "fz"
  389.             EndProperty
  390.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  391.                Picture         =   "指标分析_项目毛利率分析.frx":3B5DE
  392.                Key             =   "dw"
  393.             EndProperty
  394.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  395.                Picture         =   "指标分析_项目毛利率分析.frx":3B978
  396.                Key             =   "hf"
  397.             EndProperty
  398.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  399.                Picture         =   "指标分析_项目毛利率分析.frx":3BD12
  400.                Key             =   "pz"
  401.             EndProperty
  402.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  403.                Picture         =   "指标分析_项目毛利率分析.frx":3C0AC
  404.                Key             =   "check"
  405.             EndProperty
  406.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  407.                Picture         =   "指标分析_项目毛利率分析.frx":3C446
  408.                Key             =   "zz"
  409.             EndProperty
  410.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  411.                Picture         =   "指标分析_项目毛利率分析.frx":3C7E0
  412.                Key             =   "mx"
  413.             EndProperty
  414.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  415.                Picture         =   "指标分析_项目毛利率分析.frx":3CB7A
  416.                Key             =   "lj"
  417.             EndProperty
  418.          EndProperty
  419.       End
  420.    End
  421. End
  422. Attribute VB_Name = "Zbfx_IteFx"
  423. Attribute VB_GlobalNameSpace = False
  424. Attribute VB_Creatable = False
  425. Attribute VB_PredeclaredId = True
  426. Attribute VB_Exposed = False
  427. '*********************************************************************
  428. '*    模 块 名 称 :项目毛利率分析
  429. '*    功 能 描 述 :
  430. '*    程序员姓名  :魏永生
  431. '*    最后修改人  :
  432. '*    最后修改时间:2002/1/21
  433. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  434. '*
  435. '*********************************************************************
  437. Option Explicit
  439. Dim ReportTitle As String                '报表主标题
  441. '以下为固定使用变量
  442. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  443. Dim GridCode As String                   '显示网格网格代码
  444. Dim GridInf() As Variant                 '整个网格设置信息
  445. Dim Tsxx As String                       '系统提示信息
  446. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  447. Dim Sjhgd As Double                      '网格数据行高度
  448. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  449. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  450. Dim GridStr()  As String                 '网格列信息(字符型)
  451. Dim GridInt() As Integer                 '网格列信息(整型)
  452. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  453. Dim Bln_Stop As Boolean                  '停止输出查询结果
  455. Dim mySeachForm As New Zbfx_ProFxSeach '定义查询窗体
  456. Private Sub Form_Activate()
  457.     If DEBUG_FLAG = False Then On Error Resume Next
  458.     If Me.Tag = "" Then
  459.         Me.Tag = "Loaded"
  460.         mySeachForm.Show vbModal
  461.         
  462.     End If
  463.     If mySeachForm.bSeach = True Then
  464.         '执行查询
  465.         
  466.         Call Sub_Query
  467.         labDate.Caption = mySeachForm.Combo_BaseDate.Text
  468.         mySeachForm.bSeach = False
  469.     End If
  470.     
  471.     '---------------------
  472.     
  473. End Sub
  475. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
  476.     If DEBUG_FLAG = False Then On Error Resume Next
  477.     On Error Resume Next
  478.     With CxbbGrid
  479.         .Width = Me.Width - 160
  480.         .Height = Me.Height - .Top - 400
  481.     End With
  482.     With Pic_Title
  483.         .Width = Me.Width - 160
  484.     End With
  485.     
  486.     GsToolbar.Left = Me.Width - GsToolbar.Width - 160
  487. End Sub
  489. Private Sub Form_Load()                  '窗体装入
  490.     If DEBUG_FLAG = False Then On Error Resume Next
  491.     '调入打印页面设置窗体
  492.     XtReportCode = "cwfx_Itefx"
  493.     Load Dyymctbl
  494.     ReportTitle = "项目毛利率分析"
  495.     
  496.     
  497.     '调 入 网 格
  498.     GridCode = "cwfx_Itefx"
  499.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  500.     
  501.     Qslz = GridInf(1)
  502.     Sjhgd = GridInf(2)
  503.     Sfxshjwg = GridInf(7)
  504.     Szzls = CxbbGrid.Cols - 1
  505.     
  506. End Sub
  508. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  509.     If DEBUG_FLAG = False Then On Error Resume Next
  510.     '卸载条件窗体
  511.     '卸载打印页面设置窗体
  512.     Set mySeachForm = Nothing
  513.     Unload Dyymctbl
  514. End Sub
  516. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
  517.     Select Case Button.Key
  518.     Case "bcgs"                                          '保存表格格式
  519.         Call Bcwggs(CxbbGrid, GridCode, GridStr())
  520.     Case "hfmrgs"                                        '恢复默认格式
  521.         Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  522.     Case "szxsxm"                                        '设置显示项目
  523.         Call Szxsxm(CxbbGrid, GridCode)
  524.     End Select
  525. End Sub
  527. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  528.     Select Case Button.Key
  529.     Case "ymsz"                                          '页面设置
  530.         Dyymctbl.Show 1
  531.     Case "yl"                                            '预 览
  532.         Call bbyl(True)
  533.     Case "dy"                                            '打 印
  534.         Call bbyl(False)
  535.     Case "cx"                                            '查 询
  536.         mySeachForm.Show vbModal
  537.         If mySeachForm.bSeach = True Then
  538.             Call Sub_Query
  539.             labDate.Caption = mySeachForm.Combo_BaseDate.Text
  540.             mySeachForm.bSeach = False
  541.         End If
  542.     Case "bz"                                            '帮 助
  543.         Call F1bz
  544.     Case "fh"                                            '退 出
  545.         Unload Me
  546.     End Select
  547. End Sub
  549. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  550.     Timer1.Enabled = False
  551. End Sub
  553. Private Sub Sub_Query()                                    '生成查询结果
  554.     If DEBUG_FLAG = False Then On Error Resume Next
  555.     Dim myCls As New clsIte
  556.     Dim I As Integer
  557.     
  558.     myCls.GetParm mySeachForm.Combo_Type.ListIndex, mySeachForm.Combo_BaseDate.Text
  559.     If myCls.MakeData(mySeachForm.Combo_Type.ListIndex) = False Then Exit Sub  '得到数据（对公共数组ProArry操作）
  560.     With CxbbGrid
  561.         
  562.         .Rows = .FixedRows + myCls.iRecordCount + 1
  563.         For I = 0 To myCls.iRecordCount
  564.             .TextMatrix(I + .FixedRows, Sydz("001", GridStr(), Szzls)) = IteArry(I).strItemClass
  565.             .TextMatrix(I + .FixedRows, Sydz("002", GridStr(), Szzls)) = IteArry(I).strItemName
  566.             .TextMatrix(I + .FixedRows, Sydz("003", GridStr(), Szzls)) = IIf(IteArry(I).lngInCome = 0, "", IteArry(I).lngInCome) '此处实为Double值
  567.             .TextMatrix(I + .FixedRows, Sydz("004", GridStr(), Szzls)) = IIf(IteArry(I).lngCost = 0, "", IteArry(I).lngCost)
  568.             .TextMatrix(I + .FixedRows, Sydz("005", GridStr(), Szzls)) = IIf(IteArry(I).lngMaoLi = 0, "", IteArry(I).lngMaoLi)
  569.             .TextMatrix(I + .FixedRows, Sydz("006", GridStr(), Szzls)) = IIf(IteArry(I).lngMaoLiLv = 0, "", IteArry(I).lngMaoLiLv & "%")
  570.             .RowHeight(I + 1) = Sjhgd
  571.         Next
  572.         
  573.     End With
  574.     
  575. End Sub
  577. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  578.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  579.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  580.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  581.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  582.     ReDim Bbxbt(1 To Bbxbtgs)
  583.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  584.     If Bbbwhgs <> 0 Then
  585.         ReDim Bbbwh(1 To Bbbwhgs)
  586.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  587.     End If
  588.     Bbzbt = ReportTitle
  589.     Bbxbt(1) = Space(2) & ReportTitle & Space(30) & labDateCaption.Caption & labDate.Caption
  590.     bbxbtzzxs(1) = 0                                    '报表行组织形式(0-居左 1-居中 2-居右)
  591.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  592.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  593.     If Not bbylte Then
  594.         Unload DY_Tybbyldy
  595.     End If
  596. End Sub