原创文档范文 → 计算机专业原创文档范文 软件技术专业原创文档范文 现成文档范文 → 计算机文档范文

药品库房管理系统+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..

药品库房管理系统+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外文翻译(八)......


上一篇：学生信息管理系统+VB代码+开题报..	下一篇：基于多媒体技术的旅游信息演示与..

点击查看关于 药品库房管理系统开题报告答辩 PPT 外文翻译 的相关范文题目

【返回顶部】