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

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

企业管理

开发平台：

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 Tjfx_EvalFx 
  5.    BackColor       =   &H80000000&
  6.    Caption         =   "暂估成本分析"
  7.    ClientHeight    =   7065
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   11880
  11.    HelpContextID   =   130607
  12.    Icon            =   "统计分析_暂估成本分析.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form2"
  15.    MDIChild        =   -1  'True
  16.    ScaleHeight     =   7065
  17.    ScaleWidth      =   11880
  18.    WindowState     =   2  'Maximized
  19.    Begin VB.Timer Timer1 
  20.       Enabled         =   0   'False
  21.       Interval        =   1
  22.       Left            =   7620
  23.       Top             =   90
  24.    End
  25.    Begin VB.PictureBox Pic_Title 
  26.       BackColor       =   &H00FFFFFF&
  27.       Height          =   1245
  28.       Left            =   0
  29.       Picture         =   "统计分析_暂估成本分析.frx":1042
  30.       ScaleHeight     =   1185
  31.       ScaleWidth      =   11715
  32.       TabIndex        =   0
  33.       Top             =   570
  34.       Width           =   11775
  35.       Begin VB.Label Lab_Title 
  36.          AutoSize        =   -1  'True
  37.          BackColor       =   &H80000018&
  38.          BackStyle       =   0  'Transparent
  39.          Caption         =   "暂估成本分析表"
  40.          BeginProperty Font 
  41.             Name            =   "宋体"
  42.             Size            =   12
  43.             Charset         =   134
  44.             Weight          =   700
  45.             Underline       =   0   'False
  46.             Italic          =   0   'False
  47.             Strikethrough   =   0   'False
  48.          EndProperty
  49.          ForeColor       =   &H00000000&
  50.          Height          =   240
  51.          Index           =   0
  52.          Left            =   480
  53.          TabIndex        =   3
  54.          Top             =   210
  55.          Width           =   1785
  56.       End
  57.       Begin VB.Label Lbl_TitleMess 
  58.          AutoSize        =   -1  'True
  59.          BackStyle       =   0  'Transparent
  60.          Caption         =   "月份:"
  61.          Height          =   195
  62.          Index           =   1
  63.          Left            =   450
  64.          TabIndex        =   2
  65.          Top             =   900
  66.          Width           =   405
  67.       End
  68.       Begin VB.Label Lbl_TitleText 
  69.          AutoSize        =   -1  'True
  70.          BackStyle       =   0  'Transparent
  71.          Caption         =   "仓库"
  72.          ForeColor       =   &H00000000&
  73.          Height          =   195
  74.          Index           =   0
  75.          Left            =   930
  76.          TabIndex        =   1
  77.          Top             =   900
  78.          Width           =   360
  79.       End
  80.    End
  81.    Begin MSComctlLib.Toolbar GsToolbar 
  82.       Height          =   525
  83.       Left            =   9330
  84.       TabIndex        =   4
  85.       Top             =   30
  86.       Width           =   2475
  87.       _ExtentX        =   4366
  88.       _ExtentY        =   926
  89.       ButtonWidth     =   1455
  90.       ButtonHeight    =   926
  91.       Appearance      =   1
  92.       Style           =   1
  93.       ImageList       =   "ImageList2"
  94.       _Version        =   393216
  95.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  96.          NumButtons      =   3
  97.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  98.             Caption         =   "保存格式"
  99.             Key             =   "bcgs"
  100.             ImageKey        =   "bcgs"
  101.          EndProperty
  102.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  103.             Caption         =   "默认列宽"
  104.             Key             =   "hfmrgs"
  105.             ImageKey        =   "mrlk"
  106.          EndProperty
  107.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  108.             Caption         =   "显示项目"
  109.             Key             =   "szxsxm"
  110.             ImageKey        =   "xsxm"
  111.          EndProperty
  112.       EndProperty
  113.    End
  114.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  115.       Height          =   7155
  116.       Left            =   60
  117.       TabIndex        =   5
  118.       Top             =   1830
  119.       Width           =   11775
  120.       _cx             =   5080
  121.       _cy             =   5080
  122.       Appearance      =   1
  123.       BorderStyle     =   1
  124.       Enabled         =   -1  'True
  125.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  126.          Name            =   "宋体"
  127.          Size            =   9
  128.          Charset         =   134
  129.          Weight          =   400
  130.          Underline       =   0   'False
  131.          Italic          =   0   'False
  132.          Strikethrough   =   0   'False
  133.       EndProperty
  134.       MousePointer    =   0
  135.       BackColor       =   16777215
  136.       ForeColor       =   -2147483640
  137.       BackColorFixed  =   13826538
  138.       ForeColorFixed  =   -2147483630
  139.       BackColorSel    =   -2147483635
  140.       ForeColorSel    =   -2147483634
  141.       BackColorBkg    =   -2147483636
  142.       BackColorAlternate=   16777215
  143.       GridColor       =   -2147483633
  144.       GridColorFixed  =   -2147483632
  145.       TreeColor       =   -2147483632
  146.       FloodColor      =   192
  147.       SheetBorder     =   -2147483642
  148.       FocusRect       =   1
  149.       HighLight       =   1
  150.       AllowSelection  =   -1  'True
  151.       AllowBigSelection=   -1  'True
  152.       AllowUserResizing=   0
  153.       SelectionMode   =   0
  154.       GridLines       =   1
  155.       GridLinesFixed  =   2
  156.       GridLineWidth   =   1
  157.       Rows            =   50
  158.       Cols            =   10
  159.       FixedRows       =   1
  160.       FixedCols       =   1
  161.       RowHeightMin    =   0
  162.       RowHeightMax    =   0
  163.       ColWidthMin     =   0
  164.       ColWidthMax     =   0
  165.       ExtendLastCol   =   0   'False
  166.       FormatString    =   ""
  167.       ScrollTrack     =   0   'False
  168.       ScrollBars      =   3
  169.       ScrollTips      =   0   'False
  170.       MergeCells      =   0
  171.       MergeCompare    =   0
  172.       AutoResize      =   -1  'True
  173.       AutoSizeMode    =   0
  174.       AutoSearch      =   0
  175.       AutoSearchDelay =   2
  176.       MultiTotals     =   -1  'True
  177.       SubtotalPosition=   1
  178.       OutlineBar      =   0
  179.       OutlineCol      =   0
  180.       Ellipsis        =   0
  181.       ExplorerBar     =   0
  182.       PicturesOver    =   0   'False
  183.       FillStyle       =   0
  184.       RightToLeft     =   0   'False
  185.       PictureType     =   0
  186.       TabBehavior     =   0
  187.       OwnerDraw       =   0
  188.       Editable        =   0
  189.       ShowComboButton =   1
  190.       WordWrap        =   0   'False
  191.       TextStyle       =   0
  192.       TextStyleFixed  =   0
  193.       OleDragMode     =   0
  194.       OleDropMode     =   0
  195.       DataMode        =   0
  196.       VirtualData     =   -1  'True
  197.       DataMember      =   ""
  198.       ComboSearch     =   3
  199.       AutoSizeMouse   =   -1  'True
  200.       FrozenRows      =   0
  201.       FrozenCols      =   0
  202.       AllowUserFreezing=   0
  203.       BackColorFrozen =   0
  204.       ForeColorFrozen =   0
  205.       WallPaperAlignment=   9
  206.       AccessibleName  =   ""
  207.       AccessibleDescription=   ""
  208.       AccessibleValue =   ""
  209.       AccessibleRole  =   24
  210.       Begin MSComctlLib.ImageList ImageList2 
  211.          Left            =   0
  212.          Top             =   0
  213.          _ExtentX        =   1005
  214.          _ExtentY        =   1005
  215.          BackColor       =   -2147483643
  216.          ImageWidth      =   16
  217.          ImageHeight     =   16
  218.          MaskColor       =   12632256
  219.          _Version        =   393216
  220.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  221.             NumListImages   =   40
  222.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.                Picture         =   "统计分析_暂估成本分析.frx":35106
  224.                Key             =   "sz"
  225.             EndProperty
  226.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.                Picture         =   "统计分析_暂估成本分析.frx":354A0
  228.                Key             =   "dy"
  229.             EndProperty
  230.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.                Picture         =   "统计分析_暂估成本分析.frx":3583A
  232.                Key             =   "yl"
  233.             EndProperty
  234.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.                Picture         =   "统计分析_暂估成本分析.frx":35BD4
  236.                Key             =   "xg"
  237.             EndProperty
  238.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.                Picture         =   "统计分析_暂估成本分析.frx":35F6E
  240.                Key             =   "zh"
  241.             EndProperty
  242.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "统计分析_暂估成本分析.frx":36308
  244.                Key             =   "sh"
  245.             EndProperty
  246.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "统计分析_暂估成本分析.frx":366A2
  248.                Key             =   "bc"
  249.             EndProperty
  250.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "统计分析_暂估成本分析.frx":36A3C
  252.                Key             =   "fq"
  253.             EndProperty
  254.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "统计分析_暂估成本分析.frx":36DD6
  256.                Key             =   "bz"
  257.             EndProperty
  258.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "统计分析_暂估成本分析.frx":37170
  260.                Key             =   "tc"
  261.             EndProperty
  262.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "统计分析_暂估成本分析.frx":3750A
  264.                Key             =   "bcgs"
  265.             EndProperty
  266.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "统计分析_暂估成本分析.frx":378A4
  268.                Key             =   "mrlk"
  269.             EndProperty
  270.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "统计分析_暂估成本分析.frx":37C3E
  272.                Key             =   "xsxm"
  273.             EndProperty
  274.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "统计分析_暂估成本分析.frx":37FD8
  276.                Key             =   "first"
  277.             EndProperty
  278.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "统计分析_暂估成本分析.frx":38372
  280.                Key             =   "prev"
  281.             EndProperty
  282.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "统计分析_暂估成本分析.frx":3870C
  284.                Key             =   "next"
  285.             EndProperty
  286.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "统计分析_暂估成本分析.frx":38AA6
  288.                Key             =   "last"
  289.             EndProperty
  290.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "统计分析_暂估成本分析.frx":38E40
  292.                Key             =   "xx"
  293.             EndProperty
  294.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "统计分析_暂估成本分析.frx":391DA
  296.                Key             =   "define"
  297.             EndProperty
  298.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "统计分析_暂估成本分析.frx":39574
  300.                Key             =   "exec"
  301.             EndProperty
  302.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "统计分析_暂估成本分析.frx":3990E
  304.                Key             =   "xz"
  305.             EndProperty
  306.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "统计分析_暂估成本分析.frx":39CA8
  308.                Key             =   "sc"
  309.             EndProperty
  310.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "统计分析_暂估成本分析.frx":3A042
  312.                Key             =   "sx"
  313.             EndProperty
  314.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "统计分析_暂估成本分析.frx":3A3DC
  316.                Key             =   "cx"
  317.             EndProperty
  318.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "统计分析_暂估成本分析.frx":3A776
  320.                Key             =   "zd"
  321.             EndProperty
  322.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "统计分析_暂估成本分析.frx":3AB10
  324.                Key             =   "dz"
  325.             EndProperty
  326.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "统计分析_暂估成本分析.frx":3AEAA
  328.                Key             =   "ph"
  329.             EndProperty
  330.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "统计分析_暂估成本分析.frx":3B244
  332.                Key             =   "fz"
  333.             EndProperty
  334.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "统计分析_暂估成本分析.frx":3B5DE
  336.                Key             =   "dw"
  337.             EndProperty
  338.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "统计分析_暂估成本分析.frx":3B978
  340.                Key             =   "hf"
  341.             EndProperty
  342.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "统计分析_暂估成本分析.frx":3BD12
  344.                Key             =   "pz"
  345.             EndProperty
  346.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "统计分析_暂估成本分析.frx":3C0AC
  348.                Key             =   "check"
  349.             EndProperty
  350.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "统计分析_暂估成本分析.frx":3C446
  352.                Key             =   "qs"
  353.             EndProperty
  354.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "统计分析_暂估成本分析.frx":3C7E0
  356.                Key             =   "fullcheck"
  357.             EndProperty
  358.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  359.                Picture         =   "统计分析_暂估成本分析.frx":3CB7A
  360.                Key             =   "qq"
  361.             EndProperty
  362.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  363.                Picture         =   "统计分析_暂估成本分析.frx":3CF14
  364.                Key             =   "bcw"
  365.             EndProperty
  366.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  367.                Picture         =   "统计分析_暂估成本分析.frx":3D2AE
  368.                Key             =   "ye"
  369.             EndProperty
  370.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  371.                Picture         =   "统计分析_暂估成本分析.frx":3D648
  372.                Key             =   ""
  373.             EndProperty
  374.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  375.                Picture         =   "统计分析_暂估成本分析.frx":3D9E2
  376.                Key             =   "frist"
  377.             EndProperty
  378.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  379.                Picture         =   "统计分析_暂估成本分析.frx":3DD7C
  380.                Key             =   "dj"
  381.             EndProperty
  382.          EndProperty
  383.       End
  384.    End
  385.    Begin MSComctlLib.Toolbar SzToolbar 
  386.       Align           =   1  'Align Top
  387.       Height          =   555
  388.       Left            =   0
  389.       TabIndex        =   6
  390.       Top             =   0
  391.       Width           =   11880
  392.       _ExtentX        =   20955
  393.       _ExtentY        =   979
  394.       ButtonWidth     =   820
  395.       ButtonHeight    =   926
  396.       AllowCustomize  =   0   'False
  397.       Appearance      =   1
  398.       Style           =   1
  399.       ImageList       =   "ImageList1"
  400.       _Version        =   393216
  401.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  402.          NumButtons      =   10
  403.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  404.             Caption         =   "设置"
  405.             Key             =   "ymsz"
  406.             ImageKey        =   "sz"
  407.          EndProperty
  408.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  409.             Caption         =   "打印"
  410.             Key             =   "dy"
  411.             ImageKey        =   "dy"
  412.          EndProperty
  413.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  414.             Caption         =   "预览"
  415.             Key             =   "yl"
  416.             ImageKey        =   "yl"
  417.          EndProperty
  418.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  419.             Style           =   3
  420.          EndProperty
  421.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  422.             Caption         =   "查询"
  423.             Key             =   "cx"
  424.             ImageKey        =   "cx"
  425.          EndProperty
  426.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  427.             Style           =   3
  428.          EndProperty
  429.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  430.             Caption         =   "单据"
  431.             Key             =   "Bill"
  432.             ImageKey        =   "pz"
  433.          EndProperty
  434.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  435.             Style           =   4
  436.          EndProperty
  437.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  438.             Caption         =   "帮助"
  439.             Key             =   "bz"
  440.             ImageKey        =   "bz"
  441.          EndProperty
  442.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  443.             Caption         =   "退出"
  444.             Key             =   "fh"
  445.             ImageKey        =   "tc"
  446.          EndProperty
  447.       EndProperty
  448.       BorderStyle     =   1
  449.       Begin MSComctlLib.ImageList ImageList1 
  450.          Left            =   6000
  451.          Top             =   0
  452.          _ExtentX        =   1005
  453.          _ExtentY        =   1005
  454.          BackColor       =   -2147483643
  455.          ImageWidth      =   16
  456.          ImageHeight     =   16
  457.          MaskColor       =   12632256
  458.          _Version        =   393216
  459.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  460.             NumListImages   =   41
  461.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.                Picture         =   "统计分析_暂估成本分析.frx":3E116
  463.                Key             =   "sz"
  464.             EndProperty
  465.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.                Picture         =   "统计分析_暂估成本分析.frx":3E4B0
  467.                Key             =   "dy"
  468.             EndProperty
  469.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.                Picture         =   "统计分析_暂估成本分析.frx":3E84A
  471.                Key             =   "yl"
  472.             EndProperty
  473.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.                Picture         =   "统计分析_暂估成本分析.frx":3EBE4
  475.                Key             =   "xg"
  476.             EndProperty
  477.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "统计分析_暂估成本分析.frx":3EF7E
  479.                Key             =   "zh"
  480.             EndProperty
  481.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "统计分析_暂估成本分析.frx":3F318
  483.                Key             =   "sh"
  484.             EndProperty
  485.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  486.                Picture         =   "统计分析_暂估成本分析.frx":3F6B2
  487.                Key             =   "bc"
  488.             EndProperty
  489.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.                Picture         =   "统计分析_暂估成本分析.frx":3FA4C
  491.                Key             =   "fq"
  492.             EndProperty
  493.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.                Picture         =   "统计分析_暂估成本分析.frx":3FDE6
  495.                Key             =   "bz"
  496.             EndProperty
  497.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.                Picture         =   "统计分析_暂估成本分析.frx":40180
  499.                Key             =   "tc"
  500.             EndProperty
  501.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.                Picture         =   "统计分析_暂估成本分析.frx":4051A
  503.                Key             =   "bcgs"
  504.             EndProperty
  505.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  506.                Picture         =   "统计分析_暂估成本分析.frx":408B4
  507.                Key             =   "mrlk"
  508.             EndProperty
  509.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.                Picture         =   "统计分析_暂估成本分析.frx":40C4E
  511.                Key             =   "xsxm"
  512.             EndProperty
  513.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.                Picture         =   "统计分析_暂估成本分析.frx":40FE8
  515.                Key             =   "first"
  516.             EndProperty
  517.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  518.                Picture         =   "统计分析_暂估成本分析.frx":41382
  519.                Key             =   "prev"
  520.             EndProperty
  521.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  522.                Picture         =   "统计分析_暂估成本分析.frx":4171C
  523.                Key             =   "next"
  524.             EndProperty
  525.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  526.                Picture         =   "统计分析_暂估成本分析.frx":41AB6
  527.                Key             =   "last"
  528.             EndProperty
  529.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  530.                Picture         =   "统计分析_暂估成本分析.frx":41E50
  531.                Key             =   "xx"
  532.             EndProperty
  533.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.                Picture         =   "统计分析_暂估成本分析.frx":421EA
  535.                Key             =   "define"
  536.             EndProperty
  537.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.                Picture         =   "统计分析_暂估成本分析.frx":42584
  539.                Key             =   "exec"
  540.             EndProperty
  541.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.                Picture         =   "统计分析_暂估成本分析.frx":4291E
  543.                Key             =   "xz"
  544.             EndProperty
  545.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  546.                Picture         =   "统计分析_暂估成本分析.frx":42CB8
  547.                Key             =   "sc"
  548.             EndProperty
  549.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  550.                Picture         =   "统计分析_暂估成本分析.frx":43052
  551.                Key             =   "sx"
  552.             EndProperty
  553.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  554.                Picture         =   "统计分析_暂估成本分析.frx":433EC
  555.                Key             =   "cx"
  556.             EndProperty
  557.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  558.                Picture         =   "统计分析_暂估成本分析.frx":43786
  559.                Key             =   "zd"
  560.             EndProperty
  561.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  562.                Picture         =   "统计分析_暂估成本分析.frx":43B20
  563.                Key             =   "dz"
  564.             EndProperty
  565.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  566.                Picture         =   "统计分析_暂估成本分析.frx":43EBA
  567.                Key             =   "ph"
  568.             EndProperty
  569.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  570.                Picture         =   "统计分析_暂估成本分析.frx":44254
  571.                Key             =   "fz"
  572.             EndProperty
  573.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  574.                Picture         =   "统计分析_暂估成本分析.frx":445EE
  575.                Key             =   "dw"
  576.             EndProperty
  577.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  578.                Picture         =   "统计分析_暂估成本分析.frx":44988
  579.                Key             =   "hf"
  580.             EndProperty
  581.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  582.                Picture         =   "统计分析_暂估成本分析.frx":44D22
  583.                Key             =   "pz"
  584.             EndProperty
  585.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  586.                Picture         =   "统计分析_暂估成本分析.frx":450BC
  587.                Key             =   "check"
  588.             EndProperty
  589.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  590.                Picture         =   "统计分析_暂估成本分析.frx":45456
  591.                Key             =   "mx"
  592.             EndProperty
  593.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  594.                Picture         =   "统计分析_暂估成本分析.frx":457F0
  595.                Key             =   "jz"
  596.             EndProperty
  597.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  598.                Picture         =   "统计分析_暂估成本分析.frx":45B8A
  599.                Key             =   "hz"
  600.             EndProperty
  601.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  602.                Picture         =   "统计分析_暂估成本分析.frx":45F24
  603.                Key             =   "dj"
  604.             EndProperty
  605.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  606.                Picture         =   "统计分析_暂估成本分析.frx":462BE
  607.                Key             =   "cy"
  608.             EndProperty
  609.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  610.                Picture         =   "统计分析_暂估成本分析.frx":46658
  611.                Key             =   "zhh"
  612.             EndProperty
  613.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  614.                Picture         =   "统计分析_暂估成本分析.frx":469F2
  615.                Key             =   "a"
  616.             EndProperty
  617.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  618.                Picture         =   "统计分析_暂估成本分析.frx":46D8C
  619.                Key             =   "b"
  620.             EndProperty
  621.             BeginProperty ListImage41 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  622.                Picture         =   "统计分析_暂估成本分析.frx":47126
  623.                Key             =   "c"
  624.             EndProperty
  625.          EndProperty
  626.       End
  627.    End
  628. End
  629. Attribute VB_Name = "Tjfx_EvalFx"
  630. Attribute VB_GlobalNameSpace = False
  631. Attribute VB_Creatable = False
  632. Attribute VB_PredeclaredId = True
  633. Attribute VB_Exposed = False
  634. '**************************************************************************
  635. '*    模 块 名 称 :暂估成本分析
  636. '*    功 能 描 述 :
  637. '*    程序员姓名  :白凤英
  638. '*    最后修改人  :白凤英
  639. '*    最后修改时间:2001/12/19
  640. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  641. '**************************************************************************
  643. Dim ReportTitle As String                '报表主标题
  644. Dim Str_QueryCondi As String             '用户录入查询条件
  645. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  646. Dim FlCond As String                     '分类条件
  648. '以下为固定使用变量
  649. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  650. Dim GridCode As String                   '显示网格网格代码
  651. Dim GridInf() As Variant                 '整个网格设置信息
  652. Dim Tsxx As String                       '系统提示信息
  653. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  654. Dim Sjhgd As Double                      '网格数据行高度
  655. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  656. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  657. Dim GridStr()  As String                 '网格列信息(字符型)
  658. Dim GridInt() As Integer                 '网格列信息(整型)
  659. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  661. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  662.     
  663.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  665.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then Exit Sub
  666.     '非数据行退出
  667.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  668.         Exit Sub
  669.     End If
  670.     
  671.     SqlStr = "SELECT InOutMainId From Gy_InOutMain Where InOutMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 1)) + 0
  672.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  673.     With Rectemp
  674.         If .EOF Then
  675.             Tsxx = "此单据已被其他用户删除!"
  676.             Call Xtxxts(Tsxx, 0, 4)
  677.             Exit Sub
  678.         Else
  679.             
  680.              '填充查询单据标识
  681.             XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 1)
  682.             Xtcdcsfz = Str_QueryCondi
  683.             
  684.             '设置单据处理为列表查询(修改)状态
  685.             Xtcdcs = "3"
  686.             
  687.            '调入单据处理窗体
  688.             Select Case Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  689.                 Case "1304"
  690.                     Xtcdcsfz = " startflag=0 and kjyear=" & Xtyear & " and period =" & Trim(Tjfx_EvalFxCond.Com_Mon.ItemData(Tjfx_EvalFxCond.Com_Mon.ListIndex))
  691.                     Eval_BlueBill.Show 1
  692.                 Case "1305"
  693.                     Xtcdcsfz = " startflag=0 and kjyear=" & Xtyear & " and period =" & Trim(Tjfx_EvalFxCond.Com_Mon.ItemData(Tjfx_EvalFxCond.Com_Mon.ListIndex))
  694.                     Eval_RedBill.Show 1
  695.             End Select
  696.         End If
  697.     End With
  699. End Sub
  701. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  702.     On Error Resume Next
  703.     With CxbbGrid
  704.         .Width = Me.Width - 160
  705.         .Height = Me.Height - .Top - 400
  706.     End With
  707.     With Pic_Title
  708.         .Width = Me.Width - 160
  709.     End With
  710.     
  711.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  713. End Sub
  715. Private Sub Form_Load()                                                   '窗体装入
  716.   
  717.     '调入打印页面设置窗体
  718.     ReportTitle = "暂估成本分析表"
  719.     XtReportCode = "Chhs_EvalFx"
  720.     Load Dyymctbl
  721.       
  722.     '调整标题栏及网格、格式工具条位置(Fixed)
  723.     Pic_Title.Left = 40
  724.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  725.     CxbbGrid.Left = Pic_Title.Left
  726.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  727.      
  728.     '调 入 网 格(Fixed)
  729.     GridCode = "Chhs_EvalFx"
  730.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  731.       
  732.     Qslz = GridInf(1)
  733.     Sjhgd = GridInf(2)
  734.     Sfxshjwg = GridInf(7)
  735.     Szzls = CxbbGrid.Cols - 1
  736.         
  737.     '清除表头内容
  738.     Lbl_TitleText(0) = ""
  740. End Sub
  742. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  744.     '卸载条件窗体
  745.     Tjfx_EvalFxCond.UnloadCheck.Value = 1
  746.     Unload Tjfx_EvalFxCond
  747.     
  748.     '卸载打印页面设置窗体
  749.     Unload Dyymctbl
  751. End Sub
  753. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  754.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  755. End Sub
  757. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  758.   
  759.     Select Case Button.Key
  760.         Case "bcgs"                                          '保存表格格式
  761.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  762.         Case "hfmrgs"                                        '恢复默认格式
  763.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  764.         Case "szxsxm"                                        '设置显示项目
  765.             Call Szxsxm(CxbbGrid, GridCode)
  766.     End Select
  768. End Sub
  771. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  772.     
  773.     Select Case Button.Key
  774.         Case "ymsz"                                          '页面设置
  775.             Dyymctbl.Show 1
  776.         Case "yl"                                            '预 览
  777.             Call bbyl(True)
  778.         Case "dy"                                            '打 印
  779.             Call bbyl(False)
  780.         Case "cx"                                            '查 询
  781.             Tjfx_EvalFxCond.Show 1
  782.         Case "Bill"                                          '单 据
  783.             Call CxbbGrid_DblClick
  784.         Case "bz"                                            '帮 助
  785.             Call F1bz
  786.         Case "fh"                                            '退 出
  787.            Unload Me
  788.     End Select
  790. End Sub
  792. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  793.     
  794.     Timer1.Enabled = False
  795.     Xt_Wait.Show
  796.     Xt_Wait.Refresh
  797.    
  798.     '加快显示速度
  799.     CxbbGrid.Redraw = False
  801.     '生成查询结果
  802.     Call Sub_Query
  803.    
  804.     CxbbGrid.Redraw = True
  805.     
  806.     Xt_Wait.Hide
  808. End Sub
  810. Private Sub Sub_Query()                              '生成查询结果(Define)
  811.     
  812.     Dim Rec_Query As Recordset                  '查询结果动态集
  813.     Dim Coljsq As Long                          '网格列计数器
  814.     Dim Jsqte As Long                        '临时动态计数器
  815.     Dim Str1 As String
  816.     Dim SumQuan As Double
  817.     Dim SumMoney As Double
  818.     
  819.     
  820.     '以下为自定义部分[
  821.  
  822.     With Tjfx_EvalFxCond
  823.      
  824.         '生成查询条件
  825.         Str_QueryCondi = " where " & .WhCode & " and  kjyear= " & Xtyear
  826.         For Jsqte = 0 To 3
  827.             Select Case Jsqte
  828.                 Case 0  '月份）
  829.                     Str_QueryCondi = Str_QueryCondi & " And a.period= '" & .Com_Mon.ItemData(.Com_Mon.ListIndex) & "'"
  830.                 Case 1  '存货分类(Like)
  831.                     If Trim(.LrText(0).Text) <> "" Then
  832.                         Str_QueryCondi = Str_QueryCondi & " And a.invsortcode like '" & Trim(.LrText(0).Tag) & "%'"
  833.                     End If
  834.                 Case 2  '查询存货范围(起始)
  835.                     If Trim(.LrText(1).Text) <> "" Then
  836.                         Str_QueryCondi = Str_QueryCondi & " And a.mnumber>='" & Trim(.LrText(1).Text) & "'"
  837.                     End If
  838.                 Case 3  '查询存货范围(终止)
  839.                     If Trim(.LrText(2).Text) <> "" Then
  840.                         Str_QueryCondi = Str_QueryCondi & " And a.mnumber<= '" & Trim(.LrText(2).Text) & "'"
  841.                     End If
  842.             End Select
  843.         Next Jsqte
  844.     End With
  845.     
  846.     CxbbGrid.Rows = CxbbGrid.FixedRows
  847.      
  848.     SqlStr = "SELECT BillCode,InOutMainId,Whcode,Whname,MNumber, MName, Model, PrimaryUnitName," & _
  849.              " InQuan ,InMoney,JfDiff,DfDiff,Period From Chhs_v_List a " & Str_QueryCondi & _
  850.              " and a.billcode in('1304','1305') and a.startflag=0 ORDER BY a.whcode,a.MNumber "
  851.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  852.     With Rec_Query
  853.         
  854.         Do While Not .EOF
  855.         
  856.             CxbbGrid.AddItem ""
  857.             Jsqte = CxbbGrid.Rows - 1
  858.             '[>>自定义填充内容
  859.             CxbbGrid.TextMatrix(Jsqte, 0) = Trim(.Fields("billcode") & "")
  860.             CxbbGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("inoutmainid") & "")
  861.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Whcode") & "")
  862.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Whname") & "")
  863.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("mnumber") & "")
  864.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("mname") & "")
  865.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("model") & "")
  866.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("primaryunitname") & "")
  867.             If .Fields("InQuan") <> 0 Then                                                                           '数量
  868.                 CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = .Fields("InQuan") + 0
  869.             End If
  870.             
  871.             '期末处理差异
  872.             If Qmclcy Then
  873.                 If .Fields("InMoney") + .Fields("JfDiff") - .Fields("DfDiff") <> 0 Then                              '金额
  874.                     CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = .Fields("InMoney") + .Fields("JfDiff") - .Fields("DfDiff")
  875.                 End If
  876.                 If .Fields("InQuan") <> 0 Then                                                                      '单价
  877.                     CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = (.Fields("InMoney") + .Fields("JfDiff") - .Fields("DfDiff")) / .Fields("InQuan")
  878.                 End If
  879.             Else
  880.                 If .Fields("Inprice") <> 0 Then                                                                      '单价
  881.                     CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = .Fields("Inprice") + 0
  882.                 End If
  883.                 If .Fields("InMoney") <> 0 Then                                                                      '金额
  884.                     CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = .Fields("InMoney") + 0
  885.                 End If
  886.             End If
  887.             '<<]
  888.             '设置数据行高度(Fixed)
  889.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  890.             
  891.             '动态集指针加1,同时将计数器加1(Fixed)
  892.             Jsqte = Jsqte + 1
  893.             
  894.             .MoveNext
  895.         Loop
  896.     End With
  897.     
  898.     
  899.     '输入合计
  900.     With CxbbGrid
  901.         If .Rows = .FixedRows Then Exit Sub
  902.         
  903.         .SubtotalPosition = flexSTBelow
  904.         For Jsqte = Qslz To .Cols - 1
  905.              If GridBoolean(Jsqte, 4) Then
  906.                   .Subtotal flexSTSum, -1, Jsqte, , &HF7F3EC, , , , , True
  907.              End If
  908.         Next
  909.         Jsqte = .Rows - 1
  910.         .RowHeight(Jsqte) = Sjhgd
  911.         .TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = ""
  912.         .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = "合计 "
  913.            
  914.         For Coljsq = Qslz To .Cols - 1
  915.             If Val(.TextMatrix(Jsqte, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
  916.                 .TextMatrix(Jsqte, Coljsq) = ""
  917.             End If
  918.         Next
  919.     End With
  920.     
  921.     ']以上为用户自定义部分
  922.     
  923.     Set Rec_Query = Nothing
  925. End Sub
  928. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  929.     
  930.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  931.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  932.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  933.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  934.     ReDim Bbxbt(1 To Bbxbtgs)
  935.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  936.     If Bbbwhgs <> 0 Then
  937.         ReDim Bbbwh(1 To Bbbwhgs)
  938.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  939.     End If
  940.     Bbzbt = Lab_Title(0)
  941.     Bbxbt(1) = Fun_FormatOutPut("月份:" + Trim(Lbl_TitleText(0)), 50)
  942.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  943.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  944.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  945.     If Not bbylte Then
  946.         Unload DY_Tybbyldy
  947.     End If
  949. End Sub