说明: Delphi界面简单设计procedure Tyonghudenglu.BitBtn1Click(Sender: TObject); var sa:string; begin //先判断是否为空; if Edit1.Text='' then begin messagebox(yonghudenglu.Handle,'请输入用户名','警告',mb_ok+mb_iconwarning) end; if Edit2.Text='' then begin messagebox(yonghudengl
<a340611953> 上传 | 大小:2kb