main.pas

ODAC 5.7.0.28

unit Main;

interface

uses
{$IFDEF LINUX}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QComCtrls, QExtCtrls, QGrids, QDBGrids, OdacClx,
{$ELSE}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, OdacVcl,
{$ENDIF}
  Db, DBAccess, Ora, MemDS;

type
  TfmMain = class(TForm)
    OraSession: TOraSession;
    OraQuery: TOraQuery;
    DataSource: TDataSource;
    DBGrid1: TDBGrid;
    DBMemo: TDBMemo;
    ToolBar: TPanel;
    btOpen: TButton;
    btClose: TButton;
    DBNavigator: TDBNavigator;
    btnCreate: TButton;
    btnDrop: TButton;
    Splitter1: TSplitter;
    DBGrid: TDBGrid;
    sqCreate: TOraSQL;
    sqDrop: TOraSQL;
    ConnectDialog: TConnectDialog;
    ToolBar1: TPanel;
    btSetFile: TButton;
    FileName: TLabel;
    Label1: TLabel;
    edFileDir: TEdit;
    edFileName: TEdit;
    OraQueryCODE: TFloatField;
    OraQueryTITLE: TStringField;
    OraQueryVALUE: TBFileField;
    OraQueryFileName: TStringField;
    btRefresh: TButton;
    edDirName: TEdit;
    btCreateDirectory: TButton;
    Label2: TLabel;
    edDirectory: TEdit;
    quCreateDir: TOraQuery;
    OpenDialog: TOpenDialog;
    SaveDialog: TSaveDialog;
    cbDebug: TCheckBox;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btnCreateClick(Sender: TObject);
    procedure btnDropClick(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
    procedure btFindClick(Sender: TObject);
    procedure btSetFileClick(Sender: TObject);
    procedure OraQueryCalcFields(DataSet: TDataSet);
    procedure OraQueryAfterScroll(DataSet: TDataSet);
    procedure DBGridDrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure btRefreshClick(Sender: TObject);
    procedure btCreateDirectoryClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation
uses
  OraClasses;

{$R *.nfm}

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  OraQuery.Open;
end;

procedure TfmMain.btCloseClick(Sender: TObject);
begin
  OraQuery.Close;
end;

procedure TfmMain.btnCreateClick(Sender: TObject);
begin
 sqCreate.Execute;
end;

procedure TfmMain.btnDropClick(Sender: TObject);
begin
  sqDrop.Execute;
end;

procedure TfmMain.DataSourceDataChange(Sender: TObject; Field: TField);
begin
  edFileDir.Text:= TBFileField(OraQuery.FieldByName('Value')).FileDir;
  edFileName.Text:= TBFileField(OraQuery.FieldByName('Value')).FileName;
end;

procedure TfmMain.btFindClick(Sender: TObject);
begin
  if OpenDialog.Execute then
    edFileName.Text:= ExtractFileName(OpenDialog.FileName);
end;

procedure TfmMain.btSetFileClick(Sender: TObject);
begin
  if not (OraQuery.State in [dsEdit,dsInsert]) then
    OraQuery.Edit;
  TBFileField(OraQuery.FieldByName('Value')).FileDir:= edFileDir.Text;
  TBFileField(OraQuery.FieldByName('Value')).FileName:= edFileName.Text;
end;

procedure TfmMain.OraQueryCalcFields(DataSet: TDataSet);
var
  St:string;
begin
  St:= TBFileField(DataSet.FieldByName('Value')).FileDir + ':' +
    TBFileField(DataSet.FieldByName('Value')).FileName;
  if not TBFileField(DataSet.FieldByName('Value')).Exists then
    St:= St + '  (NoExist)';
  DataSet.FieldByName('FileName').AsString:= St;
end;

procedure TfmMain.OraQueryAfterScroll(DataSet: TDataSet);
begin
  edFileDir.Text:= TBFileField(OraQuery.FieldByName('Value')).FileDir;
  edFileName.Text:= TBFileField(OraQuery.FieldByName('Value')).FileName;
end;

procedure TfmMain.DBGridDrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
 with Sender as TDBGrid do begin
   if gdFocused in State then
     Canvas.Brush.Color:= clHighlight
   else
     if (Field = OraQuery.FieldByName('FileName')) and (not TBFileField(OraQuery.FieldByName('Value')).Exists)
     then
       Canvas.Brush.Color := clAqua;

   Canvas.FillRect(Rect);
   Canvas.TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Field.DisplayText);

   if gdFocused in State then
     Canvas.DrawFocusRect(Rect);
 end;
end;

procedure TfmMain.btRefreshClick(Sender: TObject);
begin
  TBFileField(OraQuery.FieldByName('Value')).Refresh;
end;

procedure TfmMain.btCreateDirectoryClick(Sender: TObject);
begin
  quCreateDir.MacroByName('Name').Value:= edDirName.Text;
  quCreateDir.MacroByName('Dir').AsString:= edDirectory.Text;

  quCreateDir.Execute;
end;

procedure TfmMain.FormShow(Sender: TObject);
begin
  cbDebug.Checked := OraQuery.Debug;
end;

procedure TfmMain.cbDebugClick(Sender: TObject);
begin
  OraQuery.Debug := cbDebug.Checked;
  sqCreate.Debug := cbDebug.Checked;
  sqDrop.Debug := cbDebug.Checked;
  quCreateDir.Debug := cbDebug.Checked;
end;

end.