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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Begin VB.Form Xs_Q_QuotationStatus 
  3.    Caption         =   "报价单关闭状态"
  4.    ClientHeight    =   1095
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   3900
  8.    Icon            =   "报价单关闭状态.frx":0000
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    ScaleHeight     =   1095
  12.    ScaleWidth      =   3900
  13.    StartUpPosition =   2  '屏幕中心
  14.    WhatsThisHelp   =   -1  'True
  15.    Begin VB.Frame Frame3 
  16.       Caption         =   "关闭状态"
  17.       Height          =   570
  18.       Left            =   60
  19.       TabIndex        =   2
  20.       Top             =   45
  21.       Width           =   3780
  22.       Begin VB.OptionButton Opt_Check 
  23.          Caption         =   "作废"
  24.          Height          =   195
  25.          Index           =   2
  26.          Left            =   2685
  27.          TabIndex        =   5
  28.          Top             =   285
  29.          Width           =   810
  30.       End
  31.       Begin VB.OptionButton Opt_Check 
  32.          Caption         =   "转合同"
  33.          Height          =   195
  34.          Index           =   1
  35.          Left            =   1380
  36.          TabIndex        =   4
  37.          Top             =   285
  38.          Width           =   1245
  39.       End
  40.       Begin VB.OptionButton Opt_Check 
  41.          Caption         =   "转订单"
  42.          Height          =   195
  43.          Index           =   0
  44.          Left            =   135
  45.          TabIndex        =   3
  46.          Top             =   285
  47.          Value           =   -1  'True
  48.          Width           =   915
  49.       End
  50.    End
  51.    Begin VB.CommandButton QdCommand 
  52.       Caption         =   "确定(&O)"
  53.       Height          =   300
  54.       Left            =   1485
  55.       TabIndex        =   1
  56.       Top             =   705
  57.       Width           =   1120
  58.    End
  59.    Begin VB.CommandButton QxCommand 
  60.       Caption         =   "取消(&C)"
  61.       Height          =   300
  62.       Left            =   2700
  63.       TabIndex        =   0
  64.       Top             =   705
  65.       Width           =   1120
  66.    End
  67. End
  68. Attribute VB_Name = "Xs_Q_QuotationStatus"
  69. Attribute VB_GlobalNameSpace = False
  70. Attribute VB_Creatable = False
  71. Attribute VB_PredeclaredId = True
  72. Attribute VB_Exposed = False
  73. Private Sub QdCommand_Click()
  74.     If Opt_Check(0) Then
  75.         GQuotationStatus = Trim(Opt_Check(0).Caption)
  76.     ElseIf Opt_Check(1) Then
  77.         GQuotationStatus = Trim(Opt_Check(1).Caption)
  78.     Else
  79.         GQuotationStatus = Trim(Opt_Check(2).Caption)
  80.     End If
  81.     Unload Me
  82. End Sub
  84. Private Sub QxCommand_Click()
  85.     GQuotationStatus = ""
  86.     Unload Me
  87. End Sub