Question

用vfp怎么制作表单scx？麻烦写一下程序，要考试了，不会做啊、、、急急急啊

Answer 1

不好意思，刚才没看清要求，发错了,写到PRG里就OK了
Public frm
frm = CreateObject ("Tform")
frm.Visible = .T.
Define CLASS Tform As Form
#Define badgeDiameter 264
#Define topMargin 4
#Define leftMargin 2
Add OBJECT lbl As Label WITH;
Caption="用户名:", FontName="Arial", FontSize=14,;
Bold=.T., Forecolor=Rgb(0,0,255), BackStyle=0,;
Alignment=2, Left=20, Width=100, Top=105, Height=25
Add OBJECT txt As TextBox WITH;
Width=100, Height=24, Left=100, Top=105
Add OBJECT lbl1 As Label WITH;
Caption="口令:", FontName="Arial", FontSize=14,;
Bold=.T., Forecolor=Rgb(0,0,255), BackStyle=0,;
Alignment=2, Left=20, Width=100, Top=135, Height=25
Add OBJECT txt1 As TextBox WITH;
Width=100, Height=24, Left=100, Top=135,;
PasswordChar="*"
Add OBJECT cmd As CommandButton WITH;
Width=60, Height=25, Left=104, Top=165,;
Caption="确 定", Default=.T.
Procedure cmd.Click
if thisform.txt.value#'123' and thisform.txt1.value#'456'
if messagebox("用户名或密码有误，请重新输入！",36,'警告')=6
thisform.txt.setfocus
retu
endif
endif
thisform.release
Endproc

Width = 300
Height = 350
AutoCenter = .t.
AlwaysOnTop= .t.
BorderStyle= 2
ShowWindow = 2
WindowType = 1
Caption = "表单名"
mouseX = 0
mouseY = 0
hRgn=0

Answer 2

菜单：文件--新建--表单--新建文件
命令：modi form 表单名

追问

做登陆的界面表单啊，好像不是这么简单的
不是建表
是做登录的程序

追答

看你这问题提的，不直接说清楚

登入表单不复杂，做如下的表单，在确定-click里写入

if  thisform.text1.value<>'123' or thisform.text2.value<>'456'

 if messagebox("用户名或密码有误，请重新输入！",36,“警告”)=6

    thisform.text1.setfocus

    retu

 endif

endif

thisform.release

do form 你的主表单

“退出”click里写入

   thisform.release

按下图做表单

 

追问

虽然有些晚了，已经考完了、、答案也没用上，不过，还是谢谢了