procedure TForm1.RzButton1Click(Sender: TObject); begin if os1.Connected then os1.Connected := false else os1.Connected := true; end;procedure TForm1.RzButton2Click(Sender: TObject); var i: integer; begin ods1.Close; for i := cxGrid1DBTableView1.ColumnCount - 1 downto 0 do cxGrid1DBTableView1.Columns[i].Destroy; ods1.SQL.Clear; ods1.SQL.Text := RzMemo1.Text; ods1.ExecSQL; ods1.Open; for i := 0 to ods1.FieldCount - 1 do cxGrid1DBTableView1.CreateColumn.DataBinding.FieldName := ods1.Fields[i].FieldName; end;
to cdhuanglei(落花岛上花倒落): 你所写的是cx控件的用法,cx和dx虽然为同一个公司的作品,但是基本上是完全不同的两个系列。
begin
if os1.Connected then os1.Connected := false else os1.Connected := true;
end;procedure TForm1.RzButton2Click(Sender: TObject);
var
i: integer;
begin
ods1.Close;
for i := cxGrid1DBTableView1.ColumnCount - 1 downto 0 do
cxGrid1DBTableView1.Columns[i].Destroy;
ods1.SQL.Clear;
ods1.SQL.Text := RzMemo1.Text;
ods1.ExecSQL;
ods1.Open;
for i := 0 to ods1.FieldCount - 1 do
cxGrid1DBTableView1.CreateColumn.DataBinding.FieldName := ods1.Fields[i].FieldName;
end;
dxDBGrid的列的类型默认的人民币的类型。