开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
ClientForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：2k
源码类别：

Delphi控件源码

开发平台：

Delphi

ClientForm.pas：源码内容
  1. unit ClientForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, DBCtrls, ExtCtrls, Db, Mask, DBTables, ScktComp;
  9. type
  10.   TForm1 = class(TForm)
  11.     EditServer: TEdit;
  12.     Server: TLabel;
  13.     Table1: TTable;
  14.     Table1Company: TStringField;
  15.     Table1CompID: TFloatField;
  16.     Table1Address: TStringField;
  17.     Table1State: TStringField;
  18.     Table1Country: TStringField;
  19.     Table1Email: TStringField;
  20.     Table1Contact: TStringField;
  21.     Label1: TLabel;
  22.     DBEdit1: TDBEdit;
  23.     DataSource1: TDataSource;
  24.     Label2: TLabel;
  25.     Label3: TLabel;
  26.     DBEdit3: TDBEdit;
  27.     Label4: TLabel;
  28.     DBEdit4: TDBEdit;
  29.     Label5: TLabel;
  30.     DBEdit5: TDBEdit;
  31.     Label6: TLabel;
  32.     DBEdit6: TDBEdit;
  33.     Label7: TLabel;
  34.     DBEdit7: TDBEdit;
  35.     DBNavigator1: TDBNavigator;
  36.     DBText1: TDBText;
  37.     lbLog: TListBox;
  38.     BtnDelete: TButton;
  39.     Label8: TLabel;
  40.     Bevel1: TBevel;
  41.     Button2: TButton;
  42.     procedure FormCreate(Sender: TObject);
  43.     procedure BtnDeleteClick(Sender: TObject);
  44.     procedure Button2Click(Sender: TObject);
  45.   private
  46.     procedure OnLog(Sender: TObject; LogMsg: String);
  47.   end;
  49. var
  50.   Form1: TForm1;
  52. implementation
  54. {$R *.DFM}
  56. uses
  57.   ClientThread;
  59. procedure TForm1.FormCreate(Sender: TObject);
  60. begin
  61.   // use a table in the current directory
  62.   Table1.DatabaseName :=
  63.     ExtractFilePath (Application.ExeName);
  64.   // create it if it doesn't exist
  65.   if not Table1.Exists then
  66.     Table1.CreateTable;
  67.   Table1.Active := True;
  69. end;
  71. procedure TForm1.BtnDeleteClick(Sender: TObject);
  72. begin
  73.   table1.First;
  74.   while not Table1.Eof do
  75.   begin
  76.     // if the record is still logged
  77.     if not Table1CompID.IsNull and (Table1CompId.AsInteger <> 0) then
  78.       Table1.Delete;
  79.     Table1.Next;
  80.   end;
  81. end;
  83. procedure TForm1.Button2Click(Sender: TObject);
  84. var
  85.   SendThread: TSendThread;
  86. begin
  87.   SendThread := TSendThread.Create(Table1);
  88.   SendThread.OnLog := OnLog;
  89.   SendThread.ServerAddress := EditServer.Text;
  90.   SendThread.Resume;
  91. end;
  93. procedure TForm1.OnLog(Sender: TObject; LogMsg: String);
  94. begin
  95.   lbLog.Items.Add(LogMsg);
  96. end;
  98. end.