小型自行车管理信息系统

课程设计题目，做的比较简单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 adoquery1.Close; adoquery1.SQL.Clear ;