deldialog.frm

本程序源码是由vb编写的

VERSION 5.00
Begin VB.Form DelDialog 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "请选择删除类型"
   ClientHeight    =   1665
   ClientLeft      =   2760
   ClientTop       =   3750
   ClientWidth     =   4545
   Icon            =   "DelDialog.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1665
   ScaleWidth      =   4545
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.OptionButton optSelectItem 
      Caption         =   " 删除整张单据"
      ForeColor       =   &H000000FF&
      Height          =   270
      Index           =   1
      Left            =   555
      TabIndex        =   6
      Top             =   930
      Width           =   1710
   End
   Begin VB.OptionButton optSelectItem 
      Caption         =   " 删除选定的行"
      Height          =   270
      Index           =   0
      Left            =   555
      TabIndex        =   5
      Top             =   555
      Value           =   -1  'True
      Width           =   1710
   End
   Begin VB.CommandButton CancelButton 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   3135
      TabIndex        =   1
      Top             =   660
      Width           =   1215
   End
   Begin VB.CommandButton OKButton 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   3135
      TabIndex        =   0
      Top             =   180
      Width           =   1215
   End
   Begin VB.Label Label1 
      BorderStyle     =   1  'Fixed Single
      Height          =   1305
      Left            =   165
      TabIndex        =   4
      Top             =   180
      Width           =   2730
   End
End
Attribute VB_Name = "DelDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub CancelButton_Click()

  Unload Me
  
End Sub

Private Sub OKButton_Click()

  If optSelectItem(0).Value = True Then
     bDelSelect = 1
     Else
     bDelSelect = 2
  End If
  
  Unload Me
  
End Sub