| Chapter 17 - Project ThinPlus |
Project Structure
| | ThinPlus.dpr |
program ThinPlus;
uses
Forms,
ThinForm in 'ThinForm.pas' ,
QueForm in 'QueForm.pas' ;
begin
Application.Initialize;
Application.CreateForm(TClientForm, ClientForm);
Application.CreateForm(TFormQuery, FormQuery);
Application.Run;
end.
| | ThinForm.pas |
unit ThinForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBClient, MConnect, SConnect, Db, Grids, DBGrids, StdCtrls, ObjBrkr;
type
TClientForm = class(TForm)
Connection: TSocketConnection;
cds: TClientDataSet;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ButtonFetch: TButton;
Button1: TButton;
CheckBox1: TCheckBox;
Edit2: TEdit;
Edit3: TEdit;
cdsDet: TClientDataSet;
DataSource2: TDataSource;
DBGrid2: TDBGrid;
cdsCustNo: TFloatField;
cdsCompany: TStringField;
cdsAddr1: TStringField;
cdsAddr2: TStringField;
cdsCity: TStringField;
cdsState: TStringField;
cdsZip: TStringField;
cdsCountry: TStringField;
cdsPhone: TStringField;
cdsFAX: TStringField;
cdsTaxRate: TFloatField;
cdsContact: TStringField;
cdsLastInvoiceDate: TDateTimeField;
cdsTableOrders: TDataSetField;
Button2: TButton;
ConnectionBroker1: TConnectionBroker;
procedure ButtonFetchClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure ConnectionAfterConnect(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
ClientForm: TClientForm;
implementation
uses QueForm;
procedure TClientForm.ButtonFetchClick(Sender: TObject);
begin
ButtonFetch.Caption := IntToStr (cds.GetNextPacket);
end;
procedure TClientForm.Button1Click(Sender: TObject);
begin
cds.ApplyUpdates (-1);
end;
procedure TClientForm.CheckBox1Click(Sender: TObject);
begin
cds.Active := Checkbox1.Checked;
cdsDet.Active := Checkbox1.Checked;
Connection.Connected := Checkbox1.Checked;
end;
procedure TClientForm.ConnectionAfterConnect(Sender: TObject);
begin
Connection.AppServer.Login (Edit2.Text, Edit3.Text);
end;
procedure TClientForm.Button2Click(Sender: TObject);
begin
FormQuery.Show;
end;
end.
| | QueForm.pas |
unit QueForm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, StdCtrls, Grids, DBGrids, DBClient;
type
TFormQuery = class(TForm)
cdsQuery: TClientDataSet;
DBGrid1: TDBGrid;
EditParam: TEdit;
btnParam: TButton;
DataSource1: TDataSource;
Label1: TLabel;
procedure btnParamClick(Sender: TObject);
private
public
end;
var
FormQuery: TFormQuery;
implementation
uses ThinForm;
procedure TFormQuery.btnParamClick(Sender: TObject);
begin
cdsQuery.Close;
cdsQuery.Params[0].AsString := EditParam.Text;
cdsQuery.Open;
Caption := 'Data sent at ' + TimeToStr (
TDateTime (cdsQuery.GetOptionalParam('Time')));
Label1.Caption := 'Param ' +
cdsQuery.GetOptionalParam('Param');
end;
end.
| | ThinForm.dfm |
object ClientForm: TClientForm
Left = 277
Top = 139
Width = 510
Height = 465
Caption = 'ThinPlus'
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
object DBGrid1: TDBGrid
Left = 32
Top = 72
Width = 457
Height = 185
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object ButtonFetch: TButton
Left = 280
Top = 8
Width = 75
Height = 25
Caption = 'Fetch'
TabOrder = 1
OnClick = ButtonFetchClick
end
object Button1: TButton
Left = 368
Top = 8
Width = 75
Height = 25
Caption = 'Apply'
TabOrder = 2
OnClick = Button1Click
end
object CheckBox1: TCheckBox
Left = 152
Top = 16
Width = 97
Height = 17
Caption = 'Connect'
TabOrder = 3
OnClick = CheckBox1Click
end
object Edit2: TEdit
Left = 16
Top = 8
Width = 121
Height = 21
TabOrder = 4
Text = 'marco'
end
object Edit3: TEdit
Left = 16
Top = 32
Width = 121
Height = 21
TabOrder = 5
Text = 'marco'
end
object DBGrid2: TDBGrid
Left = 32
Top = 264
Width = 457
Height = 161
DataSource = DataSource2
TabOrder = 6
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Button2: TButton
Left = 320
Top = 40
Width = 75
Height = 25
Caption = 'Query'
TabOrder = 7
OnClick = Button2Click
end
object Connection: TSocketConnection
ServerGUID = '{E31849A9-4A82-11D3-B9F1-00000100A27B}'
ServerName = 'AppSPlus.AppServerPlus'
AfterConnect = ConnectionAfterConnect
Address = '127.0.0.1'
Left = 56
Top = 112
end
object cds: TClientDataSet
Aggregates = <>
AggregatesActive = True
ConnectionBroker = ConnectionBroker1
PacketRecords = 10
Params = <>
ProviderName = 'ProviderCustomer'
Left = 144
Top = 104
object cdsCustNo: TFloatField
FieldName = 'CustNo'
end
object cdsCompany: TStringField
FieldName = 'Company'
Size = 30
end
object cdsAddr1: TStringField
FieldName = 'Addr1'
Size = 30
end
object cdsAddr2: TStringField
FieldName = 'Addr2'
Size = 30
end
object cdsCity: TStringField
FieldName = 'City'
Size = 15
end
object cdsState: TStringField
FieldName = 'State'
end
object cdsZip: TStringField
FieldName = 'Zip'
Size = 10
end
object cdsCountry: TStringField
FieldName = 'Country'
end
object cdsPhone: TStringField
FieldName = 'Phone'
Size = 15
end
object cdsFAX: TStringField
FieldName = 'FAX'
Size = 15
end
object cdsTaxRate: TFloatField
FieldName = 'TaxRate'
end
object cdsContact: TStringField
FieldName = 'Contact'
end
object cdsLastInvoiceDate: TDateTimeField
FieldName = 'LastInvoiceDate'
end
object cdsTableOrders: TDataSetField
FieldName = 'TableOrders'
end
end
object DataSource1: TDataSource
DataSet = cds
Left = 232
Top = 104
end
object cdsDet: TClientDataSet
Aggregates = <>
DataSetField = cdsTableOrders
FieldDefs = <
item
Name = 'OrderNo'
DataType = ftFloat
end
item
Name = 'CustNo'
Attributes = [faRequired]
DataType = ftFloat
end
item
Name = 'SaleDate'
DataType = ftDateTime
end
item
Name = 'ShipDate'
DataType = ftDateTime
end
item
Name = 'EmpNo'
Attributes = [faRequired]
DataType = ftInteger
end
item
Name = 'ShipToContact'
DataType = ftString
Size = 20
end
item
Name = 'ShipToAddr1'
DataType = ftString
Size = 30
end
item
Name = 'ShipToAddr2'
DataType = ftString
Size = 30
end
item
Name = 'ShipToCity'
DataType = ftString
Size = 15
end
item
Name = 'ShipToState'
DataType = ftString
Size = 20
end
item
Name = 'ShipToZip'
DataType = ftString
Size = 10
end
item
Name = 'ShipToCountry'
DataType = ftString
Size = 20
end
item
Name = 'ShipToPhone'
DataType = ftString
Size = 15
end
item
Name = 'ShipVIA'
DataType = ftString
Size = 7
end
item
Name = 'PO'
DataType = ftString
Size = 15
end
item
Name = 'Terms'
DataType = ftString
Size = 6
end
item
Name = 'PaymentMethod'
DataType = ftString
Size = 7
end
item
Name = 'ItemsTotal'
DataType = ftCurrency
end
item
Name = 'TaxRate'
DataType = ftFloat
end
item
Name = 'Freight'
DataType = ftCurrency
end
item
Name = 'AmountPaid'
DataType = ftCurrency
end>
IndexDefs = <
item
Name = 'CustIndex'
Fields = 'CustNo'
end>
Params = <>
StoreDefs = True
Left = 144
Top = 168
end
object DataSource2: TDataSource
DataSet = cdsDet
Left = 232
Top = 176
end
object ConnectionBroker1: TConnectionBroker
Connection = Connection
Left = 56
Top = 176
end
end
| | QueForm.dfm |
object FormQuery: TFormQuery
Left = 426
Top = 341
Width = 490
Height = 288
Caption = 'FormQuery'
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
object Label1: TLabel
Left = 288
Top = 24
Width = 32
Height = 13
Caption = 'Label1'
end
object DBGrid1: TDBGrid
Left = 40
Top = 48
Width = 417
Height = 201
DataSource = DataSource1
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object EditParam: TEdit
Left = 40
Top = 16
Width = 121
Height = 21
TabOrder = 1
Text = 'US'
end
object btnParam: TButton
Left = 184
Top = 16
Width = 75
Height = 25
Caption = 'Apply Param'
TabOrder = 2
OnClick = btnParamClick
end
object cdsQuery: TClientDataSet
Aggregates = <>
ConnectionBroker = ClientForm.ConnectionBroker1
Params = <
item
DataType = ftString
Name = 'Country'
ParamType = ptUnknown
Value = 'US'
end>
ProviderName = 'ProviderQuery'
Left = 304
Top = 16
end
object DataSource1: TDataSource
DataSet = cdsQuery
Left = 376
Top = 16
end
end
|
|
Home: Code Repository: Mastering Delphi 6
