home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / s_to_z / tu / batchdlg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  2.6 KB  |  99 lines
  1. unit Batchdlg;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, DB, DBTables, ExtCtrls, DBCtrls, Dialogs, Mask;
  7.  
  8. type
  9.   TFormBatchDef = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     Bevel1: TBevel;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Label5: TLabel;
  16.     Label6: TLabel;
  17.     DBNavigator1: TDBNavigator;
  18.     TableBatch: TTable;
  19.     DataSourceBatch: TDataSource;
  20.     DBEditTableName: TDBEdit;
  21.     DBEditBackup: TDBEdit;
  22.     DBEditAltStruct: TDBEdit;
  23.     DBEditKeyVTable: TDBEdit;
  24.     DBEditProbTable: TDBEdit;
  25.     OpenDialog1: TOpenDialog;
  26.     SpeedTable: TSpeedButton;
  27.     SpeedBackup: TSpeedButton;
  28.     SpeedAltStr: TSpeedButton;
  29.     SpeedKeyV: TSpeedButton;
  30.     SpeedProbs: TSpeedButton;
  31.     TableBatchTableName      : TStringField;
  32.     TableBatchBackUpName     : TStringField;
  33.     TableBatchAltStructName  : TStringField;
  34.     TableBatchKeyVTableName  : TStringField;
  35.     TableBatchProbTableName  : TStringField;
  36.     procedure SpeedTableClick(Sender: TObject);
  37.     procedure OKBtnClick(Sender: TObject);
  38.     procedure FormActivate(Sender: TObject);
  39.   private
  40.     { Private declarations }
  41.   public
  42.     { Public declarations }
  43.   end;
  44.  
  45. var
  46.   FormBatchDef: TFormBatchDef;
  47.  
  48. implementation
  49.  
  50. {$R *.DFM}
  51.  
  52. procedure TFormBatchDef.SpeedTableClick(Sender: TObject);
  53. begin
  54.   begin
  55.     if      Sender = SpeedTable  then
  56.     begin
  57.       OpenDialog1.Title := 'Select Table';
  58.       if OpenDialog1.Execute then
  59.         DBEditTableName.field.AsString := OpenDialog1.Filename;
  60.     end
  61.     else if Sender = SpeedBackup then
  62.     begin
  63.       OpenDialog1.Title := 'Select Backup Table';
  64.       if OpenDialog1.Execute then
  65.         DBEditBackup   .field.AsString := OpenDialog1.Filename;
  66.     end
  67.     else if Sender = SpeedAltStr then
  68.     begin
  69.       OpenDialog1.Title := 'Select Alternate Structure Table';
  70.       if OpenDialog1.Execute then
  71.         DBEditAltStruct.field.AsString := OpenDialog1.Filename;
  72.     end
  73.     else if Sender = SpeedKeyV   then
  74.     begin
  75.       OpenDialog1.Title := 'Select Key Violation Table';
  76.       if OpenDialog1.Execute then
  77.         DBEditKeyVTable.field.AsString := OpenDialog1.Filename;
  78.     end
  79.     else if Sender = SpeedProbs  then
  80.     begin
  81.       OpenDialog1.Title := 'Select Problems Table';
  82.       if OpenDialog1.Execute then
  83.         DBEditProbTable.field.AsString := OpenDialog1.Filename;
  84.     end
  85.   end;
  86. end;
  87.  
  88. procedure TFormBatchDef.OKBtnClick(Sender: TObject);
  89. begin
  90.   Close;
  91. end;
  92.  
  93. procedure TFormBatchDef.FormActivate(Sender: TObject);
  94. begin
  95.   TableBatch.Active := True;
  96. end;
  97.  
  98. end.
  99.