frmsbgl.frm

在重庆大学为毕业设计做的维修管理系统 为了赶时间做得不是很好

         BeginProperty Font 
            Name            =   "Arial Black"
            Size            =   15.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   495
         Left            =   240
         TabIndex        =   2
         Top             =   240
         Width           =   615
      End
   End
   Begin MSDataGridLib.DataGrid DataGrid1 
      Bindings        =   "frmsbgl.frx":0C59
      Height          =   5655
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6975
      _ExtentX        =   12303
      _ExtentY        =   9975
      _Version        =   393216
      AllowUpdate     =   0   'False
      HeadLines       =   1
      RowHeight       =   15
      FormatLocked    =   -1  'True
      BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ColumnCount     =   9
      BeginProperty Column00 
         DataField       =   "编号"
         Caption         =   "编号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column01 
         DataField       =   "设备名称"
         Caption         =   "设备名称"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column02 
         DataField       =   "设备型号"
         Caption         =   "设备型号"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column03 
         DataField       =   "设备位置"
         Caption         =   "设备位置"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column04 
         DataField       =   "设备类别"
         Caption         =   "设备类别"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column05 
         DataField       =   "单价"
         Caption         =   "单价"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column06 
         DataField       =   "数量"
         Caption         =   "数量"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column07 
         DataField       =   "购买日期"
         Caption         =   "购买日期"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column08 
         DataField       =   "生产厂家"
         Caption         =   "生产厂家"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   629.858
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1995.024
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   945.071
         EndProperty
         BeginProperty Column03 
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1814.74
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   1065.26
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   945.071
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   1500.095
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   2700.284
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmsbgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdadd_Click()
    Adodc1.RecordSource = "select * from 设备表 order by 编号"
    Adodc1.Refresh
    
    Adodc1.Recordset.AddNew
    txtname.SetFocus
    cmdadd.Enabled = False
    cmdupdate.Enabled = False
    cmddelete.Enabled = False
    cmdsave.Enabled = True
    cmdexit.Enabled = False
End Sub

Private Sub cmddelete_Click()
     a = MsgBox("你真的要删除" + Adodc1.Recordset.Fields("设备名称") + "吗", vbQuestion + vbYesNo, "设备管理")
    If a = vbYes Then
        Adodc1.Recordset.Delete
        Adodc1.Refresh
        Adodc1.Recordset.MoveLast
    Else
        Exit Sub
    End If
End Sub

Private Sub cmdexit_Click()
    Unload Me
End Sub

Private Sub cmdsave_Click()
     If txtname.Text = "" Then
        MsgBox "设备名称不能为空", vbCritical, "设备管理"
        txtname.SetFocus
    ElseIf cmbsblb = "" Then
        MsgBox "设备类别不能为空", vbCritical, "设备管理"
        cmbsblb.SetFocus
    Else
        Adodc1.Recordset.Fields("设备名称") = txtname.Text
        Adodc1.Recordset.Fields("设备型号") = txtxh.Text
        Adodc1.Recordset.Fields("设备位置") = cmbsbwz.Text
        Adodc1.Recordset.Fields("设备类别") = cmbsblb.Text
        Adodc1.Recordset.Fields("单价") = txtdj.Text
        Adodc1.Recordset.Fields("数量") = txtsl.Text
        Adodc1.Recordset.Fields("生产厂家") = txtsccj.Text
        Adodc1.Recordset.Fields("购买日期") = dtpgmrq.Value
        Adodc1.Recordset.Update
        Adodc1.RecordSource = "select * from 设备表 order by 编号"
        Adodc1.Refresh
        Adodc1.Recordset.MoveLast
        
        cmdadd.Enabled = True
        cmdupdate.Enabled = True
        cmddelete.Enabled = True
        cmdsave.Enabled = False
        cmdexit.Enabled = True
    End If
    
End Sub

Private Sub cmdupdate_Click()
     If txtname.Text = "" Then
        MsgBox "设备名称不能为空", vbCritical, "设备管理"
        txtname.SetFocus
    ElseIf cmbsblb = "" Then
        MsgBox "设备类别不能为空", vbCritical, "设备管理"
        cmbsblb.SetFocus
    Else
        Adodc1.Recordset.Fields("设备名称") = txtname.Text
        Adodc1.Recordset.Fields("设备型号") = txtxh.Text
        Adodc1.Recordset.Fields("设备位置") = cmbsbwz.Text
        Adodc1.Recordset.Fields("设备类别") = cmbsblb.Text
        Adodc1.Recordset.Fields("单价") = txtdj.Text
        Adodc1.Recordset.Fields("数量") = txtsl.Text
        Adodc1.Recordset.Fields("生产厂家") = txtsccj.Text
        Adodc1.Recordset.Fields("购买日期") = dtpgmrq.Value
        Adodc1.Recordset.Update
        Adodc1.RecordSource = "select * from 设备表 order by 编号"
        Adodc1.Refresh
        Adodc1.Recordset.MoveLast
    End If
End Sub