frmdown.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmdown 
   Caption         =   "Download"
   ClientHeight    =   6810
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8835
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6810
   ScaleWidth      =   8835
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ProgressBar PrBar1 
      Height          =   255
      Left            =   840
      TabIndex        =   4
      Top             =   5040
      Width           =   6495
      _ExtentX        =   11456
      _ExtentY        =   450
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.CommandButton Cmd_no 
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   6000
      TabIndex        =   3
      Top             =   5760
      Width           =   1095
   End
   Begin VB.CommandButton Cmd_ok 
      Caption         =   "Ok"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4320
      TabIndex        =   2
      Top             =   5760
      Width           =   1095
   End
   Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1 
      Height          =   3855
      Left            =   0
      TabIndex        =   1
      Top             =   840
      Width           =   8055
      _ExtentX        =   14208
      _ExtentY        =   6800
      _Version        =   393216
      Cols            =   4
      FixedRows       =   0
      FixedCols       =   0
      AllowUserResizing=   2
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin PrjLDS.UserControl1 UserControl11 
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   8955
      _ExtentX        =   15796
      _ExtentY        =   1085
   End
End
Attribute VB_Name = "frmdown"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Type CusC
   Entcode As String
   Cuscode As String
   Cusdesc As String
   Altname As String
   Mainame As String
   Addres1 As String
   Addres2 As String
   Addres3 As String
   Addres4 As String
   Citcode As String
   Astatus As String
End Type

Private Type BusiC
      Buscode As String
      Busdesc As String
End Type

Private Type ItemC
      Bracode As String
      Itecode As Long
      Itedesc As String
      Meaunit As String
      Astatus As String
End Type
Private Sta As Integer
Private Cusrc() As CusC
Private BusiRc() As BusiC
Private ItemRc() As ItemC
Dim mkey As String
Private Sub cmd_no_click()
    Dim i As Integer
    Cmd_ok.Enabled = False
    With UserControl11
        .DisplayButton "Customer", "Customer", True, , "Customer"      'customer download
        .DisplayButton "Business", "Business", True, , "Business"   'business download
        .DisplayButton "Item", "Item", True, , "Item"   ' item download
    End With
    MSFlexGrid1.Clear
    MSFlexGrid1.Visible = True
   ' Mnu_down.Enabled = True
    Cmd_no.Enabled = False
End Sub
Private Sub Form_Load()
 Call InitToolBar
 
 frmdown.Height = 6200
 frmdown.Width = 8850
End Sub

Private Sub InitToolBar()
    With UserControl11
        .DisplayButton "Customer", "Customer", True, , "Customer"      'customer download
        .DisplayButton "Business", "Business", True, , "Business"   'business download
        .DisplayButton "Item", "Item", True, , "Item"   ' item download
    End With
End Sub
Private Sub UserControl11_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    Dim i As Integer
    Dim sSQL As String
    Cmd_ok.Enabled = True
    Cmd_no.Enabled = True
    mkey = LCase(Button.Key)
    Select Case LCase(Button.Key)
         Case "customer"
                With UserControl11
                     .DisplayButton "Customer", "Customer", False, , "Customer"      'customer download
                     .DisplayButton "Business", "Business", False, , "Business"   'business download
                     .DisplayButton "Item", "Item", False, , "Item"   ' item download
                End With
                i = 1
                DBFC ("Cusdbf")
                DBF_Rec.Open "select * from f0101jb "
                ReDim Preserve Cusrc(0) As CusC
                PrBar1.Max = DBF_Rec.RecordCount
                
                DBF_Rec.MoveFirst
                MSFlexGrid1.Cols = 9
                MSFlexGrid1.AddItem "CUSTOMER CODE" + Chr(9) _
                                 + "CUSTOMER DESCRIPTION" + Chr(9) + "ALTERNATE NAME" + Chr(9) + "MAIL NAME" _
                                 + Chr(9) + "ADDRESS1" + Chr(9) + "ADDRESS2" + Chr(9) + "ADDRESS3" _
                                 + Chr(9) + "ADDRESS4" + Chr(9) + "CITY CODE", 0
               Do
                        PrBar1.Value = i
                        Cusrc(UBound(Cusrc)).Entcode = "" & "'" & gsEntCode & "'"
                        Cusrc(UBound(Cusrc)).Cuscode = IIf(IsNull(DBF_Rec!aban8), 0, DBF_Rec!aban8) ' numeric
                        Cusrc(UBound(Cusrc)).Cusdesc = "" & DBF_Rec!abalph
                        Cusrc(UBound(Cusrc)).Altname = "" & DBF_Rec!abalp1
                        Cusrc(UBound(Cusrc)).Mainame = "" & DBF_Rec!wwmlnm
                        Cusrc(UBound(Cusrc)).Addres1 = "" & DBF_Rec!aladd1
                        Cusrc(UBound(Cusrc)).Addres2 = "" & DBF_Rec!aladd2
                        Cusrc(UBound(Cusrc)).Addres3 = "" & DBF_Rec!aladd3 '
                        Cusrc(UBound(Cusrc)).Addres4 = "" & DBF_Rec!aladd4 '
                        Cusrc(UBound(Cusrc)).Citcode = "" & DBF_Rec!alcty1 '
                        Cusrc(UBound(Cusrc)).Astatus = "N"
                        MSFlexGrid1.AddItem Cusrc(UBound(Cusrc)).Cuscode + Chr(9) _
                                            + Cusrc(UBound(Cusrc)).Cusdesc + Chr(9) + Cusrc(UBound(Cusrc)).Altname _
                                            + Chr(9) + Cusrc(UBound(Cusrc)).Mainame + Chr(9) _
                                            + Cusrc(UBound(Cusrc)).Addres1 + Chr(9) _
                                            + Cusrc(UBound(Cusrc)).Addres2 + Chr(9) _
                                            + Cusrc(UBound(Cusrc)).Addres3 + Chr(9) _
                                            + Cusrc(UBound(Cusrc)).Addres4 + Chr(9) _
                                            + Cusrc(UBound(Cusrc)).Citcode, i
                           ReDim Preserve Cusrc(UBound(Cusrc) + 1) As CusC
                           i = i + 1
                          
                           DBF_Rec.MoveNext
                Loop Until DBF_Rec.EOF
                Cmd_ok.Visible = True
                Cmd_no.Visible = True