Script FastScript
var DBForm: TForm; Table: TTable; DataSource: TDataSource; Grid: TDBGrid; begin DBForm := TForm.Create(nil); DBForm.SetBounds(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.
文件大小：414.04KB
评论区