home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1996 August / VPR9608A.BIN / del20try / install / data.z / BRPARTS.PAS < prev    next >
Pascal/Delphi Source File  |  1996-05-08  |  2KB  |  88 lines
  1. unit Brparts;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, DB, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;
  8.  
  9. type
  10.   TBrPartsForm = class(TForm)
  11.     Panel1: TPanel;
  12.     Navigator: TDBNavigator;
  13.     ActivateBtn: TSpeedButton;
  14.     EditBtn: TButton;
  15.     Panel3: TPanel;
  16.     CloseBtn: TButton;
  17.     PartsGrid: TDBGrid;
  18.     Bevel1: TBevel;
  19.     procedure ActivateQuery(Sender: TObject);
  20.     procedure EditBtnClick(Sender: TObject);
  21.     procedure CloseBtnClick(Sender: TObject);
  22.     procedure FormShow(Sender: TObject);
  23.   private
  24.     FPartNo: Double;
  25.     function GetPartNo: Double;
  26.     procedure SetPartNo(NewPartNo: Double);
  27.   public
  28.     property PartNo: Double read GetPartNo write SetPartNo;
  29.   end;
  30.  
  31. var
  32.   BrPartsForm: TBrPartsForm;
  33.  
  34. implementation
  35.  
  36. uses EdParts, DataMod;
  37.  
  38. {$R *.DFM}
  39.  
  40. function TBrPartsForm.GetPartNo: Double;
  41. begin
  42.   Result := MastData.PartsSource.Dataset.Fields[0].AsFloat;
  43. end;
  44.  
  45. procedure TBrPartsForm.SetPartNo(NewPartNo: Double);
  46. begin
  47.   MastData.PartsSource.Dataset := MastData.Parts;
  48.   MastData.Parts.Locate('PartNo', NewPartNo, []);
  49. end;          
  50.  
  51. procedure TBrPartsForm.ActivateQuery(Sender: TObject);
  52. begin
  53.   if not ActivateBtn.Down then
  54.     MastData.PartsSource.Dataset := MastData.Parts
  55.   else
  56.     try
  57.       MastData.PartsQuery.Close;
  58.       MastData.PartsQuery.Open;
  59.       MastData.PartsSource.Dataset := MastData.PartsQuery;
  60.     except
  61.       MastData.PartsSource.Dataset := MastData.Parts;
  62.       raise;
  63.     end;
  64. end;
  65.  
  66. procedure TBrPartsForm.EditBtnClick(Sender: TObject);
  67. begin
  68.   if ActivateBtn.Down then
  69.   begin
  70.     EdPartsForm.Edit(MastData.PartsQueryPartNo.Value);
  71.     MastData.PartsQuery.Close;
  72.     MastData.PartsQuery.Open;
  73.   end else
  74.     EdPartsForm.Edit(MastData.PartsPartNo.Value);
  75. end;
  76.  
  77. procedure TBrPartsForm.CloseBtnClick(Sender: TObject);
  78. begin
  79.   Close;
  80. end;
  81.  
  82. procedure TBrPartsForm.FormShow(Sender: TObject);
  83. begin
  84.   MastData.Parts.Open;
  85. end;
  86.  
  87. end.
  88.