frmmain.frm

饮羽公路测设（glcs） 由20多个公路测量、设计、试验和施工组织设计等小软件组成。如《中桩大地坐标》可以计算不等长缓和曲线的中桩和边桩的大地坐标；《缓和曲线反算》可以根据切线长、外距长或缓和曲线长求

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{38911DA0-E448-11D0-84A3-00DD01104159}#1.1#0"; "COMCT332.OCX"
Begin VB.Form frmMain 
   Caption         =   "饮羽公路测设"
   ClientHeight    =   4605
   ClientLeft      =   165
   ClientTop       =   630
   ClientWidth     =   6795
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   4605
   ScaleWidth      =   6795
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   0
      Top             =   3600
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin ComCtl3.CoolBar CoolBar1 
      Height          =   420
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   6735
      _ExtentX        =   11880
      _ExtentY        =   741
      BandCount       =   2
      _CBWidth        =   6735
      _CBHeight       =   420
      _Version        =   "6.7.8988"
      Child1          =   "Toolbar1"
      MinHeight1      =   330
      Width1          =   1980
      NewRow1         =   0   'False
      MinHeight2      =   360
      NewRow2         =   0   'False
      Begin MSComctlLib.Toolbar Toolbar1 
         Height          =   330
         Left            =   165
         TabIndex        =   3
         Top             =   45
         Width           =   6315
         _ExtentX        =   11139
         _ExtentY        =   582
         ButtonWidth     =   609
         ButtonHeight    =   582
         Style           =   1
         ImageList       =   "imlToolbarIcons"
         _Version        =   393216
         BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
            NumButtons      =   17
            BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "xinjian"
               Object.ToolTipText     =   "新建"
               ImageIndex      =   1
            EndProperty
            BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "dakai"
               Object.ToolTipText     =   "打开"
               ImageIndex      =   12
            EndProperty
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "baoc"
               Object.ToolTipText     =   "保存"
               ImageIndex      =   2
            EndProperty
            BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "yulan"
               Object.ToolTipText     =   "打印预览"
               ImageIndex      =   11
            EndProperty
            BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "dayin"
               Object.ToolTipText     =   "打印"
               ImageIndex      =   3
            EndProperty
            BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "jianqie"
               Object.ToolTipText     =   "剪切"
               ImageIndex      =   4
            EndProperty
            BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "fuzhi"
               Object.ToolTipText     =   "复制"
               ImageIndex      =   5
            EndProperty
            BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "niantie"
               Object.ToolTipText     =   "niantie"
               ImageIndex      =   6
            EndProperty
            BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "zuoduiq"
               Object.ToolTipText     =   "左对齐"
               ImageIndex      =   7
            EndProperty
            BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "juzhong"
               Object.ToolTipText     =   "居中"
               ImageIndex      =   8
            EndProperty
            BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "youduiq"
               Object.ToolTipText     =   "右对齐"
               ImageIndex      =   9
            EndProperty
            BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
            BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Key             =   "ziti"
               Object.ToolTipText     =   "字体"
               ImageIndex      =   10
            EndProperty
            BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Style           =   3
            EndProperty
         EndProperty
      End
   End
   Begin MSComDlg.CommonDialog dlgCommonDialog 
      Left            =   4320
      Top             =   1080
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   270
      Left            =   0
      TabIndex        =   0
      Top             =   4335
      Width           =   6795
      _ExtentX        =   11986
      _ExtentY        =   476
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   5
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Object.Width           =   5080
            MinWidth        =   5080
            Text            =   "状态"
            TextSave        =   "状态"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            Alignment       =   1
            AutoSize        =   2
            TextSave        =   "2006-10-7"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            Alignment       =   1
            AutoSize        =   2
            TextSave        =   "7:51"
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   1164
            MinWidth        =   1164
            TextSave        =   "CAPS"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            Alignment       =   1
            Object.Width           =   1164
            MinWidth        =   1164
            TextSave        =   "NUM"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList imlToolbarIcons 
      Left            =   3600
      Top             =   960
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   13
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":030A
            Key             =   "New"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":041C
            Key             =   "Save"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":052E
            Key             =   "Print"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0640
            Key             =   "Cut"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0752
            Key             =   "Copy"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0864
            Key             =   "Paste"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0976
            Key             =   "Align Left"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0A88
            Key             =   "Center"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0B9A
            Key             =   "Align Right"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0CAC
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0DBE
            Key             =   ""
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1300
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1842
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.TextBox Text1 
      Height          =   3615
      Left            =   0
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   1
      Text            =   "frmMain.frx":1954
      Top             =   400
      Width           =   6735
   End
   Begin VB.Menu mnuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu mnuFileNew 
         Caption         =   "新建(&N)"
         Shortcut        =   ^N
      End
      Begin VB.Menu dakai 
         Caption         =   "打开(&O)"
         Shortcut        =   ^O
      End
      Begin VB.Menu mnuFileBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileSave 
         Caption         =   "保存(&S)"
      End
      Begin VB.Menu mnuFileSaveAs 
         Caption         =   "另存为(&A)..."
      End
      Begin VB.Menu mnuFileBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFilePageSetup 
         Caption         =   "页面设置(&U)..."
      End
      Begin VB.Menu mnuFilePrintPreview 
         Caption         =   "打印预览(&V)"
      End
      Begin VB.Menu mnuFilePrint 
         Caption         =   "打印(&P)..."
      End
      Begin VB.Menu mnuFileBar2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFileExit 
         Caption         =   "退出(&X)"
      End
   End
   Begin VB.Menu mnuEdit 
      Caption         =   "编辑(&E)"
      Begin VB.Menu mnuEditCut 
         Caption         =   "剪切(&T)"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuEditCopy 
         Caption         =   "复制(&C)"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuEditPaste 
         Caption         =   "粘贴(&P)"
         Shortcut        =   ^V
      End
      Begin VB.Menu sy5 
         Caption         =   "-"
      End
      Begin VB.Menu menuqdwb 
         Caption         =   "清空文本"
      End
   End
   Begin VB.Menu mnuceliang 
      Caption         =   "测量(&S)"
      Begin VB.Menu djdpqx 
         Caption         =   "单交点平曲线"
         Begin VB.Menu wjkzh 
            Caption         =   "外距控制"
         End
         Begin VB.Menu qxckz 
            Caption         =   "切线长控制"
         End
         Begin VB.Menu zhijkzh 
            Caption         =   "支距控制"
         End
         Begin VB.Menu jbxfsh 
            Caption         =   "基本型敷设"
         End
         Begin VB.Menu fdcxfs 
            Caption         =   "非对称型敷设"
         End
         Begin VB.Menu quxfs 
            Caption         =   "曲线反算"
         End
      End
      Begin VB.Menu sl1 
         Caption         =   "-"
      End
      Begin VB.Menu qjxpqx 
         Caption         =   "切基线平曲线"
      End
      Begin VB.Menu fuquxian 
         Caption         =   "复曲线平曲线"
      End
      Begin VB.Menu xjdpqx 
         Caption         =   "虚交点平曲线"
      End
      Begin VB.Menu sl2 
         Caption         =   "-"
      End
      Begin VB.Menu tspqx 
         Caption         =   "特殊平曲线"
         Begin VB.Menu sxqxsj 
            Caption         =   "S型曲线设计"
         End
         Begin VB.Menu txqxsj 
            Caption         =   "凸型曲线设计"
         End
         Begin VB.Menu lxqxsj 
            Caption         =   "卵型曲线设计"
         End
         Begin VB.Menu lxqxjqj 
            Caption         =   "卵型曲线精确解"
         End
         Begin VB.Menu sdyqxfs 
            Caption         =   "三点圆曲线设计"
         End
      End
      Begin VB.Menu sl3 
         Caption         =   "-"
      End
      Begin VB.Menu hwxjzb 
         Caption         =   "红外线极坐标"
      End
      Begin VB.Menu zzddzb 
         Caption         =   "中桩大地坐标"
      End
      Begin VB.Menu sl8 
         Caption         =   "-"
      End
      Begin VB.Menu shzcl 
         Caption         =   "水准测量"
      End
      Begin VB.Menu tyzhb 
         Caption         =   "缓和曲线统一坐标"
      End
      Begin VB.Menu zhbzhh 
         Caption         =   "坐标转换"
      End
   End
   Begin VB.Menu shej 
      Caption         =   "设计(&D)"
      Begin VB.Menu gljsbz 
         Caption         =   "公路技术标准"
      End
      Begin VB.Menu jkchg 
         Caption         =   "加宽超高"
      End
      Begin VB.Menu hjinj 
         Caption         =   "横净距"
      End
      Begin VB.Menu sy33 
         Caption         =   "-"
      End
      Begin VB.Menu menushtsj 
         Caption         =   "水泥砼路面"
      End
      Begin VB.Menu sqxjs 
         Caption         =   "竖曲线计算"
      End
   End
   Begin VB.Menu shigong 
      Caption         =   "施工(&C)"
      Begin VB.Menu xxghqj 
         Caption         =   "线性规划求解"
      End
      Begin VB.Menu sgwltjs 
         Caption         =   "施工网络图"
      End
      Begin VB.Menu zdljjs 
         Caption         =   "最短路径计算"
      End
      Begin VB.Menu sy25 
         Caption         =   "-"
      End
      Begin VB.Menu menuhd 
         Caption         =   "涵洞工程"
         Begin VB.Menu menuhdchd 
            Caption         =   "涵洞长度计算"
         End
         Begin VB.Menu menubzyq 
            Caption         =   "八字翼墙"
         End
         Begin VB.Menu menuzhxhup 
            Caption         =   "锥形护坡"
         End
      End
   End
   Begin VB.Menu shiyan 
      Caption         =   "试验(&E)"
      Begin VB.Menu hntphb 
         Caption         =   "混凝土配合比"
      End
      Begin VB.Menu tqdpd 
         Caption         =   "水泥砼强度评定"
      End
      Begin VB.Menu sl9 
         Caption         =   "-"
      End
      Begin VB.Menu shntlmphb 
         Caption         =   "水泥砼路面配合比"
      End
      Begin VB.Menu bklcwc 
         Caption         =   "贝克曼梁测弯沉"
      End