test.script

来自「pas脚本编译,编译写好的脚本,运用了fastscript控件」· SCRIPT 代码 · 共 40 行

procedure c1(sender: TObject);
begin
  msgbox('你成功了！,',0);
 // showmessage('将要退出程序，哈哈！');
  tform(tbutton(sender).parent).Close;
end;                                  
var
  DBForm: TForm;
  Table: TTable;
  DataSource: TDataSource;
  Grid: TDBGrid;
  bt_OK:tbutton;
begin
  DBForm := TForm.Create(nil);
  DBForm.SetBounds(100, 100, 400, 400);

  Table := TTable.Create(DBForm);
 // Table.DatabaseName :='E:\软件\Code\delphi-control\FastScript\Demos\DB';
  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;
  bt_ok:=tbutton.create(nil);
  bt_ok.left:=0;
  bt_ok.top:=0;
  bt_ok.Caption:='确定';
  bt_ok.parent:=DBForm ;
  bt_ok.onclick:=@c1;
  DBForm.ShowModal;
  DBForm.Free;
end.