frminquire.frm

行业软件,该源代码为道路设计纵断面典型的计算程序,该程序界面友好,计算准确,值得借鉴

VERSION 5.00
Begin VB.Form frmInquire 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "数据查询"
   ClientHeight    =   4125
   ClientLeft      =   2055
   ClientTop       =   2580
   ClientWidth     =   3405
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4125
   ScaleWidth      =   3405
   Begin VB.CommandButton cmdPre 
      Caption         =   "上一个"
      Height          =   372
      Left            =   1920
      TabIndex        =   17
      Top             =   1800
      Width           =   852
   End
   Begin VB.CommandButton cmdNext 
      Caption         =   "下一个"
      Height          =   372
      Left            =   1920
      TabIndex        =   16
      Top             =   1320
      Width           =   852
   End
   Begin VB.TextBox txtE 
      Height          =   372
      Left            =   600
      TabIndex        =   15
      Top             =   2640
      Width           =   1092
   End
   Begin VB.TextBox txtT 
      Height          =   372
      Left            =   600
      TabIndex        =   14
      Top             =   2280
      Width           =   1092
   End
   Begin VB.TextBox txtR 
      Height          =   372
      Left            =   600
      TabIndex        =   13
      Top             =   1920
      Width           =   1092
   End
   Begin VB.TextBox txtNum 
      Height          =   372
      Left            =   1080
      Locked          =   -1  'True
      TabIndex        =   9
      Text            =   "1"
      Top             =   1320
      Width           =   612
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "退出"
      Height          =   372
      Left            =   1800
      TabIndex        =   7
      Top             =   3120
      Width           =   972
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定"
      Enabled         =   0   'False
      Height          =   372
      Left            =   120
      TabIndex        =   2
      Top             =   3120
      Width           =   972
   End
   Begin VB.TextBox txtSjBg 
      Height          =   372
      Left            =   1200
      TabIndex        =   6
      Top             =   720
      Visible         =   0   'False
      Width           =   972
   End
   Begin VB.TextBox txtXzBg 
      Height          =   372
      Left            =   1200
      TabIndex        =   5
      Top             =   360
      Visible         =   0   'False
      Width           =   972
   End
   Begin VB.TextBox txtZhuangHao 
      Height          =   372
      Left            =   1200
      TabIndex        =   1
      Top             =   0
      Width           =   972
   End
   Begin VB.Label Label5 
      Caption         =   "E"
      Height          =   252
      Left            =   240
      TabIndex        =   12
      Top             =   2760
      Width           =   252
   End
   Begin VB.Label Label4 
      Caption         =   "T"
      Height          =   252
      Left            =   240
      TabIndex        =   11
      Top             =   2400
      Width           =   132
   End
   Begin VB.Label Label3 
      Caption         =   "R"
      Height          =   252
      Left            =   240
      TabIndex        =   10
      Top             =   2040
      Width           =   132
   End
   Begin VB.Label Label1 
      Caption         =   "变坡点序号"
      Height          =   252
      Left            =   120
      TabIndex        =   8
      Top             =   1440
      Width           =   972
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      X1              =   120
      X2              =   2640
      Y1              =   1200
      Y2              =   1200
   End
   Begin VB.Label Label2 
      Caption         =   "设计标高"
      Height          =   372
      Left            =   120
      TabIndex        =   4
      Top             =   840
      Width           =   972
   End
   Begin VB.Label lblXzBg 
      Caption         =   "现状标高"
      Height          =   372
      Left            =   120
      TabIndex        =   3
      Top             =   480
      Width           =   972
   End
   Begin VB.Label lblInputZH 
      Caption         =   "请输入桩号"
      Height          =   252
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   972
   End
End
Attribute VB_Name = "frmInquire"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub cmdNext_Click()
txtNum.Text = txtNum.Text + 1

txtR.Text = SjRs(txtNum.Text)
txtT.Text = Format(SjGcTs(txtNum.Text), _
     "#0.000")
txtE.Text = Format(SjGcEs(txtNum.Text), _
     "#0.000")
If txtNum.Text = SjNums Then cmdNext.Enabled = False _
: cmdPre.Enabled = True

End Sub

Private Sub cmdOK_Click()
txtXzBg.Visible = True
txtSjBg.Visible = True
txtXzBg.Text = Format(XzGc(txtZhuangHao), "#0.000")
txtSjBg.Text = Format(SjGc(txtZhuangHao), "#0.000")


End Sub


Private Sub cmdPre_Click()
txtNum.Text = txtNum.Text - 1

txtR.Text = SjRs(txtNum.Text)
txtT.Text = Format(SjGcTs(txtNum.Text), _
    "#0.000")
txtE.Text = Format(SjGcEs(txtNum.Text), _
    "#0.000")
If txtNum.Text = 1 Then cmdNext.Enabled = True _
: cmdPre.Enabled = False
End Sub

Private Sub Form_Load()
cmdPre.Enabled = False
txtR.Text = "0"
txtT.Text = "0.000"
txtE.Text = "0.000"

End Sub

Private Sub txtZhuangHao_Change()
   cmdOK.Enabled = IIf(IsNumeric _
   (txtZhuangHao.Text), True, False)
End Sub