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

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

Delphi控件源码

开发平台：

Delphi

ThinForm.pas：源码内容
  1. unit ThinForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DBClient, MConnect, SConnect, Db, Grids, DBGrids, StdCtrls, ObjBrkr;
  9. type
  10.   TClientForm = class(TForm)
  11.     Connection: TSocketConnection;
  12.     cds: TClientDataSet;
  13.     DBGrid1: TDBGrid;
  14.     DataSource1: TDataSource;
  15.     ButtonFetch: TButton;
  16.     Button1: TButton;
  17.     CheckBox1: TCheckBox;
  18.     Edit2: TEdit;
  19.     Edit3: TEdit;
  20.     cdsDet: TClientDataSet;
  21.     DataSource2: TDataSource;
  22.     DBGrid2: TDBGrid;
  23.     cdsCustNo: TFloatField;
  24.     cdsCompany: TStringField;
  25.     cdsAddr1: TStringField;
  26.     cdsAddr2: TStringField;
  27.     cdsCity: TStringField;
  28.     cdsState: TStringField;
  29.     cdsZip: TStringField;
  30.     cdsCountry: TStringField;
  31.     cdsPhone: TStringField;
  32.     cdsFAX: TStringField;
  33.     cdsTaxRate: TFloatField;
  34.     cdsContact: TStringField;
  35.     cdsLastInvoiceDate: TDateTimeField;
  36.     cdsTableOrders: TDataSetField;
  37.     Button2: TButton;
  38.     ConnectionBroker1: TConnectionBroker;
  39.     procedure ButtonFetchClick(Sender: TObject);
  40.     procedure Button1Click(Sender: TObject);
  41.     procedure CheckBox1Click(Sender: TObject);
  42.     procedure ConnectionAfterConnect(Sender: TObject);
  43.     procedure Button2Click(Sender: TObject);
  44.   private
  45.     { Private declarations }
  46.   public
  47.     { Public declarations }
  48.   end;
  50. var
  51.   ClientForm: TClientForm;
  53. implementation
  55. uses QueForm;
  57. {$R *.DFM}
  59. procedure TClientForm.ButtonFetchClick(Sender: TObject);
  60. begin
  61.   ButtonFetch.Caption := IntToStr (cds.GetNextPacket);
  62. end;
  64. procedure TClientForm.Button1Click(Sender: TObject);
  65. begin
  66.   cds.ApplyUpdates (-1);
  67. end;
  69. procedure TClientForm.CheckBox1Click(Sender: TObject);
  70. begin
  71.   cds.Active := Checkbox1.Checked;
  72.   cdsDet.Active := Checkbox1.Checked;
  73.   Connection.Connected := Checkbox1.Checked;
  74. end;
  76. procedure TClientForm.ConnectionAfterConnect(Sender: TObject);
  77. begin
  78.   Connection.AppServer.Login (Edit2.Text, Edit3.Text);
  79. end;
  81. procedure TClientForm.Button2Click(Sender: TObject);
  82. begin
  83.   FormQuery.Show;
  84. end;
  86. end.