temp.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit temp;

interface

uses
  Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, DBTables, Mask, ExtCtrls;

type
  TForm1 = class(TForm)
    Query1IntegerField: TIntegerField;
    Query1StringField: TStringField;
    Query1StringField2: TStringField;
    Query1StringField3: TStringField;
    Query1StringField4: TStringField;
    Query1StringField5: TStringField;
    Query1StringField6: TStringField;
    Query1StringField7: TStringField;
    Query1StringField8: TStringField;
    Query1StringField9: TStringField;
    Query1StringField10: TStringField;
    Query1StringField11: TStringField;
    Query1StringField12: TStringField;
    Query1FloatField: TFloatField;
    Query1StringField13: TStringField;
    Query1StringField14: TStringField;
    Query1FloatField2: TFloatField;
    Query1StringField15: TStringField;
    Query1FloatField3: TFloatField;
    Query1StringField16: TStringField;
    Query1StringField17: TStringField;
    Query1_: TStringField;
    Query1_2: TStringField;
    Query1FloatField4: TFloatField;
    Query1StringField18: TStringField;
    Query1_3: TStringField;
    Query1_4: TStringField;
    Query1_5: TStringField;
    Query1_6: TStringField;
    Query1_7: TStringField;
    Query1_8: TStringField;
    Query1_9: TStringField;
    Query1_10: TStringField;
    Query1_11: TStringField;
    Query1_12: TFloatField;
    Query1FloatField5: TFloatField;
    Query1FloatField6: TFloatField;
    Query1DateTimeField: TDateTimeField;
    Query1StringField19: TStringField;
    Query1StringField20: TStringField;
    Query1DateTimeField2: TDateTimeField;
    Query1StringField21: TStringField;
    Query1StringField22: TStringField;
    Query1_13: TStringField;
    Query1StringField23: TStringField;
    Query1_14: TStringField;
    Query1_15: TStringField;
    Query1_16: TStringField;
    Query1_17: TStringField;
    Query1_18: TStringField;
    Query1_19: TStringField;
    Query1StringField24: TStringField;
    Query1StringField25: TStringField;
    Query1IntegerField2: TIntegerField;
    Query1DateTimeField3: TDateTimeField;
    Query1FloatField7: TFloatField;
    Query1StringField26: TStringField;
    Query1FloatField8: TFloatField;
    Query1FloatField9: TFloatField;
    Query1StringField27: TStringField;
    Query1StringField28: TStringField;
    Query1StringField29: TStringField;
    Query1MemoField: TMemoField;
    Query1FloatField10: TFloatField;
    Query1StringField30: TStringField;
    Query1StringField31: TStringField;
    Query1MemoField2: TMemoField;
    Query1StringField32: TStringField;
    Query1StringField33: TStringField;
    Query1StringField34: TStringField;
    Query1StringField35: TStringField;
    Query1StringField36: TStringField;
    Query1StringField37: TStringField;
    Query1StringField38: TStringField;
    Query1StringField39: TStringField;
    Query1StringField40: TStringField;
    Query1StringField41: TStringField;
    Query1StringField42: TStringField;
    Query1StringField43: TStringField;
    Query1StringField44: TStringField;
    Query1StringField45: TStringField;
    Query1StringField46: TStringField;
    Query1StringField47: TStringField;
    Query1DateTimeField4: TDateTimeField;
    Query1DateTimeField5: TDateTimeField;
    Query1DateTimeField6: TDateTimeField;
    Query1IntegerField3: TIntegerField;
    Query1IntegerField4: TIntegerField;
    Query1DateTimeField7: TDateTimeField;
    Query1IntegerField5: TIntegerField;
    Query1StringField48: TStringField;
    Query1StringField49: TStringField;
    Query1StringField50: TStringField;
    Query1MemoField3: TMemoField;
    ScrollBox: TScrollBox;
    Label2: TLabel;
    EditDBEdit2: TDBEdit;
    Label3: TLabel;
    EditDBEdit3: TDBEdit;
    Label4: TLabel;
    EditDBEdit4: TDBEdit;
    Label6: TLabel;
    EditDBEdit6: TDBEdit;
    Label9: TLabel;
    EditDBEdit9: TDBEdit;
    Label10: TLabel;
    EditDBEdit10: TDBEdit;
    Label11: TLabel;
    EditDBEdit11: TDBEdit;
    Label12: TLabel;
    EditDBEdit12: TDBEdit;
    Label13: TLabel;
    EditDBEdit13: TDBEdit;
    Label14: TLabel;
    EditDBEdit14: TDBEdit;
    Label15: TLabel;
    EditDBEdit15: TDBEdit;
    Label16: TLabel;
    EditDBEdit16: TDBEdit;
    Label17: TLabel;
    EditDBEdit17: TDBEdit;
    Label18: TLabel;
    EditDBEdit18: TDBEdit;
    Label19: TLabel;
    EditDBEdit19: TDBEdit;
    Label20: TLabel;
    EditDBEdit20: TDBEdit;
    Label21: TLabel;
    EditDBEdit21: TDBEdit;
    Label22: TLabel;
    Edit_: TDBEdit;
    Label23: TLabel;
    Edit_2: TDBEdit;
    Label24: TLabel;
    EditDBEdit22: TDBEdit;
    Label25: TLabel;
    EditDBEdit23: TDBEdit;
    Label26: TLabel;
    Edit_3: TDBEdit;
    Label27: TLabel;
    Edit_4: TDBEdit;
    Label28: TLabel;
    Edit_5: TDBEdit;
    Label29: TLabel;
    Edit_6: TDBEdit;
    Label30: TLabel;
    Edit_7: TDBEdit;
    Label31: TLabel;
    Edit_8: TDBEdit;
    Label32: TLabel;
    Edit_9: TDBEdit;
    Label33: TLabel;
    Edit_10: TDBEdit;
    Label34: TLabel;
    Edit_11: TDBEdit;
    Label35: TLabel;
    Edit_12: TDBEdit;
    Label36: TLabel;
    EditDBEdit24: TDBEdit;
    Label37: TLabel;
    EditDBEdit25: TDBEdit;
    Label38: TLabel;
    EditDBEdit26: TDBEdit;
    Label39: TLabel;
    EditDBEdit27: TDBEdit;
    Label40: TLabel;
    EditDBEdit28: TDBEdit;
    Label41: TLabel;
    EditDBEdit29: TDBEdit;
    Label42: TLabel;
    EditDBEdit30: TDBEdit;
    Label43: TLabel;
    EditDBEdit31: TDBEdit;
    Label44: TLabel;
    Edit_13: TDBEdit;
    Label45: TLabel;
    EditDBEdit32: TDBEdit;
    Label46: TLabel;
    Edit_14: TDBEdit;
    Label47: TLabel;
    Edit_15: TDBEdit;
    Label48: TLabel;
    Edit_16: TDBEdit;
    Label49: TLabel;
    Edit_17: TDBEdit;
    Label50: TLabel;
    Edit_18: TDBEdit;
    Label51: TLabel;
    Edit_19: TDBEdit;
    Label52: TLabel;
    EditDBEdit33: TDBEdit;
    Label53: TLabel;
    EditDBEdit34: TDBEdit;
    Label54: TLabel;
    EditDBEdit35: TDBEdit;
    Label55: TLabel;
    EditDBEdit36: TDBEdit;
    Label56: TLabel;
    EditDBEdit37: TDBEdit;
    Label57: TLabel;
    EditDBEdit38: TDBEdit;
    Label58: TLabel;
    EditDBEdit39: TDBEdit;
    Label59: TLabel;
    EditDBEdit40: TDBEdit;
    Label60: TLabel;
    EditDBEdit41: TDBEdit;
    Label61: TLabel;
    EditDBEdit42: TDBEdit;
    Label62: TLabel;
    EditDBEdit43: TDBEdit;
    Label63: TLabel;
    EditDBEdit44: TDBEdit;
    Label64: TLabel;
    EditDBEdit45: TDBEdit;
    Label65: TLabel;
    EditDBEdit46: TDBEdit;
    Label66: TLabel;
    EditDBEdit47: TDBEdit;
    Label67: TLabel;
    EditDBEdit48: TDBEdit;
    Label68: TLabel;
    EditDBEdit49: TDBEdit;
    Label69: TLabel;
    EditDBEdit50: TDBEdit;
    Label70: TLabel;
    EditDBEdit51: TDBEdit;
    Label71: TLabel;
    EditDBEdit52: TDBEdit;
    EditDBEdit59: TDBEdit;
    Label79: TLabel;
    EditDBEdit60: TDBEdit;
    Label80: TLabel;
    EditDBEdit61: TDBEdit;
    Label83: TLabel;
    EditDBEdit64: TDBEdit;
    Label84: TLabel;
    EditDBEdit65: TDBEdit;
    Label85: TLabel;
    EditDBEdit66: TDBEdit;
    Label86: TLabel;
    EditDBEdit67: TDBEdit;
    Label87: TLabel;
    EditDBEdit68: TDBEdit;
    Label88: TLabel;
    EditDBEdit69: TDBEdit;
    Label89: TLabel;
    EditDBEdit70: TDBEdit;
    Label90: TLabel;
    EditDBEdit71: TDBEdit;
    Label91: TLabel;
    EditDBEdit72: TDBEdit;
    Label92: TLabel;
    EditDBEdit73: TDBEdit;
    Label93: TLabel;
    EditDBEdit74: TDBEdit;
    Label94: TLabel;
    EditDBEdit75: TDBEdit;
    Panel1: TPanel;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Query1: TQuery;
    Label95: TLabel;
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    Label7: TLabel;
    DBEdit3: TDBEdit;
    Label8: TLabel;
    Label96: TLabel;
    Label97: TLabel;
    Label78: TLabel;
    Query1BDEDesigner: TStringField;
    DBEdit4: TDBEdit;
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Query1.Open;
end;

end.