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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Begin VB.Form PZ_FrmOption 
  3.    Caption         =   "凭证处理选项"
  4.    ClientHeight    =   2565
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3510
  8.    Icon            =   "凭证处理_填制凭证选项.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   2565
  13.    ScaleWidth      =   3510
  14.    StartUpPosition =   1  '所有者中心
  15.    Begin VB.Frame Frame1 
  16.       Caption         =   "选项"
  17.       Height          =   2025
  18.       Left            =   60
  19.       TabIndex        =   2
  20.       Top             =   60
  21.       Width           =   3375
  22.       Begin VB.CheckBox Chk_Xjll 
  23.          Caption         =   "凭证保存后立刻分配现金流量"
  24.          Height          =   255
  25.          Left            =   180
  26.          TabIndex        =   8
  27.          Top             =   1350
  28.          Width           =   2805
  29.       End
  30.       Begin VB.CheckBox Chk_Quantity 
  31.          Caption         =   "科目数量核算则数量不能为零"
  32.          Height          =   345
  33.          Left            =   180
  34.          TabIndex        =   7
  35.          Top             =   210
  36.          Width           =   2745
  37.       End
  38.       Begin VB.CheckBox Chk_DeleteMess 
  39.          Caption         =   "删除会计分录是否提示"
  40.          Height          =   285
  41.          Left            =   180
  42.          TabIndex        =   6
  43.          Top             =   525
  44.          Width           =   2685
  45.       End
  46.       Begin VB.CheckBox Chk_CodeOutput 
  47.          Caption         =   "打印凭证是否输出科目编码"
  48.          Height          =   255
  49.          Left            =   180
  50.          TabIndex        =   5
  51.          Top             =   810
  52.          Width           =   2685
  53.       End
  54.       Begin VB.CheckBox Chk_CheckNext 
  55.          Caption         =   "审核凭证时是否自动跳到下张"
  56.          Height          =   285
  57.          Left            =   180
  58.          TabIndex        =   4
  59.          Top             =   1065
  60.          Width           =   2745
  61.       End
  62.       Begin VB.CheckBox Chk_SumPrint 
  63.          Caption         =   "汇总打印"
  64.          Height          =   285
  65.          Left            =   180
  66.          TabIndex        =   3
  67.          Top             =   1605
  68.          Width           =   1155
  69.       End
  70.    End
  71.    Begin VB.CommandButton QxCommand 
  72.       Cancel          =   -1  'True
  73.       Caption         =   "取消(&C)"
  74.       Height          =   300
  75.       Left            =   2310
  76.       TabIndex        =   1
  77.       Top             =   2190
  78.       Width           =   1120
  79.    End
  80.    Begin VB.CommandButton BcCommand 
  81.       Caption         =   "确定(&O)"
  82.       Default         =   -1  'True
  83.       Height          =   300
  84.       Left            =   1140
  85.       TabIndex        =   0
  86.       Top             =   2190
  87.       Width           =   1120
  88.    End
  89. End
  90. Attribute VB_Name = "PZ_FrmOption"
  91. Attribute VB_GlobalNameSpace = False
  92. Attribute VB_Creatable = False
  93. Attribute VB_PredeclaredId = True
  94. Attribute VB_Exposed = False
  95. Private Sub BcCommand_Click()        '确定
  96.     With PZ_JzpzclFrm
  97.         
  98.         '删行是否提示
  99.         .Chk_DeleteMess.Value = Me.Chk_DeleteMess.Value
  100.         
  101.         '科目数量核算数量项是否可以为零
  102.         .Chk_Quantity.Value = Me.Chk_Quantity.Value
  103.         
  104.         '打印凭证是否输出科目编码
  105.         .Chk_CodeOutput.Value = Me.Chk_CodeOutput.Value
  106.         
  107.         '审核凭证时是否自动跳到下张
  108.         .Chk_CheckNext.Value = Me.Chk_CheckNext.Value
  109.         
  110.         '汇总打印
  111.         .Chk_SumPrint.Value = Me.Chk_SumPrint.Value
  112.         
  113.         '凭证保存后立刻分配现金流量
  114.         .Chk_Xjll.Value = Me.Chk_Xjll.Value
  115.         
  116.         Unload Me
  117.     End With
  118. End Sub
  120. Private Sub QxCommand_Click()        '取消
  121.     Unload Me
  122. End Sub