frmarr.frm

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

VERSION 5.00
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "SS32X25.OCX"
Begin VB.Form frmArr 
   Caption         =   "Arrange Transportation Order"
   ClientHeight    =   6465
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9270
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   9
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6465
   ScaleWidth      =   9270
   WindowState     =   2  'Maximized
   Begin VB.CommandButton cmdReport 
      Caption         =   "Report"
      Height          =   375
      Left            =   5280
      TabIndex        =   2
      Top             =   5040
      Width           =   1335
   End
   Begin VB.CommandButton cmdArrange 
      Caption         =   "Arrange"
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   5040
      Width           =   1215
   End
   Begin FPSpread.vaSpread vasarr 
      Height          =   3975
      Left            =   120
      TabIndex        =   0
      Top             =   240
      Width           =   8775
      _Version        =   131077
      _ExtentX        =   15478
      _ExtentY        =   7011
      _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
      OperationMode   =   2
      SelectBlockOptions=   0
      SpreadDesigner  =   "frmArr.frx":0000
   End
End
Attribute VB_Name = "frmArr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mkey As String
Dim lCurRow As Integer
Dim lCurCol As Integer

Private Sub Form_Load()
    
    Call initspread
    Call vasshow
    
        
End Sub

Private Sub initspread()

     With vasarr
            .MaxRows = 0
            .MaxCols = 8 'enuDetailCols.MaxCols
            .ShadowColor = genuBACKCOLOR.CST_Grid_LostFocus
            .Row = -1: .Col = -1
            .BackColor = genuBACKCOLOR.CST_Grid_LostFocus
            .GridColor = vbBlack
     End With
    
     Call SetSpreadHead
     lockspread vasarr, True

End Sub

Private Sub SetSpreadHead()
    SetColHead vasarr, 1, "Company Code", 10
    SetColHead vasarr, 2, "Entity Code", 10
    SetColHead vasarr, 3, "Sales Order Number", 10
    SetColHead vasarr, 4, "Sales Order Type", 10
    SetColHead vasarr, 5, "Sales Order Line Number", 15
    SetColHead vasarr, 6, "Sales Order Line Number Creation Date", 20
    SetColHead vasarr, 7, "Item Code", 8
    SetColHead vasarr, 8, "Item Description", 20
    
End Sub

Private Sub vasshow()
Dim sSQL As String
Dim rstarr As Recordset
Dim lrow As Long
    lrow = 0
    vasarr.MaxRows = 0
    sSQL = "select * from orderd where SALOTYP = 'do'"
    Set rstarr = Acs_cnt.Execute(sSQL)
    Do While Not rstarr.EOF
        lrow = lrow + 1
        vasarr.MaxRows = vasarr.MaxRows + 1
        SetValue vasarr, lrow, 1, rstarr!cmpcode
        SetValue vasarr, lrow, 2, rstarr!Entcode
        SetValue vasarr, lrow, 3, "" & rstarr!salotyp
        SetValue vasarr, lrow, 4, rstarr!salonum
        SetValue vasarr, lrow, 5, rstarr!salolin
        SetValue vasarr, lrow, 6, rstarr!salolnc
        SetValue vasarr, lrow, 7, rstarr!Itecode
        SetValue vasarr, lrow, 8, "" & rstarr!Itedesc
        
        rstarr.MoveNext
    Loop
End Sub

Private Sub cmdArrange_Click()
    frmtra.Show
    mdlMain.Enabled = False
    
End Sub