frmyh_yhkmxz.frm

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

VERSION 5.00
Begin VB.Form frmYH_Yhkmxz 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "银行科目选择"
   ClientHeight    =   2535
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4485
   Icon            =   "frmYH_Yhkmxz.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2535
   ScaleWidth      =   4485
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Caption         =   "请选择银行科目"
      Height          =   1605
      Left            =   240
      TabIndex        =   3
      Top             =   210
      Width           =   3945
      Begin VB.ComboBox cboKmmc 
         Height          =   300
         Left            =   990
         Style           =   2  'Dropdown List
         TabIndex        =   0
         Top             =   720
         Width           =   2565
      End
      Begin VB.Label Label1 
         Caption         =   "科目："
         Height          =   225
         Left            =   240
         TabIndex        =   4
         Top             =   750
         Width           =   645
      End
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "取消(&C)"
      Height          =   345
      Left            =   2670
      TabIndex        =   2
      Top             =   2040
      Width           =   1065
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "确定(&O)"
      Height          =   345
      Left            =   780
      TabIndex        =   1
      Top             =   2040
      Width           =   1065
   End
End
Attribute VB_Name = "frmYH_Yhkmxz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Base 1

Public Kmdm As String
Public Kmmc As String
Public Ok As Boolean
Dim aKmdm() As String
Dim aKmmc() As String
Dim jls As Integer




Private Sub cboKmmc_KeyPress(KeyAscii As Integer)
 If KeyAscii = 13 Then
        SendKeys "{tab}"
    
    End If
End Sub

Private Sub cmdCancel_Click()
    Ok = False
    Unload Me
End Sub

Private Sub cmdOk_Click()
    Ok = True
    Kmdm = aKmdm(cboKmmc.ListIndex + 1)
    Kmmc = aKmmc(cboKmmc.ListIndex + 1)
    Unload Me
End Sub

Private Sub form_load()
    Dim rSt As ADODB.Recordset
    Dim sSQL As String
    Ok = False
    Set rSt = New ADODB.Recordset
    rSt.CursorLocation = adUseClient
    sSQL = "SELECT kmdm,kmmc FROM tZW_km" & glo.sOperateYear & _
                " WHERE IsYhz =-1 and IsEndKm =-1" & _
                " ORDER BY kmdm"
    rSt.Open sSQL, glo.cnnMain, adOpenStatic, adLockReadOnly
    With rSt
        If .RecordCount <> 0 Then
            .MoveFirst
            ReDim aKmdm(.RecordCount)
            ReDim aKmmc(.RecordCount)
            jls = 1
            Do Until .EOF
                aKmdm(jls) = .Fields("kmdm").value
                aKmmc(jls) = .Fields("kmmc").value
                jls = jls + 1
                cboKmmc.AddItem Trim$("" & .Fields("kmmc").value) & "(" & Trim$("" & .Fields("kmdm").value) & ")"
                .MoveNext
            Loop
        cboKmmc.ListIndex = 0
        End If
    End With
End Sub