home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 August / VPR9608A.BIN / del20try / install / data.z / EDCUST.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-08  |  2KB  |  71 lines
  1. unit Edcust;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DBTables, DB, StdCtrls, ExtCtrls, Mask, DBCtrls, Buttons;
  8.  
  9. type
  10.   TEdCustForm = class(TForm)
  11.     Panel2: TPanel;
  12.     Label1: TLabel;
  13.     DBEdCustNo: TDBEdit;
  14.     DBEdName: TDBEdit;
  15.     DBEdit3: TDBEdit;
  16.     DBEdit4: TDBEdit;
  17.     DBEdit5: TDBEdit;
  18.     DBEdit6: TDBEdit;
  19.     DBEdit7: TDBEdit;
  20.     DBEdit8: TDBEdit;
  21.     DBEdit9: TDBEdit;
  22.     DBEdit11: TDBEdit;
  23.     DBEdit12: TDBEdit;
  24.     DBEdInv: TDBEdit;
  25.     DBEdit14: TDBEdit;
  26.     Label14: TLabel;
  27.     Panel: TPanel;
  28.     DBNavigator: TDBNavigator;
  29.     PrintBtn: TSpeedButton;
  30.     Bevel1: TBevel;
  31.     Bevel2: TBevel;
  32.     Label10: TLabel;
  33.     Panel1: TPanel;
  34.     CancelButton: TButton;
  35.     OKButton: TButton;
  36.     procedure PrintBtnClick(Sender: TObject);
  37.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  38.   public
  39.     procedure Edit(CustNo: Double);
  40.   end;
  41.  
  42. var
  43.   EdCustForm: TEdCustForm;
  44.  
  45. implementation
  46.  
  47. {$R *.DFM}
  48.  
  49. uses DataMod;
  50.  
  51. procedure TEdCustForm.Edit(CustNo: Double);
  52. begin
  53.   MastData.Cust.Open;
  54.   MastData.Cust.Locate('CustNo', CustNo, []);
  55.   ShowModal;
  56. end;
  57.  
  58. procedure TEdCustForm.PrintBtnClick(Sender: TObject);
  59. begin
  60.   if MessageDlg('   Print this form?', mtConfirmation, [mbYes,mbNo], 0) = mrYes then
  61.     Print;
  62. end;
  63.  
  64. procedure TEdCustForm.FormCloseQuery(Sender: TObject;
  65.   var CanClose: Boolean);
  66. begin
  67.   CanClose := MastData.DataSetApplyUpdates(MastData.Cust, ModalResult = mrOK);
  68. end;
  69.  
  70. end.
  71.