简单的问题？？？？？？？？？请进！！！！！

Question

1、可以用DBNavigator联接数据源做删除
2、stringgrid行列的增加和删除
type
  TExCell = class(TStringGrid)
  public
    procedure DeleteRow(ARow: Longint);
    procedure DeleteColumn(ACol: Longint);
    procedure InsertRow(ARow: LongInt);
    procedure InsertColumn(ACol: LongInt);
end;procedure TExCell.InsertColumn(ACol: Integer);
begin
  ColCount :=ColCount +1;
  MoveColumn(ColCount-1, ACol);
end;procedure TExCell.InsertRow(ARow: Integer);
begin
  RowCount :=RowCount +1;
  MoveRow(RowCount-1, ARow);
end;procedure TExCell.DeleteColumn(ACol: Longint);
begin
  MoveColumn(ACol, ColCount -1);
  ColCount := ColCount - 1;
end;procedure TExCell.DeleteRow(ARow: Longint);
begin
  MoveRow(ARow, RowCount - 1);
  RowCount := RowCount - 1;
end;
3、DBGrid和Query联接同一个数据源
4、用SQL语句：
CREATE TABLE 表名
(
  字段ID          int not null IDENTITY,
  字段1            varchar(16) primary key,
  字段2            varchar(100) not null,
  ......
  字段n            varchar(100) not null ) 
5、你想怎么备份，有哪些数据要备份

Answer 1

5、使用Backup Database、Restroe Database语句，具体方法你可以参考SQL Server的帮助，那帮助特好。

Answer 2

type
  TExCell = class(TStringGrid)
  public
    procedure DeleteRow(ARow: Longint);
    procedure DeleteColumn(ACol: Longint);
    procedure InsertRow(ARow: LongInt);
    procedure InsertColumn(ACol: LongInt);
end;procedure TExCell.InsertColumn(ACol: Integer);
begin
  ColCount :=ColCount +1;
  MoveColumn(ColCount-1, ACol);
end;procedure TExCell.InsertRow(ARow: Integer);
begin
  RowCount :=RowCount +1;
  MoveRow(RowCount-1, ARow);
end;procedure TExCell.DeleteColumn(ACol: Longint);
begin
  MoveColumn(ACol, ColCount -1);
  ColCount := ColCount - 1;
end;procedure TExCell.DeleteRow(ARow: Longint);
begin
  MoveRow(ARow, RowCount - 1);
  RowCount := RowCount - 1;
end;3、用一个Tdatasource,
Dbgrid1.datasource:=Datasource1;
datasource1.dataset:=query1;就行了。
4、例
CREATE TABLE jobs
(
   job_id  smallint   PRIMARY KEY CLUSTERED,
   job_desc        varchar(50)     NOT NULL
   min_lvl tinyint NOT NULL
   max_lvl tinyint NOT NULL
)
5、在程序中把它倒出来，sql的表文件是看不到的。

Answer 3

type
  TExCell = class(TStringGrid)
  public
    procedure DeleteRow(ARow: Longint);
    procedure DeleteColumn(ACol: Longint);
    procedure InsertRow(ARow: LongInt);
    procedure InsertColumn(ACol: LongInt);
end;procedure TExCell.InsertColumn(ACol: Integer);
begin
  ColCount :=ColCount +1;
  MoveColumn(ColCount-1, ACol);
end;procedure TExCell.InsertRow(ARow: Integer);
begin
  RowCount :=RowCount +1;
  MoveRow(RowCount-1, ARow);
end;procedure TExCell.DeleteColumn(ACol: Longint);
begin
  MoveColumn(ACol, ColCount -1);
  ColCount := ColCount - 1;
end;procedure TExCell.DeleteRow(ARow: Longint);
begin
  MoveRow(ARow, RowCount - 1);
  RowCount := RowCount - 1;
end;3、用一个Tdatasource,
Dbgrid1.datasource:=Datasource1;
datasource1.dataset:=query1;就行了。
4、例
CREATE TABLE jobs
(
   job_id  smallint   PRIMARY KEY CLUSTERED,
   job_desc        varchar(50)     NOT NULL
   min_lvl tinyint NOT NULL
   max_lvl tinyint NOT NULL
)
5、在程序中把它倒出来，sql的表文件是看不到的。

Answer 4

可以用DBNavigator联接数据源做删除------好像只能用table连接才有用啊！！

Answer 5

1、DBGrid1.DataSource.DataSet.Delete;
2、楼上的较详细。其实就是把行数加一，然后将原来的行后移(对列的操作类似)；
3、DBGrid1.DataSource := DataSource1;
   DataSource1.DataSet := Query1;
4、执行SQL是较好的方法，当然也可以使用TTABLE来建表。具体做法请参照TTABLE的帮助。
5、可以使用BCP命令，将所有表的数据备份出来，再使用SQL DEMO组件还可以导出表结构。我前段时间做了一个这样的专门用来备份SQL SERVER的工具(还未完善)。需要的话留下EMAIL。
    也可以直接使用SQL SERVER自己的备份。但可能不支持远程文件。

Answer 6

cg1120(代码最优化－§人在爱情的空窗期要个梦
1.我想做一个删除按钮
2。不明白，自定义过程如何用，另外，我想删除焦点项如何做？
3。我连了，能编译DBGrid上无数据。。
4。。
5。对数据备份这里我也没想好，是备份表，还是数据库，给点意见》》》

Answer 7

yjs_lh(长风浪子)
E_Mail:[email protected]
谢谢支持！！！！！！！！

Answer 8

1,2.
删除按钮的Click事件里添加代码
procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  DBGrid1.DataSource.DataSet.Delete; //这样就会删除DBGrid焦点项的记录
  //DBGrid1.DataSource.DataSet.Active := False;
  //DBGrid1.DataSource.DataSet.Active := True;
  ...
end;
3.查看你的TDBGrid的DataSource属性以及TDataSource的DataSet属性，如果是用TTable或TQuery的Active属性
4...
5.一般是备份数据库