form1.frm

路面结构设计系统的界面和部分功能,包括结构图的预览,路面结构模型的数据库管理

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "路面结构CAD系统"
   ClientHeight    =   10950
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   15600
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   10950
   ScaleWidth      =   15600
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   7200
      TabIndex        =   0
      Top             =   5280
      Width           =   1215
   End
   Begin VB.Menu PavDesign 
      Caption         =   "路面结构设计"
      NegotiatePosition=   1  'Left
      Begin VB.Menu SelectPav 
         Caption         =   "从数据库选定结构"
         Begin VB.Menu CPDATABASE 
            Caption         =   "水泥混凝土路面结构数据库"
         End
         Begin VB.Menu ACPDATABASE 
            Caption         =   "沥青混凝土路面结构数据库"
         End
         Begin VB.Menu OTHEREPDATABASE 
            Caption         =   "其他混凝土路面结构数据库"
         End
      End
      Begin VB.Menu NewPav 
         Caption         =   "新建路面结构"
      End
   End
   Begin VB.Menu PavCad 
      Caption         =   "路面结构CAD"
   End
   Begin VB.Menu PavAnaly 
      Caption         =   "路面结构分析"
      Begin VB.Menu Reliabilityan 
         Caption         =   "路面可靠度分析"
      End
      Begin VB.Menu ModuleConcu 
         Caption         =   "模量反算"
      End
   End
   Begin VB.Menu DataBaseMana 
      Caption         =   "数据库管理"
   End
   Begin VB.Menu Tools 
      Caption         =   "工具"
      Begin VB.Menu commomdwg 
         Caption         =   "常用路面结构和铺装结构图库"
      End
      Begin VB.Menu guidar 
         Caption         =   "设计规范"
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助"
      Begin VB.Menu SysHelp 
         Caption         =   "系统帮助"
      End
      Begin VB.Menu SysAff 
         Caption         =   "系统说明"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub 帮助_Click()

End Sub

Private Sub 路面结构设计_Click()

End Sub

Private Sub ACPDATABASE_Click()

Form3.Show
End Sub

Private Sub Command1_Click()
'conn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + App.Path + "\asadatabase.mdb; "
'ASPHALTPAV.GetInfo (2)
Dim data(3) As Integer
data(1) = 1
data(2) = 2
data(3) = 3

End Sub

Private Sub commomdwg_Click()
Form2.Show

End Sub

 Private Sub Form_Resize()
           ' Image1.Move 0, 0, ScaleWidth, ScaleHeight
 End Sub

Private Sub NewPav_Click()
Dialog1.Show
End Sub