unit Unit6;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;type
TForm6 = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form6: TForm6;implementation{$R *.dfm}
uses
unit9,Unit10; //update是在unit10;procedure TForm6.Button2Click(Sender: TObject);
begin
new1.show;
end;procedure TForm6.Button1Click(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select * from umessage';
Query1.SQL.Clear;
Query1.SQL.Add(Sqlstr);
Query1.ExecSQL;
Query1.open;
end;procedure TForm6.Button3Click(Sender: TObject);
begin
update.show; //这里出错了,update这个窗口打不开!!怎么回事呢?大家帮我看下呀!!
// close;
end;procedure TForm6.Button5Click(Sender: TObject);
begin
close;
end;procedure TForm6.Button4Click(Sender: TObject);
begin
close;
end;end.他的提示是:
[错误] Unit6.pas(59): Record, object or class type required
[致命错误] Project1.dpr(14): Could not compile used unit 'Unit6.pas'
怎么突然这个update.show就不能用了呢?谁知道呀,快帮我看看呢~~谢谢阿
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;type
TForm6 = class(TForm)
Query1: TQuery;
DataSource1: TDataSource;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form6: TForm6;implementation{$R *.dfm}
uses
unit9,Unit10; //update是在unit10;procedure TForm6.Button2Click(Sender: TObject);
begin
new1.show;
end;procedure TForm6.Button1Click(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select * from umessage';
Query1.SQL.Clear;
Query1.SQL.Add(Sqlstr);
Query1.ExecSQL;
Query1.open;
end;procedure TForm6.Button3Click(Sender: TObject);
begin
update.show; //这里出错了,update这个窗口打不开!!怎么回事呢?大家帮我看下呀!!
// close;
end;procedure TForm6.Button5Click(Sender: TObject);
begin
close;
end;procedure TForm6.Button4Click(Sender: TObject);
begin
close;
end;end.他的提示是:
[错误] Unit6.pas(59): Record, object or class type required
[致命错误] Project1.dpr(14): Could not compile used unit 'Unit6.pas'
怎么突然这个update.show就不能用了呢?谁知道呀,快帮我看看呢~~谢谢阿
Unit10.update.show;改法2:
重新命名Update,改成其它名字
Tupdate.create(nil).show;
update应该是不应该这样命名的~