form8.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form Form8 
   Caption         =   "Form8"
   ClientHeight    =   5835
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   11880
   LinkTopic       =   "Form8"
   ScaleHeight     =   5835
   ScaleWidth      =   11880
   StartUpPosition =   3  'Windows Default
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   5055
      Left            =   120
      TabIndex        =   4
      Top             =   720
      Width           =   11775
      _ExtentX        =   20770
      _ExtentY        =   8916
      _Version        =   393216
      Rows            =   1
      Cols            =   12
      FixedRows       =   0
      FixedCols       =   0
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   4920
      TabIndex        =   3
      Top             =   120
      Width           =   1335
   End
   Begin VB.CommandButton Command1 
      Caption         =   "查询"
      Height          =   375
      Left            =   3360
      TabIndex        =   2
      Top             =   120
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1560
      TabIndex        =   1
      Top             =   120
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "型材名称"
      Height          =   255
      Left            =   480
      TabIndex        =   0
      Top             =   240
      Width           =   855
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Public Function Display(strsql As String)
  Dim rs_query As ADODB.Recordset
  Set rs_query = ExecuteSQL(strsql)
  Do While Not rs_query.EOF
      MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
      MSFlexGrid1.Row = MSFlexGrid1.Row + 1
      Dim I As Integer
      I = 0
      Do While I < 12
      MSFlexGrid1.Col = I
      If Not IsNull(rs_query.Fields(I)) Then
      MSFlexGrid1.Text = rs_query.Fields(I)
      Else
      MSFlexGrid1.Text = ""
      End If
      I = I + 1
      Loop
     rs_query.MoveNext
 Loop
  rs_query.Close
End Function

Private Sub Command1_Click()
Dim strsql As String
strsql = "select * from 型材库 where 型材名称='" & Text1.Text & "'"
MSFlexGrid1.Rows = 1
Display (strsql)
End Sub

Private Sub Command2_Click()
Form8.Hide
End Sub


Private Sub Form_Load()

  MSFlexGrid1.Row = 0
  
  MSFlexGrid1.Col = 0
  MSFlexGrid1.Text = "型材名称"
  MSFlexGrid1.Col = 1
  MSFlexGrid1.Text = "型材高度"
  MSFlexGrid1.Col = 2
  MSFlexGrid1.Text = "型材宽度"
  MSFlexGrid1.Col = 3
  MSFlexGrid1.Text = "型材厚度"
  MSFlexGrid1.Col = 4
  MSFlexGrid1.Text = "型材剖面积"
  MSFlexGrid1.Col = 5
  MSFlexGrid1.Text = "型材自身惯性矩"
  MSFlexGrid1.Col = 6
  MSFlexGrid1.Text = "型材自身中和轴"
  MSFlexGrid1.Col = 7
  MSFlexGrid1.Text = "带板宽度"
  MSFlexGrid1.Col = 8
  MSFlexGrid1.Text = "带板厚度"
  MSFlexGrid1.Col = 9
  MSFlexGrid1.Text = "对X-X轴惯性矩"
  MSFlexGrid1.Col = 10
  MSFlexGrid1.Text = "对X-X轴最小剖面模数"
  MSFlexGrid1.Col = 11
  MSFlexGrid1.Text = "对X-X轴惯性半径"
End Sub