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