home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / mastapp.pak / BRPARTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  1.9 KB  |  85 lines
  1. unit Brparts;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, DBTables, DB, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, Buttons;
  8.  
  9. type
  10.   TBrPartsForm = class(TForm)
  11.     Panel1: TPanel;
  12.     Navigator: TDBNavigator;
  13.     Parts: TTable;
  14.     PartsSource: TDataSource;
  15.     PartsQuery: TQuery;
  16.     ActivateBtn: TSpeedButton;
  17.     PartsPartNo: TFloatField;
  18.     PartsDescription: TStringField;
  19.     PartsOnHand: TFloatField;
  20.     PartsOnOrder: TFloatField;
  21.     PartsQueryPartNo: TFloatField;
  22.     PartsQueryDescription: TStringField;
  23.     PartsQueryOnHand: TFloatField;
  24.     PartsQueryOnOrder: TFloatField;
  25.     PartsGrid: TDBGrid;
  26.     EditBtn: TButton;
  27.     CloseBtn: TButton;
  28.     procedure ActivateQuery(Sender: TObject);
  29.     procedure EditBtnClick(Sender: TObject);
  30.     procedure CloseBtnClick(Sender: TObject);
  31.   private
  32.     FPartNo: Double;
  33.     function GetPartNo: Double;
  34.     procedure SetPartNo(NewPartNo: Double);
  35.   public
  36.     property PartNo: Double read GetPartNo write SetPartNo;
  37.   end;
  38.  
  39. var
  40.   BrPartsForm: TBrPartsForm;
  41.  
  42. implementation
  43.  
  44. uses EdParts;
  45.  
  46. {$R *.DFM}
  47.  
  48. function TBrPartsForm.GetPartNo: Double;
  49. begin
  50.   Result := PartsSource.Dataset.Fields[0].AsFloat;
  51. end;
  52.  
  53. procedure TBrPartsForm.SetPartNo(NewPartNo: Double);
  54. begin
  55.   PartsSource.Dataset := Parts;
  56.   Parts.FindKey([NewPartNo]);
  57. end;          
  58.  
  59. procedure TBrPartsForm.ActivateQuery(Sender: TObject);
  60. begin
  61.   if not ActivateBtn.Down then
  62.     PartsSource.Dataset := Parts
  63.   else
  64.     try
  65.       PartsQuery.Close;
  66.       PartsQuery.Open;
  67.       PartsSource.Dataset := PartsQuery;
  68.     except
  69.       PartsSource.Dataset := Parts;
  70.       raise;
  71.     end;
  72. end;
  73.  
  74. procedure TBrPartsForm.EditBtnClick(Sender: TObject);
  75. begin
  76.   EdPartsForm.Edit(PartsPartNo.Value);
  77. end;
  78.  
  79. procedure TBrPartsForm.CloseBtnClick(Sender: TObject);
  80. begin
  81.   Close;
  82. end;
  83.  
  84. end.
  85.