form1.frm

因本人没有充足的时间

VERSION 5.00
Begin VB.Form Form01 
   Caption         =   "省二建股权证管理系统V1.0版"
   ClientHeight    =   8730
   ClientLeft      =   2115
   ClientTop       =   1395
   ClientWidth     =   11205
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8730
   ScaleWidth      =   11205
   WindowState     =   2  'Maximized
   Begin VB.Label L1 
      Appearance      =   0  'Flat
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      BackStyle       =   0  'Transparent
      Caption         =   "省二建股权证管理系统V1.0版"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   840
      Left            =   360
      TabIndex        =   0
      Top             =   3960
      Width           =   11145
   End
   Begin VB.Image IM1 
      Height          =   11520
      Left            =   0
      Picture         =   "Form1.frx":08CA
      Stretch         =   -1  'True
      Top             =   0
      Width           =   15360
   End
   Begin VB.Menu A1 
      Caption         =   "文件(F)"
      Index           =   1
      Begin VB.Menu A2 
         Caption         =   "打开股东基本信息录入界面(L)"
         Index           =   2
      End
      Begin VB.Menu A3 
         Caption         =   "-"
         Index           =   3
      End
      Begin VB.Menu A4 
         Caption         =   "打开股东交易信息录入界面(C)"
         Index           =   4
      End
      Begin VB.Menu A5 
         Caption         =   "-"
         Index           =   5
      End
      Begin VB.Menu A6 
         Caption         =   "浏览股东基本信息(S)"
         Index           =   6
      End
      Begin VB.Menu A7 
         Caption         =   "-"
         Index           =   7
      End
      Begin VB.Menu A8 
         Caption         =   "股东交易信息查询(I)"
         Index           =   8
      End
      Begin VB.Menu A9 
         Caption         =   "-"
         Index           =   9
      End
      Begin VB.Menu A10 
         Caption         =   "结束(E)"
         Index           =   10
      End
   End
   Begin VB.Menu B1 
      Caption         =   "打开股东基本信息录入界面(L)"
      Index           =   1
   End
   Begin VB.Menu B2 
      Caption         =   "打开股东交易信息录入界面(C)"
      Index           =   2
   End
   Begin VB.Menu B3 
      Caption         =   "查询(I)"
      Index           =   3
      Begin VB.Menu B4 
         Caption         =   "浏览股东基本信息(S)"
         Index           =   4
      End
      Begin VB.Menu B5 
         Caption         =   "-"
         Index           =   5
      End
      Begin VB.Menu B6 
         Caption         =   "股东基本信息查询(I)"
         Index           =   6
      End
      Begin VB.Menu b7 
         Caption         =   "-"
         Index           =   7
      End
      Begin VB.Menu B8 
         Caption         =   "股东交易信息查询(Q)"
         Index           =   8
      End
   End
   Begin VB.Menu B9 
      Caption         =   "系统维护(ED)"
      Index           =   9
      Begin VB.Menu B10 
         Caption         =   "数据库备份"
         Index           =   10
      End
      Begin VB.Menu B11 
         Caption         =   "-"
         Index           =   11
      End
      Begin VB.Menu B12 
         Caption         =   "数据库恢复"
         Index           =   12
      End
      Begin VB.Menu B13 
         Caption         =   "-"
         Index           =   13
      End
      Begin VB.Menu B14 
         Caption         =   "数据库修复"
         Index           =   14
      End
   End
End
Attribute VB_Name = "Form01"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub A10_Click(Index As Integer)
Unload Me
End Sub

Private Sub A2_Click(Index As Integer)
Form3.Show
End Sub

Private Sub A4_Click(Index As Integer)
Form10.Show
End Sub

Private Sub A6_Click(Index As Integer)
Form4.Show
End Sub

Private Sub A8_Click(Index As Integer)
Form12.Show
End Sub

Private Sub b1_Click(Index As Integer)
Form3.Show
End Sub

Private Sub B10_Click(Index As Integer)
Form7.Show
End Sub

Private Sub B12_Click(Index As Integer)
Form7.Show
End Sub

Private Sub B14_Click(Index As Integer)
Form7.Show
End Sub

Private Sub B2_Click(Index As Integer)
Form10.Show
End Sub

Private Sub B4_Click(Index As Integer)
Form4.Show
End Sub

Private Sub B6_Click(Index As Integer)
Form5.Show
End Sub

Private Sub B8_Click(Index As Integer)
Form12.Show
End Sub

Private Sub C1_Click(Index As Integer)
Form8.Show
End Sub

Private Sub C2_Click(Index As Integer)
Form9.Show
End Sub

Private Sub Form_Load()
Form01.Hide
Form1.Show
End Sub

Private Sub Form_Resize()
Dim a As Integer
Dim B As Integer
a = Form01.Height
B = Form01.Width
IM1.Height = Form01.Height * 9 / 10
IM1.Width = B
L1.Top = a * 2 / 3
L1.Width = B - 600
End Sub