热心网友
回答时间:10小时前
打开数据库数据表,取内容到label,其它的是处理图片和窗体显示隐藏的。
Cmd_Str_Pri = "SELECT mdcid,mdcname,mdcprice FROM mdcinfo WHERE mdcid='" & mdcId & "'"
If Msg_Rec_Pri.State = 1 Then Msg_Rec_Pri.Close
Msg_Rec_Pri.Open Cmd_Str_Pri, Nf_Cnt_Pub, adOpenStatic, adLockReadOnly, adCmdText
sID_lbl.Caption = Trim(Msg_Rec_Pri!mdcId)
Sname_lbl.Caption = Trim(Msg_Rec_Pri!mdcname)
Sprice_lbl.Caption = Format(Msg_Rec_Pri!mdcprice, "#0.00")
Snum_lbl.Caption = "1"
收起