网站地图| 免费获取|
毕业论文网
  • 网站首页|
  • 论文范文|
  • 论文降重|
  • 职称论文发表|
  • 合作期刊|
  • 论文下载|
  • 计算机论文|
  • 外文翻译|
  • 免费论文|
  • 论文资料|
  • 论文开题报告
搜索

当前位置:毕业论文网 -> 开题报告 -> 计算机开题

药品库房管理系统+VB开题报告答辩PPT外文翻译(八)

药品库房管理系统+VB开题报告答辩PPT外文翻译(八) bsp;                 ' 关闭注册表关键字
End Function
Private Sub Form_Unload(Cancel As Integer)
frmmain.StatusBar1.Panels(2) = "目前没有窗口被激活"
End Sub
Private Sub Form_Activate()
frmmain.StatusBar1.Panels(2) = "活动窗口:" & frmAbout.Caption
End Sub

 

4:库存登记界面设计:

代码设计:
Public Sub Guolu()
With Adodc1
.RecordSource = "select * from " & frmmain.datas & " where 失效标记=false"
.Refresh
For i = 0 To .Recordset.RecordCount
If Not .Recordset.EOF Then
    If .Recordset.Fields("失效期") <= Date Then
        .Recordset.Fields("失效标记") = True
        .Recordset.Update
    Else
        .Recordset.Fields("失效标记") = False
        .Recordset.Update
    End If
.Recordset.MoveNext
End If
Next
End With
End Sub

Private Sub combo2_Change()
If Combo2.Text <> "西药中成药库" And Combo2.Text <> "中草药库" And Combo2.Text <> "器械材料库" Then
Text1.Enabled = False
Text18.Enabled = False
End If
End Sub

Private Sub Combo2_Click()
Select Case Combo2.Text
Case "西药中成药库"
    frmmain.datas = "kcyp"
    frminput.Caption = "西药和中成药入库登记"
    frmmain.kcode = "ypcode"
    Call Guolu
    Text1.Enabled = True
    Text18.Enabled = True
Case "中草药库"
    frmmain.datas = "caoyao"
    frminput.Caption = "中草药入库登记"
    frmmain.kcode = "cycode"
    Call Guolu
    Text1.Enabled = True
    Text18.Enabled = True
Case "器械材料库"
    frmmain.datas = "qixie"
    frminput.Caption = "医疗器械和材料入库登记"
    frmmain.kcode = "qxcode"
    Call Guolu
    Text1.Enabled = True
    Text18.Enabled = True
Case Else
    Text1.Enabled = False
    Text18.Enabled = False
    frminput.Caption = "库存登记"
End Select
End Sub

Private Sub Command1_Click()
Dim rq1 As String
Dim rq2 As String
Dim rq3 As String
On Error GoTo err1
With Adodc1
.RecordSource = "select * from " & frmmain.datas & " order by ID"
.Refresh
.Recordset.AddNew
.Recordset.Fields("编号") = Text1.Text
.Recordset.Fields("名称") = Text18.Text
.Recordset.Fields("规格") = Text2.Text
.Recordset.Fields("单位") = Combo1.Text
.Recordset.Fields("数量") = Text3.Text
.Recordset.Fields("进价") = Text4.Text
.Recordset.Fields("进价合计") = (Text3.Text) * (Text4.Text)
.Recordset.Fields("零售价") = Text5.Text
.Recordset.Fields("零售合计") = (Text3.Text) * (Text5.Text)
.Recordset.Fields("产地") = Text6.Text
.Recordset.Fields("差额") = (.Recordset.Fields("零售合计")) - (.Recordset.Fields("进价合计"))
.Recordset.Fields("批号") = Text7.Text
rq1 = Text8.Text & "-" & Text9.Text & "-" & Text10.Text
.Recordset.Fields("采购日期") = CDate(rq1)
rq2 = Text11.Text & "-" & Text12.Text & "-" & Text13.Text
.Recordset.Fields("出厂日期") = CDate(rq2)
rq3 = Text14.Text & "-" &a

首页 上一页 5 6 7 8 9 10 11 下一页 尾页 8/12/12

药品库房管理系统+VB开题报告答辩PPT外文翻译(八)由毕业论文网(www.huoyuandh.com)会员上传。
原创论文资料流程 相关论文
上一篇:学生信息管理系统+VB代码+开题报.. 下一篇:基于多媒体技术的旅游信息演示与..
推荐论文 本专业最新论文
Tags:药品 库房 管理系统 开题 报告 答辩 PPT 外文 翻译 2010-04-22 08:50:42【返回顶部】
精彩推荐
发表论文

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


毕业论文网提供论文范文,论文代发,原创论文资料

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

Copyright@ 2009-2020 毕业论文网 版权所有