home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / stocks.pak / CUSTINFO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-08-24  |  2.6 KB  |  108 lines
  1. unit Custinfo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, Mask, ExtCtrls,
  8.   Buttons, Report;
  9.  
  10. type
  11.   TfmCustInfo = class(TForm)
  12.     ScrollBox: TScrollBox;
  13.     Label1: TLabel;
  14.     EditACCT_NBR: TDBEdit;
  15.     EditLAST_NAME: TDBEdit;
  16.     EditFIRST_NAME: TDBEdit;
  17.     EditADDRESS_: TDBEdit;
  18.     EditCITY: TDBEdit;
  19.     EditSTATE: TDBEdit;
  20.     EditZIP: TDBEdit;
  21.     EditTELEPHONE: TDBEdit;
  22.     EditDATE_OPEN: TDBEdit;
  23.     EditSS_NUMBER: TDBEdit;
  24.     EditBIRTH_DATE: TDBEdit;
  25.     EditRISK_LEVEL: TDBEdit;
  26.     EditOCCUPATION: TDBEdit;
  27.     EditOBJECTIVES: TDBEdit;
  28.     EditINTERESTS: TDBEdit;
  29.     DBGrid1: TDBGrid;
  30.     DataSource1: TDataSource;
  31.     Query1: TQuery;
  32.     GridQuery: TQuery;
  33.     DataSource2: TDataSource;
  34.     DBImage1: TDBImage;
  35.     GridQuerySYMBOL: TStringField;
  36.     GridQuerySHARES: TFloatField;
  37.     GridQueryPUR_PRICE: TFloatField;
  38.     GridQueryPUR_DATE: TDateField;
  39.     GridQuerySHAREVAL: TCurrencyField;
  40.     GridQueryCUR_PRICE: TFloatField;
  41.     GridQueryCHANGE: TCurrencyField;
  42.     Report: TReport;
  43.     Panel1: TPanel;
  44.     Panel2: TPanel;
  45.     BtnRep: TBitBtn;
  46.     DBNavigator: TDBNavigator;
  47.     procedure FormCreate(Sender: TObject);
  48.     procedure BtnRepClick(Sender: TObject);
  49.     procedure GridQueryCalcFields(DataSet: TDataset);
  50.     procedure FormResize(Sender: TObject);
  51.   private
  52.     { private declarations }
  53.   public
  54.     { public declarations }
  55.   end;
  56.  
  57. var
  58.   fmCustInfo: TfmCustInfo;
  59.  
  60. implementation
  61.  
  62. {$R *.DFM}
  63.  
  64. uses Main;
  65.  
  66. function RealToStr(Number:extended; Decimals:byte):string;
  67. var Temp: string;
  68. begin
  69.   Str(Number:20:Decimals, Temp);
  70.   repeat
  71.     if Copy(Temp, 1, 1) = ' ' then Delete(Temp, 1, 1);
  72.   until Copy(Temp, 1, 1) <> ' ';
  73.   RealToStr := Temp;
  74. end;
  75.  
  76. procedure TfmCustInfo.FormCreate(Sender: TObject);
  77. begin
  78.   Query1.Open;
  79.   GridQuery.Open;
  80. end;
  81.  
  82. procedure TfmCustInfo.BtnRepClick(Sender: TObject);
  83. begin
  84.   with Report do
  85.   begin
  86.     ReportDir := ExtractFilePath(Application.ExeName);
  87.     Chdir(fmMain.DataPath); { make sure the BMPs are in default directory }
  88.     InitialValues.Clear;
  89.     InitialValues.Add('@ACCTNBR=<'+EditACCT_NBR.Text+'>');
  90.     Run;
  91.   end;
  92. end;
  93.  
  94. procedure TfmCustInfo.GridQueryCalcFields(DataSet: TDataset);
  95. begin
  96.   GridQueryShareVal.Value := GridQueryShares.Value *
  97.     GridQueryCur_Price.Value;
  98.   GridQueryChange.Value :=  GridQueryShares.Value * (GridQueryCur_Price.Value -
  99.     GridQueryPur_Price.Value);
  100. end;
  101.  
  102. procedure TfmCustInfo.FormResize(Sender: TObject);
  103. begin
  104.   DBGrid1.ClientWidth := DBGrid1.Width;
  105. end;
  106.  
  107. end.
  108.