VB开发的ERP系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form AutoTran_ImportVouch 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "引入外部凭证条件"
   ClientHeight    =   1365
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3855
   Icon            =   "自动转帐凭证_引入外部凭证.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1365
   ScaleWidth      =   3855
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Fra_Query 
      ForeColor       =   &H00FF0000&
      Height          =   765
      Left            =   90
      TabIndex        =   4
      Top             =   60
      Width           =   3675
      Begin MSComctlLib.ImageCombo Imgebo_Dlz 
         Height          =   315
         Left            =   960
         TabIndex        =   0
         Top             =   270
         Width           =   2595
         _ExtentX        =   4577
         _ExtentY        =   556
         _Version        =   393216
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         Locked          =   -1  'True
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "凭证来源:"
         Height          =   180
         Index           =   1
         Left            =   150
         TabIndex        =   5
         Top             =   330
         Width           =   810
      End
   End
   Begin VB.CommandButton QdCommand 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   1440
      TabIndex        =   1
      Top             =   960
      Width           =   1125
   End
   Begin VB.CommandButton QxCommand 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   2640
      TabIndex        =   3
      Top             =   960
      Width           =   1120
   End
   Begin VB.CheckBox UnloadCheck 
      Caption         =   "卸载窗体"
      Height          =   615
      Left            =   4830
      TabIndex        =   2
      Top             =   1080
      Visible         =   0   'False
      Width           =   825
   End
End
Attribute VB_Name = "AutoTran_ImportVouch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************
'*    模 块 名 称 :引入外部凭证条件
'*    功 能 描 述 :
'*    程序员姓名  :魏永生
'*    最后修改人  :
'*    最后修改时间:2001/11/27
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'****************************************************************

Dim Tsxx As String                               '系统信息提示


Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
    Dim jdzygs As Integer                         '控件焦点转移个数
    jdzygs = 30
    Select Case KeyAscii
    Case vbKeyReturn
        If Kjjdzy(jdzygs) Then
            KeyAscii = 0
        End If
    Case 39           '屏蔽"'"
        KeyAscii = 0
    End Select
End Sub

Private Sub Form_Load()
    
    '凭证类别
    Call FillImageCombo(Imgebo_Dlz, "cwzz_TvSou", 1)
    
End Sub

Private Sub QdCommand_Click()                                   '确 定
    '录入条件有效性判断
    If Lrtjyxxpd Then
        Glo_VouchSource = Trim(Imgebo_Dlz.Text)
    End If
    Unload Me
End Sub

Private Sub QxCommand_Click()                                    '取消
    Glo_VouchSource = ""
    Unload Me
End Sub

Private Function Lrtjyxxpd() As Boolean                          '用户录入条件有效性判断
    Dim Jsqte As Integer
    Dim RecTemp As New ADODB.Recordset
    Lrtjyxxpd = False
    
    '[>>以下为依据实际情况自定义部分
    
    '多栏帐栏目不能为空
    If Imgebo_Dlz.ComboItems.count = 0 Then
        Glo_VouchSource = ""
        Exit Function
    End If
    
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute("select 1 from Cwzz_AccVouchMainTemp Where VouchSource='" & Imgebo_Dlz.Text & "'")
    If RecTemp.EOF Then
        Tsxx = "所选转帐凭证类别为空!"
        Call Xtxxts(Tsxx, 0, 4)
        Imgebo_Dlz.SetFocus
        Exit Function
    End If
    
    Lrtjyxxpd = True
End Function