form1.frm

型材剖面模数计算,船舶型材计算及输入,查询操作.

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "型材剖面模数计算程序"
   ClientHeight    =   6735
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   9090
   FillColor       =   &H00FFFFFF&
   LinkTopic       =   "Form1"
   ScaleHeight     =   6735
   ScaleWidth      =   9090
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture1 
      ForeColor       =   &H00FFFFFF&
      Height          =   5535
      Left            =   960
      Picture         =   "Form1.frx":0000
      ScaleHeight     =   5475
      ScaleWidth      =   6915
      TabIndex        =   0
      Top             =   120
      Width           =   6975
   End
   Begin VB.Label Label1 
      Caption         =   "     欢迎使用型材理论要素计算程序                                      "
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1440
      TabIndex        =   1
      Top             =   5760
      Width           =   5655
   End
   Begin VB.Menu cx 
      Caption         =   "查询"
      Index           =   0
      Begin VB.Menu cxp 
         Caption         =   "查型材的剖面模数"
         Index           =   1
      End
      Begin VB.Menu cpx 
         Caption         =   "查找符合剖面模数的型材"
         Index           =   2
      End
   End
   Begin VB.Menu js 
      Caption         =   "计算"
      Index           =   1
      Begin VB.Menu Tjs 
         Caption         =   "T型材剖面模数计算"
         Index           =   0
      End
      Begin VB.Menu zjs 
         Caption         =   "轧制型材剖面模数计算"
         Index           =   1
      End
      Begin VB.Menu cjs 
         Caption         =   "槽型舱壁剖面模数计算"
         Index           =   2
      End
      Begin VB.Menu sjs 
         Caption         =   "双层板舱壁剖面模数计算"
         Index           =   3
      End
   End
   Begin VB.Menu bz 
      Caption         =   "帮助"
      Index           =   3
   End
   Begin VB.Menu tc 
      Caption         =   "退出"
      Index           =   4
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub bz_Click(Index As Integer)
Form2.Show
End Sub

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

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

Private Sub cxp_Click(Index As Integer)
form7.Show
End Sub

Private Sub sjs_Click(Index As Integer)
Form6.Show
End Sub

Private Sub tc_Click(Index As Integer)
End
End Sub

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

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