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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Begin VB.Form AutoTran_ImportOptFrm 
  3.    Caption         =   "凭证处理选项"
  4.    ClientHeight    =   1815
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3285
  8.    Icon            =   "自动转帐凭证_引入凭证选项.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   1815
  13.    ScaleWidth      =   3285
  14.    StartUpPosition =   1  '所有者中心
  15.    Begin VB.CommandButton BcCommand 
  16.       Caption         =   "确定(&O)"
  17.       Default         =   -1  'True
  18.       Height          =   300
  19.       Left            =   915
  20.       TabIndex        =   5
  21.       Top             =   1455
  22.       Width           =   1120
  23.    End
  24.    Begin VB.CommandButton QxCommand 
  25.       Cancel          =   -1  'True
  26.       Caption         =   "取消(&C)"
  27.       Height          =   300
  28.       Left            =   2115
  29.       TabIndex        =   4
  30.       Top             =   1455
  31.       Width           =   1120
  32.    End
  33.    Begin VB.Frame Frame1 
  34.       Height          =   1305
  35.       Left            =   45
  36.       TabIndex        =   0
  37.       Top             =   45
  38.       Width           =   3195
  39.       Begin VB.CheckBox Chk_CodeOutput 
  40.          Caption         =   "打印凭证是否输出科目编码"
  41.          Height          =   255
  42.          Left            =   210
  43.          TabIndex        =   3
  44.          Top             =   900
  45.          Width           =   2685
  46.       End
  47.       Begin VB.CheckBox Chk_DeleteMess 
  48.          Caption         =   "删除会计分录是否提示"
  49.          Height          =   255
  50.          Left            =   210
  51.          TabIndex        =   2
  52.          Top             =   570
  53.          Width           =   2685
  54.       End
  55.       Begin VB.CheckBox Chk_Quantity 
  56.          Caption         =   "科目数量核算则数量不能为零"
  57.          Height          =   255
  58.          Left            =   210
  59.          TabIndex        =   1
  60.          Top             =   240
  61.          Width           =   2685
  62.       End
  63.    End
  64. End
  65. Attribute VB_Name = "AutoTran_ImportOptFrm"
  66. Attribute VB_GlobalNameSpace = False
  67. Attribute VB_Creatable = False
  68. Attribute VB_PredeclaredId = True
  69. Attribute VB_Exposed = False
  70. Private Sub BcCommand_Click()        '确定
  71.     With AutoTran_Importpz
  72.         
  73.         '删行是否提示
  74.         .Chk_DeleteMess.Value = Me.Chk_DeleteMess.Value
  75.         
  76.         '科目数量核算数量项是否可以为零
  77.         .Chk_Quantity.Value = Me.Chk_Quantity.Value
  78.         
  79.         '打印凭证是否输出科目编码
  80.         .Chk_CodeOutput.Value = Me.Chk_CodeOutput.Value
  81.         
  82.         Unload Me
  83.     End With
  84. End Sub
  86. Private Sub QxCommand_Click()        '取消
  87.     Unload Me
  88. End Sub