(1)Delphi的这段代码是干什么用的?每句大概什么意思?

来源:百度知道 编辑:UC知道 时间:2024/09/20 07:38:31
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;

type
TLogin = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Name: TEdit;
Password: TEdit;
ButtonOK: TButton;
ButtonCancel: TButton;
ADOQuery1: TADOQuery;
ADOConnection1: TADOConnection;
procedure ButtonOKClick(Sender: TObject);
procedure ButtonCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

晕,这是最最基础的,这些代码是窗体在设计阶段就自动生成的,楼主你还是先把基础打好再看看吧~~
//下面是单元所引用的文件,类似C语言中的头文件
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, ADODB;

//下面定义了一个窗体类,类中包含了各种控件及事件过程
type
TLogin = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Name: TEdit;
Password: TEdit;
ButtonOK: TButton;
ButtonCancel: TButton;
ADOQuery1: TADOQuery;
ADOConnection1: TADOConnection;
procedure ButtonOKClick(Sender: TObject);
procedure ButtonCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;