main.vbs

来自「Dream Scripter v3.5 Full Source Code」· VBS 代码 · 共 24 行

'USEUNIT dcstdctl
'USEUNIT Db
'USEUNIT DBTables
'USEUNIT Buttons
'USEUNIT DBCtrls
'USEUNIT DBGrids
'USEUNIT ExtCtrls
'USEUNIT Detail
sub AssignImages
  DetailForm.Image1.Picture.Assign(Dbimage1.Picture)
end sub

sub ViewButClick(Sender)
 DetailForm.Visible = not (DetailForm.Visible)
 call AssignImages
End Sub

sub CloseButClick(Sender)
  close
End Sub

Sub DataSource1DataChange(Sender, Field)
 call AssignImages
End Sub