frmin_pzlx.frm

一个用VB写的财务软件源码

VERSION 5.00
Begin VB.Form frmIN_Pzlx 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "凭证类型"
   ClientHeight    =   3315
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6045
   HelpContextID   =   1025
   Icon            =   "frmIN_Pzlx.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3315
   ScaleWidth      =   6045
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.OptionButton optPzlx 
      Caption         =   "自定义"
      Height          =   390
      Index           =   4
      Left            =   405
      TabIndex        =   13
      Top             =   2610
      Width           =   3390
   End
   Begin VB.OptionButton optPzlx 
      Caption         =   "现金收款凭证  现金付款凭证  银行收款凭证  银行付款凭证  转账凭证"
      Height          =   390
      Index           =   3
      Left            =   405
      TabIndex        =   12
      Top             =   2070
      Width           =   3990
   End
   Begin VB.OptionButton optPzlx 
      Caption         =   "现金凭证  银行凭证  转账凭证"
      Height          =   390
      Index           =   2
      Left            =   405
      TabIndex        =   11
      Top             =   1530
      Width           =   3390
   End
   Begin VB.OptionButton optPzlx 
      Caption         =   "收款凭证  付款凭证  转账凭证"
      Height          =   390
      Index           =   1
      Left            =   405
      TabIndex        =   10
      Top             =   1035
      Width           =   3390
   End
   Begin VB.OptionButton optPzlx 
      Caption         =   "记账凭证"
      Height          =   390
      Index           =   0
      Left            =   405
      TabIndex        =   9
      Top             =   495
      Value           =   -1  'True
      Width           =   3390
   End
   Begin VB.CommandButton Command1 
      Caption         =   "帮助(&H)"
      Height          =   345
      Left            =   4800
      TabIndex        =   3
      Top             =   2520
      Width           =   1065
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   345
      Left            =   4800
      TabIndex        =   2
      Top             =   1500
      Width           =   1065
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   345
      Left            =   4800
      TabIndex        =   1
      Top             =   480
      Width           =   1065
   End
   Begin VB.Frame Frame1 
      Caption         =   "分类方式："
      Height          =   2970
      Left            =   225
      TabIndex        =   0
      Top             =   150
      Width           =   4365
      Begin VB.PictureBox Picture5 
         Height          =   510
         Left            =   75
         ScaleHeight     =   450
         ScaleWidth      =   4155
         TabIndex        =   8
         Top             =   2370
         Width           =   4215
      End
      Begin VB.PictureBox Picture4 
         Height          =   510
         Left            =   75
         ScaleHeight     =   450
         ScaleWidth      =   4155
         TabIndex        =   7
         Top             =   1845
         Width           =   4215
      End
      Begin VB.PictureBox Picture3 
         Height          =   510
         Left            =   75
         ScaleHeight     =   450
         ScaleWidth      =   4155
         TabIndex        =   6
         Top             =   1320
         Width           =   4215
      End
      Begin VB.PictureBox Picture2 
         Height          =   510
         Left            =   75
         ScaleHeight     =   450
         ScaleWidth      =   4155
         TabIndex        =   5
         Top             =   795
         Width           =   4215
      End
      Begin VB.PictureBox Picture1 
         Height          =   510
         Left            =   75
         ScaleHeight     =   450
         ScaleWidth      =   4155
         TabIndex        =   4
         Top             =   270
         Width           =   4215
      End
   End
End
Attribute VB_Name = "frmIN_Pzlx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOk_Click()
    Dim i As Integer
    Dim rstSys As ADODB.Recordset
    Dim rstPzlx As ADODB.Recordset
    
    MousePointer = vbHourglass
    For i = 0 To 4
        If optPzlx.Item(i) Then Exit For
    Next i
    
    '如果不是用户子定义类型，则预置凭证类型；
    If i + 1 <> 5 Then
        Set rstSys = New ADODB.Recordset
        rstSys.CursorLocation = adUseClient
        rstSys.Open "select * from tSYS_PzType where TypeID=" & Trim$("" & str(i + 1)), gloSys.cnnSYS, adOpenStatic, adLockOptimistic
        Set rstPzlx = New ADODB.Recordset
        rstPzlx.CursorLocation = adUseClient
        rstPzlx.Open "select * from tZw_Type" & glo.sOperateYear, glo.cnnMain, adOpenStatic, adLockOptimistic
        
        If Not rstSys.BOF Then rstSys.MoveFirst
        Do While Not rstSys.EOF
            rstPzlx.AddNew
            rstPzlx.Fields("signid") = rstSys.Fields("signid").Value
            rstPzlx.Fields("sign") = rstSys.Fields("sign")
            rstPzlx.Fields("signtext") = rstSys.Fields("signtext")
            rstSys.MoveNext
            rstPzlx.Update
        Loop
        rstSys.Close
        Set rstSys = Nothing
        rstPzlx.Close
        Set rstPzlx = Nothing
    End If
    frmIN_PzTypeList.Show 1
    MousePointer = vbDefault
    Unload Me

End Sub

Private Sub Command1_Click()
    Call ShowHelp
End Sub