unit1.pas

oracle基础知识讲义

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, Grids, DBGrids, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Memo1: TMemo;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MyList:TListBox;
  fpath:string;
  count:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
  if opendialog1.Execute then
  begin
    Table1.TableName:=Opendialog1.FileName;
    fpath:=extractfilepath(Opendialog1.FileName);
    Datasource1.DataSet:=Table1;
    Table1.Open;
  end;
  except
    showmessage('Can not open file!');
  end;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if memo1.Lines.Text<>'' then
  begin
    try
    Datasource1.DataSet:=Query1;
    with Query1 do
    begin
      close;
      SQL.Clear;
      DatabaseName:=fpath;
      SQL.Add(memo1.Lines.Text);
      Prepare;
      Datasource1.DataSet:=Query1;
      if pos('select',memo1.Lines.Text)<>0 then
      open else
      ExecSQL;
    end;
    DBGrid1.Refresh;
    except
    showmessage('执行错误查询');
    end;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if count=0 then
    button2.Enabled:=False else
    begin
      MyList.Items.Strings[count]:=Memo1.Lines.Text;
      Memo1.Clear;
      Memo1.SetFocus;
      count:=count-1;
      Memo1.Lines.Text:=MyList.Items.Strings[count];
    end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Button2.Enabled:=True;
  if (Memo1.Lines.Text<>'') then
  begin
    MyList.Items.Strings[count]:=Memo1.Lines.Text;
    Memo1.Clear;
    Memo1.SetFocus;
    count:=count+1;
    if count=MyList.Items.Count then
      MyList.Items.Add('');
    Memo1.Lines.Text:=MyList.Items.Strings[count];
  end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  MyList:=TListBox.Create(Self);
  MyList.Parent:=Self;
  MyList.Hide;
  count:=0;
  Memo1.Clear;
end;

end.