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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Begin VB.Form CBHS_FormulaGen 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "自定义公式生成"
  5.    ClientHeight    =   3855
  6.    ClientLeft      =   2760
  7.    ClientTop       =   3750
  8.    ClientWidth     =   7335
  9.    Icon            =   "成本核算_自定义公式生成.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3855
  14.    ScaleWidth      =   7335
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.TextBox txtFormula 
  17.       Height          =   1095
  18.       Left            =   90
  19.       MultiLine       =   -1  'True
  20.       TabIndex        =   4
  21.       Top             =   2610
  22.       Width           =   5865
  23.    End
  24.    Begin VB.TextBox txtDescribe 
  25.       Height          =   2415
  26.       Left            =   3360
  27.       MultiLine       =   -1  'True
  28.       TabIndex        =   3
  29.       Top             =   60
  30.       Width           =   3885
  31.    End
  32.    Begin VB.ListBox lstFunction 
  33.       Height          =   2400
  34.       ItemData        =   "成本核算_自定义公式生成.frx":000C
  35.       Left            =   90
  36.       List            =   "成本核算_自定义公式生成.frx":0013
  37.       TabIndex        =   2
  38.       Top             =   90
  39.       Width           =   3135
  40.    End
  41.    Begin VB.CommandButton CancelButton 
  42.       Caption         =   "取消(&C)"
  43.       Height          =   300
  44.       Left            =   6120
  45.       TabIndex        =   1
  46.       Top             =   3240
  47.       Width           =   1125
  48.    End
  49.    Begin VB.CommandButton OKButton 
  50.       Caption         =   "确定(&O)"
  51.       Height          =   300
  52.       Left            =   6120
  53.       TabIndex        =   0
  54.       Top             =   2820
  55.       Width           =   1125
  56.    End
  57. End
  58. Attribute VB_Name = "CBHS_FormulaGen"
  59. Attribute VB_GlobalNameSpace = False
  60. Attribute VB_Creatable = False
  61. Attribute VB_PredeclaredId = True
  62. Attribute VB_Exposed = False
  64. Option Explicit
  66. Dim str_Describe() As String
  69. Private Sub CancelButton_Click()
  70.     Unload Me
  71. End Sub
  73. Private Sub Form_Load()
  74.     txtFormula.Text = Glo_FormulaString
  75.     FillListBox
  76. End Sub
  78. Private Sub lstFunction_Click()
  79.     txtDescribe.Text = str_Describe(lstFunction.ListIndex)
  80. End Sub
  82. Private Sub lstFunction_DblClick()
  83.     txtFormula.SelText = lstFunction.Text
  84. End Sub
  86. Private Sub OKButton_Click()
  87.     
  88.     Glo_FormulaString = txtFormula.Text
  89.     Unload Me
  90. End Sub
  91. Function FillListBox() As String   '填充列表框并定位
  93.     '函数参数：列表框，列表框分组编码，定位内容,填充类型(0-无空记录  1-有空记录(1个空格) )
  95.     Dim Lbknrrec As adodb.Recordset
  96.     Dim int_Count As Integer
  97.   
  98.     '填充列表框内容
  99.     Set Lbknrrec = Cw_DataEnvi.DataConnect.Execute("select * from cwzz_UserDefineFn")
  100.     lstFunction.Clear
  101.     ReDim str_Describe(Lbknrrec.RecordCount - 1) As String
  102.     
  103.     Do While Not Lbknrrec.EOF
  104.     
  105.         lstFunction.AddItem Trim(Lbknrrec("fnalias") & "")
  106.         str_Describe(int_Count) = Trim(Lbknrrec("fncomment") & "")
  107.         int_Count = int_Count + 1
  108.         
  109.         Lbknrrec.MoveNext
  110.     Loop
  111.     
  112.     
  113.     '定位列表框内容
  114.     lstFunction.ListIndex = 0
  115.     
  116. End Function