home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / rzcomps.exe / DEMO / DATAFRM.PA_ / DATAFRM.PA
Text File  |  1996-10-18  |  2KB  |  86 lines
  1. unit Datafrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, DBTables, DBCtrls, Grids, DBGrids, RzLabel,
  8.   RzDBLbl, Mask, RzDBLnEd, RzSpnEdt, RzDBSpin, RzBtnEdt, RzDBBnEd,
  9.   RzDBLook, RzPrgres, RzDBProg, RzTrkBar, RzDBTrak, DB, RzStatus, RzDBStat,
  10.   ExtCtrls, RzPanel, RzBorder;
  11.  
  12. type
  13.   TFrmData1 = class(TForm)
  14.     BtnOK: TButton;
  15.     RzStatusBar1: TRzStatusBar;
  16.     RzDBStatusPane1: TRzDBStatusPane;
  17.     RzDBStatusPane2: TRzDBStatusPane;
  18.     RzDBStateStatus1: TRzDBStateStatus;
  19.     TblParts: TTable;
  20.     SrcParts: TDataSource;
  21.     DlgVendorLookup: TRzDBLookupDialog;
  22.     DBGrid1: TDBGrid;
  23.     DBNavigator1: TDBNavigator;
  24.     RzLabel1: TRzLabel;
  25.     QryVendors: TQuery;
  26.     RzLabel4: TRzLabel;
  27.     RzBorder1: TRzBorder;
  28.     RzLabel6: TRzLabel;
  29.     GroupBox1: TGroupBox;
  30.     RzLabel2: TRzLabel;
  31.     SpnOnHand: TRzDBSpinEdit;
  32.     RzLabel3: TRzLabel;
  33.     SpnOnOrder: TRzDBSpinEdit;
  34.     RzPanel1: TRzPanel;
  35.     RzLabel5: TRzLabel;
  36.     EdtVendorNo: TRzDBButtonEdit;
  37.     RzPanel2: TRzPanel;
  38.     PbrPrice: TRzDBProgressBar;
  39.     TblPartsPartNo: TFloatField;
  40.     TblPartsVendorNo: TFloatField;
  41.     TblPartsDescription: TStringField;
  42.     TblPartsOnHand: TFloatField;
  43.     TblPartsOnOrder: TFloatField;
  44.     TblPartsCost: TCurrencyField;
  45.     TblPartsListPrice: TCurrencyField;
  46.     RzBorder2: TRzBorder;
  47.     procedure EdtVendorNoButtonClick(Sender: TObject);
  48.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  49.     procedure FormCreate(Sender: TObject);
  50.   private
  51.     { Private declarations }
  52.   public
  53.     { Public declarations }
  54.   end;
  55.  
  56. var
  57.   FrmData1: TFrmData1;
  58.  
  59. implementation
  60.  
  61. {$R *.DFM}
  62.  
  63. procedure TFrmData1.EdtVendorNoButtonClick(Sender: TObject);
  64. begin
  65.   if DlgVendorLookup.Execute then
  66.   begin
  67.     if not ( TblParts.State in dsEditModes ) then
  68.       TblParts.Edit;
  69.     EdtVendorNo.Text := QryVendors.FieldByName( 'VendorNo' ).AsString;
  70.   end;
  71. end;
  72.  
  73. procedure TFrmData1.FormClose(Sender: TObject; var Action: TCloseAction);
  74. begin
  75.   Action := caFree;
  76. end;
  77.  
  78. procedure TFrmData1.FormCreate(Sender: TObject);
  79. begin
  80.   PbrPrice.Hint := 'Can also compare a single'#13 +
  81.                    'field value against a'#13 +
  82.                    'constant base value.';
  83. end;
  84.  
  85. end.
  86.