function GetDelimiteredStringN(Astring:String;Dlmter:Char;nPos:integer):string; var sList:TStringList; begin Result:=''; sList:=TStringList.Create; sList.Text:=StringReplace(Astring,Dlmter,#13#10,[rfReplaceAll]); if (nPos>0) and (sList.Count>=
课程设计题目,做的比较简单procedure TForm1.Button2Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text='' then showmessage('请输入用户名') else if edit2.Text='' then showmessage('请输入密码') else begin adoquer
实验室设备管理系统 1.用户登陆界面代码 procedure TForm1.Button1Click(Sender: TObject); var u,p:string; //temp:string; begin u:=edit1.Text; p:=edit2.Text; if(u='')then begin showmessage('用户名不允许为空!'); edit1.SetFocus;
系统管理 procedure TfrmAdm.Button1Click(Sender: TObject); begin with DM.ADOQuery1 do begin Close; SQL.Clear; SQL.Add('select * from 用户 where 姓名=:username and 密码=:pass and 类型=:GLY'); Parameters.ParamByName('username').Value := Edit1.Text; Parameters.Para