frmbankedit.frm

家庭理财系统,使用VB6.0编写,相当不错,可以用于课程设计

VERSION 5.00
Begin VB.Form FrmBankEdit 
   Caption         =   "编辑银行信息"
   ClientHeight    =   2400
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5340
   LinkTopic       =   "Form1"
   ScaleHeight     =   2400
   ScaleWidth      =   5340
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Cmd_Cancel 
      Caption         =   "取 消"
      Height          =   375
      Left            =   3000
      TabIndex        =   7
      Top             =   1800
      Width           =   1215
   End
   Begin VB.CommandButton Cmd_OK 
      Caption         =   "确 定"
      Height          =   375
      Left            =   1200
      TabIndex        =   6
      Top             =   1800
      Width           =   1215
   End
   Begin VB.TextBox txtPlace 
      Height          =   330
      Left            =   1320
      TabIndex        =   5
      Top             =   1245
      Width           =   3735
   End
   Begin VB.TextBox txtShort 
      Height          =   330
      Left            =   1320
      TabIndex        =   4
      Top             =   765
      Width           =   3735
   End
   Begin VB.TextBox txtBName 
      Height          =   330
      Left            =   1320
      TabIndex        =   3
      Top             =   285
      Width           =   3735
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "所在地点"
      Height          =   180
      Left            =   360
      TabIndex        =   2
      Top             =   1320
      Width           =   720
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "银行简称"
      Height          =   180
      Left            =   360
      TabIndex        =   1
      Top             =   840
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "银行全称"
      Height          =   180
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   720
   End
End
Attribute VB_Name = "FrmBankEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public OriBId As Long
Public Modify As Boolean

Private Sub Cmd_Cancel_Click()
  Unload Me
End Sub

Private Sub Cmd_OK_Click()
  If Len(Trim(txtBName)) = 0 Then
    MsgBox "请输入银行全称"
    txtBName.SetFocus
    Exit Sub
  End If
  With MyBank
        
    .BankName = Trim(txtBName)
    .BShort = Trim(txtShort)
    .Place = Trim(txtPlace)
    If Modify = False Then
      .Insert
      MsgBox "添加成功"
    Else
      .Update (OriBId)
      MsgBox "修改成功"
    End If
  End With
  Unload Me
End Sub