xiangmumingcheng.frm

是用VB^开发的办公室车辆使用管理软件

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form xiangmumingcheng 
   Caption         =   "项目名称"
   ClientHeight    =   6255
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6990
   LinkTopic       =   "Form1"
   ScaleHeight     =   6255
   ScaleWidth      =   6990
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      Height          =   375
      Left            =   1320
      TabIndex        =   2
      Top             =   1200
      Visible         =   0   'False
      Width           =   1815
   End
   Begin VB.CommandButton Command1 
      Caption         =   "保  存"
      Height          =   375
      Left            =   1080
      TabIndex        =   1
      Top             =   5520
      Width           =   1215
   End
   Begin MSFlexGridLib.MSFlexGrid MSF 
      Height          =   4695
      Left            =   360
      TabIndex        =   0
      Top             =   360
      Width           =   5775
      _ExtentX        =   10186
      _ExtentY        =   8281
      _Version        =   393216
      FixedCols       =   0
   End
End
Attribute VB_Name = "xiangmumingcheng"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'Dim Db As Database
Dim result As Recordset
Dim sql As String
Dim i As Integer

Private Sub Command1_Click()
      If MsgBox("确认保存吗?", vbYesNo, "警告") = vbYes Then
           sql = "delete from qtfeiymingcheng  "
           result.Open sql, con, adOpenStatic, adLockOptimistic
          For i = 1 To MSF.Rows - 1
                 
              If Trim(MSF.TextArray(i * MSF.Cols)) <> "" Or Trim(MSF.TextArray(i * MSF.Cols + 1)) <> "" Or Trim(MSF.TextArray(i * MSF.Cols + 2)) <> "" Then
               
                    sql = "insert into qtfeiymingcheng values('" & Trim(MSF.TextArray(i * MSF.Cols)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 1)) & "','" & Trim(MSF.TextArray(i * MSF.Cols + 2)) & "')"
                '    MsgBox sql
                    result.Open sql, con, adOpenStatic, adLockOptimistic
               End If
          Next i
          MsgBox "保存结束"
    End If
End Sub

Private Sub Form_Load()
         Move Screen.Width / 2 - xiangmumingcheng.Width / 2, Screen.Height / 2 - xiangmumingcheng.Height / 2
         MSF.FormatString = "  维修费项目名称   |^   保养费项目名称   |^  车辆物品费项目名称 "
  
          Call aa
          MSF.Rows = 12
          Set result = New Recordset
          For i = 0 To MSF.Rows - 1
              MSF.RowHeight(i) = 350
          Next i
           sql = "select * from  qtfeiymingcheng "
       result.Open sql, con, adOpenStatic, adLockOptimistic
       
        If result.RecordCount <> 0 Then
               result.MoveFirst
                i = 1
               Do While Not result.EOF
                  MSF.TextArray(i * MSF.Cols) = Trim(result("维修费项目名称"))
                  MSF.TextArray(i * MSF.Cols + 1) = Trim(result("保养费项目名称"))
                  MSF.TextArray(i * MSF.Cols + 2) = Trim(result("车辆物品费项目名称"))
                  i = i + 1
                  result.MoveNext
               
               Loop
              
        End If
        result.Close
End Sub

Private Sub MSF_Click()
            Text1.Visible = True
            Text1.SetFocus
            Text1.Text = Trim(MSF.TextArray(MSF.Row * MSF.Cols + MSF.Col))
            Text1.Top = MSF.Top + MSF.CellTop
            Text1.Left = MSF.Left + MSF.CellLeft
            Text1.Width = MSF.CellWidth
End Sub

Private Sub Text1_Change()
        MSF.Text = Text1.Text
End Sub