企业管理

开发平台：
Visual Basic

frm_formula.frm：源码内容
							VERSION 5.00
Begin VB.Form frm_formula 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00C0E0FA&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "函数公式向导"
   ClientHeight    =   4020
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5715
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4020
   ScaleWidth      =   5715
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.ComboBox Combo3 
      Height          =   300
      Left            =   2400
      TabIndex        =   8
      Top             =   2580
      Width           =   855
   End
   Begin VB.ComboBox Combo2 
      Height          =   300
      Left            =   2400
      TabIndex        =   6
      Top             =   1860
      Width           =   975
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      Left            =   2400
      TabIndex        =   3
      Top             =   1260
      Width           =   3075
   End
   Begin VB.CommandButton Command2 
      Caption         =   "取  消"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3330
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3360
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0C0C0&
      Caption         =   "确  定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1170
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   3360
      Width           =   1215
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "Label4"
      Height          =   180
      Left            =   600
      TabIndex        =   7
      Top             =   2640
      Width           =   1500
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "Label3"
      Height          =   180
      Left            =   600
      TabIndex        =   5
      Top             =   1920
      Width           =   1500
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "Label2"
      Height          =   180
      Left            =   600
      TabIndex        =   4
      Top             =   1320
      Width           =   1500
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackColor       =   &H00C0E0FF&
      Caption         =   "Label1"
      Height          =   180
      Left            =   1680
      TabIndex        =   2
      Top             =   480
      Width           =   2100
   End
   Begin VB.Image Image1 
      Height          =   585
      Left            =   120
      Picture         =   "frm_formula.frx":0000
      Stretch         =   -1  'True
      Top             =   240
      Width           =   465
   End
End
Attribute VB_Name = "frm_formula"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'*************************************************
'The creator of this form is Squirrel.Song(宋树军)
'The fuction of this form is helping the users to make their formulation or equality with the
'The made time is oct 24th 2000
'*************************************************
'定义可变的控件数组
'Dim newcombo() As ComboBox
'Dim newlabel() As Label
Private Sub Command1_Click()
    Select Case UCase(song_temp)
    Case "JE_NCYE", "JE_QMYE"
        If Trim(Combo1.Text) = "" Then
            MsgBox "请选择会计科目 ！！", vbInformation + vbOKOnly, "提示信息——华夏新达电子报表"
            Combo1.SetFocus
            Exit Sub
        End If
        If Trim(Combo2.Text) = "" Then
            MsgBox "请选择会计年度 ！！", vbInformation + vbOKOnly, "提示信息——华夏新达电子报表"
            Combo2.SetFocus
            Exit Sub
        End If
        If Trim(Combo3.Text) = "" Then
            MsgBox "请选择会计月份 ！！", vbInformation + vbOKOnly, "提示信息——华夏新达电子报表"
            Combo3.SetFocus
            Exit Sub
        End If
        song_temp = UCase(song_temp) & "(" + Chr(34) + Left(Combo1.Text, InStr(1, Combo1.Text, "-") - 1) + Chr(34) + "," + Chr(34) + Combo2.Text + Chr(34) + "," + Chr(34) + Combo3.Text + Chr(34) + ")"
        
    Case Default
        song_temp = ""
    End Select
    Unload Me
End Sub
Private Sub command2_Click()
    song_temp = ""
    Unload Me
End Sub
Private Sub Form_Load()
    
    Select Case UCase(song_temp)
    Case "JE_NCYE"
        Call ncsqms_sub
    Case "JE_QMYE"
        Call ncsqms_sub
    Case Else
        song_temp = ""
        Me.Hide
    End Select
End Sub
Private Sub ncsqms_sub() '年初数期末数函数的窗体生成
    Dim lrst_xtbm As ADODB.Recordset
    Dim ls_select As String
    Dim i As Integer
    Dim j As Long
    ' ReDim newcombo(1 To 3) As ComboBox
    'ReDim newlabel(1 To 2) As Label
    '        If Not newlabel(1) Is Nothing Then Set newlabel(1) = Nothing
    '        Set newlabel(1) = Controls.Add("VB.Label", "newlabel0")
    '        With newlabel(1)
    '            .Top = 400
    '            .BackStyle = 0
    '            .ForeColor = &HFF0000
    '            If song_temp = "NCYE" Then
    '                .Caption = "函数NCYE（年初数）参数向导"
    '            Else
    '                .Caption = "函数QMYE（期末数）参数向导"
    '            End If
    '            .FontSize = 14
    '            .AutoSize = True
    '            Me.Width = .Width * 2
    '            .Left = (Me.Width - .Width) / 2
    '            .Visible = True
    '            j = 600 + .Height
    '        End With
    '        If Not newlabel(2) Is Nothing Then Set newlabel(2) = Nothing
    '        Set newlabel(2) = Controls.Add("VB.Label", "newlabel1")
    '        With newlabel(2)
    '            .Top = newlabel(1).Top + newlabel(1).Height * 2.5
    '            .Caption = "请选择会计科目："
    '            .FontSize = 10
    '            .BackStyle = 0
    '            .ForeColor = &HFF0000
    '            .AutoSize = True
    '            .Left = (Me.Width - .Width) / 2
    '            .Visible = True
    '            j = j + .Height
    '        End With
    '        If Not newcombo(1) Is Nothing Then Set newcombo(1) = Nothing
    '        Set newcombo(1) = Me.Controls.Add("VB.ComboBox", "NEWCOMBOBOX3")
    '        With newcombo(1)
    '            .Top = newlabel(2).Top + newlabel(2).Height * 1.5
    '            .Width = newlabel(2).Width * 1.5
    '            .FontSize = 10
    '            .Left = (Me.Width - .Width) / 2
    '            .Visible = True
    '            j = j + .Height
    '            Set lrst_xtbm = New ADODB.Recordset
    '            ls_select = "select ccode,cname from cwzz_acccode where cgrade=1  order by ccode"
    '            lrst_xtbm.Open ls_select, Cw_DataEnvi.dataconnect, adOpenStatic, adLockReadOnly, adCmdText
    '            If lrst_xtbm.RecordCount > 0 Then
    '                lrst_xtbm.MoveFirst
    '                Do While Not lrst_xtbm.EOF
    '                    .AddItem Trim(lrst_xtbm.Fields("ccode")) & "-" & Trim(lrst_xtbm.Fields("cname"))
    '                    lrst_xtbm.MoveNext
    '                Loop
    '                lrst_xtbm.Close
    '            End If
    '            Set lrst_xtbm = Nothing
    '        End With
    '        If Not newlabel(2) Is Nothing Then Set newlabel(2) = Nothing
    '        Set newlabel(2) = Controls.Add("VB.Label", "newlabel2")
    '        With newlabel(2)
    '            .Top = newcombo(1).Top + newcombo(1).Height * 1.5
    '            .Caption = "请选择会计年度："
    '            .FontSize = 10
    '            .BackStyle = 0
    '            .ForeColor = &HFF0000
    '            .AutoSize = True
    '            .Left = (Me.Width - .Width) / 2
    '            .Visible = True
    '            j = j + .Height
    '        End With
    '        If Not newcombo(2) Is Nothing Then Set newcombo(2) = Nothing
    '        Set newcombo(2) = Controls.Add("VB.ComboBox", "NEWCOMBOBOX2")
    '        With newcombo(2)
    '            .Top = newlabel(2).Top + newlabel(2).Height * 1.5
    '            .Width = 700
    '            .Left = (Me.Width - .Width) / 2
    '            .Visible = True
    '            i = 1998
    '            Do While i <= Year(Date)
    '                .AddItem Trim(Str(i))
    '                i = i + 1
    '            Loop
    '            j = j + .Height
    '        End With
    '         If Not newlabel(2) Is Nothing Then Set newlabel(2) = Nothing
    '        Set newlabel(2) = Controls.Add("VB.Label", "newlabel3")
    '        With newlabel(2)
    '            .Top = newcombo(2).Top + newcombo(2).Height * 1.5
    '            .Caption = "请选择会计月份："
    '            .FontSize = 10
    '            .BackStyle = 0
    '            .ForeColor = &HFF0000
    '            .AutoSize = True
    '            .Left = (Me.Width - .Width) / 2
    '            .Visible = True
    '            j = j + .Height
    '        End With
    '        If Not newcombo(3) Is Nothing Then Set newcombo(3) = Nothing
    '        Set newcombo(3) = Controls.Add("VB.ComboBox", "NEWCOMBOBOX1")
    '        With newcombo(3)
    '            .Top = newlabel(2).Top + newlabel(2).Height * 1.5
    '            .Width = 600
    '            .Left = (Me.Width - .Width) / 2
    '            .Visible = True
    '            i = 1
    '            Do While i < 13
    '                If i >= 10 Then
    '                    .AddItem Trim(Str(i))
    '                Else
    '                    .AddItem Trim("0" & Trim(Str(i)))
    '                End If
    '                i = i + 1
    '            Loop
    '            j = j + .Height
    '        End With
    '        Me.Height = j + Command1.Height * 5
    '        With Command1
    '            .Top = Me.Height - .Height * 2
    '            .Left = (Me.Width - .Width * 2) / 3
    '        End With
    '        With Command2
    '            .Top = Me.Height - .Height * 2
    '            .Left = Command1.Left * 2 + Command1.Width
    '        End With
    '        Image1.Top = (Me.Height - Image1.Height) / 2
    '        Image1.Left = 600
    '        Me.Top = (Screen.Height - Me.Height) / 2
    '        Me.Left = (Screen.Width - Me.Width) / 2
    With Label1
        If song_temp = "JE_NCYE" Then
            .Caption = "函数NCYE（年初数）参数向导"
        Else
            .Caption = "函数QMYE（期末数）参数向导"
        End If
        .FontSize = 14
        .AutoSize = True
        .Visible = True
    End With
    
    With Label2
        .Caption = "请选择会计科目："
        .FontSize = 10
        .BackStyle = 0
        .ForeColor = &HFF0000
        .AutoSize = True
        .Visible = True
    End With
    With Combo1
        .FontSize = 10
        .Visible = True
        Set lrst_xtbm = New ADODB.Recordset
        ls_select = "select ccode,cname from cwzz_acccode  order by ccode"
        lrst_xtbm.Open ls_select, Cw_DataEnvi.dataconnect, adOpenStatic, adLockReadOnly, adCmdText
        If lrst_xtbm.RecordCount > 0 Then
            lrst_xtbm.MoveFirst
            Do While Not lrst_xtbm.EOF
                .AddItem Trim(lrst_xtbm.Fields("ccode")) & "-" & Trim(lrst_xtbm.Fields("cname"))
                lrst_xtbm.MoveNext
            Loop
            lrst_xtbm.Close
        End If
        Set lrst_xtbm = Nothing
    End With
    With Label3
        .Caption = "请选择会计年度："
        .FontSize = 10
        .BackStyle = 0
        .ForeColor = &HFF0000
        .AutoSize = True
        .Visible = True
    End With
    With Combo2
        .Visible = True
        i = 1998
        Do While i <= Year(Date)
            .AddItem Trim(Str(i))
            i = i + 1
        Loop
    End With
    With Label4
        .Caption = "请选择会计月份："
        .FontSize = 10
        .BackStyle = 0
        .ForeColor = &HFF0000
        .AutoSize = True
        .Visible = True
    End With
    With Combo3
        .Visible = True
        i = 1
        Do While i < 13
            If i >= 10 Then
                .AddItem Trim(Str(i))
            Else
                .AddItem Trim("0" & Trim(Str(i)))
            End If
            i = i + 1
        Loop
    End With
End Sub

						