• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

等待提示窗口_sqlserver

sqlserver 搞代码 3年前 (2018-06-16) 96次浏览 已收录 0个评论

*// 使用:
*// WaitWindows(“这是一个提示”)
*// 可以反复调用,如WaitWindows(“这是提示1”)、WaitWindows(“这是提示2”)

*// 清除:

http://www.gaodaima.com/35678.html等待提示窗口_sqlserver

*// WaitWindows()

*//——————————
*//   登待窗口
*//——————————
FUNCTION WaitWindows
PARAMETERS PP_INFO

IF EMPTY(PP_INFO)
 RELEASE Sys_Message_Wait
 RETURN
ENDIF

PUBLIC LP_INIFO
LP_INFO = PP_INFO

PUBLIC Sys_Message_Wait
Sys_Message_Wait=CREATEOBJECT(“mess_form”)
Sys_Message_Wait.Show()

INKEY(0.1,”H”)
RETURN
**************************************************
DEFINE CLASS mess_form AS form
 Height = 64
 Width = 480
 DoCreate = .T.
 Caption = “”
 ControlBox = .F.
 Closable = .F.
 FontSize = 11
 MaxButton = .F.
 MinButton = .F.
 Movable = .F.
 BorderStyle = 2
 BackColor = RGB(255,255,240)
 Name = “MESS_FORM”

 ADD OBJECT con AS container WITH ;
  Top = 0, ;
  Left = 0, ;
  Width = 480, ;
  Height = 64, ;
  SpecialEffect = 1, ;
  BackColor = RGB(255,255,240), ;
  Name = “CON”

 ADD OBJECT image1 AS image WITH ;
  BackStyle = 0, ;
  Height = 39, ;
  Left = 31, ;
  Top = 14, ;
  Width = 47, ;
  Name = “Image1”

 ADD OBJECT label1 AS label WITH ;
  AutoSize = .T., ;
  FontSize = 11, ;
  BackStyle = 0, ;
  BorderStyle = 0, ;
  Caption = “”, ;
  Height = 19, ;
  Left = 104, ;
  Top = 24, ;
  Width = 322, ;
  Name = “Label1”

 PROCEDURE Init
  LC_INFO = “提示信息!”
  IF !EMPTY(LP_INFO)
   LC_INFO = LP_INFO
  ENDIF
  THISFORM.CON.WIDTH = THISFORM.TEXTWIDTH(LC_INFO)+140
  THISFORM.WIDTH = THISFORM.TEXTWIDTH(LC_INFO)+140
  THISFORM.AUTOCENTER = .T.
  THISFORM.LABEL1.CAPTION = LC_INFO
  THISFORM.IMAGE1.PICTURE = “WAIT.BMP”
  THISFORM.REFRESH()
 ENDPROC
ENDDEFINE

欢迎大家阅读《等待提示窗口_sqlserver,跪求各位点评,若觉得好的话请收藏本文,by 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址