Marco Cantù 1998, Mastering Delphi 4
Project: THINCLI1.DPR
Project Structure
THINCLI1.DPR
program ThinCli1;
uses
Forms,
ThinForm in 'ThinForm.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
THINFORM.PAS
unit ThinForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Grids, DBGrids, Db, DBClient, MConnect, MidasCon;
type
TForm1 = class(TForm)
ClientDataSet1: TClientDataSet;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
DCOMConnection1: TDCOMConnection;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
THINFORM.DFM
object Form1: TForm1
Left = 222
Top = 117
Width = 514
Height = 317
Caption = 'ThinClient1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object DBGrid1: TDBGrid
Left = 0
Top = 0
Width = 506
Height = 290
Align = alClient
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ClientDataSet1: TClientDataSet
Active = True
Aggregates = <>
Params = <>
ProviderName = 'Table1'
RemoteServer = DCOMConnection1
Left = 64
Top = 72
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 64
Top = 128
end
object DCOMConnection1: TDCOMConnection
Connected = True
ServerGUID = '{AE857762-2114-11D1-98D0-444553540000}'
ServerName = 'AppServ1.MdFirstRM'
Left = 64
Top = 16
end
end
Copyright Marco Cantù 1998