1. °³¹ß/½ÇÇà Ç÷§Æû
(1) OS :
(2) °³¹ßÅø :
(3) »ç¿ë Database :
2. °³¹ß ÁßÀÎ ÇÁ·Î±×·¥
3. Áú¹® ³»¿ë
ÇÁ·Î±×·¡¹Ö¿¡ ´ëÇØ ¾Æ¹«°Íµµ ¸ð¸£°í µ¨ÆÄÀ̸¦ Á¢ÇÑÁö ¾ó¸¶¾ÈµÈ Ãʺ¸ÀÔ´Ï´Ù.
È¥ÀÚ°øºÎ¸¦ ÇÏ¸é¼ DB¿¡¼ Å×À̺íÀ» SELECT Çؼ ÇʵåÀÇ ·¹Äڵ带 °¡Á®¿À´Â °Í±îÁö´Â
¾îÂî¾îÂî ¼º°øÇߴµ¥ ÇʵåÀÇ ·¹ÄÚµå °ªÀ» ¹öưĸ¼Ç¿¡ ³Ö¾îÁÖ´Â ¹æ¹ýÀ» µµÀúÈ÷ ¸ð¸£°Ú³×¿ä... µµ¿ÍÁÖ¼¼¿ä
Á¤È®ÇÑ ¹æ¹ýµµ ÁÁ°í ¾î¶²½ÄÀ¸·Î ÇؾßÇÏ´ÂÁö ±æ¸¸ Àâ¾ÆÁּŵµ °¨»çÇÏ°Ú½À´Ï´Ù...
ÇöÀç Á¦°¡ ÇÑ ÄÚµùÀÔ´Ï´Ù.
type
Tbtnarr = record
btnarr : Tbutton;
end;
Tfrm2 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
cxGrid1DBTableView1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
Button1: TButton;
Button2: TButton;
...
cxLabel1: TcxLabel;
cxLabel2: TcxLabel;
cxLabel3: TcxLabel;
cxGrid1DBTableView1Column1: TcxGridDBColumn;
cxGrid1DBTableView1Column2: TcxGridDBColumn;
cxGrid1DBTableView1Column3: TcxGridDBColumn;
cxGrid1DBTableView1Column4: TcxGridDBColumn;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm2: Tfrm2;
btnarr : array [1..8] of Tbutton;
implementation
uses unit1;
{$R *.dfm}
procedure Tfrm2.FormActivate(Sender: TObject);
var
i : integer;
begin
i := 1;
with frmmodule.zqry do
begin
close;
sql.Clear;
sql.add('select distinct Ä÷³¸í from Å×À̺í¸í');
open;
//////////////// ¿©±â ¹ØºÎÅÍ´Â ¾î¶»°Ô ÇؾßÇÒÁö ¸ô¶ó ¿©·¯°¡Áö ½Ãµµ¸¦ Çغ¸´Â ÁßÀÔ´Ï´Ù.
for I := 1 to recordcount - 1 do
begin
btnarr[I].Caption := inttostr(I);
end;
end;
end;