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

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

企业管理

开发平台：

Visual Basic

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