frment.frm

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

         Left            =   120
         TabIndex        =   4
         Top             =   840
         Width           =   1935
      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
         Left            =   720
         TabIndex        =   3
         Top             =   360
         Width           =   1095
      End
   End
   Begin PrjLDS.UserControl1 UserControl1 
      Height          =   615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   9420
      _ExtentX        =   16616
      _ExtentY        =   1085
   End
   Begin FPSpread.vaSpread vasent 
      Height          =   3000
      Left            =   120
      TabIndex        =   1
      Top             =   720
      Width           =   9000
      _Version        =   131077
      _ExtentX        =   15875
      _ExtentY        =   5292
      _StockProps     =   64
      EditEnterAction =   5
      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         =   1
      MaxRows         =   1
      SpreadDesigner  =   "frmEnt.frx":0000
   End
End
Attribute VB_Name = "frmEnt"
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()
 
 vasent.Height = SpreadH
 vasent.Width = SpreadW
 Call InitToolBar
 Call initspread
 Call vasshow
 frminput.Enabled = False
 
 End Sub
 
 Private Sub initspread()
 
     With vasent
            .MaxRows = 0
            .MaxCols = 7 'enuDetailCols.MaxCols
            .ShadowColor = genuBACKCOLOR.CST_Grid_LostFocus
            .Row = -1: .Col = -1
            .BackColor = genuBACKCOLOR.CST_Grid_LostFocus
            .GridColor = vbBlack
     End With
    
     Call SetSpreadHead
     lockspread vasent, True
                
 End Sub

Private Sub SetSpreadHead()

    SetColHead vasent, 1, "Entity Code", 12
    SetColHead vasent, 2, "Entity Description", 25
    SetColHead vasent, 3, "Entity Add1", 15
    SetColHead vasent, 4, "Entity Add2", 15
    SetColHead vasent, 5, "Entity Add3", 15
    SetColHead vasent, 6, "Tel Number", 15
    SetColHead vasent, 7, "Fax Number", 15
End Sub

Private Sub vasshow()
Dim rstent As Recordset
Dim sSQL As String
Dim lrow As Integer
    
    sSQL = "select * from sysent"
    Set rstent = Acs_cnt.Execute(sSQL)
    vasent.MaxRows = 1
    lrow = 1
    SetValue vasent, lrow, 1, rstent!Entcode
    SetValue vasent, lrow, 2, rstent!entdesc
    SetValue vasent, lrow, 3, "" & rstent!Addres1
    SetValue vasent, lrow, 4, "" & rstent!Addres2
    SetValue vasent, lrow, 5, "" & rstent!addres
    SetValue vasent, lrow, 6, rstent!telnum
    SetValue vasent, lrow, 7, rstent!faxnum
    
    txtentc.Text = gsEntCode
    txtdesc.Text = GetValue(vasent, 1, 2)
    txtadd1.Text = GetValue(vasent, 1, 3)
    txtadd2.Text = GetValue(vasent, 1, 4)
    txtadd3.Text = GetValue(vasent, 1, 5)
    txttel.Text = GetValue(vasent, 1, 6)
    txtfax.Text = GetValue(vasent, 1, 7)
    
    rstent.Close
    Set rstent = Nothing
       
End Sub

Private Sub InitToolBar()
    With UserControl1
        .DisplayButton "Save", "Save", False, , "Save"
        .DisplayButton "Modify", "Modify", True, , "Modify"
        .DisplayButton "Cancel", "Cancel", False, , "Cancel"
        '.DisplayButton "Redo", "Redo", False, , "Redo"
        '.DisplayButton "Print", "Print", True, , "Print"
        .DisplayButton "Close", "Close", True, , "Close"
    End With

End Sub

Private Sub SetToolBar(ByVal mkey As String)
        Select Case mkey
       
        Case "modify"
            With UserControl1
                '.DisplayButton "Print", "Print", False, , "Print"
                .DisplayButton "Modify", "Modify", False, , "Modify"
                .DisplayButton "Save", "Save", True, , "Save"
                .DisplayButton "Cancel", "Cancel", True, , "Cancel"
                '.DisplayButton "Redo", "Redo", True, , "Redo"
                .DisplayButton "Close", "Close", False, , "Close"
                
            End With
             vasent.Enabled = False
             frminput.Enabled = True
             txtentc.Enabled = False
             txtdesc.Enabled = True
             txtdesc.SetFocus
             
        Case "cancel"
            With UserControl1
                '.DisplayButton "Print", "Print", True, , "Print"
                .DisplayButton "Modify", "Modify", True, , "Modify"
                .DisplayButton "Save", "Save", False, , "Save"
                .DisplayButton "Cancel", "Cancel", False, , "Cancel"
               ' .DisplayButton "Redo", "Redo", False, , "Redo"
                .DisplayButton "Close", "Close", True, , "Close"
            End With
            vasent.Enabled = True
            frminput.Enabled = False
      
       Case "save"
            With UserControl1
                '.DisplayButton "Print", "Print", True, , "Print"
                .DisplayButton "Save", "Save", False, , "Save"
                .DisplayButton "Modify", "Modify", True, , "Modify"
                .DisplayButton "Cancel", "Cancel", False, , "Cancel"
                '.DisplayButton "Redo", "Redo", False, , "Redo"
                .DisplayButton "Close", "Close", True, , "Close"
            End With
            vasent.Enabled = True
            frminput.Enabled = False
        End Select

End Sub

Private Sub UserControl1_ButtonClick(ByVal Button As MSComctlLib.Button)
    On Error Resume Next
    mkey = LCase(Button.Key)
    
    Select Case LCase(Button.Key)
        Case "save"
            Call saveinfo
            Call vasshow
            
        Case "modify"
                
        Case "close"
            Unload Me
            Exit Sub
   End Select
   
    Call SetToolBar(mkey)
End Sub

Private Sub saveinfo()
Dim sSQL As String
Dim Entcode, entdesc As String
Dim tel, fax As String
Dim add1, add2, add3 As String
    
  Entcode = gsEntCode
  entdesc = txtdesc.Text
  add1 = txtadd1.Text
  add2 = txtadd2.Text
  add3 = txtadd3.Text
  tel = txttel.Text
  fax = txtfax.Text
  
  sSQL = "update sysent set entdesc = '" & entdesc & "',addres1 = '" & add1 & "', addres2 = '" & add2 & _
        "',  addres ='" & add3 & "',telnum = '" & tel & "' ,faxnum = '" & fax & "' where entcode = '" & Entcode & "'"
  Acs_cnt.BeginTrans
  Acs_cnt.Execute (sSQL)
  Acs_cnt.CommitTrans
End Sub