frmreceive.frm

来自「银行定储模拟程序」· FRM 代码 · 共 551 行 · 第 1/2 页

VERSION 5.00
Begin VB.Form frmReceive 
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "新建储蓄"
   ClientHeight    =   4020
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6765
   Icon            =   "frmReceive.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4020
   ScaleWidth      =   6765
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame2 
      BackColor       =   &H00C0C0C0&
      Caption         =   "输入储户信息"
      Height          =   3960
      Left            =   0
      TabIndex        =   0
      Top             =   5
      Width           =   6735
      Begin VB.TextBox txtPwdAgain 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   4560
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   1080
         Width           =   1815
      End
      Begin VB.Frame Frame1 
         BackColor       =   &H00C0C0C0&
         Height          =   615
         Left            =   120
         TabIndex        =   19
         Top             =   2640
         Width           =   6495
         Begin VB.TextBox txtYear 
            BackColor       =   &H00E0E0E0&
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000000C0&
            Height          =   285
            Left            =   3960
            Locked          =   -1  'True
            TabIndex        =   22
            TabStop         =   0   'False
            Top             =   240
            Width           =   555
         End
         Begin VB.TextBox txtMonth 
            BackColor       =   &H00E0E0E0&
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000000C0&
            Height          =   285
            Left            =   4860
            Locked          =   -1  'True
            TabIndex        =   21
            TabStop         =   0   'False
            Top             =   240
            Width           =   345
         End
         Begin VB.TextBox txtDay 
            BackColor       =   &H00E0E0E0&
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   8.25
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            ForeColor       =   &H000000C0&
            Height          =   285
            Left            =   5490
            Locked          =   -1  'True
            TabIndex        =   20
            TabStop         =   0   'False
            Top             =   240
            Width           =   345
         End
         Begin VB.Label lblID 
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "ddd"
            Height          =   255
            Left            =   2640
            TabIndex        =   30
            Top             =   285
            Width           =   615
         End
         Begin VB.Label lblOperator 
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "ddd"
            Height          =   255
            Left            =   1200
            TabIndex        =   29
            Top             =   285
            Width           =   735
         End
         Begin VB.Label lblLabels 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "工号："
            ForeColor       =   &H000000C0&
            Height          =   180
            Index           =   11
            Left            =   2040
            TabIndex        =   28
            Top             =   285
            Width           =   540
         End
         Begin VB.Label lblLabels 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "营业员："
            ForeColor       =   &H000000C0&
            Height          =   180
            Index           =   10
            Left            =   530
            TabIndex        =   27
            Top             =   285
            Width           =   720
         End
         Begin VB.Label lblYear 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "年"
            Height          =   180
            Left            =   4635
            TabIndex        =   26
            Top             =   285
            Width           =   180
         End
         Begin VB.Label lblMonth 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "月"
            Height          =   180
            Left            =   5265
            TabIndex        =   25
            Top             =   285
            Width           =   180
         End
         Begin VB.Label lblDay 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "日"
            Height          =   180
            Left            =   5895
            TabIndex        =   24
            Top             =   285
            Width           =   180
         End
         Begin VB.Label lblLabels 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "日期："
            ForeColor       =   &H000000C0&
            Height          =   180
            Index           =   6
            Left            =   3360
            TabIndex        =   23
            Top             =   285
            Width           =   540
         End
      End
      Begin VB.CommandButton cmdOK 
         Caption         =   "提交存款(&I)"
         Height          =   405
         Left            =   2160
         TabIndex        =   7
         Top             =   3360
         Width           =   1275
      End
      Begin VB.CommandButton cmdCancel 
         Caption         =   "关闭窗口(&C)"
         Height          =   405
         Left            =   3600
         TabIndex        =   8
         Top             =   3360
         Width           =   1275
      End
      Begin VB.PictureBox picture1 
         BackColor       =   &H000000C0&
         BorderStyle     =   0  'None
         ForeColor       =   &H8000000E&
         Height          =   225
         Left            =   1440
         ScaleHeight     =   225
         ScaleWidth      =   4935
         TabIndex        =   17
         Top             =   1440
         Width           =   4935
         Begin VB.Label BigMoney 
            Alignment       =   2  'Center
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "大写人民币金额"
            ForeColor       =   &H00FFFFFF&
            Height          =   180
            Left            =   0
            MousePointer    =   99  'Custom
            TabIndex        =   32
            Top             =   15
            Width           =   4860
         End
      End
      Begin VB.TextBox txtAddress 
         Height          =   735
         Left            =   1440
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   6
         Top             =   1800
         Width           =   4935
      End
      Begin VB.TextBox txtMoney 
         Height          =   270
         Left            =   1440
         TabIndex        =   5
         Top             =   1080
         Width           =   1575
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "frmReceive.frx":08CA
         Left            =   1440
         List            =   "frmReceive.frx":08D7
         TabIndex        =   4
         Text            =   "定期一年"
         Top             =   720
         Width           =   1575
      End
      Begin VB.TextBox txtPwd 
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   4560
         PasswordChar    =   "*"
         TabIndex        =   2
         Top             =   720
         Width           =   1815
      End
      Begin VB.TextBox txtUserName 
         Height          =   270
         Left            =   4560
         TabIndex        =   1
         Top             =   360
         Width           =   1815
      End
      Begin VB.TextBox txtUserID 
         BackColor       =   &H00E0E0E0&
         DataField       =   "档案号"
         DataSource      =   "Data1"
         ForeColor       =   &H000000C0&
         Height          =   285