lds1.frm

用VB6.0编写的关于车辆运输调度的系统

VERSION 5.00
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "SS32X25.OCX"
Begin VB.Form frmDrv 
   Caption         =   "Driver Master Maintenance"
   ClientHeight    =   7005
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8910
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7005
   ScaleWidth      =   8910
   Begin VB.Frame frminput 
      Height          =   3135
      Left            =   120
      TabIndex        =   2
      Top             =   3480
      Width           =   8655
      Begin VB.TextBox txtname 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1800
         TabIndex        =   6
         Top             =   2280
         Width           =   2775
      End
      Begin VB.TextBox txtdrv 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1800
         TabIndex        =   5
         Top             =   1440
         Width           =   1815
      End
      Begin VB.TextBox txtent 
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1800
         TabIndex        =   4
         Top             =   600
         Width           =   1815
      End
      Begin VB.Label Label1 
         Caption         =   "Driver Name:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   2
         Left            =   720
         TabIndex        =   9
         Top             =   2280
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "Driver Code:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   1
         Left            =   720
         TabIndex        =   8
         Top             =   1440
         Width           =   1095
      End
      Begin VB.Label Label1 
         Caption         =   "Entity Code:"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   0
         Left            =   720
         TabIndex        =   7
         Top             =   600
         Width           =   1095
      End
   End
   Begin VB.Frame frmlist 
      Height          =   2655
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   8655
      Begin FPSpread.vaSpread vasdrv 
         Height          =   1935
         Left            =   360
         TabIndex        =   3
         Top             =   360
         Width           =   7575
         _Version        =   131077
         _ExtentX        =   13361
         _ExtentY        =   3413
         _StockProps     =   64
         DisplayRowHeaders=   0   'False
         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         =   3
         MaxRows         =   10
         OperationMode   =   2
         ScrollBars      =   2
         SelectBlockOptions=   0
         SpreadDesigner  =   "lds1.frx":0000
      End
      Begin VB.Label lblstatus 
         Height          =   255
         Left            =   6840
         TabIndex        =   10
         Top             =   1920
         Width           =   1095
      End
   End
   Begin VB.PictureBox UserControl1 
      Height          =   615
      Left            =   0
      ScaleHeight     =   555
      ScaleWidth      =   8910
      TabIndex        =   0
      Top             =   0
      Width           =   8970
   End
End
Attribute VB_Name = "frmDrv"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Dim mkey As String

Private Sub Form_Load()

    Call InitToolBar
    Call vasshow
    
    frmDrv.Height = 7000
    frmDrv.Width = 9000
    With vasdrv
    .Row = 0
    .ColWidth(1) = 20
    .Col = 1
    .Text = "Entity Code"
    .ColWidth(2) = 20
    .Col = .Col + 1
    .Text = "Driver Code"
    .ColWidth(3) = 20
    .Col = .Col + 1
    .Text = "Driver Name"
    End With

End Sub

Private Sub vasshow()
Dim rstdrv As Recordset
Dim sSQL As String

sSQL = "select * from appdrv order by entcode"
Set rstdrv = Acs_cnt.Execute(sSQL)

With rstdrv
vasdrv.Row = 1
Do While Not .EOF
    With vasdrv
    .Col = 1
    .Text = gsEntCode
    .Col = .Col + 1
    .Text = rstdrv!drvcode
    .Col = .Col + 1
    .Text = rstdrv!drvname
    .Row = .Row + 1
    End With
.MoveNext
Loop
End With
Call vasdrv_Click(1, 1)

End Sub

Private Sub InitToolBar()
    With UserControl1
        .DisplayButton "new", "new", True, , "new"
        .DisplayButton "Save", "Save", True, , "Save"
        .DisplayButton "Open", "Open", False, , "Open"
        .DisplayButton "Undo", "Undo", True, , "Undo"
        .DisplayButton "Redo", "Redo", True, , "Redo"
        .DisplayButton "Modify", "Modify", True, , "Modify"
        .DisplayButton "Delete", "Delete", False, , "Delete"
        .DisplayButton "Cut", "Cut", False, , "Cut"
        '.DisplayButton "Print", "Print", True, , "Print"
        .DisplayButton "Close", "Close", True, , "Close"
    End With

End Sub




Private Sub txtdrv_KeyUp(KeyCode As Integer, Shift As Integer)
Dim rstdrv As Recordset
Dim sSQL As String
Dim sent, sdrv As String

If KeyCode = vbKeyReturn Then
        If txtdrv.Text = "" Then