+

VB开发的ERP系统

VERSION 5.00
Begin VB.Form JC_FrmKmdw 
   Caption         =   "科目定位"
   ClientHeight    =   1380
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3825
   Icon            =   "基础设置_期初录入科目定位.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1380
   ScaleWidth      =   3825
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton QxCommand 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   2130
      TabIndex        =   3
      Top             =   870
      Width           =   1120
   End
   Begin VB.CommandButton BcCommand 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   930
      TabIndex        =   2
      Top             =   870
      Width           =   1120
   End
   Begin VB.TextBox Txt_Ccode 
      Height          =   300
      Left            =   900
      MaxLength       =   15
      TabIndex        =   1
      Top             =   330
      Width           =   2835
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "科目编码:"
      Height          =   180
      Left            =   120
      TabIndex        =   0
      Top             =   390
      Width           =   810
   End
End
Attribute VB_Name = "JC_FrmKmdw"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
    Dim jdzygs As Integer
    jdzygs = 20
    Select Case KeyAscii
    Case vbKeyReturn
        If Kjjdzy(jdzygs) Then
            KeyAscii = 0
        End If
    Case 39           '屏蔽"'"
        KeyAscii = 0
    End Select
End Sub

Private Sub BcCommand_Click()                           '确定
    Xtfhcs = Trim(Txt_Ccode.Text)
    Unload Me
End Sub

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

Private Sub Txt_Ccode_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        Xtfhcs = Trim(Txt_Ccode.Text)
        Unload Me
    End If
End Sub