W
woshilu
Unregistered / Unconfirmed
GUEST, unregistred user!
我用deplhi开发c/s结构的程序,为什么运行时出现错误提示:"Capability not supported"?
procedure Tmodelmanage.RadioGroup2Click(Sender: TObject); //条件选择输入
begin
DataModule8.Query2.Close;
DataModule8.Query2.SQL.Clear;
DataModule8.Query2a.Close;
DataModule8.Query2a.SQL.Clear;
case RadioGroup2.ItemIndex of
0: begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where programmer=:ev' ) ;
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where programmer=:ev' ) ;
end;
1:
begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where designer=:ev' ) ;
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where designer=:ev' ) ;
end;
2:
begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where sdate=:ev' ) ;
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where sdate=:ev' ) ;
end;
3: begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where modelname=:ev' );
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where modelname=:ev' );
end;
4: begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where modeltype=:ev' );
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where modeltype=:ev' );
end;
5: begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where modelin=:ev' );
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where modelin=:ev' );
end;
end;
end;
procedure Tmodelmanage.Button1Click(Sender: TObject);
begin
DataModule8.Query2.Params[0].AsString:=Edit1.Text;
DataModule8.Query2.Open;
DataModule8.Query2a.Params[0].AsString:=Edit1.Text;
DataModule8.Query2a.Open;
Label8.Caption:=DataModule8.Query2a.FieldByName('cnt').AsString; }
//except
// ShowMessage('检查输入条件值了吗');
//end;
end;
procedure Tmodelmanage.RadioGroup2Click(Sender: TObject); //条件选择输入
begin
DataModule8.Query2.Close;
DataModule8.Query2.SQL.Clear;
DataModule8.Query2a.Close;
DataModule8.Query2a.SQL.Clear;
case RadioGroup2.ItemIndex of
0: begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where programmer=:ev' ) ;
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where programmer=:ev' ) ;
end;
1:
begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where designer=:ev' ) ;
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where designer=:ev' ) ;
end;
2:
begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where sdate=:ev' ) ;
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where sdate=:ev' ) ;
end;
3: begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where modelname=:ev' );
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where modelname=:ev' );
end;
4: begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where modeltype=:ev' );
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where modeltype=:ev' );
end;
5: begin
DataModule8.Query2.SQL.Add('select * from pdmmodel where modelin=:ev' );
DataModule8.Query2a.SQL.Add('select count(*) as cnt from pdmmodel where modelin=:ev' );
end;
end;
end;
procedure Tmodelmanage.Button1Click(Sender: TObject);
begin
DataModule8.Query2.Params[0].AsString:=Edit1.Text;
DataModule8.Query2.Open;
DataModule8.Query2a.Params[0].AsString:=Edit1.Text;
DataModule8.Query2a.Open;
Label8.Caption:=DataModule8.Query2a.FieldByName('cnt').AsString; }
//except
// ShowMessage('检查输入条件值了吗');
//end;
end;