你是我de一切的个人资料 - RAT

你是我de一切你是我de一切

关注数: 58 粉丝数: 17 发帖数: 441 关注贴吧数: 8

谁能帮帮我啊，急急急登陆界面的“确定”按钮的代码（delphi+SQl2000）下面是我的代码，求大神指教 var Form_login: TForm_login; dl,p : integer; yhmc,kind : string;a : array[1..31] of string implementation {$R *.dfm} procedure TForm_login.Button2Click(Sender: TObject); begin application.Terminate;end; procedure TForm_login.Button1Click(Sender: TObject); var P:INTEGER; begin with database.ADOu do begin close; sql.Clear; sql.Add('select * from Users where UserId=：a and PWD=:b and UserRole=:c '); parameters.ParamByName('a').Value:=Trim(edit1.Text); parameters.ParamByName('b').Value:=Trim(edit3.Text); parameters.ParamByName('c').Value:=Trim(combobox1.Text); open; end; if database.ADOu.RecordCount>0 then begin yhmc := database.ADOu.fieldbyname('UserID').AsString; kind := database.ADOu.fieldbyname('UserRole').AsString; if kind =='管理员' then Form_guanliyuan.ShowModal if kind =='教师' then Form_teacher.ShowModal if kind =='学生' then Form_student.ShowModal else showmessage('用户名称、密码或用户类型不正确'+#13+'请重新输入。') if jj = 1 then begin showmessage('用户名称、密码或用户类型不正确'+#13+'请重新输入。'); edit1.Clear; edit3.Clear; combobox1.Text := ''; dl := dl+1; end; else begin if dl = 4 then begin application.Terminate; end; end;end;

好久没来了，听说有人的学费刚打进去就被扣了，想知道的来瞧瞧听说有人的学费刚打进去就被扣了。这是什么原因呢？答案会在楼下揭晓

1 下一页