开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
+
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：2k
源码类别：

企业管理

开发平台：

Visual Basic

+：源码内容
  1. VERSION 5.00
  2. Begin VB.Form JC_FrmKmdw 
  3.    Caption         =   "科目定位"
  4.    ClientHeight    =   1380
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3825
  8.    Icon            =   "基础设置_期初录入科目定位.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1380
  13.    ScaleWidth      =   3825
  14.    StartUpPosition =   1  '所有者中心
  15.    Begin VB.CommandButton QxCommand 
  16.       Cancel          =   -1  'True
  17.       Caption         =   "取消(&C)"
  18.       Height          =   300
  19.       Left            =   2130
  20.       TabIndex        =   3
  21.       Top             =   870
  22.       Width           =   1120
  23.    End
  24.    Begin VB.CommandButton BcCommand 
  25.       Caption         =   "确定(&O)"
  26.       Height          =   300
  27.       Left            =   930
  28.       TabIndex        =   2
  29.       Top             =   870
  30.       Width           =   1120
  31.    End
  32.    Begin VB.TextBox Txt_Ccode 
  33.       Height          =   300
  34.       Left            =   900
  35.       MaxLength       =   15
  36.       TabIndex        =   1
  37.       Top             =   330
  38.       Width           =   2835
  39.    End
  40.    Begin VB.Label Label1 
  41.       AutoSize        =   -1  'True
  42.       BackStyle       =   0  'Transparent
  43.       Caption         =   "科目编码:"
  44.       Height          =   180
  45.       Left            =   120
  46.       TabIndex        =   0
  47.       Top             =   390
  48.       Width           =   810
  49.    End
  50. End
  51. Attribute VB_Name = "JC_FrmKmdw"
  52. Attribute VB_GlobalNameSpace = False
  53. Attribute VB_Creatable = False
  54. Attribute VB_PredeclaredId = True
  55. Attribute VB_Exposed = False
  56. Private Sub Form_KeyPress(KeyAscii As Integer)   '控 制 焦 点 转 移
  57.     Dim jdzygs As Integer
  58.     jdzygs = 20
  59.     Select Case KeyAscii
  60.     Case vbKeyReturn
  61.         If Kjjdzy(jdzygs) Then
  62.             KeyAscii = 0
  63.         End If
  64.     Case 39           '屏蔽"'"
  65.         KeyAscii = 0
  66.     End Select
  67. End Sub
  69. Private Sub BcCommand_Click()                           '确定
  70.     Xtfhcs = Trim(Txt_Ccode.Text)
  71.     Unload Me
  72. End Sub
  74. Private Sub QxCommand_Click()                           '取消
  75.     Xtfhcs = ""
  76.     Unload Me
  77. End Sub
  79. Private Sub Txt_Ccode_KeyPress(KeyAscii As Integer)
  80.     If KeyAscii = vbKeyReturn Then
  81.         KeyAscii = 0
  82.         Xtfhcs = Trim(Txt_Ccode.Text)
  83.         Unload Me
  84.     End If
  85. End Sub