VB+免费的，医药管理系统_毕业论文范文网-论文范文

搜索高级搜索

原创毕业论文

VB+免费的，医药管理系统(六)

作者: 浏览:1244次

免费专业论文
政治工作论文
计算机论文
营销专业论文
工程管理论文范文
医药医学论文范文
法律论文范文
生物专业论文
物理教学论文范文
人力资源论文范文
化学教学论文范文
电子专业论文范文
历史专业论文
电气工程论文
社会学专业论文
英语专业论文
行政管理论文范文
语文专业论文
电子商务论文范文
焊工钳工技师论文
社科文学论文
教育论文范文
数学论文范文
物流论文范文
建筑专业论文
食品专业论文
财务管理论文范文
工商管理论文范文
会计专业论文范文
专业论文格式
化工材料专业论文
英语教学专业论文
电子通信论文范文
旅游管理论文范文
环境科学专业论文
经济论文
人力资源论文范文
营销专业论文范文
财务管理论文范文
物流论文范文
财务会计论文范文
数学教育论文范文
数学与应用数学论文
电子商务论文范文
法律专业论文范文
工商管理论文范文
汉语言文学论文
计算机专业论文
教育管理论文范文
现代教育技术论文
小学教育论文范文
机械模具专业论文
报告,总结,申请书
心理学论文范文
学前教育论文范文

收费计算机专业论文范文

收费计算机专业论文
Delphi
ASP
VB
JSP
ASP.NET
VB.NET
java
VC
pb
VS
dreamweaver
c#.net
vf
VC++
计算机论文

毕业论文范文题目：VB+免费的，医药管理系统(六)，论文范文关键词：VB+免费的，医药管理系统(六)
VB+免费的，医药管理系统(六)毕业论文范文介绍开始：
abled = True
   FrmMain.A3.Enabled = True
   End If
Else
MsgBox "密码错误", , "提示"
End If
End Sub
2.前台查询窗体代码
Private Sub Command1_Click()
If Option1 Then
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medicinename= '" & Text1 & "'"
Adodc1.Refresh
End If
If Option2 Then
Select Case Combo1.Text
Case "处方药"
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename   药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medkindcode= '1'"
Adodc1.Refresh
Case "非处方药"
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medkindcode= '2'"
Adodc1.Refresh
Case "中药饮片"
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medkindcode= '3'"
Adodc1.Refresh
Case "中药材"
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至,ratifycode as 批准文号 from MedInfor where medkindcode= '4'"
Adodc1.Refresh
Case "医疗器械"
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor where medkindcode= '5'"
Adodc1.Refresh
Case "非药品（保健品）"
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期 from MedInfor where medkindcode= '6'"
Adodc1.Refresh
End Select
End If
If Adodc1.Recordset.EOF Then
MsgBox "无此信息!", , "提示"
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价,stocknum as 库存量,unit as 单位,usefullife as 有效期至 from MedInfor "
Adodc1.Refresh
End If
End Sub
3.销售界面代码
Private Sub Command1_Click()
Adodc1.RecordSource = "select medicinecode as 药品编码,medicinename as 药品名称,price as 售价 ,unit as 单位,stocknum as 库存量 from medinfor where medicinecode='" & Text1 & "'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then MsgBox "无此信息!", , "提示"
If Val(Text11.Text) - Val(Text2.Text) < 0 Then
MsgBox "库存不足", , "提示"
Text1.Text = "": Text2.Text = "": Text1.SetFocus
Else
On Error Resume Next
Adodc2.Recordset.AddNew
Text12.Text = Text4.Text
Text13.Text = Text7.Text
Text14.Text = Text8.Text
Text15.Text = Text9.Text
Text16.Text = Text10.Text
Text17.Text = Val(Text9.Text) * Val(Text2.Text)
Text18.Text = Text2.Text
Adodc2.Recordset.Update
Adodc2.Recordset.MoveLast
Adodc1.Recordset.Update
Text11.Text = Val(Text11.Text) - Val(Text2.Text)
Adodc1.Recordset.Update
Adodc1.Recordset.MoveLast
x = x + Val(Text17.Text)
End If
End Sub
Private Sub Command2_Click()
Static y As Integer
y = Val(Text4.Text) + 1
Text4.Text = y
Text5.Text = Date$
Text6.Text = x
Adodc3.Recordset.AddNew
Text19.Text = Text4.Text
Text20.Text = Text3.Text
Text21.Text = Date$
Text22.Text = Text6.Text
Adodc3.Recordset.Update
Adodc3.Recordset.MoveLast
Text6.SetFocus
End Sub
Private Sub Text6_LostFocus()
x = 0
End Sub
4.药品信息查询代码（仓库管理和日常管理的药品查询都用此代码）
Option Explicit
Private Sub Command1_Click(

首页上一页 3 4 5 6 7 8 9 下一页尾页 6/9/9

以上为本篇毕业论文范文VB+免费的，医药管理系统(六)的介绍部分。

本论文在计算机论文栏目，由论文网(www.zjwd.net)整理,更多论文,请点论文范文查找

相关论文

收费专业论文
汉语言文学论文
物理学论文
自动化专业论文
测控技术专业论文
历史学专业论文
机械模具专业论文
金融专业论文
电子通信专业论文
材料科学专业论文
英语专业论文
会计专业论文
行政管理专业论文
财务管理专业论文
电子商务国贸专业
法律专业论文
教育技术学专业论文
物流专业论文
人力资源专业论文
生物工程专业论文
市场营销专业论文
土木工程专业论文
化学工程专业论文
文化产业管理论文
工商管理专业论文
护理专业论文
数学教育专业论文
数学与应用数学专业
心理学专业论文
信息管理专业论文
工程管理专业论文
工业工程专业论文
制药工程专业论文
电子机电信息论文
现代教育技术专业
新闻专业论文
艺术设计专业论文
采矿专业论文
环境工程专业论文
西班牙语专业论文
热能与动力设计论文
工程力学专业论文
酒店管理专业论文
安全管理专业论文
交通工程专业论文
体育教育专业论文
教育管理专业论文
日语专业论文
德语专业论文
理工科专业论文
轻化工程专业论文
社会工作专业论文
乡镇企业管理
给水排水专业
服装设计专业论文
电视制片管理专业
旅游管理专业论文
物业管理专业论文
信息管理专业论文
包装工程专业论文
印刷工程专业论文
动画专业论文
环境艺术专业论文
信息计算科学专业
物流专业论文范文
人力资源论文范文
营销专业论文范文
工商管理论文范文
汉语言文学论文范文
法律专业论文范文
教育管理论文范文
小学教育论文范文
学前教育论文范文
财务会计论文范文

电子商务论文范文

上一篇：vb+考试管理系统及参考代码

下一篇：免费VB+员工管理系统