开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > Internet/IE编程 > 查看源码
FormOrder.pas
资源名称：__DCOM.rar　[点击查看]
上传用户：etonglee
上传日期：2014-03-01
资源大小：698k
文件大小：9k
源码类别：

Internet/IE编程

开发平台：

Delphi

FormOrder.pas：源码内容
  1. unit FormOrder;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ComCtrls, Grids, DBGrids, ExtCtrls, DB, DBClient, ActnList,
  8.   Menus, StdCtrls, Mask, DBCtrls, Provider, ADODB;
  10. type
  11.   TFrmOrder = class(TForm)
  12.     ScrollBox: TScrollBox;
  13.     pnlControls: TPanel;
  14.     Splitter: TSplitter;
  15.     dbgrdDetail: TDBGrid;
  16.     StatusBar: TStatusBar;
  17.     btnFind: TButton;
  18.     btnRefresh: TButton;
  19.     btnSave: TButton;
  20.     btnCancel: TButton;
  21.     btnAdd: TButton;
  22.     btnModify: TButton;
  23.     ActionList: TActionList;
  24.     PopupMenu: TPopupMenu;
  25.     actAdd: TAction;
  26.     actModify: TAction;
  27.     actRefresh: TAction;
  28.     actSave: TAction;
  29.     actFind: TAction;
  30.     actCancel: TAction;
  31.     actAddRow: TAction;
  32.     actDelRow: TAction;
  33.     cltdsOrders: TClientDataSet;
  34.     cltdsOrderDetails: TClientDataSet;
  35.     dsOrders: TDataSource;
  36.     dsOrderDetails: TDataSource;
  37.     Button1: TButton;
  38.     actDelete: TAction;
  39.     N1: TMenuItem;
  40.     N2: TMenuItem;
  41.     N3: TMenuItem;
  42.     N4: TMenuItem;
  43.     N5: TMenuItem;
  44.     N6: TMenuItem;
  45.     N7: TMenuItem;
  46.     N8: TMenuItem;
  47.     N9: TMenuItem;
  48.     cltdsOrdersCustomerID: TWideStringField;
  49.     cltdsOrdersEmployeeID: TIntegerField;
  50.     cltdsOrdersOrderDate: TDateTimeField;
  51.     cltdsOrdersRequiredDate: TDateTimeField;
  52.     cltdsOrdersShippedDate: TDateTimeField;
  53.     cltdsOrdersShipVia: TIntegerField;
  54.     cltdsOrdersFreight: TBCDField;
  55.     cltdsOrdersShipName: TWideStringField;
  56.     cltdsOrdersShipAddress: TWideStringField;
  57.     cltdsOrdersShipCity: TWideStringField;
  58.     cltdsOrdersShipRegion: TWideStringField;
  59.     cltdsOrdersShipPostalCode: TWideStringField;
  60.     cltdsOrdersShipCountry: TWideStringField;
  61.     cltdsOrderDetailsOrderID: TIntegerField;
  62.     cltdsOrderDetailsProductID: TIntegerField;
  63.     cltdsOrderDetailsUnitPrice: TBCDField;
  64.     cltdsOrderDetailsQuantity: TSmallintField;
  65.     cltdsOrderDetailsDiscount: TFloatField;
  66.     PopupMenu_grid: TPopupMenu;
  67.     N10: TMenuItem;
  68.     N11: TMenuItem;
  69.     cltdsOrderDetailsProductName: TStringField;
  70.     cltdsOrderDetailsTotal: TFloatField;
  71.     Label1: TLabel;
  72.     DBEdit1: TDBEdit;
  73.     Label2: TLabel;
  74.     Label3: TLabel;
  75.     Label4: TLabel;
  76.     DBEdit4: TDBEdit;
  77.     Label5: TLabel;
  78.     DBEdit5: TDBEdit;
  79.     Label6: TLabel;
  80.     DBEdit6: TDBEdit;
  81.     Label7: TLabel;
  82.     Label8: TLabel;
  83.     DBEdit8: TDBEdit;
  84.     Label9: TLabel;
  85.     DBEdit9: TDBEdit;
  86.     Label10: TLabel;
  87.     DBEdit10: TDBEdit;
  88.     Label11: TLabel;
  89.     DBEdit11: TDBEdit;
  90.     Label12: TLabel;
  91.     DBEdit12: TDBEdit;
  92.     Label13: TLabel;
  93.     DBEdit13: TDBEdit;
  94.     Label14: TLabel;
  95.     DBEdit14: TDBEdit;
  96.     DBLookupComboBox1: TDBLookupComboBox;
  97.     DBLookupComboBox2: TDBLookupComboBox;
  98.     DBLookupComboBox3: TDBLookupComboBox;
  99.     cltdsOrdersOrderID: TIntegerField;
  100.     procedure cltdsOrderDetailsCalcFields(DataSet: TDataSet);
  101.     procedure actAddExecute(Sender: TObject);
  102.     procedure actModifyExecute(Sender: TObject);
  103.     procedure FormCreate(Sender: TObject);
  104.     procedure actCancelExecute(Sender: TObject);
  105.     procedure actAddRowExecute(Sender: TObject);
  106.     procedure actDelRowExecute(Sender: TObject);
  107.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  108.     procedure actFindExecute(Sender: TObject);
  109.     procedure actRefreshExecute(Sender: TObject);
  110.     procedure actSaveExecute(Sender: TObject);
  111.   private
  112.     { Private declarations }
  113.     FOrderID:integer;
  114.     Procedure RefreshButtons();
  115.     Procedure OpenOrder(OrderID:integer);
  116.     Procedure OpenOrderDetail(OrderID:integer);
  117.     Procedure OpenOther();
  118.     Procedure SaveData();
  119.     Procedure RefreshData();
  120.   public
  121.     { Public declarations }
  122.     Class Procedure ShowOrder();
  123.   end;
  125. implementation
  127. uses DtmdMain, SvrObj_Orders_TLB, UnitShare, FormFind;
  129. {$R *.dfm}
  131. Class Procedure TFrmOrder.ShowOrder();
  132. var
  133.   oFrm:TFrmOrder;
  134. begin
  135.   oFrm:=TFrmOrder.Create(Application);
  136.   try
  137.     oFrm.Show();
  138.   except
  139.     oFrm.Free();
  140.   end;
  141. end;
  143. Procedure TFrmOrder.SaveData();
  144. var
  145.   DeltaOrder,DeltaOrderDetail:OleVariant;
  146.   Orders:IOrders;
  147.   OrderId:integer;
  148.   IsOk:WordBool;
  149.   ErrorMsg:WideString;
  150. begin
  151.   if cltdsOrdersOrderID.IsNull then
  152.   begin
  153.     showmessage('请输入OrderID!');
  154.     exit;
  155.   end;
  157.   IsOk:=false;
  158.   ErrorMsg:='';
  159.   OrderId:= cltdsOrdersOrderID.AsInteger;
  161.   if cltdsOrders.State<>dsBrowse then
  162.     cltdsOrders.Post();
  163.     //把更新数据写入Delta中
  165.   if cltdsOrders.ChangeCount>0 then //判断是否有更新
  166.     DeltaOrder:=cltdsOrders.Delta;
  168.   if cltdsOrderDetails.State<>dsBrowse then
  169.     cltdsOrderDetails.Post();
  170.     //把更新数据写入Delta中
  172.   if cltdsOrderDetails.ChangeCount>0 then //判断是否有更新
  173.     DeltaOrderDetail:=cltdsOrderDetails.Delta;
  175.   Orders:=CoOrders.CreateRemote(APPSVR);
  176.   Orders.UpdateOrder(OrderId,DeltaOrder,DeltaOrderDetail,IsOk,ErrorMsg);
  177.   if not IsOk then
  178.   begin
  179.     showmessage('错误信息：'+#13+ErrorMsg);//接收服务器端传递过来的错误信息
  180.     exit;
  181.   end;
  182.   FOrderID:=OrderId;
  183.   RefreshData();  //刷新
  184. end;
  186. Procedure TFrmOrder.OpenOther();
  187. var
  188.   RetData:OleVariant;
  189.   Orders:IOrders;
  190. begin
  191.   if (DmMain.cltdsCustomers.Active and DmMain.cltdsShipper.Active and
  192.       DmMain.cltdsProducts.Active and DmMain.cltdsEmployees.Active) then
  193.     exit;
  195.   Orders:=CoOrders.CreateRemote(APPSVR);
  196.   //APPSVR是应用服务器地址或机器名
  197.   //创建远程对象实例
  198.   Orders.GetOtherData(RetData);
  200.   DmMain.cltdsEmployees.Data:=RetData[0];
  201.   DmMain.cltdsCustomers.Data:=RetData[1];
  202.   DmMain.cltdsShipper.Data:=RetData[2];
  203.   DmMain.cltdsProducts.Data:=RetData[3];
  204. end;
  206. Procedure TFrmOrder.OpenOrder(OrderID:integer);
  207. var
  208.   RetData:OleVariant;
  209.   Orders:IOrders;
  210. begin
  211.   Orders:=CoOrders.CreateRemote(APPSVR);
  212.   Orders.GetOrder(OrderID,RetData);
  213.   cltdsOrders.Data:=RetData;
  214.   cltdsOrders.ReadOnly:=true;
  215. end;
  217. Procedure TFrmOrder.OpenOrderDetail(OrderID:integer);
  218. var
  219.   RetData:OleVariant;
  220.   Orders:IOrders;
  221. begin
  222.   Orders:=CoOrders.CreateRemote(APPSVR);
  223.   Orders.GetOrderDetail(OrderID,RetData);
  224.   cltdsOrderDetails.Data:=RetData;
  225.   cltdsOrderDetails.ReadOnly:=true;
  226. end;
  228. Procedure TFrmOrder.RefreshButtons();
  229. begin
  230.   if not cltdsOrders.Active then
  231.   begin
  232.     actFind.Enabled:=true;
  233.     actAdd.Enabled:=true;
  234.     actAddRow.Enabled:=false;
  235.     actModify.Enabled:=false;
  236.     actRefresh.Enabled:=false;
  237.     actSave.Enabled:=false;
  238.     actCancel.Enabled:=false;
  239.     actDelRow.Enabled:=false;
  240.     actDelete.Enabled:=false;
  241.     exit;
  242.   end;
  244.   if cltdsOrders.ReadOnly then
  245.   begin
  246.     actFind.Enabled:=true;
  247.     actAdd.Enabled:=true;
  248.     actAddRow.Enabled:=false;
  249.     actModify.Enabled:=true;
  250.     actRefresh.Enabled:=true;
  251.     actSave.Enabled:=false;
  252.     actCancel.Enabled:=false;
  253.     actDelRow.Enabled:=false;
  254.     if cltdsOrders.IsEmpty then
  255.       actDelete.Enabled:=false
  256.     else
  257.       actDelete.Enabled:=true;
  259.     dbgrdDetail.Options:=dbgrdDetail.Options+[dgRowSelect];
  260.   end
  261.   else
  262.   begin
  263.     actFind.Enabled:=false;
  264.     actAdd.Enabled:=false;
  265.     actAddRow.Enabled:=true;
  266.     actModify.Enabled:=false;
  267.     actRefresh.Enabled:=false;
  268.     actSave.Enabled:=true;
  269.     actCancel.Enabled:=true;
  270.     actDelRow.Enabled:=true;
  271.     actDelete.Enabled:=false;
  272.     dbgrdDetail.Options:=dbgrdDetail.Options-[dgRowSelect]+[dgEditing];
  273.   end;
  274. end;
  276. procedure TFrmOrder.cltdsOrderDetailsCalcFields(DataSet: TDataSet);
  277. begin
  278.   cltdsOrderDetailsTotal.AsFloat:=cltdsOrderDetailsUnitPrice.AsFloat*
  279.     cltdsOrderDetailsQuantity.AsFloat*(1-cltdsOrderDetailsDiscount.AsFloat);
  280. end;
  282. procedure TFrmOrder.actAddExecute(Sender: TObject);
  283. begin
  284.   if not cltdsOrders.Active then
  285.     exit;
  287.   FOrderID:=-1;
  288.   RefreshData();
  289.   cltdsOrders.ReadOnly:=false;
  290.   cltdsOrderDetails.ReadOnly:=false;
  291.   cltdsOrders.Append();
  292.   RefreshButtons();
  293. end;
  295. procedure TFrmOrder.actModifyExecute(Sender: TObject);
  296. begin
  297.   if not cltdsOrders.Active then
  298.     exit;
  300.   cltdsOrders.ReadOnly:=false;
  301.   cltdsOrderDetails.ReadOnly:=false;
  302.   RefreshButtons();
  303. end;
  305. procedure TFrmOrder.FormCreate(Sender: TObject);
  306. begin
  307.   FOrderID:=-1;
  308.   OpenOther();
  309. end;
  311. Procedure TFrmOrder.RefreshData();
  312. begin
  313.   OpenOrder(FOrderID);
  314.   OpenOrderDetail(FOrderID);
  315.   RefreshButtons();
  316. end;
  318. procedure TFrmOrder.actCancelExecute(Sender: TObject);
  319. begin
  320.   if not cltdsOrders.Active then
  321.     exit;
  323.   cltdsOrders.CancelUpdates();
  324.   cltdsOrderDetails.CancelUpdates();
  325.   cltdsOrders.ReadOnly:=true;
  326.   cltdsOrderDetails.ReadOnly:=true;
  327.   RefreshButtons();
  328. end;
  330. procedure TFrmOrder.actAddRowExecute(Sender: TObject);
  331. begin
  332.   if not cltdsOrderDetails.Active then
  333.     exit;
  335.   if cltdsOrderDetails.ReadOnly then
  336.     exit;
  338.   cltdsOrderDetails.Append();
  339. end;
  341. procedure TFrmOrder.actDelRowExecute(Sender: TObject);
  342. begin
  343.   if not cltdsOrderDetails.Active then
  344.     exit;
  346.   if cltdsOrderDetails.ReadOnly then
  347.     exit;
  349.   if cltdsOrderDetails.RecordCount>0 then
  350.     cltdsOrderDetails.Delete();
  351. end;
  353. procedure TFrmOrder.FormClose(Sender: TObject; var Action: TCloseAction);
  354. begin
  355.   Action:=caFree;
  356. end;
  358. procedure TFrmOrder.actFindExecute(Sender: TObject);
  359. var
  360.   ResultValue:integer;
  361. begin
  362.   ResultValue:= TFrmFind.ShowFind();
  363.   if ResultValue<>-1 then
  364.   begin
  365.     FOrderID:=ResultValue;
  366.     RefreshData();
  367.   end;
  368. end;
  370. procedure TFrmOrder.actRefreshExecute(Sender: TObject);
  371. begin
  372.   RefreshData();
  373. end;
  375. procedure TFrmOrder.actSaveExecute(Sender: TObject);
  376. begin
  377.   SaveData();
  378. end;
  380. end.