通行证 | 帐号: 密码: 注册 | 登录
网站地图| 免费获取| 璁烘枃浠g悊
免费论文网


鑷姩鍖� 妯″叿 鏈烘 鐢靛瓙 閫氫俊 鍔ㄧ敾 鑻辫璧勬枡 宸ョ▼绠$悊 閲戣瀺璧勬枡 鏃呮父绠$悊 宸ヤ笟宸ョ▼ 鐢熺墿宸ョ▼ 缁欐帓姘磋祫鏂� 瑗块棬瀛怭LC 鍘嗗彶瀛� 涓夎彵PLC
鍗曠墖鏈� 璐㈠姟 浼氳 娉曞緥 琛屾斂 鐗╃悊 鐗╂祦璧勬枡 鐢靛瓙鍟嗗姟 鍒惰嵂宸ョ▼ 鍖呰宸ョ▼ 鍦熸湪宸ョ▼ 鏉愭枡绉戝 姹夎瑷€璧勬枡 娆у榫橮LC 鐢靛帇琛� 鏉句笅PLC
璁$畻鏈� 鍖栧伐 鏁扮數 宸ュ晢 椋熷搧 寰疯 鍥借锤璧勬枡 浜哄姏璧勬簮 鏁欒偛绠$悊 浜ら€氬伐绋� 甯傚満钀ラ攢 鍗板埛宸ョ▼ 鏈虹數涓€浣撳寲 鏁版帶璧勬枡 鍙樼數绔� 鏂囧寲浜т笟

  • 网站首页|
  • 论文范文|
  • 修改降重|
  • 职称论文|
  • 合作期刊|
  • 论文下载|
  • 计算机论文|
  • 外文翻译|
  • 免费论文|
  • 原创论文|
  • 开题报告论文
搜索
鏁欒偛绠$悊鍘熷垱璧勬枡  瀛﹀墠鏁欒偛鍘熷垱璧勬枡  蹇€熼檷閲�  灏忓鏁欒偛璧勬枡  姹夎瑷€鏂囧

当前位置:免费论文网 -> 免费论文 -> 计算机论文 -> VB+免费的,医药管理系统(六)
计算机论文| ASP设计| Delphi| VB设计| JSP设计| ASP.NET设计| VB.NET| java设计| VC| pb| VS| dreamweaver| c#.net| vf| VC++| 计算机论文范文| 论文下载| 自动化论文
路鐢靛瓙鍟嗗姟鍘熷垱姣曚笟璁烘枃
路娉曞涓撲笟鍘熷垱姣曚笟璁烘枃
路鍦熸湪宸ョ▼鍘熷垱姣曚笟璁烘枃
路宸ュ晢绠$悊涓撲笟鍘熷垱璁烘枃
路鐢垫皵鑷姩鍖栧師鍒涙瘯涓氳鏂�
路姹夎瑷€鏂囧涓撲笟鍘熷垱璁烘枃
路浼氳涓撲笟鍘熷垱姣曚笟璁烘枃
路璁$畻鏈烘妧鏈師鍒涙瘯涓氳鏂�
路浜哄姏璧勬簮涓撲笟鍘熷垱姣曚笟璁烘枃
路甯傚満钀ラ攢涓撲笟鍘熷垱璁烘枃
路淇℃伅绠$悊涓撲笟鍘熷垱姣曚笟璁烘枃
路瀛﹀墠鏁欒偛涓撲笟鍘熷垱璁烘枃
路鏁欒偛绠$悊涓撲笟鍘熷垱璁烘枃
路灏忓鏁欒偛涓撲笟鍘熷垱璁烘枃
路搴旂敤蹇冪悊瀛︿笓涓氬師鍒涜鏂�
路鑻辫涓撲笟鍘熷垱璁烘枃
路鎾煶涓庝富鎸佸師鍒涙瘯涓氳鏂�
路琛屾斂绠$悊涓撲笟鍘熷垱璁烘枃
路骞挎挱鐢佃缂栧鍘熷垱姣曚笟璁烘枃
路鎽勫奖涓撲笟鍘熷垱姣曚笟璁烘枃
路骞垮憡瀛︿笓涓氬師鍒涙瘯涓氳鏂�
路鏂伴椈瀛︿笓涓氬師鍒涙瘯涓氳鏂�
路鏂囧寲浜т笟绠$悊鍘熷垱姣曚笟璁烘枃
路瑙嗚浼犺揪璁捐鍘熷垱姣曚笟璁烘枃
路琛ㄦ紨涓撲笟鍘熷垱姣曚笟璁烘枃
路鍔ㄧ敾涓撲笟鍘熷垱姣曚笟璁烘枃
路褰曢煶鑹烘湳鍘熷垱姣曚笟璁烘枃
路鎶ょ悊涓撲笟鍘熷垱姣曚笟璁烘枃
路閫氫俊宸ョ▼鍘熷垱姣曚笟璁烘枃
路閲戣瀺涓撲笟鍘熷垱姣曚笟璁烘枃

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.jaoyuw.com)会员上传。
原创论文流程 相关论文
关于计算机信息管理系统安全问题改进
基于Java的论坛管理系统
螺纹钢质量信息追溯管理系统的设计与..
小型企业信息管理系统
出租车管理系统
员工培训管理系统的设计
关于企业资产管理系统的学习心得
璐㈠姟绠$悊 甯傚満钀ラ攢 骞煎効鏁欒偛 PLC 鍗曠墖鏈� 鏁欒偛 骞煎効鍥� 涓皬浼佷笟 鏁欏笀 鍐呴儴鎺у埗 宸ョ▼閫犱环 鐢靛瓙鍟嗗姟 PLC 鍙橀璋冮€� 渚涙按 绯荤粺 搴旂敤 鎺у埗 浜ゆ祦 鍙橀 鐢垫 璁捐 鐏伨 鑷姩 鎶ヨ绯荤粺 鍗曠墖鏈� 鐑熼浘 妫€娴� 绡悆 姣旇禌 璁℃椂鍣�  鑷姩鍞揣鏈� 鎺у埗绯荤粺 鐢电儹姘村櫒 娓╁害 寮傛鐢靛姩鏈� MATLAB 10kV 閰嶇數 绾胯矾 鎺у埗鍣� 鏅鸿兘浜ら€�  鏈哄簥  鏈烘鎵� 鍙樼數绔� 鍙樺帇鍣� 鑷姩鍖� 鍞揣鏈� 鑺辨牱鍠锋硥 绔嬩綋杞﹀簱 娲楄。鏈� 瑗块棬瀛怭LC 缁勬€佹帶鍒� 鎶㈢瓟鍣� 鏁版帶杞﹀簥 鑷杞� 閲岀▼ 杞﹂€� 瓒呭0娉� 娑蹭綅 浼犳劅鍣� 瀵嗙爜閿� 鏈烘瀯 鏁版帶婵€鍏� 鍒囧壊鏈鸿璁� 鍚庢墭鏋� 鍔犲伐宸ヨ壓 澶瑰叿璁捐 CA6140 浼犲姩杞� 娉ㄥ 妯″叿璁捐 娑插帇 椋庨櫓绠$悊 閾惰 绔炰簤鍔� 涓皬浼佷笟 鍐呴儴鎺у埗 鐘跺喌 璋冩煡鎶ュ憡 铻嶈祫 绠$悊 涓棿涓氬姟 瀹炰範鎶ュ憡 閲戣瀺 鐩戠 鍒跺害  鍐滄潙 鍏昏€佷繚闄� 鍚堜綔鍖荤枟 澶栬锤 鐞嗚储 瑙勫垝 缃戜笂閾惰 鍙戝睍鐜扮姸 涓汉鐞嗚储 浜烘皯甯� 鍗囧€�
上一篇:vb+考试管理系统及参考代码 下一篇:免费VB+员工管理系统
推荐论文 本专业最新论文
贸易公司信息管理系统+VB
VB高速公路票据管理系统
电子教务管理系统vb
delphi+access通用会员管理系统[开题..
个人网站设计之上网导航设计
互联网发展的利与弊
计算机网络安全探究
计算机带来的利弊
计算机网络故障及其解决方案
网络安全的现状以及发展趋势
浅析大数据时代下计算机辅助翻译的发..
计算机应用教育改革分析
Tags:免费 医药 管理系统 2010-04-19 23:23:40【返回顶部】
鐢垫皵宸ョ▼鑷姩鍖栧師鍒涜祫鏂�  鐢靛瓙鍟嗗姟鍘熷垱璧勬枡
浜哄姏璧勬簮涓撲笟鍘熷垱璧勬枡 鍦熸湪宸ョ▼鍘熷垱璧勬枡
宸ュ晢绠$悊涓撲笟鍘熷垱璧勬枡    鑽涓撲笟鍘熷垱璧勬枡
姹夎瑷€鏂囧涓撲笟鍘熷垱璧勬枡  浼氳涓撲笟鍘熷垱璧勬枡
璁$畻鏈烘妧鏈師鍒涜祫鏂�  閲戣瀺瀛﹀師鍒涜祫鏂�
娉曞涓撲笟鍘熷垱璧勬枡   甯傚満钀ラ攢涓撲笟鍘熷垱璧勬枡
淇℃伅绠$悊涓撲笟鍘熷垱璧勬枡 瀛﹀墠鏁欒偛涓撲笟鍘熷垱璧勬枡
鍏叡浜嬩笟绠$悊涓撲笟鍘熷垱璧勬枡 鑻辫涓撲笟鍘熷垱璧勬枡
鏁欒偛绠$悊涓撲笟鍘熷垱璧勬枡   琛屾斂绠$悊涓撲笟鍘熷垱璧勬枡
精彩推荐
发表论文
PLC 鍙橀璋冮€� 渚涙按 绯荤粺 搴旂敤 鎺у埗 浜ゆ祦 鍙橀 鐢垫 璁捐 鐏伨 鑷姩 鎶ヨ绯荤粺 鍗曠墖鏈� 鐑熼浘 妫€娴� 绡悆 姣旇禌 璁℃椂鍣�  鑷姩鍞揣鏈� 鎺у埗绯荤粺 鐢电儹姘村櫒 娓╁害 寮傛鐢靛姩鏈� MATLAB 10kV 閰嶇數 绾胯矾 鎺у埗鍣� 鏅鸿兘浜ら€�  鏈哄簥  鏈烘鎵� 鍙樼數绔� 鍙樺帇鍣� 鑷姩鍖� 鍞揣鏈� 鑺辨牱鍠锋硥 绔嬩綋杞﹀簱 娲楄。鏈� 瑗块棬瀛怭LC 缁勬€佹帶鍒� 鎶㈢瓟鍣� 鏁版帶杞﹀簥 鑷杞� 閲岀▼ 杞﹂€� 瓒呭0娉� 娑蹭綅 浼犳劅鍣� 瀵嗙爜閿� 鏈烘瀯 鏁版帶婵€鍏� 鍒囧壊鏈鸿璁� 鍚庢墭鏋� 鍔犲伐宸ヨ壓 澶瑰叿璁捐 CA6140 浼犲姩杞� 娉ㄥ 妯″叿璁捐 娑插帇
鐢垫皵宸ョ▼鑷姩鍖栧師鍒涙枃妗�  鐢靛瓙鍟嗗姟鍘熷垱璧勬枡鏂囨。
浜哄姏璧勬簮涓撲笟鍘熷垱璧勬枡鏂囨。鍦熸湪宸ョ▼鍘熷垱璧勬枡鏂囨。
宸ュ晢绠$悊涓撲笟鍘熷垱鏂囨。    鑽涓撲笟鍘熷垱鏂囨。
姹夎瑷€鏂囧涓撲笟鍘熷垱鏂囨。  浼氳涓撲笟鍘熷垱璧勬枡鏂囨。
璁$畻鏈烘妧鏈師鍒涜祫鏂欐枃妗�  閲戣瀺瀛﹀師鍒涜祫鏂欐枃妗�
娉曞涓撲笟鍘熷垱璧勬枡鏂囨。  甯傚満钀ラ攢涓撲笟鍘熷垱鏂囨。
淇℃伅绠$悊涓撲笟鍘熷垱璧勬枡鏂囨。 瀛﹀墠鏁欒偛涓撲笟鍘熷垱鏂囨。
鍏叡浜嬩笟绠$悊涓撲笟鍘熷垱鏂囨。 鑻辫涓撲笟鍘熷垱鏂囨。
鏁欒偛绠$悊涓撲笟鍘熷垱鏂囨。   琛屾斂绠$悊涓撲笟鍘熷垱鏂囨。

联系方式 | 论文说明 | 网站地图 | 免费获取 | 钻石会员 | 硕士论文


免费论文网提供论文范文,论文代发,原创论文

本站部分文章来自网友投稿上传,如发现侵犯了您的版权,请联系指出,本站及时确认并删除  E-mail: 17304545@qq.com

Copyright@ 2009-2020 免费论文网 版权所有 湘ICP备19027999