frmlike.frm

来自「用VB6.0编写的关于车辆运输调度的系统」· FRM 代码 · 共 172 行

VERSION 5.00
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "SS32X25.OCX"
Begin VB.Form frmlike 
   Caption         =   "Select Window"
   ClientHeight    =   6540
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7290
   LinkTopic       =   "Form1"
   ScaleHeight     =   6540
   ScaleWidth      =   7290
   StartUpPosition =   3  'Windows Default
   Begin FPSpread.vaSpread vaslike 
      Height          =   4215
      Left            =   240
      TabIndex        =   4
      Top             =   480
      Width           =   6735
      _Version        =   131077
      _ExtentX        =   11880
      _ExtentY        =   7435
      _StockProps     =   64
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MaxCols         =   0
      MaxRows         =   0
      SpreadDesigner  =   "frmlike.frx":0000
   End
   Begin VB.TextBox txtdesc 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   3840
      TabIndex        =   3
      Top             =   5160
      Width           =   1695
   End
   Begin VB.TextBox txtcode 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   960
      TabIndex        =   2
      Top             =   5160
      Width           =   1575
   End
   Begin VB.Label Label2 
      Caption         =   "Description:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   2640
      TabIndex        =   1
      Top             =   5160
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "Code:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   240
      TabIndex        =   0
      Top             =   5160
      Width           =   495
   End
End
Attribute VB_Name = "frmlike"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
    Call initspread
    Call vasshow
    mdlMain.Enabled = False
End Sub

Private Sub initspread()
    With vaslike
            .MaxRows = 0
            .MaxCols = 2 'enuDetailCols.MaxCols
            .ShadowColor = genuBACKCOLOR.CST_Grid_LostFocus
            .Row = -1: .Col = -1
            .BackColor = genuBACKCOLOR.CST_Grid_LostFocus
            .GridColor = vbBlack
     End With
    
     Call IniSpdHeader
     lockspread vaslike, True
        
End Sub

Private Sub IniSpdHeader()
    SetColHead vaslike, 1, "Code", 10
    SetColHead vaslike, 2, "Description", 20
    
End Sub

Private Sub vasshow()
Dim sCode As String
Dim sDesc As String
Dim ilen As Integer
Dim sSQL As String
Dim rstselect As Recordset
Dim lcode, llcode As Long
Dim lrow As Long
    sCode = frmTru.txtitec.Text
    sCode = LTrim(sCode)
    ilen = Len(sCode)
    sCode = Mid(sCode, 1, ilen - 1)
    lcode = CLng(sCode)
    llcode = (lcode + 1) * 10
    lcode = lcode * 10
    
    sSQL = "select itecode,itedesc from appite where itecode <= " & llcode & " and itecode >= " & lcode
    Set rstselect = Acs_cnt.Execute(sSQL)
    vaslike.MaxRows = 0
    vaslike.MaxCols = 2
    lrow = 0
    Do While Not rstselect.EOF
        SetValue vaslike, lrow, 1, rstselect!Itecode
        SetValue vaslike, lrow, 2, rstselect!Itedesc
        lrow = lrow + 1
        vaslike.MaxRows = vaslike.MaxRows + 1
        rstselect.MoveNext
    Loop
    

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    mdlMain.Enabled = True
End Sub