home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kolekce / d3456 / ALEXSOFT.ZIP / EXAMPLE / EX1.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  2000-06-02  |  2.1 KB  |  81 lines
  1. unit ex1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBTables, Db, ExtCtrls, DBPanel, DBxNav, FrmDSrce;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     dbExample: TDatabase;
  12.     taOrders: TTable;
  13.     taItems: TTable;
  14.     dsOrders: TDataSource;
  15.     dsItems: TDataSource;
  16.     RaDBPanel1: TRaDBPanel;
  17.     taOrdersOrderNo: TFloatField;
  18.     taOrdersCustNo: TFloatField;
  19.     taOrdersSaleDate: TDateTimeField;
  20.     taOrdersShipDate: TDateTimeField;
  21.     taOrdersEmpNo: TIntegerField;
  22.     taOrdersShipToContact: TStringField;
  23.     taOrdersShipToAddr1: TStringField;
  24.     taOrdersShipToAddr2: TStringField;
  25.     taOrdersShipToCity: TStringField;
  26.     taOrdersShipToState: TStringField;
  27.     taOrdersShipToZip: TStringField;
  28.     taOrdersShipToCountry: TStringField;
  29.     taOrdersShipToPhone: TStringField;
  30.     taOrdersShipVIA: TStringField;
  31.     taOrdersPO: TStringField;
  32.     taOrdersTerms: TStringField;
  33.     taOrdersPaymentMethod: TStringField;
  34.     taOrdersItemsTotal: TCurrencyField;
  35.     taOrdersTaxRate: TFloatField;
  36.     taOrdersFreight: TCurrencyField;
  37.     taOrdersAmountPaid: TCurrencyField;
  38.     taItemsOrderNo: TFloatField;
  39.     taItemsItemNo: TFloatField;
  40.     taItemsPartNo: TFloatField;
  41.     taItemsQty: TIntegerField;
  42.     taItemsDiscount: TFloatField;
  43.     taOrdersCustName: TStringField;
  44.     rtaCustomers: TRaTable;
  45.     rtaEmployees: TRaTable;
  46.     taOrdersEmpName: TStringField;
  47.     paBottom: TPanel;
  48.     RaDBNavigator1: TRaDBNavigator;
  49.     rtaParts: TRaTable;
  50.     taItemsPartDescription: TStringField;
  51.   private
  52.     { Private declarations }
  53.   public
  54.     { Public declarations }
  55.   end;
  56.  
  57. var
  58.   Form1: TForm1;
  59.  
  60. implementation
  61. uses StdUtils, RaReport;
  62.  
  63. function GetWindowsUserName: String;
  64. var
  65.   NameLen : DWord;
  66.   Name: array[0..255] of Char;
  67. begin
  68.   NameLen := SizeOf(Name);
  69.   if not GetUserName(Name, NameLen) then
  70.      StrCopy(Name, 'NONAME');
  71.   Result := Name;
  72. end;
  73.  
  74. {$R *.DFM}
  75. initialization
  76.   // is used to print lookup datasets
  77.   OrgName := 'Noname Inc.';
  78.   UserName := GetWindowsUserName;
  79.   FullUserName := UserName;
  80. end.
  81.