delphi 7+oracle,delphi 7 联接oracle9 源码

【实例简介】

delphi 7 联接oracle9 源码

【实例截图】

【核心代码】

procedure TForm1.Button1Click(Sender: TObject);

var

sqlstr: string;

sqlstr2: string;

i, j: Integer;

k: Integer;

begin

try

OraSession1.Options.Net := True;

OraSession1.Username := trim(user_Global);

OraSession1.Password := trim(password_Global);

OraSession1.Server := trim(server_Global);

OraSession1.Connect;

except

barMessage.Panels[1].Text := '       断开';

exit;

end;

barMessage.Panels[1].Text := '       正常';

{

DISTINCT train as 车次,id as 工号,name as 姓名,room as 房间,actin as 入寓时间,'

'actout as 出寓时间,seat as 床位,worksite as 地点 '

'

}

sqlstr := ' select  room,name from s_standbytime  where  nvl2(actout,0,1)=1   '

'    and  worksite = ' QuotedStr(caption_Global)

' and dat between to_date('

QuotedStr(DateToStr(Date() - 1)) ',' QuotedStr('yyyy-mm-dd') ') and to_date('

QuotedStr(DateToStr(Date())) ',' QuotedStr('yyyy-mm-dd') ') order by room,seat';

OraQuery1.sql.clear;

OraQuery1.sql.add(sqlstr);

OraQuery1.Active := True;

sqlstr2 := 'select DISTINCT room from S_room  where worksite= ' QuotedStr(caption_Global);

OraQuery2.sql.clear;

OraQuery2.sql.add(sqlstr2);

OraQuery2.Active := True;

if (h_int = 8) and (OraQuery2.RecordCount <> 8) then begin

h_int := OraQuery2.RecordCount div 5 1;

Timer_h.Enabled := True;

end;

for i := 0 to ComponentCount - 1 do

begin

if Components[i] is TStaticText then

if TStaticText(Components[i]).Caption = 'StaticText1' then

TStaticText(Components[i]).Caption := '';

if Components[i] is TLabel then

TLabel(Components[i]).Caption := '';

if Components[i] is TPanel then

if TPanel(Components[i]).Color <> clSkyBlue then

TPanel(Components[i]).Color := clLime;

end;

OraQuery2.First;

k := 1;

while not OraQuery2.Eof do begin

for i := 0 to ComponentCount - 1 do

begin

if Components[i] is TStaticText then

begin

if TStaticText(Components[i]).Parent.Tag = k then begin

if TStaticText(Components[i]).Caption = '' then begin

TStaticText(Components[i]).Caption := trim(OraQuery2.FieldList[0].AsString);

TStaticText(Components[i]).Tag := k;

TStaticText(Components[i]).Font.Color := clBlack;

TStaticText(Components[i]).Font.Style := [fsBold];

TStaticText(Components[i]).Font.Name := '隶书';

TStaticText(Components[i]).Font.Size := 42;

TStaticText(Components[i]).Alignment := taLeftJustify;

TStaticText(Components[i]).Left := 15;

TStaticText(Components[i]).top := 15;

TStaticText(Components[i]).AutoSize := True;

end;

end;

end;

if Components[i] is TLabel then

begin

if TLabel(Components[i]).Parent.Tag = k then begin

TLabel(Components[i]).Tag := k;

TLabel(Components[i]).Caption := '';

TLabel(Components[i]).Font.Color := clBlack;

TLabel(Components[i]).Font.Style := [];

TLabel(Components[i]).Font.Size := 18;

TLabel(Components[i]).Left := TStaticText(Components[i]).Parent.Width div 2;

TLabel(Components[i]).top := TStaticText(Components[i]).Parent.Height div 3;

TLabel(Components[i]).AutoSize := True;

end; end;

end;

k := k 1;

OraQuery2.Next;

end;

OraQuery1.First;

while not OraQuery1.Eof do begin

for i := 0 to ComponentCount - 1 do

begin

k := 0;

if Components[i] is TStaticText then begin

if TStaticText(Components[i]).Caption = trim(OraQuery1.FieldList[0].AsString) then begin

k := TStaticText(Components[i]).Tag;

end;

end;

for j := 0 to ComponentCount - 1 do

begin

if Components[j] is TLabel then

begin

if (TLabel(Components[j]).Tag = k) and (k > 0) then

if TLabel(Components[j]).Caption <> trim(OraQuery1.FieldList[1].AsString) then

if TLabel(Components[j]).Caption = '' then

TLabel(Components[j]).Caption := trim(OraQuery1.FieldList[1].AsString)

else

TLabel(Components[j]).Caption := TLabel(Components[j]).Caption #13 trim(OraQuery1.FieldList[1].AsString);

end;

if Components[j] is TPanel then

begin

if (TPanel(Components[j]).Tag = k) and (k > 0) then

TPanel(Components[j]).Color := clFuchsia;

end;

end;

end;

OraQuery1.Next;

end;

end;