我刚学DELPHI几天

来源：百度知道 编辑：UC知道 时间：2024/05/10 13:55:52
我刚学DELPHI几天
我想做个注册登陆的东西，就是登陆窗体
登陆窗体的TEXT输入，1个按纽连接数据库
注册帐号密码入数据库
各位教教我啊，用什么组件，代码怎么写
最好详细点，做出来了我再慢慢研究理论

delphi电子书下载,有很多的,你可以慢慢的来学习
http://www.ibook8.com/book/delphi.htm

一开始就学数据库，真牛

1.用户登录 ：如果权限为管理员打开form2窗体，如果权限为操作员打开form3窗体。
procedure TForm1.BitBtn1Click(Sender: TObject);
var asql:string;
begin
asql:='select * from users.db where name="'+combobox1.text+'"and passwords="'+edit1.Text+'"';
query1.sql.Text:=asql;
query1.Open;
if query1.RecordCount=0 then messagedlg('密码错误',mterror,[mbok],0)
else
begin
if query1.FieldByName('qx').AsString='管理员' then//qx为权限
begin
form3.Show; // 打开管理员窗体。
form1.Hide;
end
else
form9.show; //打开操作员窗体
form1.Hide;
end;
query1.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
with query1 do
begin
sql.Text:='select disti