82 lines
2.6 KiB
ObjectPascal
82 lines
2.6 KiB
ObjectPascal
unit QuantumGrid4_ClientMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
|
|
uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROIndyHTTPChannel,
|
|
Grids, DBGrids, ComCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
|
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses,
|
|
cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
|
|
cxGridDBTableView, cxGrid, ExtCtrls, DBClient;
|
|
|
|
type
|
|
TQuantumGrid4_ClientMainForm = class(TForm)
|
|
PageControl: TPageControl;
|
|
TabSheet2: TTabSheet;
|
|
viewCustomers: TcxGridDBTableView;
|
|
cxGrid1Level1: TcxGridLevel;
|
|
cxGrid1: TcxGrid;
|
|
viewOrders: TcxGridDBTableView;
|
|
viewCustomersCustomerID: TcxGridDBColumn;
|
|
viewCustomersCompanyName: TcxGridDBColumn;
|
|
viewCustomersContactName: TcxGridDBColumn;
|
|
viewCustomersContactTitle: TcxGridDBColumn;
|
|
viewCustomersAddress: TcxGridDBColumn;
|
|
viewCustomersCity: TcxGridDBColumn;
|
|
viewCustomersRegion: TcxGridDBColumn;
|
|
viewCustomersPostalCode: TcxGridDBColumn;
|
|
viewCustomersCountry: TcxGridDBColumn;
|
|
viewCustomersPhone: TcxGridDBColumn;
|
|
viewCustomersFax: TcxGridDBColumn;
|
|
Panel1: TPanel;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
viewOrdersOrderID: TcxGridDBColumn;
|
|
viewOrdersCustomerID: TcxGridDBColumn;
|
|
viewOrdersEmployeeID: TcxGridDBColumn;
|
|
viewOrdersOrderDate: TcxGridDBColumn;
|
|
viewOrdersRequiredDate: TcxGridDBColumn;
|
|
viewOrdersShippedDate: TcxGridDBColumn;
|
|
viewOrdersShipVia: TcxGridDBColumn;
|
|
viewOrdersFreight: TcxGridDBColumn;
|
|
viewOrdersShipName: TcxGridDBColumn;
|
|
viewOrdersShipAddress: TcxGridDBColumn;
|
|
viewOrdersShipCity: TcxGridDBColumn;
|
|
viewOrdersShipRegion: TcxGridDBColumn;
|
|
viewOrdersShipPostalCode: TcxGridDBColumn;
|
|
viewOrdersShipCountry: TcxGridDBColumn;
|
|
cxGrid1Level2: TcxGridLevel;
|
|
DBGrid3: TDBGrid;
|
|
Panel2: TPanel;
|
|
procedure Button2Click(Sender: TObject);
|
|
procedure Button1Click(Sender: TObject);
|
|
private
|
|
fLastMaster: Variant;
|
|
public
|
|
|
|
end;
|
|
|
|
var
|
|
QuantumGrid4_ClientMainForm: TQuantumGrid4_ClientMainForm;
|
|
|
|
implementation
|
|
|
|
uses QuantumGrid4_ClientData, uDAInterfaces, uDADataTable;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TQuantumGrid4_ClientMainForm.Button2Click(Sender: TObject);
|
|
begin
|
|
with QuantumGrid4_ClientDataModule.dtCustomers do
|
|
Active := Active xor TRUE;
|
|
end;
|
|
|
|
procedure TQuantumGrid4_ClientMainForm.Button1Click(Sender: TObject);
|
|
begin
|
|
QuantumGrid4_ClientDataModule.dtCustomers.ApplyUpdates(TRUE);
|
|
end;
|
|
|
|
end.
|
|
|