home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Database / ejemplos / CORBA16 / client1.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-04-05  |  5.9 KB  |  210 lines
  1. unit client1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ImgList, ComCtrls, ToolWin, ExtCtrls, DBClient, CorbaCon, Db, DBCtrls,
  8.   Grids, DBGrids, StdCtrls, Buttons;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     ControlBar1: TControlBar;
  13.     ToolBar1: TToolBar;
  14.     ToolButton1: TToolButton;
  15.     ToolButton2: TToolButton;
  16.     ImageList1: TImageList;
  17.     Label1: TLabel;
  18.     Label2: TLabel;
  19.     DBGrid2: TDBGrid;
  20.     CorbaConnection1: TCorbaConnection;
  21.     DBGrid1: TDBGrid;
  22.     ClientDataSet1: TClientDataSet;
  23.     ClientDataSet2: TClientDataSet;
  24.     DataSource1: TDataSource;
  25.     DataSource2: TDataSource;
  26.     ClientDataSet1CustNo: TFloatField;
  27.     ClientDataSet1Company: TStringField;
  28.     ClientDataSet1Addr1: TStringField;
  29.     ClientDataSet1Addr2: TStringField;
  30.     ClientDataSet1City: TStringField;
  31.     ClientDataSet1State: TStringField;
  32.     ClientDataSet1Zip: TStringField;
  33.     ClientDataSet1Country: TStringField;
  34.     ClientDataSet1Phone: TStringField;
  35.     ClientDataSet1FAX: TStringField;
  36.     ClientDataSet1TaxRate: TFloatField;
  37.     ClientDataSet1Contact: TStringField;
  38.     ClientDataSet1LastInvoiceDate: TDateTimeField;
  39.     ClientDataSet1Table2: TDataSetField;
  40.     ToolButton3: TToolButton;
  41.     ToolButton4: TToolButton;
  42.     ToolButton5: TToolButton;
  43.     ToolButton6: TToolButton;
  44.     DBNavigator1: TDBNavigator;
  45.     ToolButton7: TToolButton;
  46.     Edit1: TEdit;
  47.     Button1: TButton;
  48.     ClientDataSet2OrderNo: TFloatField;
  49.     ClientDataSet2CustNo: TFloatField;
  50.     ClientDataSet2SaleDate: TDateTimeField;
  51.     ClientDataSet2ShipDate: TDateTimeField;
  52.     ClientDataSet2EmpNo: TIntegerField;
  53.     ClientDataSet2ShipToContact: TStringField;
  54.     ClientDataSet2ShipToAddr1: TStringField;
  55.     ClientDataSet2ShipToAddr2: TStringField;
  56.     ClientDataSet2ShipToCity: TStringField;
  57.     ClientDataSet2ShipToState: TStringField;
  58.     ClientDataSet2ShipToZip: TStringField;
  59.     ClientDataSet2ShipToCountry: TStringField;
  60.     ClientDataSet2ShipToPhone: TStringField;
  61.     ClientDataSet2ShipVIA: TStringField;
  62.     ClientDataSet2PO: TStringField;
  63.     ClientDataSet2Terms: TStringField;
  64.     ClientDataSet2PaymentMethod: TStringField;
  65.     ClientDataSet2ItemsTotal: TCurrencyField;
  66.     ClientDataSet2TaxRate: TFloatField;
  67.     ClientDataSet2Freight: TCurrencyField;
  68.     ClientDataSet2AmountPaid: TCurrencyField;
  69.     Button2: TButton;
  70.     ClientDataSet1total: TFloatField;
  71.     Button3: TButton;
  72.     Button4: TButton;
  73.     Button5: TButton;
  74.     Button6: TButton;
  75.     Button7: TButton;
  76.     ToolButton8: TToolButton;
  77.     procedure ToolButton1Click(Sender: TObject);
  78.     procedure ToolButton2Click(Sender: TObject);
  79.     procedure ToolButton3Click(Sender: TObject);
  80.     procedure DataSource1DataChange(Sender: TObject; Field: TField);
  81.     procedure ToolButton4Click(Sender: TObject);
  82.     procedure ToolButton5Click(Sender: TObject);
  83.     procedure ToolButton6Click(Sender: TObject);
  84.     procedure ToolButton7Click(Sender: TObject);
  85.     procedure Button1Click(Sender: TObject);
  86.     procedure Button2Click(Sender: TObject);
  87.     procedure ClientDataSet1CalcFields(DataSet: TDataSet);
  88.     procedure Button3Click(Sender: TObject);
  89.     procedure Button4Click(Sender: TObject);
  90.     procedure Button5Click(Sender: TObject);
  91.     procedure Button7Click(Sender: TObject);
  92.     procedure Button6Click(Sender: TObject);
  93.     procedure ToolButton8Click(Sender: TObject);
  94.   private
  95.     { Private declarations }
  96.   public
  97.     { Public declarations }
  98.   end;
  99.  
  100. var
  101.   Form1: TForm1;
  102.  
  103. implementation
  104.  
  105. {$R *.DFM}
  106.  
  107. procedure TForm1.ToolButton1Click(Sender: TObject);
  108. begin
  109.  try
  110.    corbaconnection1.connected:=true;
  111.    clientdataset1.active:=true;
  112.    clientdataset2.active:=true;
  113.  except
  114.    showmessage('error al conectar con el servidor');
  115.  end;
  116. end;
  117.  
  118. procedure TForm1.ToolButton2Click(Sender: TObject);
  119. begin
  120.   ClientDataSet1.ApplyUpdates(-1);
  121.  
  122. end;
  123.  
  124. procedure TForm1.ToolButton3Click(Sender: TObject);
  125. begin
  126.   ClientDataSet1.filter:='substring(addr1,1,2)='+'''' + 'PO' + '''';
  127.   ClientDataSet1.filtered:=true;
  128. end;
  129.  
  130. procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
  131. begin
  132.     Toolbutton2.enabled:=clientdataset1.changecount > 0;
  133. end;
  134.  
  135. procedure TForm1.ToolButton4Click(Sender: TObject);
  136. begin
  137.   ClientDataSet1.filter:='Addr1 is NULL';
  138.   ClientDataSet1.filtered:=true;
  139. end;
  140.  
  141. procedure TForm1.ToolButton5Click(Sender: TObject);
  142. begin
  143.   ClientDataSet1.filtered:=false;
  144. end;
  145.  
  146. procedure TForm1.ToolButton6Click(Sender: TObject);
  147. begin
  148.    ClientDataSet1.addindex('indiciudad','city',[ixCaseInsensitive],'','',0);
  149.    ClientDataSet1.indexname:='indiciudad';
  150. end;
  151.  
  152. procedure TForm1.ToolButton7Click(Sender: TObject);
  153. begin
  154.   ClientDataSet1.indexname:='';
  155. end;
  156.  
  157. procedure TForm1.Button1Click(Sender: TObject);
  158. begin
  159.   edit1.text:=inttostr(ClientDataSet2.aggregates[0].value);
  160. end;
  161.  
  162. procedure TForm1.Button2Click(Sender: TObject);
  163. begin
  164.   ClientDataSet1.IndexFieldNames:='total';
  165. end;
  166.  
  167. procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);
  168. begin
  169.    ClientDataSet1Total.value:=ClientDataSet1TaxRate.value +2;
  170. end;
  171.  
  172. procedure TForm1.Button3Click(Sender: TObject);
  173. begin
  174.   ClientDataSet1.UndoLastChange(True);
  175. end;
  176.  
  177. procedure TForm1.Button4Click(Sender: TObject);
  178. begin
  179.    ClientDataSet1.CancelUpdates;
  180. end;
  181.  
  182. procedure TForm1.Button5Click(Sender: TObject);
  183. begin
  184.   ClientDataSet1.active:=false;
  185.   //vemos de 10 en 10.
  186.   ClientDataSet1.PacketRecords:=10;
  187.   ClientDataSet1.FetchOnDemand:=false;
  188.   Clientdataset1.active:=true;
  189.   //activamos el 2 para ver los registros detalle
  190.   clientdataset2.active:=true;
  191. end;
  192.  
  193. procedure TForm1.Button7Click(Sender: TObject);
  194. begin
  195.    ClientDataSet1.GetNextPacket;
  196. end;
  197.  
  198. procedure TForm1.Button6Click(Sender: TObject);
  199. begin
  200.    ClientDataSet1.packetrecords:=-1;
  201.    ClientDataSet1.FetchOnDemand:=true;
  202. end;
  203.  
  204. procedure TForm1.ToolButton8Click(Sender: TObject);
  205. begin
  206.   clientdataset1.refresh;
  207. end;
  208.  
  209. end.
  210.