Question

delphi里代码连接数据库怎么连来着

Answer 1

请参阅以下代码（代码源于网络）：
var Alogo: TAlogo;implementationuses main;var username, password: string;{$R *.dfm}procedure TAlogo.BitBtn2Click(Sender: TObject);begin Alogo.Close;end;procedure TAlogo.BitBtn1Click(Sender: TObject);begin try with adoquery1 do begin Close; sql.clear; sql.add('select * from user_master where a=:a and b=:b '); parameters.ParamByName('a').Value := trim(combobox1.Text); parameters.ParamByName('b').Value := trim(edit1.Text); if combobox1.Text = '' then begin application.MessageBox('请输入用户名', '提示信息', 64); combobox1.SetFocus; exit; end; if edit1.Text = '' then begin application.MessageBox('请输入密码', '提示信息', 64); edit1.SetFocus; exit; end; open; end; if adoquery1.RecordCount <> 0 then begin username := combobox1.Text; password := edit1.Text; application.MessageBox('登陆成功', '提示信息', 64); amain.show; // 需要再建立一个form窗口用来作为登录正确后显示的窗体 self.Hide; end else application.MessageBox('输入的用户名或密码错误', '提示信息', 64); except application.MessageBox('登陆失败', '提示信息', 64); end;end;