home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap32 / ddepdox2 / main.pas < prev    next >
Pascal/Delphi Source File  |  1995-03-20  |  2KB  |  84 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: DDEPDOX2 }
  5.  
  6. { Make sure a copy of PDOXDEL.EXE is on your
  7.   path before running this programming. Or
  8.   alternately, use PARADOX for Windows. }
  9.  
  10. interface
  11.  
  12. uses
  13.   SysUtils, WinTypes, WinProcs,
  14.   Messages, Classes, Graphics,
  15.   Controls, Forms, Dialogs,
  16.   StdCtrls, DdeMan;
  17.  
  18. const
  19.   FieldNames: array[1..7] of String =
  20.     ('CustNo', 'Company', 'Addr1', 'Addr2',
  21.      'City', 'State', 'Zip');
  22.  
  23. type
  24.   TForm1 = class(TForm)
  25.     DdeClientConv1: TDdeClientConv;
  26.     DdeClientItem1: TDdeClientItem;
  27.     DdeClientItem2: TDdeClientItem;
  28.     Edit1: TEdit;
  29.     Edit2: TEdit;
  30.     Edit3: TEdit;
  31.     Edit4: TEdit;
  32.     DdeClientItem3: TDdeClientItem;
  33.     DdeClientItem4: TDdeClientItem;
  34.     DdeClientItem5: TDdeClientItem;
  35.     DdeClientItem6: TDdeClientItem;
  36.     DdeClientItem7: TDdeClientItem;
  37.     Edit5: TEdit;
  38.     Edit6: TEdit;
  39.     Edit7: TEdit;
  40.     OpenLink: TButton;
  41.     procedure DdeClientItem1Change(Sender: TObject);
  42.     procedure OpenLinkClick(Sender: TObject);
  43.   private
  44.     { Private declarations }
  45.   public
  46.     { Public declarations }
  47.   end;
  48.  
  49. var
  50.   Form1: TForm1;
  51.  
  52. implementation
  53.  
  54. {$R *.DFM}
  55.  
  56. procedure TForm1.DdeClientItem1Change(Sender: TObject);
  57. begin
  58.   Edit1.Text := DDEClientItem1.Text;
  59.   Edit2.Text := DDEClientItem2.Text;
  60.   Edit3.Text := DDEClientItem3.Text;
  61.   Edit4.Text := DDEClientItem4.Text;
  62.   Edit5.Text := DDEClientItem5.Text;
  63.   Edit6.Text := DDEClientItem6.Text;
  64.   Edit7.Text := DDEClientItem7.Text;
  65. end;
  66.  
  67. { Strings could be 'PDOXWIN', ':DBDEMOS:CUSTOMER.DB', if
  68.   you have Paradox for Windows. If you don't, use
  69.   'PDOXDEL', 'DBDEMOSCUSTOMER' as th estrings passed
  70.   to SetLink. }
  71. procedure TForm1.OpenLinkClick(Sender: TObject);
  72. var
  73.   i: Integer;
  74. begin
  75.   DDEClientConv1.SetLink('PDOXDEL', 'DBDEMOSCUSTOMER');
  76.   for i := 1 to 7 do begin
  77.     TDDEClientItem(FindComponent('DDEClientItem' + IntToStr(i))).DDEConv := DDEClientConv1;
  78.     TDDEClientItem(FindComponent('DDEClientItem' + IntToStr(i))).DDEItem := FieldNames[i];
  79.   end;
  80. end;
  81.  
  82.  
  83. end.
  84.