frminitvouchertypecard.frm

金算盘软件代码

VERSION 5.00
Begin VB.Form frmInitVoucherTypeCard 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "记帐凭证类型"
   ClientHeight    =   3270
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5490
   HelpContextID   =   30037
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3270
   ScaleWidth      =   5490
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton cmdOK 
      Height          =   350
      Left            =   2160
      Style           =   1  'Graphical
      TabIndex        =   5
      Tag             =   "1001"
      Top             =   2760
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.OptionButton optVoucherType 
      Caption         =   "自定义"
      Height          =   255
      Index           =   4
      Left            =   360
      TabIndex        =   4
      Top             =   2160
      Width           =   1335
   End
   Begin VB.OptionButton optVoucherType 
      Caption         =   "现金收款、现金付款、银行收款、银行付款、转帐凭证"
      Height          =   255
      Index           =   3
      Left            =   360
      TabIndex        =   3
      Top             =   1740
      Width           =   4695
   End
   Begin VB.OptionButton optVoucherType 
      Caption         =   "现金凭证、银行凭证、转帐凭证"
      Height          =   255
      Index           =   2
      Left            =   360
      TabIndex        =   2
      Top             =   1320
      Width           =   3375
   End
   Begin VB.OptionButton optVoucherType 
      Caption         =   "收款凭证、付款凭证、转帐凭证"
      Height          =   255
      Index           =   1
      Left            =   360
      TabIndex        =   1
      Top             =   900
      Width           =   3375
   End
   Begin VB.OptionButton optVoucherType 
      Caption         =   "记帐凭证"
      Height          =   255
      Index           =   0
      Left            =   360
      TabIndex        =   0
      Top             =   480
      Width           =   1335
   End
End
Attribute VB_Name = "frmInitVoucherTypeCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'''''''''''''''''''
'初始化凭证类型
'作者：郑权
'日期：98.08.10
'
'接口：AddCard 显示当前初始化凭证类型卡片
'
''''''''''''''''''
Option Explicit

Private Sub cmdOK_Click()
    Dim strSql As String
    'Dim recVoucherType As rdoresultset
    
    If optVoucherType(0).Value Then
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'记'," & "'记帐凭证',0,0)"
       gclsBase.ExecSQL (strSql)
       gclsSys.SendMessage Me.hwnd, msgVoucherType
       Unload Me
       Exit Sub
    End If
    If optVoucherType(1).Value Then
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'收'," & "'收款凭证',0,0)"
       gclsBase.ExecSQL (strSql)
       
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'付'," & "'付款凭证',0,0)"
       gclsBase.ExecSQL (strSql)
       
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'转'," & "'转帐凭证',0,0)"
       gclsBase.ExecSQL (strSql)
       gclsSys.SendMessage Me.hwnd, msgVoucherType
       Unload Me
       Exit Sub
    End If
    If optVoucherType(2).Value Then
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'现'," & "'现金凭证',0,0)"
       gclsBase.ExecSQL (strSql)
       
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'银'," & "'银行凭证',0,0)"
       gclsBase.ExecSQL (strSql)
       
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'转'," & "'转帐凭证',0,0)"
       gclsBase.ExecSQL (strSql)
       gclsSys.SendMessage Me.hwnd, msgVoucherType
       Unload Me
       Exit Sub
    End If
    If optVoucherType(3).Value Then
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'现收'," & "'现金收款',0,0)"
       gclsBase.ExecSQL (strSql)
       
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'现付'," & "'现金付款',0,0)"
       gclsBase.ExecSQL (strSql)
       
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'银收'," & "'银行收款',0,0)"
       gclsBase.ExecSQL (strSql)
       
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'银付'," & "'银行付款',0,0)"
       gclsBase.ExecSQL (strSql)
       
       strSql = "insert into VoucherType (lngVoucherTypeID,strVoucherTypeCode,strVoucherTypeName,blnIsInActive,strVoucherFormat)" _
            & "values(" & GetNewID("VoucherType") & ",'转'," & "'转帐凭证',0,0)"
       gclsBase.ExecSQL (strSql)
       gclsSys.SendMessage Me.hwnd, msgVoucherType
       Unload Me
       Exit Sub
    End If
    If optVoucherType(4).Value Then
       gclsSys.SendMessage Me.hwnd, msgVoucherType
       Unload Me
       Exit Sub
    End If
    
End Sub

Private Sub Form_Activate()
    SetHelpID Me.HelpContextID
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If Shift = 2 Then
            cmdOk.Value = True
        ElseIf Shift = 0 Then
            BKKEY Me.ActiveControl.hwnd, vbKeyTab
        End If
    End If
End Sub

Private Sub Form_Load()
'    SetHelpID Me.hwnd, 30037
    'Set mclsMainControl = gclsSys.MainControls.Add(Me)
    Set cmdOk.Picture = GetFormResPicture(1001, vbResBitmap)
    Set Me.Icon = GetFormResPicture(139, vbResIcon)
    
End Sub

Private Sub Form_Paint()
    FrameBox Me.hwnd, 120, 200, 5332.5, 2587.5
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
'    gclsSys.MainControls.Remove Me
'    Set mclsMainControl = Nothing
Utility.RemoveFormResPicture (139)
Utility.RemoveFormResPicture (1001)
End Sub

Private Sub optVoucherType_DblClick(Index As Integer)
    cmdOK_Click
End Sub