frmzdch.frm

储蓄管理演示系统.rar 用Visual Basic语言为某储蓄所建立一个“储蓄管理系统”

VERSION 5.00
Begin VB.Form frmZdch 
   Caption         =   "存款最多的储户"
   ClientHeight    =   5235
   ClientLeft      =   4335
   ClientTop       =   3825
   ClientWidth     =   6900
   LinkTopic       =   "Form1"
   ScaleHeight     =   5235
   ScaleWidth      =   6900
   Begin VB.CommandButton cmdExit 
      Caption         =   "关闭"
      Height          =   375
      Left            =   5040
      TabIndex        =   1
      Top             =   4800
      Width           =   1215
   End
   Begin VB.Frame Frame1 
      Caption         =   "存款最多的储户"
      Height          =   4455
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   6495
      Begin VB.TextBox Text 
         Height          =   2775
         Left            =   720
         Locked          =   -1  'True
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   3
         Top             =   1200
         Width           =   4935
      End
      Begin VB.Label Label 
         Caption         =   "Label"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   375
         Left            =   360
         TabIndex        =   2
         Top             =   480
         Width           =   5775
      End
   End
End
Attribute VB_Name = "frmZdch"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim WithEvents adoPrimaryRS As Recordset
Attribute adoPrimaryRS.VB_VarHelpID = -1
Dim Zdje As Currency

Private Sub Form_Load()

  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "Select distinct 结存金额 from 储蓄帐 where 备注=True Order By 结存金额", db, adOpenStatic, adLockOptimistic
  adoPrimaryRS.MoveLast
  Zdje = adoPrimaryRS("结存金额")
  adoPrimaryRS.Close
  Label.Caption = "存款最多的储户名单如下，其存款金额为" & Str(Zdje) & "元"
  
  adoPrimaryRS.Open "SHAPE{Select 帐号,姓名,电话 from 储户 where 帐号 in (Select 帐号 from 储蓄帐 where 结存金额=" & Zdje & " and 备注=True) Order By 帐号}", db, adOpenStatic, adLockOptimistic
  adoPrimaryRS.MoveFirst
  Text.Text = "帐号" & Space(14) & "姓名" & Space(14) & "电话" & Chr(13) & Chr(10) & Chr(13) & Chr(10)
  Do While Not adoPrimaryRS.EOF
    Text.Text = Text.Text & adoPrimaryRS("帐号") & Space(13) & adoPrimaryRS("姓名") & Space(14) & adoPrimaryRS("电话") & Chr(13) & Chr(10) & Chr(13) & Chr(10)
    adoPrimaryRS.MoveNext
  Loop

End Sub

Private Sub cmdExit_Click()
  '关闭窗口
  Unload Me
End Sub