dbgrid是用来在界面上显示数据的,需要连接源dbgrid1.datasource := datasource1;
datasource:作为dbgrid,clientDataset的连接桥梁,需要数据集datasource1.dataset := clientDataSet1;
一个简单的例子如下:
uses db,midaslib;//没有midaslib会出现缺少midas.dll,就算系统注册midas.dll,运行程序还是会报内存错误; procedure TForm1.FormCreate(Sender: TObject); var cds : TClientDataset; begin cds := TClientDataset.Create(nil); with cds.FieldDefs do begin Add(‘窗口‘,ftstring,12,true); Add(‘游戏帐号‘,ftstring,20); Add(‘大区‘,ftstring,8,false); Add(‘刷新时间‘,ftstring,10,false); end; cds.CreateDataSet; cds.open; datasource1.DataSet := cds; dbgrid1.DataSource := DataSource1; end;
时间: 2024-09-28 22:51:34