求vb含义解释,大概就行rivate Sub Buy_Sub_Pri()Cmd_Str_Pri = "SELECT mdcid,mdcname,mdcprice FROM mdcinfo WHERE mdcid='" & mdcId & "'"If Msg_Rec_Pri.State = 1 Then Msg_Rec_Pri.CloseMsg_Rec_Pri.Open Cmd_Str_Pri,Nf_Cnt_Pub,adOpenStatic,adLockRead
来源:学生作业帮助网 编辑:六六作业网 时间:2024/08/31 18:34:35
求vb含义解释,大概就行rivate Sub Buy_Sub_Pri()Cmd_Str_Pri = "SELECT mdcid,mdcname,mdcprice FROM mdcinfo WHERE mdcid='" & mdcId & "'"If Msg_Rec_Pri.State = 1 Then Msg_Rec_Pri.CloseMsg_Rec_Pri.Open Cmd_Str_Pri,Nf_Cnt_Pub,adOpenStatic,adLockRead
求vb含义解释,大概就行
rivate Sub Buy_Sub_Pri()
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"
detail_pic.Visible = False
Show_Grd.Visible = False
Num_pic.Visible = True
End Sub
Private Sub Cancel_Img_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Cancel_Img.Picture = Me.Cancel_Iml.ListImages.Item(1).Picture
Num_pic.Visible = False
Detail_img.Enabled = True
Show_Grd.Visible = True
detail_pic.Visible = False
End Sub
Private Sub Close_Img_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
Close_Img.Picture = Me.Close_Iml.ListImages.Item(1).Picture
id_lbl.Caption = ""
name_lbl.Caption = ""
avail_lbl.Caption = ""
usage_lbl.Caption = ""
notice_lbl.Caption = ""
price_lbl.Caption = ""
Detail_img.Enabled = True
Show_Grd.Visible = True
detail_pic.Visible = False
End Sub
求vb含义解释,大概就行rivate Sub Buy_Sub_Pri()Cmd_Str_Pri = "SELECT mdcid,mdcname,mdcprice FROM mdcinfo WHERE mdcid='" & mdcId & "'"If Msg_Rec_Pri.State = 1 Then Msg_Rec_Pri.CloseMsg_Rec_Pri.Open Cmd_Str_Pri,Nf_Cnt_Pub,adOpenStatic,adLockRead
打开数据库数据表,取内容到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"