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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Begin VB.Form KF_FrmModiNowQuan 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "整理现存量"
  5.    ClientHeight    =   1470
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   2880
  9.    Icon            =   "月末处理_整理现存量.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Moveable        =   0   'False
  14.    ScaleHeight     =   1470
  15.    ScaleWidth      =   2880
  16.    StartUpPosition =   2  '屏幕中心
  17.    Begin VB.Frame Frame1 
  18.       Height          =   840
  19.       Left            =   135
  20.       TabIndex        =   2
  21.       Top             =   60
  22.       Width           =   2580
  23.       Begin VB.Image Image1 
  24.          Height          =   480
  25.          Left            =   135
  26.          Picture         =   "月末处理_整理现存量.frx":1042
  27.          Top             =   195
  28.          Width           =   480
  29.       End
  30.       Begin VB.Label Label1 
  31.          Caption         =   "请确认要进行整理现存量操作？"
  32.          Height          =   450
  33.          Left            =   780
  34.          TabIndex        =   3
  35.          Top             =   255
  36.          Width           =   1695
  37.       End
  38.    End
  39.    Begin VB.CommandButton QdCommand 
  40.       Caption         =   "取消(&C)"
  41.       Height          =   300
  42.       Index           =   1
  43.       Left            =   1605
  44.       TabIndex        =   1
  45.       Top             =   1035
  46.       Width           =   1120
  47.    End
  48.    Begin VB.CommandButton QdCommand 
  49.       Caption         =   "确定(&O)"
  50.       Height          =   300
  51.       Index           =   0
  52.       Left            =   360
  53.       TabIndex        =   0
  54.       Top             =   1035
  55.       Width           =   1120
  56.    End
  57. End
  58. Attribute VB_Name = "KF_FrmModiNowQuan"
  59. Attribute VB_GlobalNameSpace = False
  60. Attribute VB_Creatable = False
  61. Attribute VB_PredeclaredId = True
  62. Attribute VB_Exposed = False
  63. '*****************************************************************
  64. '   模块名称：整理现存量设置
  65. '   模块功能：整理现存量
  66. '   编 制 者：赵宇光
  67. '   编制日期：2001/12/12
  68. '   备    注：
  69. '*****************************************************************
  71. Private Sub QdCommand_Click(Index As Integer)
  72.     
  73.     Select Case Index
  74.         Case 0                  '确定
  75.             Call StartFinish
  76.             Unload Me
  77.         Case 1                  '取消
  78.             Unload Me
  79.     End Select
  80. End Sub
  81. Private Sub StartFinish()
  82. '函数功能：整理现存量
  83.         
  84.     '整理现存量表
  85.     Cw_DataEnvi.DataConnect.BeginTrans
  86.     Cw_DataEnvi.DataConnect.Execute ("KF_SP_ModiNowQuan")
  87.     Cw_DataEnvi.DataConnect.CommitTrans
  88.     Tsxx = "现存量整理完毕!"
  89.     Call Xtxxts(Tsxx, 0, 4)
  90.     Exit Sub
  91.     
  92. End Sub