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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Begin VB.Form AutoTran_OptFrm 
  3.    Caption         =   "凭证处理选项"
  4.    ClientHeight    =   1830
  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     =   1830
  13.    ScaleWidth      =   3330
  14.    StartUpPosition =   1  '所有者中心
  15.    Begin VB.Frame Frame1 
  16.       Height          =   1305
  17.       Left            =   60
  18.       TabIndex        =   2
  19.       Top             =   30
  20.       Width           =   3195
  21.       Begin VB.CheckBox Chk_Quantity 
  22.          Caption         =   "科目数量核算则数量不能为零"
  23.          Height          =   255
  24.          Left            =   210
  25.          TabIndex        =   5
  26.          Top             =   240
  27.          Width           =   2685
  28.       End
  29.       Begin VB.CheckBox Chk_DeleteMess 
  30.          Caption         =   "删除会计分录是否提示"
  31.          Height          =   255
  32.          Left            =   210
  33.          TabIndex        =   4
  34.          Top             =   570
  35.          Width           =   2685
  36.       End
  37.       Begin VB.CheckBox Chk_CodeOutput 
  38.          Caption         =   "打印凭证是否输出科目编码"
  39.          Height          =   255
  40.          Left            =   210
  41.          TabIndex        =   3
  42.          Top             =   900
  43.          Width           =   2685
  44.       End
  45.    End
  46.    Begin VB.CommandButton QxCommand 
  47.       Cancel          =   -1  'True
  48.       Caption         =   "取消(&C)"
  49.       Height          =   300
  50.       Left            =   2130
  51.       TabIndex        =   1
  52.       Top             =   1440
  53.       Width           =   1120
  54.    End
  55.    Begin VB.CommandButton BcCommand 
  56.       Caption         =   "确定(&O)"
  57.       Default         =   -1  'True
  58.       Height          =   300
  59.       Left            =   930
  60.       TabIndex        =   0
  61.       Top             =   1440
  62.       Width           =   1120
  63.    End
  64. End
  65. Attribute VB_Name = "AutoTran_OptFrm"
  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_PzFrm
  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