选择排序方式.frm

金融机构用于银行承兑票台帐的登记以及统计打印各种报表

VERSION 5.00
Begin VB.Form 选择排序方式 
   Caption         =   "选择排序方式"
   ClientHeight    =   3030
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4500
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   3030
   ScaleWidth      =   4500
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "退出"
      Height          =   375
      Index           =   1
      Left            =   2423
      TabIndex        =   4
      Top             =   2520
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Height          =   375
      Index           =   0
      Left            =   983
      TabIndex        =   3
      Top             =   2520
      Width           =   1095
   End
   Begin VB.Frame Frame1 
      Caption         =   "选择排序方式"
      Height          =   2055
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   3735
      Begin VB.OptionButton Option1 
         Caption         =   "按录入顺序排序"
         Height          =   375
         Index           =   1
         Left            =   1080
         TabIndex        =   2
         Top             =   1200
         Width           =   1695
      End
      Begin VB.OptionButton Option1 
         Caption         =   "按出票日期排序"
         Height          =   375
         Index           =   0
         Left            =   1080
         TabIndex        =   1
         Top             =   600
         Value           =   -1  'True
         Width           =   1695
      End
   End
End
Attribute VB_Name = "选择排序方式"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
If 启动历史数据 = False Then
With frmDataEnv
.Adodc1.RecordSource = "select 承兑申请人 from 台帐录入"
.Adodc1.Refresh
If .Adodc1.Recordset.RecordCount = 0 Then
MsgBox "无记录", vbOKOnly Or vbInformation, "系统信息"
Exit Sub
End If
If Me.Option1(1).Value = True Then
.Adodc1.RecordSource = "select * from 台帐录入 order by 自动编号 asc"
ElseIf Me.Option1(0).Value = True Then
.Adodc1.RecordSource = "select * from 台帐录入 order by 出票日期 asc"
End If
.Adodc1.Refresh
.Adodc1.Recordset.MoveLast
Unload Me
End With
End If
If 启动历史数据 = True Then
With frmlsjl
.Adodc1.RecordSource = "select 承兑申请人 from 台帐数据"
.Adodc1.Refresh
If .Adodc1.Recordset.RecordCount = 0 Then
MsgBox "无记录", vbOKOnly Or vbInformation, "系统信息"
Exit Sub
End If
If Me.Option1(1).Value = True Then
.Adodc1.RecordSource = "select * from 台帐数据 order by 自动编号 asc"
ElseIf Me.Option1(0).Value = True Then
.Adodc1.RecordSource = "select * from 台帐数据 order by 出票日期 asc"
End If
.Adodc1.Refresh
.Adodc1.Recordset.MoveLast
Unload Me
End With
End If
Case 1
Unload Me
End Select
End Sub