VB开发的ERP系统

VERSION 5.00
Begin VB.Form Formula_Guide_Frm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "函数向导"
   ClientHeight    =   3480
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6090
   Icon            =   "函数向导.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3480
   ScaleWidth      =   6090
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Cmd_OK 
      Caption         =   "确定(&N)"
      Default         =   -1  'True
      Height          =   300
      Left            =   3675
      TabIndex        =   5
      Top             =   3120
      Width           =   1120
   End
   Begin VB.CommandButton Cmd_Cancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   4875
      TabIndex        =   4
      Top             =   3120
      Width           =   1120
   End
   Begin VB.Frame Frame1 
      Caption         =   "函数说明:"
      Height          =   2415
      Left            =   2040
      TabIndex        =   1
      Top             =   630
      Width           =   3975
      Begin VB.Label Label6 
         Caption         =   "例如:"
         Height          =   255
         Left            =   360
         TabIndex        =   9
         Top             =   1320
         Width           =   735
      End
      Begin VB.Label Label5 
         Height          =   255
         Left            =   360
         TabIndex        =   8
         Top             =   1800
         Width           =   3375
      End
      Begin VB.Label Label4 
         Height          =   255
         Left            =   330
         TabIndex        =   7
         Top             =   900
         Width           =   3255
      End
      Begin VB.Label Label3 
         Height          =   555
         Left            =   360
         TabIndex        =   6
         Top             =   270
         Width           =   3375
      End
   End
   Begin VB.ListBox Lst_Function 
      Height          =   2220
      Left            =   120
      TabIndex        =   0
      Top             =   720
      Width           =   1815
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "请选择需要的函数，按“确定”以输入函数"
      Height          =   180
      Left            =   120
      TabIndex        =   3
      Top             =   120
      Width           =   3420
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "函数名:"
      Height          =   180
      Left            =   120
      TabIndex        =   2
      Top             =   480
      Width           =   630
   End
End
Attribute VB_Name = "Formula_Guide_Frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'*    模 块 名 称 :公式导入
'*    功 能 描 述 :
'*    程序员姓名  :苗鹏
'*    最后修改人  :苗鹏
'*    最后修改时间:2002/01/10
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'******************************************************************
Option Explicit
Public sFunction As String

Private Sub Cmd_Cancel_Click()
    Me.sFunction = ""
    Unload Me
End Sub

Private Sub Cmd_OK_Click()
    Me.sFunction = Trim(Me.Lst_Function.Text)
    Unload Me
End Sub

Private Sub Form_Load()
    '添加公式
    With Me.Lst_Function
        .AddItem "Year"
        .AddItem "Month"
        .AddItem "Day"
        .AddItem "Today"   '在公式或限定条件确认时，如果碰上today 则用getdate()替换。
        .listindex = 0
    End With
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    '如果用户点击右上角X关闭窗口,清空公式
    If UnloadMode = 0 Then
        Me.sFunction = ""
    End If
End Sub

Private Sub Lst_Function_Click() '描述公式
  Dim strName As String, strExample As String, strExplain As String
  Select Case UCase(Trim(Me.Lst_Function.Text))
    Case UCase("Day")
      strName = "日期型函数。day(日期型表达式)"
      strExample = "取<日期表达式>的天数"
      strExplain = "Day(1999-12-31)"
    Case UCase("Today")
      strName = "日期型函数。与year month day结合使用,无参数"
      strExample = "表示系统日期的今天"
      strExplain = "Year(today)"
    Case UCase("Month")
      strName = "日期型函数。month(日期型表达式)"
      strExample = "取<日期表达式>的月份"
      strExplain = "Month(1999-12-31)"
    Case UCase("Year")
      strName = "日期型函数。year(日期型表达式)"
      strExample = "取<日期表达式>的年份"
      strExplain = "Year(1999-12-31)"
  End Select
  Label3.Caption = strName
  Label4.Caption = strExample
  Label5.Caption = strExplain
End Sub

Private Sub Lst_Function_DblClick()
    Call Cmd_OK_Click
End Sub