(Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory :

Size: px

Start display at page:

Download "(Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory :"

찬성 아
5 years ago
Views:

1 #2 (RAD STUDIO) In

2 (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory : hskim@embarcadero.kr

3 3! 1 - RAD,

4 3?? :

6 6?. - h=ps://ko.wikipedia.org/wiki/ ( ),

7 6? : (Record) : (Field) (TDataSet),, SQL(Structured Query Language)

8 / Open / Close / AcWve ( ) Next / Prior First / Last MoveBy(X: Integer) Fields[X: Integer] FieldByName[N: string] TField.As[ ] ) AsString, AsInteger var Name: string; Age: Integer; FDMemTable1.First; while not FDMemTable1.Eof do Name := FDMemTable1.FieldByName( Name ).AsString; Age := FDMemTable1.FieldByName( Age ).AsInteger; FDMemTable1.Next; end; end;

9 , dsinacwve : dsbrowse : dsinsert / dsedit : / dsinsert, dsedit Open / Close : / Insert : (dsinsert) Append : Edit : (dsedit) Post : Cancel : Delete :

#1 (1) FDMemTable1 Name UserData DataSource1.DataSet FDMemTable1 DBGrid1.DataSource DataSource1 procedure TForm1.FormCreate(Sender: TObject); UserData.FieldDefs.Add('ID', hinteger); UserData.

10 #1 (1) FDMemTable1 Name UserData DataSource1.DataSet FDMemTable1 DBGrid1.DataSource DataSource1 procedure TForm1.FormCreate(Sender: TObject); UserData.FieldDefs.Add('ID', hinteger); UserData.FieldDefs.Add('Name', hstring, 30); UserData.FieldDefs.Add('Age', hinteger); end; procedure TForm1. UserDataAherOpen(DataSet: TDataSet); UserData.AppendRecord([1, ' ', 30]); UserData.AppendRecord([2, ' ', 40]); UserData.AppendRecord([3, ' ', 20]); End; procedure TForm1.CheckBox1Click(Sender: TObject); UserData.AcWve := CheckBox1.Checked; end;

#1 (2) 1. TFDMemTable 2. Fields Editor 3. 4.

11 #1 (2) 1. TFDMemTable 2. Fields Editor New field ID / Integer 2. Name / String / Age / Integer

12 #1 (3) DBEdit1 ~ 3 DataSource : DataSource1 DataField : procedure TForm1.Bu=on1Click(Sender: TObject); UserData.First; End; procedure TForm1.Bu=on2Click(Sender: TObject); UserData.Last; End; procedure TForm1.Bu=on3Click(Sender: TObject); UserData.Prior; End; procedure TForm1.Bu=on4Click(Sender: TObject); UserData.Next; end;

13 #1 (4) procedure TForm1.Bu=on5Click(Sender: TObject); UserData.Append; end; procedure TForm1.Bu=on6Click(Sender: TObject); UserData.Post; end; procedure TForm1.Bu=on7Click(Sender: TObject); UserData.Delete; end;

#1 (4) UserData.First; while not UserData.Eof do Age := UserData.FieldByName('Age').AsInteger; Name := UserData.FieldByName('Name').AsString; procedure TForm1.

14 #1 (4) UserData.First; while not UserData.Eof do Age := UserData.FieldByName('Age').AsInteger; Name := UserData.FieldByName('Name').AsString; procedure TForm1.Bu=on8Click(Sender: TObject); var Name, Msg: string; Age: Integer; if Age >= 30 then if Msg <> '' then // Msg := Msg + ', '; Msg := Msg + Name; end; UserData.Next; end; ShowMessage('30 ' + Msg + '.'); end;

15 FireDAC TFDConnecWon TFDQuery

16 #2 (1) SQLite Browser 1. SQLiteBrowser 2. New Database 3. UserData.db 4. Table : UserData 5. Fields 1. ID : Integer / PK / AI 2. Name : Varchar(30) 3. Age : Integer 4. OK 6. Write Changes( )

17 #2 (2) 1. TFDConnecWon 2. FDConnecWon1 3. ConnecWon Editor 1. Database : UserData.db 2. LockingMode : Normal

18 #2 (3) 1. TFDQuery 2. FDQuery1 3. Query Editor SQL 1. SELECT * FROM UserData 2. Execute 3. OK 4. TFDMemTable 5. TFDQuery UserData 6. DataSource1.DataSet 7.

19 - 3-3 [ ] h=p://tech.devgear.co.kr/

21 h=p://devgear.co.kr/edu, 9 (2 ) (4 ) (2 ) & ios DB : 2 (2 ), (3 ) ( 1 )! UI/UX, Push (2 ) 21 (1 )

22 (1), h=p://tech.devgear.co.kr/421276,.,., 22.

23 (2) /ios with 1, 2,, h=p://tech.devgear.co.kr/

24 : h=p://devgear.co.kr/ : h=p://tech.devgear.co.kr/ : h=p://docwiki.embarcadero.com ( ) : h=p:// ( ) : h=p://borlandforum.com : h=p://cafa.naver.com/delphifmx : h=p://blog.hjf.pe.kr/ 24

25 QuesEons?

26 . h=p://tech.devgear.co.kr h=p:// h=p://

EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory :

#3 (RAD STUDIO) In www.devgear.co.kr 2016.05.23 EMBARCADERO TECHNOLOGIES (Humphery Kim) RAD Studio : h=p://tech.devgear.co.kr/ : h=p://blog.hjf.pe.kr/ Facebook : h=p://d.com/hjfactory : hskim@embarcadero.kr