unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables, Menus, DBClient, MConnect, StdCtrls; type TForm2 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; Help1: TMenuItem; N3: TMenuItem; HelpContents1: TMenuItem; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; DCOMConnection1: TDCOMConnection; Button1: TButton; Button2: TButton; DataSource2: TDataSource; ClientDataSet2: TClientDataSet; DBGrid2: TDBGrid; DBNavigator2: TDBNavigator; DataSource1: TDataSource; ClientDataSet1: TClientDataSet; DataSource3: TDataSource; ClientDataSet3: TClientDataSet; DataSource4: TDataSource; ClientDataSet4: TClientDataSet; DBGrid3: TDBGrid; DBNavigator3: TDBNavigator; DBGrid4: TDBGrid; DBNavigator4: TDBNavigator; ClientDataSet1OrderNo: TFloatField; ClientDataSet1CustNo: TFloatField; ClientDataSet1SaleDate: TDateTimeField; ClientDataSet1ShipDate: TDateTimeField; ClientDataSet1EmpNo: TIntegerField; ClientDataSet1ShipToContact: TStringField; ClientDataSet1ShipToAddr1: TStringField; ClientDataSet1ShipToAddr2: TStringField; ClientDataSet1ShipToCity: TStringField; ClientDataSet1ShipToState: TStringField; ClientDataSet1ShipToZip: TStringField; ClientDataSet1ShipToCountry: TStringField; ClientDataSet1ShipToPhone: TStringField; ClientDataSet1ShipVIA: TStringField; ClientDataSet1PO: TStringField; ClientDataSet1Terms: TStringField; ClientDataSet1PaymentMethod: TStringField; ClientDataSet1ItemsTotal: TCurrencyField; ClientDataSet1TaxRate: TFloatField; ClientDataSet1Freight: TCurrencyField; ClientDataSet1AmountPaid: TCurrencyField; ClientDataSet2SYMBOL: TStringField; ClientDataSet2CO_NAME: TStringField; ClientDataSet2EXCHANGE: TStringField; ClientDataSet2CUR_PRICE: TFloatField; ClientDataSet2YRL_HIGH: TFloatField; ClientDataSet2YRL_LOW: TFloatField; ClientDataSet2P_E_RATIO: TFloatField; ClientDataSet2BETA: TFloatField; ClientDataSet2PROJ_GRTH: TFloatField; ClientDataSet2INDUSTRY: TSmallintField; ClientDataSet2PRICE_CHG: TSmallintField; ClientDataSet2SAFETY: TSmallintField; ClientDataSet2RATING: TStringField; ClientDataSet2RANK: TFloatField; ClientDataSet2OUTLOOK: TSmallintField; ClientDataSet2RCMNDATION: TStringField; ClientDataSet2RISK: TStringField; ClientDataSet3OrderNo: TFloatField; ClientDataSet3ItemNo: TFloatField; ClientDataSet3PartNo: TFloatField; ClientDataSet3Qty: TIntegerField; ClientDataSet3Discount: TFloatField; ClientDataSet4VendorNo: TFloatField; ClientDataSet4VendorName: TStringField; ClientDataSet4Address1: TStringField; ClientDataSet4Address2: TStringField; ClientDataSet4City: TStringField; ClientDataSet4State: TStringField; ClientDataSet4Zip: TStringField; ClientDataSet4Country: TStringField; ClientDataSet4Phone: TStringField; ClientDataSet4FAX: TStringField; ClientDataSet4Preferred: TBooleanField; procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure HelpContents1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses ABOUT; {$R *.dfm} procedure TForm2.N2Click(Sender: TObject); begin Close; end; procedure TForm2.N3Click(Sender: TObject); begin AboutBox.show; end; procedure TForm2.Button1Click(Sender: TObject); begin ClientDataSet1.Active:=true; ClientDataSet2.Active:=true; ClientDataSet3.Active:=true; ClientDataSet4.Active:=true; end; procedure TForm2.Button2Click(Sender: TObject); begin ClientDataSet1.Active:=false; ClientDataSet2.Active:=false; ClientDataSet3.Active:=false; ClientDataSet4.Active:=false; end; procedure TForm2.HelpContents1Click(Sender: TObject); var helppath:string; begin helppath:=ExtractFileDir(Application.EXEname)+'\Help.hlp'; winexec(Pchar(helppath),SW_NORMAL); end; end.