Б2. Пример №2
Progect2.dpr:
program Project2;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Unit1.pas:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
end.
Unit1.dfm:
object Form1: TForm1
Left = 528
Top = 417
Width = 928
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
End
Unit2.dfm:
object Form2: TForm2
Left = 203
Top = 118
Width = 487
Height = 376
ActiveControl = Panel1
Caption = 'Form2'
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 471
Height = 33
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object DBNavigator: TDBNavigator
Left = 8
Top = 4
Width = 240
Height = 25
DataSource = DataSource1
Flat = True
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
end
end
object Panel2: TPanel
Left = 0
Top = 33
Width = 471
Height = 152
Align = alTop
BevelOuter = bvNone
BorderWidth = 4
Caption = 'Panel2'
TabOrder = 1
object ScrollBox: TScrollBox
Left = 4
Top = 4
Width = 463
Height = 144
HorzScrollBar.Margin = 6
HorzScrollBar.Range = 376
VertScrollBar.Margin = 6
VertScrollBar.Range = 126
Align = alClient
AutoScroll = False
BorderStyle = bsNone
TabOrder = 0
object Label1: TLabel
Left = 6
Top = 6
Width = 42
Height = 13
Caption = 'EventNo'
FocusControl = EditEventNo
end
object Label2: TLabel
Left = 67
Top = 6
Width = 45
Height = 13
Caption = 'VenueNo'
FocusControl = EditVenueNo
end
object Label3: TLabel
Left = 128
Top = 6
Width = 62
Height = 13
Caption = 'Event_Name'
FocusControl = EditEvent_Name
end
object Label4: TLabel
Left = 299
Top = 6
Width = 57
Height = 13
Caption = 'Event_Date'
FocusControl = EditEvent_Date
end
object Label5: TLabel
Left = 6
Top = 44
Width = 57
Height = 13
Caption = 'Event_Time'
FocusControl = EditEvent_Time
end
object Label6: TLabel
Left = 82
Top = 44
Width = 87
Height = 13
Caption = 'Event_Description'
FocusControl = EditEvent_Description
end
object Label7: TLabel
Left = 6
Top = 82
Width = 59
Height = 13
Caption = 'Ticket_price'
FocusControl = EditTicket_price
end
object Label8: TLabel
Left = 77
Top = 82
Width = 62
Height = 13
Caption = 'Event_Photo'
FocusControl = EditEvent_Photo
end
object EditEventNo: TDBEdit
Left = 6
Top = 21
Width = 55
Height = 21
DataField = 'EventNo'
DataSource = DataSource1
TabOrder = 0
end
object EditVenueNo: TDBEdit
Left = 67
Top = 21
Width = 55
Height = 21
DataField = 'VenueNo'
DataSource = DataSource1
TabOrder = 1
end
object EditEvent_Name: TDBEdit
Left = 128
Top = 21
Width = 165
Height = 21
DataField = 'Event_Name'
DataSource = DataSource1
TabOrder = 2
end
object EditEvent_Date: TDBEdit
Left = 299
Top = 21
Width = 65
Height = 21
DataField = 'Event_Date'
DataSource = DataSource1
TabOrder = 3
end
object EditEvent_Time: TDBEdit
Left = 6
Top = 59
Width = 70
Height = 21
DataField = 'Event_Time'
DataSource = DataSource1
TabOrder = 4
end
object EditEvent_Description: TDBEdit
Left = 82
Top = 59
Width = 288
Height = 21
DataField = 'Event_Description'
DataSource = DataSource1
TabOrder = 5
end
object EditTicket_price: TDBEdit
Left = 6
Top = 97
Width = 65
Height = 21
DataField = 'Ticket_price'
DataSource = DataSource1
TabOrder = 6
end
object EditEvent_Photo: TDBEdit
Left = 77
Top = 97
Width = 20
Height = 21
DataField = 'Event_Photo'
DataSource = DataSource1
TabOrder = 7
end
end
end
object Panel3: TPanel
Left = 0
Top = 185
Width = 471
Height = 153
Align = alClient
BevelOuter = bvNone
Caption = 'Panel3'
TabOrder = 2
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 471
Height = 153
Align = alClient
DataSource = DataSource2
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
end
object Query1: TQuery
DatabaseName = 'DBDEMOS'
SQL.Strings = (
'Select'
' events."EventNo",'
' events."VenueNo",'
' events."Event_Name",'
' events."Event_Date",'
' events."Event_Time",'
' events."Event_Description",'
' events."Ticket_price",'
' events."Event_Photo"'
'From "events.db"'
'As events')
Left = 361
Top = 3
object Query1EventNo: TIntegerField
FieldName = 'EventNo'
end
object Query1VenueNo: TIntegerField
FieldName = 'VenueNo'
end
object Query1Event_Name: TStringField
FieldName = 'Event_Name'
Size = 30
end
object Query1Event_Date: TDateField
FieldName = 'Event_Date'
end
object Query1Event_Time: TTimeField
FieldName = 'Event_Time'
end
object Query1Event_Description: TMemoField
FieldName = 'Event_Description'
BlobType = ftMemo
Size = 100
end
object Query1Ticket_price: TCurrencyField
FieldName = 'Ticket_price'
end
object Query1Event_Photo: TGraphicField
FieldName = 'Event_Photo'
BlobType = ftGraphic
end
end
object Query2: TQuery
DatabaseName = 'DBDEMOS'
DataSource = DataSource1
SQL.Strings = (
'Select'
' venues."VenueNo",'
' venues."Venue",'
' venues."Capacity",'
' venues."Venue_Map",'
' venues."Remarks"'
'From "venues.db"'
'As venues'
'Where'
' "venues"."VenueNo" =:"VenueNo"')
Left = 417
Top = 3
ParamData = <
item
DataType = ftInteger
Name = 'VenueNo'
ParamType = ptUnknown
Size = 4
end>
object Query2VenueNo: TIntegerField
FieldName = 'VenueNo'
end
object Query2Venue: TStringField
FieldName = 'Venue'
Size = 30
end
object Query2Capacity: TIntegerField
FieldName = 'Capacity'
end
object Query2Venue_Map: TGraphicField
FieldName = 'Venue_Map'
BlobType = ftGraphic
end
object Query2Remarks: TMemoField
FieldName = 'Remarks'
BlobType = ftMemo
Size = 80
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 389
Top = 3
end
object DataSource2: TDataSource
DataSet = Query2
Left = 445
Top = 3
end
Unit2.pas
unit Unit2;
interface
uses
Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
Dialogs, DBCtrls, DB, DBGrids, DBTables, Grids, Mask, ExtCtrls;
type
TForm2 = class(TForm)
Query1EventNo: TIntegerField;
Query1VenueNo: TIntegerField;
Query1Event_Name: TStringField;
Query1Event_Date: TDateField;
Query1Event_Time: TTimeField;
Query1Event_Description: TMemoField;
Query1Ticket_price: TCurrencyField;
Query1Event_Photo: TGraphicField;
Query2VenueNo: TIntegerField;
Query2Venue: TStringField;
Query2Capacity: TIntegerField;
Query2Venue_Map: TGraphicField;
Query2Remarks: TMemoField;
ScrollBox: TScrollBox;
Label1: TLabel;
EditEventNo: TDBEdit;
Label2: TLabel;
EditVenueNo: TDBEdit;
Label3: TLabel;
EditEvent_Name: TDBEdit;
Label4: TLabel;
EditEvent_Date: TDBEdit;
Label5: TLabel;
EditEvent_Time: TDBEdit;
Label6: TLabel;
EditEvent_Description: TDBEdit;
Label7: TLabel;
EditTicket_price: TDBEdit;
Label8: TLabel;
EditEvent_Photo: TDBEdit;
DBGrid1: TDBGrid;
DBNavigator: TDBNavigator;
Panel1: TPanel;
DataSource1: TDataSource;
Panel2: TPanel;
Panel3: TPanel;
Query1: TQuery;
Query2: TQuery;
DataSource2: TDataSource;
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
procedure TForm2.FormCreate(Sender: TObject);
begin
Query1.Open;
Query2.Open;
end;
end.