2,497
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.FormCreate(Sender: TObject);
begin
pass:='manager';
user:='system';
servername:='absdate';
mycon:='Provider=MSDAORA.1;Password= '+pass+ ';User ID= '+user+ ';Persist Security Info=True; '+ 'Data Source= '+servername;
con1.ConnectionString:=mycon;
con1.Connected:=true;
if con1.Connected then
begin
qry1.Close;
qry1.SQL.Clear;
qry1.SQL.Text:='select * from MZCS';
qry1.Open;
end;
end;