Arsip: Menampilkan Dbgrid Dg Script Ndiri

 
user image
more 18 years ago

saysansay

Wiew..malam yang indah, Tapi itu dia kang cyber ama Mas eko Lagi marah Ama aku Jadi sblomnya Minta maaf ya Akang dan masku yg guaaanteng super cuaakep.hehehehe sekedar anagdog-dog doank..mau ngasih tips lagi ach..kebetulan dpt Crack bagus ama komponentnya .. Selalu Menampilkan face..wakaka sekalian promosi..xixixixix and minta dikritik ama mas luri wakakakakaa Penjelasan : Setelah Script Dirun maka Kita akan Memperoleh tampilan spti Ini wakakakakkaka Codingnya Ini Nech..Yg Buaanyak Banget Xixixixixi

interface
{$I fs.inc}
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  fs_iInterpreter, StdCtrls, fs_iBDERTTI, fs_iFormsRTTI, fs_iDBCtrlsRTTI,
  fs_ipascal, WinSkinData, Buttons;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    fsScript1: TfsScript;
    fsFormsRTTI1: TfsFormsRTTI;
    fsBDERTTI1: TfsBDERTTI;
    fsDBCtrlsRTTI1: TfsDBCtrlsRTTI;
    fsPascal1: TfsPascal;
    SkinData1: TSkinData;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
{$IFDEF Delphi6}
uses Variants;
{$ENDIF}
procedure TForm1.Button1Click(Sender: TObject);
begin
  { Bersihkan Semua items }
  fsScript1.Clear;
  { script text }
  fsScript1.Lines := Memo1.Lines;
  { frGlobalUnit Type Contains standar & Function }
  fsScript1.Parent := fsGlobalUnit;
  { compile the script }
  if fsScript1.Compile then
    fsScript1.Execute else{Compile script yang ada di memo}
    ShowMessage(fsScript1.ErrorMsg); {Menampilakan Pesan Eror}
end;
end.
Moga Bermanfaat Tips dari New Babie Ini...Ingat Ini menggunakan Komponen tambahan Wakakakakaka [/code]
user image
more 18 years ago

EkoIndri

user image
more 18 years ago

nurez

klo blh tau componentnya donload dmn.....? blhh jgg :P
user image
more 18 years ago

EkoIndri

OOT: he..........he............... @saysansay ini da temen kita yang tanya tu komponen...... back to topic. @saysansay kalau misalkan ada penambahan data terus aq ingin melihat perubahannya... gimana caranya ???? biar temen2 yang lain bisa tahu soale kalau seperti itu aja terkesan statik dan bersifat report untuk datawarehouse saja. :D xixixixixixi
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com