unit student;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Buttons, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
Image1: TImage;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
statusBar1.Panels[0].Text := '欢迎使用本系统';
statusBar1.Panels[1].Text := datetostr(date);
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form2.show;
end;
end.
unit editinfo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, DBCtrls, Mask, DB, ADODB;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBMemo1: TDBMemo;
ADOTable1: TADOTable;
DBComboBox1: TDBComboBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
adotable1.Open;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
adotable1.Prior;
if adotable1.Bof then
adotable1.Last;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
adotable1.Next;
if adotable1.Eof then
adotable1.Last;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
adotable1.First;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
adotable1.Last;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
adotable1.Append;
button6.Enabled := true;
button5.Enabled := false;
button7.Enabled := true;
end;
end.不知为什么form2.show;报错了
[Pascal Error] student.pas(1): Unable to invoke Code Completion due to errors in source code
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Buttons, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
Image1: TImage;
Panel1: TPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
statusBar1.Panels[0].Text := '欢迎使用本系统';
statusBar1.Panels[1].Text := datetostr(date);
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
form2.show;
end;
end.
unit editinfo;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, DBCtrls, Mask, DB, ADODB;
type
TForm2 = class(TForm)
DataSource1: TDataSource;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label9: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBMemo1: TDBMemo;
ADOTable1: TADOTable;
DBComboBox1: TDBComboBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
begin
adotable1.Open;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
adotable1.Prior;
if adotable1.Bof then
adotable1.Last;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
adotable1.Next;
if adotable1.Eof then
adotable1.Last;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
adotable1.First;
end;
procedure TForm2.Button4Click(Sender: TObject);
begin
adotable1.Last;
end;
procedure TForm2.Button5Click(Sender: TObject);
begin
adotable1.Append;
button6.Enabled := true;
button5.Enabled := false;
button7.Enabled := true;
end;
end.不知为什么form2.show;报错了
[Pascal Error] student.pas(1): Unable to invoke Code Completion due to errors in source code
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货