管理信息系统 辽宁工业大学(6)

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

txtitem(8) = Format(txtitem(8), \ End If End If

If Trim(txtitem(9) & \ If Not IsDate(txtitem(9)) Then

MsgBox \请输入时间，格式yyyy-mm-dd！\vbOKOnly + vbExclamation, \警告\

txtitem(9).SetFocus Exit Sub Else

txtitem(9) = Format(txtitem(9), \ End If End If

If gintvMode = 1 Then

txtsql = \\

Set mrc = ExecuteSQL(txtsql, msgtext) If mrc.EOF = False Then

MsgBox \此车辆信息已经存在\警告\ txtitem(0).SetFocus Exit Sub Else

mrc.AddNew

For txtcount = 0 To 11

mrc.Fields(txtcount) = Trim(txtitem(txtcount)) Next txtcount mrc.Update End If mrc.Close

MsgBox \添加信息成功\添加信息\ End If

If gintvMode = 2 Then

txtsql = \from vehicle where cl_id='\& Trim(txtitem(0)) & \ ExecuteSQL txtsql, msgtext

txtsql = \

Set mrc = ExecuteSQL(txtsql, msgtext) mrc.AddNew

For txtcount = 0 To 11

mrc.Fields(txtcount) = Trim(txtitem(txtcount)) Next txtcount mrc.Update mrc.Close

flagvEdit = True

23

辽 宁 工 业 大 学 课 程 设 计 说 明 书（论 文）

MsgBox \信息修改成功\修改信息\ End If

If gintvMode = 1 Then

For txtcount = 0 To 11 txtitem(txtcount) = \ Next txtcount txtchange = False End If

If gintvMode = 2 Then Unload Me

If flagvEdit = True Then Unload frmvehiclelist End If

frmvehiclelist.txtsql = \ frmvehiclelist.Show End If End Sub

24