文件名称：Script FastScript
文件大小：414KB
文件格式：RAR
更新时间：2017-12-10 05:20:39
FastCript
var DBForm: TForm; Table: TTable; DataSource: TDataSource; Grid: TDBGrid; begin DBForm := TForm.Create(nil); DBForm.SetBounds(100, 100, 400, 400); Table := TTable.Create(DBForm); Table.DatabaseName := 'DBDEMOS'; Table.TableName := 'customer.db'; Table.Open; DataSource := TDataSource.Create(DBForm); DataSource.DataSet := Table; Grid := TDBGrid.Create(DBForm); Grid.DataSource := DataSource; Grid.Parent := DBForm; Grid.Align := alClient; DBForm.ShowModal; DBForm.Free; end.
【文件预览】：
Project1.exe
Project1.res
Unit1.dfm
Unit1.pas
Project1.dpr
Unit1.dcu