main.js

来自「一个可以制作出和DELPHI很接近的IDE的好控健。只是稍微老了点。」· JavaScript 代码 · 共 33 行

//USEUNIT dcstdctl
//USEUNIT Db
//USEUNIT DBTables
//USEUNIT Buttons
//USEUNIT DBCtrls
//USEUNIT DBGrids
//USEUNIT ExtCtrls
//USEUNIT detail

//-------------------------------------------------------------------
function AssignImages()
{
  DetailForm.Image1.Picture.Assign(Dbimage1.Picture);
}

function ViewButClick(Sender)
{
 DetailForm.Visible = !(DetailForm.Visible);
 AssignImages();
}

//-------------------------------------------------------------------

function DataSource1DataChange(Sender, Field)
{
  AssignImages();
}
//-------------------------------------------------------------------

function CloseButClick(Sender)
{
  close;
}