?? datamodule.~pas
字號:
unit DataModule;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule1 = class(TDataModule)
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
ADODataSet1ChineseName: TWideStringField;
ADODataSet1FirstName: TWideStringField;
ADODataSet1SecondName: TWideStringField;
ADODataSet1Sex: TWideStringField;
ADODataSet1OfficePhone: TWideStringField;
ADODataSet1HomePhone: TWideStringField;
ADODataSet1MobilePhone: TWideStringField;
ADODataSet1EMail: TWideStringField;
ADODataSet1Webpage: TWideStringField;
ADODataSet1Corp: TWideStringField;
ADODataSet1Position: TWideStringField;
ADODataSet1Qicq: TIntegerField;
ADODataSet1Icq: TIntegerField;
ADODataSet1Conutry: TWideStringField;
ADODataSet1District: TWideStringField;
ADODataSet1GraduateSchool: TWideStringField;
ADODataSet1Degree: TWideStringField;
ADODataSet1Detial: TMemoField;
DataSource1: TDataSource;
procedure DataModuleCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule1: TDataModule1;
Notify_DataChange : Boolean;
implementation
{$R *.dfm}
procedure TDataModule1.DataModuleCreate(Sender: TObject);
begin
Notify_DataChange := False;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -