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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Begin VB.Form CSH_FrmGridSearch 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "编码定位"
  5.    ClientHeight    =   1350
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   3615
  9.    Icon            =   "初始化_编码定位.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1350
  15.    ScaleWidth      =   3615
  16.    StartUpPosition =   1  '所有者中心
  17.    Begin VB.TextBox txtCode 
  18.       Height          =   300
  19.       Left            =   1020
  20.       MaxLength       =   15
  21.       TabIndex        =   2
  22.       Top             =   240
  23.       Width           =   2325
  24.    End
  25.    Begin VB.CommandButton cmdOK 
  26.       Caption         =   "确定(&O)"
  27.       Height          =   300
  28.       Left            =   1020
  29.       TabIndex        =   1
  30.       Top             =   780
  31.       Width           =   1120
  32.    End
  33.    Begin VB.CommandButton cmdCancel 
  34.       Cancel          =   -1  'True
  35.       Caption         =   "取消(&C)"
  36.       Height          =   300
  37.       Left            =   2220
  38.       TabIndex        =   0
  39.       Top             =   780
  40.       Width           =   1120
  41.    End
  42.    Begin VB.Label labLocal 
  43.       AutoSize        =   -1  'True
  44.       BackStyle       =   0  'Transparent
  45.       Caption         =   "编码名称:"
  46.       Height          =   180
  47.       Left            =   210
  48.       TabIndex        =   3
  49.       Top             =   300
  50.       Width           =   900
  51.    End
  52. End
  53. Attribute VB_Name = "CSH_FrmGridSearch"
  54. Attribute VB_GlobalNameSpace = False
  55. Attribute VB_Creatable = False
  56. Attribute VB_PredeclaredId = True
  57. Attribute VB_Exposed = False
  58. '取消按钮
  59. Private Sub cmdCancel_Click()
  60.     str_Code = ""
  61.     Unload Me
  62. End Sub
  64. '确定按钮
  65. Private Sub cmdOK_Click()
  66.     If Trim(txtCode.Text) = "" Then Exit Sub
  67.     str_Code = Trim(txtCode.Text)
  68.     Unload Me
  69. End Sub
  71. Private Sub Form_Activate()
  72.     txtCode.SetFocus
  73. End Sub
  75. '如果按了回车键
  76. Private Sub txtCode_KeyPress(KeyAscii As Integer)
  77.     If KeyAscii = 13 Then
  78.         cmdOK_Click
  79.     End If
  80. End Sub