unit6.pas

基于ORACLE的数据库操作系统！！能实现对数据的查询

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, DBCtrls, StdCtrls, Grids, DBGrids, ComCtrls,
  TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Button1: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    DataSource2: TDataSource;
    Table1: TTable;
    DBGrid2: TDBGrid;
    ProgressBar1: TProgressBar;
    DBChart1: TDBChart;
    Series2: TBarSeries;
    Button2: TButton;
    DBChart2: TDBChart;
    Series1: TBarSeries;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Button1Click(Sender: TObject);
 var
 i:integer;
begin
Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add('select * from hfxview2 ')   ;
   Query1.SQL.Add('where 车次号='''+DBLookupComboBox1.Text+'''');
  //ProgressBar1.Min:=0;
  for i:=0 to 10 do
  begin
  //ProgressBar1.
 ProgressBar1.Step:=20;
 ProgressBar1.Min:=0;
 ProgressBar1.Max:=20;
//ProgressBar1.Smooth:=True;
ProgressBar1.StepIt;
sleep(50);
//ProgressBar1.Position:=0;
end;



 //sleep(10);
   //showmessage(Query1.SQL.Text);
   Query1.Prepare;
   Query1.Open;
   Query1.Active:=true;
    ProgressBar1.Position:=0;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
if messagedlg('洪福鑫提醒您：确认退出？',mtconfirmation,[mbYes,mbNo],0)=mryes
then close;
end;

end.