ado.txt

来自「校园GIS系统——介绍校园个部门」· 文本 代码 · 共 44 行

procedure TForm1.FormCreate(Sender: TObject);
var
UserName:string;
begin

   ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'+
                          'Data Source=F:\My Documents\031\GISinfo.mdb;'+
                                 'Persist Security Info=False';

   ADOConnection1.Connected:=true;
   ADODataSet1.Close;
   ADODataSet1.CommandText:='select * from UseInfo';
   ADODataSet1.Open;

   while not ADODataSet1.Eof  do
    begin
     UserName:=ADODataSet1.fields.fieldByName('UseName').value;
      ComboBox1.Items.Add(UserName);

      ADODataSet1.Next;
    end;

end;


procedure TForm1.Button1Click(Sender: TObject);
var
Sql:string;
begin
  Sql:='Select * From UseInfo Where UseName = :sUserName And Password = :sPassword';
  ADODataSet1.Close;

  ADODataSet1.Parameters.ParamByName('sUserName').value:= ComboBox1.Text;
  ADODataSet1.Parameters.ParamByName('sPassword').value:= edit1.Text;
  ADODataSet1.CommandText:=Sql;
  ADODataSet1.Open;
  showmessage(Sql);
  if ADODataSet1.RecordCount > 0 then
    showmessage('accesse');
ADOConnection1.close;
  end;

end.