评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB+免费的，医药管理系统(一)毕业论文(7)

2013-06-13 01:23 )
On Error Resume Next
If Command1.Caption = "新增" Then
   Command1.Caption = "确认"
   Adodc1.Recordset.AddNew
   Text4.SetFocus
Else
Command1.Caption = "新增"
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
End If
End Sub
Private Sub Command2_Click()
On Error Resume Next
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast
End Sub
Private Sub Command3_Click()
On Error Resume Next
If Command3.Caption = "修改" Then
   Command3.Caption = "确认"
   Adodc1.Recordset.Update
   Text4.SetFocus
Else
Command3.Caption = "修改"
Adodc1.Recordset.Update
Command1.Enabled = True
Command2.Enabled = True
Command5.Enabled = True
End If
End Sub
Private Sub Command4_Click()
Command3.Caption = "修改"
Command1.Caption = "添加"
On Error GoTo RefreshErr
  Adodc1.Refresh
  Exit Sub
RefreshErr:
  MsgBox Err.Description
End Sub
Private Sub Command5_Click()
Frame1.Visible = True
End Sub
Private Sub Command6_Click()
If Option1 Then
 Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medicinecode= '" & Text1 & "'"
Adodc1.Refresh
End If
If Option2 Then
 Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medicinename= '" & Text2 & "'" （转载自http://zw.ＮＳＥaＣ.com科教作文网）
Adodc1.Refresh
End If
If Option3 Then
Select Case Combo1.Text
Case "处方药"
 Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '1'"
Adodc1.Refresh
Case "非处方药"
 Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '2'"
Adodc1.Refresh
Case "中药饮片"
 Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '3'"
Adodc1.Refresh
Case "中药材"
 Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '4'"
Adodc1.Refresh
Case "医疗器械"
 Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '5'"
Adodc1.Refresh
Case "非药品（保健品）"
 Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,medkindcode as 药品类别代码,price as 售价,listprice as 厂价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '6'"

（科教作文网http://zw.ΝsΕAc.Com编辑整理）

Adodc1.Refresh
End Select
End If
If Option4 Then
 Adodc