home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / Runimage / Delphi50 / Demos / Frames / Db / FRMMAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-08-11  |  1.2 KB  |  58 lines
  1. unit FrmMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, FrmData, FrmMD;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     MDFrame: TMasterDetailFrame;
  12.     SimpleFrame: TDataFrame;
  13.     Splitter1: TSplitter;
  14.     procedure FormCreate(Sender: TObject);
  15.   private
  16.     { Private declarations }
  17.   public
  18.     { Public declarations }
  19.   end;
  20.  
  21. var
  22.   Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TForm1.FormCreate(Sender: TObject);
  29. begin
  30.   with SimpleFrame, Table1 do begin
  31.     TableName := 'Biolife';
  32.     with FancyFrame1 do begin
  33.       DBMemo1.DataSource := DataSource1;
  34.       DBMemo1.DataField := 'Notes';
  35.       DBImage1.DataSource := DataSource1;
  36.       DBImage1.DataField := 'Graphic';
  37.     end;
  38.     Open;
  39.   end;
  40.   with MDFrame do begin
  41.     with MasterFrame, Table1 do begin
  42.       FancyFrame1.Free;
  43.       TableName := 'Customer';
  44.       Open;
  45.     end;
  46.     with DetailFrame, Table1 do begin
  47.       FancyFrame1.Free;
  48.       MasterSource := MasterFrame.DataSource1;
  49.       MasterFields := 'CustNo';
  50.       IndexName := 'CustNo';
  51.       TableName := 'Orders';
  52.       Open;
  53.     end;
  54.   end;
  55. end;
  56.  
  57. end.
  58.