请问这段脚本是什么意思

 myorder=HMIRuntime.Tags("D_order").Read 
 If myorder=0 Then
   Msg=MsgBox("Data not complete",16,"Input Information")
  Exit Sub
 End If 

 mydate=HMIRuntime.Tags("D_plan_date").Read 
 If mydate="" Then
   Msg=MsgBox("Please input plan date!",16,"Input Information")
  Exit Sub
 End If

 plt_thk=HMIRuntime.Tags("D_plt_thk").Read
 plt_wid=HMIRuntime.Tags("D_plt_wid").Read
 plt_len=HMIRuntime.Tags("D_plt_len").Read
 pdi_tar_thk=HMIRuntime.Tags("D_tar_thk").Read
 pdi_tar_wid=HMIRuntime.Tags("D_tar_wid").Read
 stl_code=Trim(HMIRuntime.Tags("D_steel_grade").Read)
 shear_len=HMIRuntime.Tags("D_shear_len").Read 
 shear_amount=HMIRuntime.Tags("D_shear_amount").Read 
 shear_len2=HMIRuntime.Tags("D_shear_len_2").Read 
 shear_amount2=HMIRuntime.Tags("D_shear_amount_2").Read 

 prod_status=HMIRuntime.Tags("D_prod_status").Read 
 inputtime=Now
 myclass=HMIRuntime.Tags("D_class").Read 
 myuser=HMIRuntime.Tags("@CurrentUser").Read 
 d_num=HMIRuntime.Tags("D_amount").Read 
 If   pdi_tar_thk=0 Or pdi_tar_wid=0 Then
   Msg=MsgBox("data inputing not complete",16,"Input Information")
  Exit Sub
 End If

 mystr1="(" & myorder & ",'" & Trim(stl_code) & "'," & plt_thk & "," & plt_wid & "," & plt_len & "," & pdi_tar_thk & "," & pdi_tar_wid & ","_
  & shear_len & "," & shear_amount & "," & prod_status & "," & shear_len2 & "," & shear_amount2 & ",'"   & inputtime &"','" & mydate & "','" & myuser &"'," & myclass &","& d_num &")"
  mystr="INSERT INTO D_plan_data VALUES" & mystr1
 HMIRuntime.Trace "mystr=" & mystr & vbCrLf 
 Datamanage(mystr)

 
 If err.number=0  Then

  msg=MsgBox("Save OK! ",0,"Dispatcher Plan") 
 Else

  msg=MsgBox("  Save failure! ",0,"Dispatcher Plan")
 End If

 End Sub