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

药品库房管理系统+VB开题报告答辩PPT外文翻译(十)     Text18.Text = .Recordset.Fields(2)
    Text18.Locked = True
    Label23.ForeColor = &HFF&
    Label23.Caption = "已经找到[" & Text1.Text & "]这个代码!"
    With Adodc1
    .RecordSource = "select * from " & frmmain.datas & " where 编号='" & Text1.Text & "'"
    .Refresh
    If .Recordset.AbsolutePosition <> adPosUnknown Then
        Command1.Enabled = False
        If .Recordset.Fields("数量") > 0 Then
            Command2.Enabled = False
            Combo1.Text = ""
            Text3.Text = ""
            Text4.Text = ""
            Text5.Text = ""
            Text6.Text = ""
            Text7.Text = ""
            Text17.Text = "请填写备注"
            MsgBox "该药品或器械库存结余，不能继续入库！"
            Text1.Locked = False
            Text18.Locked = False
            Text18.Text = ""
            Text1.Text = ""
        Else
            Label23.ForeColor = &HFF0000
            Label23.Caption = "库存[" & Text18.Text & "]已空,请增加库存量!"
            Combo1.Locked = True
            Command2.Enabled = True
            Text4.Locked = True
            Text5.Locked = True
            Text2.Text = .Recordset.Fields("规格")
            Combo1.Text = .Recordset.Fields("单位")
            Text3.Text = .Recordset.Fields("数量")
            Text4.Text = .Recordset.Fields("进价")
            Text5.Text = .Recordset.Fields("零售价")
            Text6.Text = .Recordset.Fields("产地")
            Text7.Text = .Recordset

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