Welcome

Welcome, thanks to look my blog

Thursday, 1 May 2014

PERULANGAN WHILE DO DI DELPH

unit Unit1;

interface

uses
 //Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 // Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB,DBCtrls,ExtCtrls;

   Windows, Messages, SysUtils, DB, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, sPanel, sSkinProvider, sSkinManager, Buttons,
  sSpeedButton, StdCtrls, sEdit, sComboBox, sLabel, sBitBtn, sDBNavigator,
  Grids, DBGrids, acDBGrid, DBCtrls, ComCtrls, Mask, sMaskEdit,
  sCustomComboEdit, sTooledit, sDBDateEdit, sMonthCalendar, sCheckBox,
  ADODB;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Memo1: TMemo;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    BitBtn3: TBitBtn;
    sSkinManager1: TsSkinManager;
    Label1: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   vstskode:integer;
      vstskode1:integer;
implementation

 uses   Math, DateUtils, Unit3, Unit2;
{$R *.dfm}
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i:integer;
c:char;
begin
Memo1.Clear;
for i:=1001 to 1010 do
Memo1.Lines.Add(IntToStr(i));
//for c:='a' to 'z' do
//Memo1.Lines.Add(c);
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
i:integer;
begin
//DM.ADOQuery1.Close;
//DM.ADOQuery1.Open;
Memo1.Clear;
vstskode:=4000;

while vstskode < 4132 do
begin
with  DM.ADOQuery1 do
        begin
        vstskode:=vstskode+1;
        SQL.Clear;
       SQL.Text:='insert into master_tgaji(Id,Kd_Gaji,Kd_Gol,Msg,Gaji) values ('+
        'Null'+' ,'+
        Quotedstr(IntToStr(vstskode))+' ,'+
        'Null'+' ,'+
         'Null'+' ,'+
         'Null'+')';
         ExecSQL;
         //ShowMessage(IntToStr(vstskode));
         end;
        // vstskode:=vstskode+1;
//Memo1.Lines.Add(FloatToStr(i));
end;
//DM.ADOQuery1.Close;
//DM.ADOQuery1.Open;
end;


procedure TForm1.BitBtn3Click(Sender: TObject);
var
      a : integer;
begin
Memo1.Clear;
      a:=2000;
      while a < 2010 do
      begin
               Memo1 .Lines.Add(inttostr(a));
               a:=a+1;
       end;
end;

end.

No comments:

Post a Comment