窗体属性为fsMDIChild
ADO联接在DataModule窗体
Connerction访问权限为:share deny none
试过readwrite代码如下:procedure TForm3.Button1Click(Sender: TObject);
var
CommandSQL: string;
begin
CommandSQL := 'insert into ClientList(Name,User,Telphone,Address) values('''+
edit1.text+''','''+
edit2.text+''','''+
edit3.text+''','''+
memo1.Lines.text+''')';
showmessage(CommandSQL);
with dmDataBase.ADOCommand1 do
begin
CommandText:=CommandSQL;
Active := True;
end;end;执行出现Cannot assign to a read-only property
不能赋值到只读过程?
ADO联接在DataModule窗体
Connerction访问权限为:share deny none
试过readwrite代码如下:procedure TForm3.Button1Click(Sender: TObject);
var
CommandSQL: string;
begin
CommandSQL := 'insert into ClientList(Name,User,Telphone,Address) values('''+
edit1.text+''','''+
edit2.text+''','''+
edit3.text+''','''+
memo1.Lines.text+''')';
showmessage(CommandSQL);
with dmDataBase.ADOCommand1 do
begin
CommandText:=CommandSQL;
Active := True;
end;end;执行出现Cannot assign to a read-only property
不能赋值到只读过程?
with ADOCommand1 do begin
CommandText := 'UpdateInventory';
CommandType := cmdStoredProc;
Execute;
end;
CommandType := cmdStoredProc;