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