Programlama yapalım ve Öğrenelim.

İnterbase Hakkında

CREATE TABLE DEPARTMENT

(DEPT_NO DEPTNO NOT NULL,

DEPARTMENT VARCHAR(25) NOT NULL UNIQUE,

HEAD_DEPT DEPTNO,

MNGR_NO EMPNO,

BUDGET BUDGET,

LOCATION VARCHAR(15),

PHONE_NO PHONENUMBER DEFAULT "555-1234",

PRIMARY KEY (DEPT_NO),

FOREIGN KEY (HEAD_DEPT) REFERENCES DEPARTMENT (DEPT_NO));

CREATE TABLE EMPLOYEE

(EMP_NO EMPNO NOT NULL,

FIRST_NAME FIRSTNAME NOT NULL,

LAST_NAME LASTNAME NOT NULL,

PHONE_EXT VARCHAR(4),

HIRE_DATE DATE DEFAULT "NOW" NOT NULL,

DEPT_NO DEPTNO NOT NULL,

JOB_CODE JOBCODE NOT NULL,

JOB_GRADE JOBGRADE NOT NULL,

JOB_COUNTRY COUNTRYNAME NOT NULL,

SALARY SALARY NOT NULL,

FULL_NAME COMPUTED BY (LAST_NAME || "," || FIRST_NAME)),

PRIMARY KEY (EMP_NO),

FOREIGN KEY (DEPT_NO) REFERENCES

DEPARTMENT (DEPT_NO),

FOREIGN KEY (JOB_CODE, JOB_GRADE, JOB_COUNTRY) REFERENCES

JOB (JOB_CODE, JOB_GRADE, JOB_COUNTRY),

CHECK (SALARY >= (SELECT MIN_SALARY FROM JOB WHERE

JOB.JOB_CODE = EMPLOYEE.JOB_CODE AND

JOB.JOB_GRADE = EMPLOYEE.JOB_GRADE AND

JOB.JOB_COUNTRY = EMPLOYEE.JOB_COUNTRY) AND

SALARY <= (SELECT MAX_SALARY FROM JOB WHERE

JOB.JOB_CODE = EMPLOYEE.JOB_CODE AND

JOB.JOB_GRADE = EMPLOYEE.JOB_GRADE AND

JOB.JOB_COUNTRY = EMPLOYEE.JOB_COUNTRY));

CREATE INDEX name ON table (columns)

CREATE INDEX NAMEX ON EMPLOYEE (LAST_NAME, FIRST_NAME);

CREATE UNIQUE INDEX PRODTYPEX ON PROJECT (PRODUCT, PROJ_NAME);

NAMEX INDEX ON EMPLOYEE (LAST_NAME, FIRST_NAME)

ALTER INDEX NAMEX INACTIVE;

DROP INDEX NAMEX;

CREATE UNIQUE INDEX NAMEX ON EMPLOYEE (LAST_NAME, FIRST_NAME);

CREATE VIEW PHONE_LIST AS

SELECT EMP_NO, FIRST_NAME, LAST_NAME, PHONE_EXT, LOCATION, PHONE_NO

FROM EMPLOYEE, DEPARTMENT

WHERE EMPLOYEE.DEPT_NO = DEPARTMENT.DEPT_NO;

INSERT INTO table_name (col1, col2, ...) VALUES (val1, val2, ...);

INSERT INTO COUNTRY (COUNTRY, CURRENCY) VALUES ("USA", "DOLLAR");

The next group inserts values into the DEPARTMENT table. For example:

INSERT INTO DEPARTMENT

(DEPT_NO, DEPARTMENT, HEAD_DEPT, BUDGET, LOCATION, PHONE_NO)

VALUES

("000", "CORPORATE HEADQUARTERS", NULL, 1000000, "MONTEREY",

"(408) 555-1234");

SELECT * FROM DEPARTMENT;

CREATE TABLE SALES_EXT EXTERNAL "/PATH/SALES.DAT"

(PO_NUMBER CHAR(10),

CUST_NO CHAR(12),

SALES_REP CHAR(10),

ORDER_STATUS CHAR(13),

ORDER_DATE CHAR(12),

SHIP_DATE CHAR(12),

DATE_NEEDED CHAR(12),

PAID CHAR(7),

QTY_ORDERED CHAR(12),

TOTAL_VALUE CHAR(12),

DISCOUNT CHAR(16),

ITEM_TYPE CHAR(8),

EOL CHAR(1));

SELECT * FROM SALES_EXT;

INSERT INTO SALES

(PO_NUMBER, CUST_NO, SALES_REP, ORDER_STATUS, ORDER_DATE, SHIP_DATE,

DATE_NEEDED, PAID, QTY_ORDERED, TOTAL_VALUE, DISCOUNT, ITEM_TYPE)

SELECT

PO_NUMBER, CUST_NO, SALES_REP, ORDER_STATUS, ORDER_DATE, SHIP_DATE,

DATE_NEEDED, PAID, QTY_ORDERED, TOTAL_VALUE, DISCOUNT, ITEM_TYPE

FROM SALES_EXT;

SELECT * FROM SALES;

UPDATE table

SET column = value

WHERE condition

UPDATE EMPLOYEE

SET SALARY = SALARY + 2000

WHERE JOB_CODE = "SALES";

UPDATE EMPLOYEE

SET SALARY = SALARY + 2000

WHERE JOB_CODE = "SALES" AND HIRE_DATE < "01-Jan-1992";

SELECT DEPT_NO FROM EMPLOYEE

WHERE FULL_NAME = "Young, Katherine";

UPDATE EMPLOYEE

SET MNGR_NO = 107

WHERE DEPT_NO = "623";

UPDATE EMPLOYEE

SET MNGR_NO = 107

WHERE DEPT_NO = (SELECT DEPT_NO FROM EMPLOYEE

WHERE FULL_NAME = "Young, Katherine");

DELETE FROM table

WHERE condition

DELETE FROM EMPLOYEE

WHERE JOB_CODE = "Mngr";

DELETE FROM EMPLOYEE

WHERE JOB_CODE = "Srep" AND HIRE_DATE < "10-Jul-1993";

SELECT EMP_NO, JOB_CODE, HIRE_DATE FROM EMPLOYEE;

SELECT DEPT_NO FROM EMPLOYEE

WHERE FULL_NAME = "Young, Katherine";

DELETE FROM EMPLOYEE

WHERE DEPT_NO = "623";

DELETE FROM EMPLOYEE

WHERE DEPT_NO = (SELECT DEPT_NO FROM EMPLOYEE

WHERE FULL_NAME = "Young, Katherine");

SELECT [DISTINCT] columns

FROM tables

WHERE <search_conditions>

[GROUP BY column HAVING <search_condition>]

ORDER BY <sort_order>;

SELECT DEPARTMENT, DEPT_NO, FULL_NAME, EMP_NO

FROM DEPARTMENT, EMPLOYEE

WHERE DEPARTMENT = "Engineering" AND MNGR_NO = EMP_NO;

SELECT * FROM PHONE_LIST;

SELECT JOB_CODE FROM JOB;

SELECT DISTINCT JOB_CODE FROM JOB;

SELECT DISTINCT JOB_CODE, JOB_GRADE FROM JOB;

SELECT LAST_NAME, FIRST_NAME, PHONE_EXT

FROM EMPLOYEE

WHERE LAST_NAME = "Green";

LAST_NAME = "Green"

WHERE condition;

condition = column operator value [log_operator condition]

value = value arith_operator value

SELECT LAST_NAME, FIRST_NAME, PHONE_EXT

FROM EMPLOYEE

WHERE LAST_NAME = "Green";

WHERE NOT (LAST_NAME = “Green”

SELECT LAST_NAME, FIRST_NAME, EMP_NO FROM EMPLOYEE

WHERE LAST_NAME LIKE "%an";

SELECT LAST_NAME, FIRST_NAME, EMP_NO FROM EMPLOYEE

WHERE LAST_NAME LIKE "_e%";

SELECT LAST_NAME, FIRST_NAME

FROM EMPLOYEE

WHERE FIRST_NAME STARTING WITH "Ke";

SELECT LAST_NAME, FIRST_NAME

FROM EMPLOYEE

WHERE PHONE_EXT IS NULL;

SELECT LAST_NAME, FIRST_NAME, PHONE_EXT

FROM EMPLOYEE

WHERE PHONE_EXT IS NOT NULL;

SELECT LAST_NAME, FIRST_NAME

FROM EMPLOYEE

WHERE SALARY BETWEEN 100000 AND 250000;

SELECT DEPT_NO, LAST_NAME, FIRST_NAME FROM EMPLOYEE

WHERE DEPT_NO IN (120, 600, 623);

SELECT DEPT_NO, LAST_NAME, FIRST_NAME, HIRE_DATE

FROM EMPLOYEE

WHERE DEPT_NO = 623 AND HIRE_DATE > "01-Jan-1992";

SELECT CUSTOMER, CUST_NO

FROM CUSTOMER

WHERE COUNTRY = "USA" OR COUNTRY = "Canada";

SELECT LAST_NAME, FIRST_NAME, HIRE_DATE, DEPT_NO

FROM EMPLOYEE

WHERE DEPT_NO = 623 OR DEPT_NO = 600

AND HIRE_DATE > "01-JAN-1992";

(WHERE DEPT_NO = 623)

(WHERE DEPT_NO = 600 AND HIRE_DATE > "01-JAN-1992")

SELECT LAST_NAME, FIRST_NAME, HIRE_DATE, DEPT_NO

FROM EMPLOYEE

WHERE (DEPT_NO = 623 OR DEPT_NO = 600)

AND HIRE_DATE > "01-JAN-1992";

SELECT JOB_COUNTRY FROM EMPLOYEE

WHERE EMP_NO = 144;

SELECT EMP_NO, LAST_NAME FROM EMPLOYEE

WHERE JOB_COUNTRY = "USA";

SELECT EMP_NO, LAST_NAME FROM EMPLOYEE

WHERE JOB_COUNTRY =

(SELECT JOB_COUNTRY FROM EMPLOYEE

WHERE EMP_NO = 144);

SELECT FIRST_NAME, LAST_NAME

FROM EMPLOYEE

WHERE JOB_GRADE IN

(SELECT JOB_GRADE FROM JOB WHERE JOB_GRADE <= 2);

SELECT SALARY FROM EMPLOYEE

WHERE DEPT_NO = 623;

SELECT LAST_NAME, DEPT_NO FROM EMPLOYEE

WHERE SALARY IN

(SELECT SALARY FROM EMPLOYEE WHERE DEPT_NO = 623);

SELECT LAST_NAME, SALARY FROM EMPLOYEE

WHERE SALARY > ALL

(SELECT SALARY FROM EMPLOYEE WHERE DEPT_NO = 623);

SELECT LAST_NAME, SALARY FROM EMPLOYEE

WHERE SALARY > ANY

(SELECT SALARY FROM EMPLOYEE WHERE DEPT_NO = 623);

SELECT COUNT(DISTINCT JOB_CODE) FROM JOB;

SELECT COUNT(EMP_NO), MIN(HIRE_DATE), SUM(SALARY)

FROM EMPLOYEE;

SELECT JOB_CODE, JOB_GRADE, MAX_SALARY

FROM JOB WHERE JOB_COUNTRY = "USA";

SELECT JOB_CODE, SUM(MAX_SALARY)

FROM JOB WHERE JOB_COUNTRY = "USA"

GROUP BY JOB_CODE;

SELECT HEAD_DEPT, SUM(BUDGET)

FROM DEPARTMENT

GROUP BY HEAD_DEPT;

SELECT HEAD_DEPT, SUM(BUDGET)

FROM DEPARTMENT

GROUP BY HEAD_DEPT

HAVING SUM(BUDGET) > 2000000;

SELECT LAST_NAME, FIRST_NAME, PHONE_EXT

FROM EMPLOYEE

ORDER BY LAST_NAME;

SELECT LAST_NAME, FIRST_NAME, PHONE_EXT

FROM EMPLOYEE

ORDER BY LAST_NAME DESC;

SELECT LAST_NAME, FIRST_NAME, PHONE_EXT

FROM EMPLOYEE

ORDER BY LAST_NAME DESC, FIRST_NAME;

SELECT <columns>

FROM <left_table> [INNER] JOIN <right_table>

[ON <searchcondition>]

[WHERE <searchcondition>];

SELECT D.DEPARTMENT, D.MNGR_NO, E.SALARY

FROM DEPARTMENT D JOIN EMPLOYEE E

ON D.MNGR_NO = E.EMP_NO

AND E.SALARY*2 > (SELECT SUM(S.SALARY) FROM EMPLOYEE S

WHERE D.DEPT_NO = S.DEPT_NO)

ORDER BY D.DEPARTMENT;

SELECT col [, col ...] | *

FROM <left_table> {LEFT | RIGHT | FULL} [OUTER] JOIN

<right_table> [ON <searchcondition>]

[WHERE <searchcondition>];

SELECT PROJ_ID, FULL_NAME

FROM EMPLOYEE LEFT OUTER JOIN EMPLOYEE_PROJECT

ON EMPLOYEE.EMP_NO = EMPLOYEE_PROJECT.EMP_NO;

FROM EMPLOYEE_PROJECT LEFT OUTER JOIN EMPLOYEE

CAST (<value> | NULL AS datatype)

SELECT DEPARTMENT, LAST_NAME || " is the manager"

FROM DEPARTMENT, EMPLOYEE

WHERE MNGR_NO = EMP_NO;

CREATE DOMAIN PROJNO

AS CHAR(5)

CHECK (VALUE = UPPER (VALUE));

CREATE GENERATOR EMP_NO_GEN;

SET GENERATOR EMP_NO_GEN TO 145;

INSERT INTO EMPLOYEE (FIRST_NAME, LAST_NAME, DEPT_NO, JOB_CODE,

JOB_GRADE, JOB_COUNTRY, HIRE_DATE, SALARY, PHONE_EXT) VALUES

("Reed", "Richards", "671", "Eng", 5, "USA", "07/27/95", 34000, "444");

SHOW TRIGGER SAVE_SALARY_CHANGE

Triggers on Table EMPLOYEE:

SAVE_SALARY_CHANGE, Sequence: 0, Type: AFTER UPDATE, Active

BEGIN

IF (OLD.SALARY <> NEW.SALARY) THEN

INSERT INTO SALARY_HISTORY

(EMP_NO, CHANGE_DATE, UPDATER_ID, OLD_SALARY, PERCENT_CHANGE)

VALUES (OLD.EMP_NO,

"NOW",

USER,

OLD.SALARY,

(NEW.SALARY - OLD.SALARY) * 100 / OLD.SALARY);

END

CREATE TRIGGER POST_NEW_ORDER FOR SALES

AFTER INSERT AS

BEGIN

POST_EVENT "new_order";

END !!

CREATE PROCEDURE GET_EMP_PROJ (EMP_NO SMALLINT)

RETURNS (PROJ_ID CHAR(5))

BEGIN

FOR SELECT PROJ_ID

FROM EMPLOYEE_PROJECT

WHERE EMP_NO = :EMP_NO

INTO :PROJ_ID

SUSPEND;

END ^

SELECT * FROM GET_EMP_PROJ(71);

CREATE EXCEPTION UNKNOWN_EMP_ID

"Invalid employee number or project id.";

CREATE PROCEDURE ADD_EMP_PROJ (EMP_NO SMALLINT, PROJ_ID CHAR(5))

BEGIN

INSERT INTO EMPLOYEE_PROJECT (EMP_NO, PROJ_ID)

VALUES (:emp_no, :proj_id);

WHEN SQLCODE -530 DO

EXCEPTION UNKNOWN_EMP_ID;

END

SUSPEND;

END ^

EXECUTE PROCEDURE ADD_EMP_PROJ(20, "DGPII");

EXECUTE PROCEDURE ADD_EMP_PROJ(999, "DGPII");

SHOW PROCEDURE DEPT_BUDGET;

Procedure text:

======================================================================

DECLARE VARIABLE sumb DECIMAL(12, 2);

DECLARE VARIABLE rdno CHAR(3);

DECLARE VARIABLE cnt INTEGER;

BEGIN

tot = 0;

SELECT BUDGET FROM DEPARTMENT WHERE DEPT_NO = :dno INTO :tot;

SELECT COUNT(BUDGET) FROM DEPARTMENT WHERE HEAD_DEPT = :dno INTO :cnt;

IF (cnt = 0) THEN

SUSPEND;

FOR SELECT DEPT_NO

FROM DEPARTMENT

WHERE HEAD_DEPT = :dno

INTO :rdno

BEGIN

EXECUTE PROCEDURE DEPT_BUDGET :rdno RETURNING_VALUES :sumb;

tot = tot + sumb;

END

SUSPEND;

END

======================================================================

Parameters:

DNO INPUT CHAR(3)

TOT OUTPUT NUMERIC(15, 2)

CHECK (SALARY >= (SELECT MIN_SALARY FROM JOB WHERE

JOB.JOB_CODE = EMPLOYEE.JOB_CODE AND

JOB.JOB_GRADE = EMPLOYEE.JOB_GRADE AND

JOB.JOB_COUNTRY = EMPLOYEE.JOB_COUNTRY)

AND

SALARY <= (SELECT MAX_SALARY FROM JOB WHERE

JOB.JOB_CODE = EMPLOYEE.JOB_CODE AND

JOB.JOB_GRADE = EMPLOYEE.JOB_GRADE AND

JOB.JOB_COUNTRY = EMPLOYEE.JOB_COUNTRY))

CHECK (order_status in ("new", "open", "shipped", "waiting"))

CHECK (ship_date >= order_date OR ship_date IS NULL)

CHECK (date_needed > order_date OR date_needed IS NULL)

CHECK (paid in ("y", "n"))

CHECK (qty_ordered >= 1)

CHECK (total_value >= 0)

CHECK (discount >= 0 AND discount <= 1)

CHECK (NOT (order_status = "shipped" AND ship_date IS NULL))

CHECK (NOT (order_status = "shipped" AND

EXISTS (SELECT on_hold FROM customer

WHERE customer.cust_no = sales.cust_no

AND customer.on_hold = "*")))

Delphi - .....................................

SQL Hakkında

SELECT column1 FROM Table1 WHERE column1 = 77

SELECT <select list>WHERE <search conditions>FROM <Table list>

GROUP BY <grouping columns>HAVING <conditions>ORDER BY <sorting columns>

SELECT column1, column2 FROM Table1 WHERE indexed_column = <literal>

UPDATE Table1 SET column1 = 5 WHERE column2 > 400

SELECT * FROM Table1

WHERE column1 = 5

AND column2 = 77.3

AND column3 = 'Smith'

AND column4 < 117

AND column4 > column5

(A <comparison operator> B) IS TRUE AND (B <comparison operator> C) IS TRUE

THEN

(A <comparison operator> C) IS TRUE AND NOT (A <comparison operator> C) IS FALSE

SELECT * FROM Table1

WHERE column1 = 5 AND

NOT (column3 = 7 OR column1 = column2)

SELECT * FROM Table1

WHERE column1 = 5

AND column3 <> 7

AND column2 <> 5

SELECT * FROM Table1

WHERE date_column = CURRENT_DATE

AND amount * 5 > 100.00

SELECT * FROM Table1

WHERE date_column = DATE '2002-01-01'

AND amount * 5 > 100.00

SELECT * FROM Table1

WHERE 0 = 1

AND column1 = 'I hope we never execute this'

SELECT * FROM Table1

WHERE indexed_column > 0

... WHERE column2 = 'B' AND column1 = 'A'

... WHERE column1 = 'A' OR column2 = 'B'

... WHERE column1 = 1 OR column1 = 2 OR column2 = 3

SELECT * FROM Table1

WHERE (column1 = 1 AND column2 = 'A')

OR (column1 = 1 AND column2 = 'B')

SELECT * FROM Table1

WHERE column1 = 1

AND (column2 = 'A' OR column2 = 'B')

A AND (B OR C)

(A AND B) OR (A AND C)

... WHERE NOT (column1 > 5)

... WHERE column1 <= 5

NOT (A AND B) = (NOT A) OR (NOT B)

NOT (A OR B) = (NOT A) AND (NOT B)

... WHERE NOT (column1 > 5 OR column2 = 7)

... WHERE column1 <= 5 AND column2 <> 7

... WHERE bloodtype < 'O' OR bloodtype > 'O'

... WHERE column1 = 5 OR column1 = 6

... WHERE column1 IN (5, 6)

... WHERE column1 IN (1, 3, 4, 5)

... WHERE column1 BETWEEN 1 AND 5 AND column1 <> 2

... WHERE column1 LIKE 'C_F%'

... WHERE column1 >= 'C'

AND column1 < 'D'

AND column1 LIKE 'C_F%'

... WHERE SUBSTRING(column1 FROM 1 FOR 1) = 'F'

OR SUBSTRING(column1 FROM 2 FOR 1) = 'F'

OR SUBSTRING(column1 FROM 3 FOR 1) = 'F'

... WHERE column1 SIMILAR TO '[A-F][AEK]_'

... WHERE column1 SIMILAR TO '[ABK]'

SELECT * FROM Table1

WHERE column1 = 5

UNION

SELECT * FROM Table1

WHERE column2 = 5

SELECT DISTINCT * FROM Table1

WHERE column1 = 5

OR column2 = 5

SELECT * FROM Table1

WHERE column1 = 7 AND

NOT column2 = 8

SELECT * FROM Table1

WHERE column1 = 7

EXCEPT

SELECT * FROM Table1

WHERE column2 = 8

... WHERE slow_function(column1) = 3

OR slow_function(column1) = 5

... WHERE 1 =

CASE slow_function(column1)

WHEN 3 THEN 1

WHEN 5 THEN 1

END

SELECT column1*4 FROM Table1 WHERE COLUMN1 = COLUMN2 + 7

select Column1 * 4 FROM Table1 WHERE column1=(column2 + 7)

SELECT column1 * 4 FROM Table1 WHERE column1 = column2 + 7

... WHERE MOD(decimal_column, 1) = 0

... WHERE CAST(decimal_column AS CHAR(7)) LIKE '%.00%'

... WHERE decimal_column = CAST(decimal_column AS INTEGER)

SELECT * FROM Table1 ORDER BY column1

SELECT * FROM Table1 ORDER BY column1, column2

SELECT * FROM Table1 ORDER BY column1, column2, column3

SELECT * FROM Table1 ORDER BY column1

SELECT column1 FROM Table1

ORDER BY column1

SELECT column1 FROM Table1 ORDER BY column2

SELECT column1 FROM Table1 ORDER BY <function>(column1)

SELECT column1 FROM Table1 WHERE column1 > -32768

SELECT DISTINCT column1 FROM Table1

SELECT * FROM Table1

RDER BY german_column COLLATE German

SELECT column1 FROM Table1

GROUP BY column1

SELECT COUNT(*) FROM Table1

HAVING COUNT(*) = 5

SELECT column1 FROM Table1

GROUP BY column1,column2 COLLATE SQL_Latin1_General

SELECT LOWER(column1) FROM Table1

GROUP BY LOWER(column1)

SELECT column1, column2 FROM Table1

GROUP BY CUBE (column1, column2)

SELECT AVG(column1), STDEV(column1), UDF1(column1)

FROM Table1

WHERE column1 > 55

GROUP BY column1

ORDER BY column1

SELECT column1, MIN(column2) FROM Table1

GROUP BY column1

SELECT UPPER(column1) FROM Table1

GROUP BY UPPER(column1)

CREATE VIEW View1 AS

SELECT column1, COUNT(column1) FROM Table1

GROUP BY column1

SELECT column1, MIN(column2) FROM Table1

GROUP BY column1 COLLATE SQL_Latin1_General

SELECT column1, column2 FROM Table1

GROUP BY CUBE (column1, column2)

SELECT secondary_key_column, primary_key_column, COUNT(*)

FROM Table1

GROUP BY secondary_key_column, primary_key_column

SELECT MIN(secondary_key_column), primary_key_column, COUNT(*)

FROM Table1

GROUP BY primary_key_column

SELECT SUM(Table1.column2), SUM(Table2.column2)

FROM Table1 INNER JOIN Table2

ON Table1.column1 = Table2.column1

GROUP BY Table1.column1

SELECT column1, SUM(column2), 0

FROM Table1

GROUP BY column1

INTERSECT

SELECT column1, 0, SUM(column2)

FROM Table2

GROUP BY column1

SELECT COUNT(*) FROM Table1, Table2

WHERE Table1.column1 = Table2.column1

SELECT COUNT(*) FROM Table2

WHERE Table2.column1 IN

(SELECT Table1.column1 FROM Table1)

SELECT column1 FROM Table1

WHERE column2 = 5

GROUP BY column1

HAVING column1 > 6

SELECT column1 FROM Table1

WHERE column2 = 5

AND column1 > 6

GROUP BY column1

SELECT column1

FROM Table1

GROUP BY column1

SELECT DISTINCT column1

FROM Table1

SELECT * FROM Table1

GROUP BY column1, column2

ORDER BY column1

SELECT * FROM Table1

GROUP BY column1, column2

ORDER BY column1, column2

SELECT column1 FROM Table1

WHERE column2 = 55

GROUP BY column1

SELECT column1 FROM Table1

GROUP BY column1

SELECT MIN(column1) FROM Table1

SELECT MIN(column1), MAX(column1)

FROM Table1

SELECT MIN(column1) FROM Table1

SELECT MAX(column1) FROM Table1

SELECT COUNT(*) FROM Table1

SELECT SUM(column1) FROM Table1 WHERE column1 > 5

SELECT COUNT(*) FROM Table1

SELECT COUNT(DISTINCT column1)

FROM Table1

WHERE column2 > 55

SELECT COUNT(*) FROM Table1

SELECT COUNT(1) FROM Table1

SELECT SUM(1) FROM Table1

SELECT CAST(SUM(column1) AS DECIMAL(10))

FROM Table1

SELECT SUM(CAST(column1 AS DECIMAL(10)))

FROM Table1

SELECT SUM(CAST(column1 AS BIGINT))

FROM Table1

SELECT column1 AS col1, SUM(column2)

FROM Table1

WHERE column1 IS NOT NULL

GROUP BY column1

UNION ALL

SELECT 'Total' AS col1, SUM(column2)

FROM Table1

ORDER BY col1

SELECT MAX(LOWER(column1)) FROM Table1

GROUP BY column1

SELECT LOWER(column1) FROM Table1

GROUP BY LOWER(column1)

SELECT column1 FROM Table1

GROUP BY column1 COLLATE SQL_Latin1_General

SELECT LOWER(column1) AS alias_name

FROM Table1

GROUP BY alias_name

ORDER BY alias_name

SELECT MIN(column1)

FROM Table1

SELECT MIN(UPPER(column1))

FROM Table1

SELECT * FROM Table1, Table2

WHERE Table1.column1 = Table2.column1

AND Table1.column2 = Table2.column2

SELECT * FROM Table1, Table2

WHERE Table1.column1 = Table2.column1

AND Table1.column1 = 55

SELECT * FROM Table1, Table2

WHERE Table1.column1 = 55

AND Table2.column1 = 55

SELECT * FROM Table1, Table2, Table3

WHERE Table1.column1 = Table2.column1

AND Table2.column1 = Table3.column1

SELECT * FROM Table1, Table2, Table3

WHERE Table1.column1 = Table2.column1

AND Table2.column1 = Table3.column1

AND Table1.column1 = Table3.column1

SELECT Table1.column1, Table2.column1

FROM Table1 LEFT JOIN Table2

ON Table1.column1 = Table2.column1

SELECT MIN(Table1.column1)

FROM Table1, Table2

WHERE Table1.column1 = Table2.column1

SELECT * FROM Table1

WHERE Table1.column1 IN

(SELECT Table2.column1

FROM Table2

WHERE Table2.column1 = 5)

SELECT Table1.*

FROM Table1, Table2

WHERE Table1.column1 = Table2.column1

AND Table2.column1 = 5

SELECT Table1.column1 FROM Table1

WHERE Table1.column1 NOT IN

(SELECT Table2.column1 FROM Table2)

SELECT Table1.column1

FROM Table1 LEFT JOIN Table2

ON Table1.column1 = Table2.column1

WHERE Table2.column1 IS NULL

SELECT * from Table1

WHERE Table1.column1 IN

(SELECT Table2.column1 FROM Table2

WHERE Table2.column1 = 5)

SELECT * from Table1

WHERE Table1.column1 IN

(SELECT DISTINCT Table2.column1 FROM Table2

WHERE Table2.column1 = 5)

SELECT * FROM Table1

WHERE EXISTS

(SELECT column1 FROM Table2)

SELECT * FROM Table1

WHERE Table1.column1 IN

(SELECT Table2.column1 FROM Table2)

SELECT * FROM Table1

WHERE EXISTS

(SELECT * FROM Table2

WHERE Table1.column1 = Table2.column1)

SELECT * FROM Table1

WHERE EXISTS

(SELECT * FROM Table2

WHERE Table1.column1 = Table2.column1

UNION

SELECT * FROM Table3

WHERE Table1.column2 = Table3.column1)

SELECT * FROM Table1

WHERE Table1.column1 IN

(SELECT Table2.column1 FROM Table2)

OR Table1.column2 IN

(SELECT Table3.column1 FROM Table3)

SELECT * FROM Table1

WHERE column1 > ALL

(SELECT column1 FROM Table2)

SELECT * FROM Table1

WHERE column1 > ANY

(SELECT MAX(column1) FROM Table2)

SELECT column1 FROM Table1

WHERE Table1.column2 NOT IN

(SELECT column2 FROM Table2)

SELECT column1 FROM Table1

EXCEPT

SELECT column1 FROM Table1

WHERE Table1.column2 IN

(SELECT column2 FROM Table2)

SELECT column1 FROM Table1

WHERE ROWID = '00001F20.00A3.0001'

FOR UPDATE OF column1

Delphi - .....................................

11.000 Delphi Code - Dev arşiv - 31 Ağustos Tekrar yayında

10 Gün önce Database'de yaşadığımız bir sorun nedeniyle code list'i bir süre kaptmak zorunda kalmıştık.Yeni adresinden code list'e ulaşabilirsiniz.

Drony Code spider ile taranarak dünyadaki forum ve tips sitelerinden toplanmış yaklaşık 11.000 Delphi code.. Umarım çalışmalarınızda yardımcı olur..

iyi günler.

http://www.unreadedpost.com/viewtopic.php?t=67066

Delphi - .....................................

İki tarih arası listeleme

//Dbgri1 içerisine iki tane tarih arasındaki kayıtları görmek.

Table1.IndexName:='hostb';

Table1.SetRange([DateToStr(DateTimePicker1.Date)],[DateToStr(DateTimePicker2.Date)]);

Table1.ApplyRange;

Delphi - .....................................

virgül ile ayrılmış sayıyı YAZIya çevirme

function Cevir(Val : extended) : String;

const

hanex : array[0..2, '0'..'9'] of String = (

('', 'Bir ', 'İki ', 'Üç ', 'Dört ', 'Beş ', 'Altı ', 'Yedi ', 'Sekiz ', 'Dokuz '),

('', 'On ', 'Yirmi ', 'Otuz ', 'Kırk ', 'Elli ', 'Atmış ', 'Yetmiş ', 'Seksen ', 'Doksan '),

('', 'Yüz ', 'İki Yüz ', 'Üç Yüz ', 'Dört Yüz ', 'Beş Yüz ', 'Altı Yüz ', 'Yedi Yüz ', 'Sekiz Yüz ', 'Dokuz Yüz '));

katx : array[0..5] of String = ('', 'Bin ', 'Milyon ', 'Milyar ', 'Trilyon ', 'Katrilyon ');

var

Kat : Integer;

function _Cevir(sy : String) : String;

var

lsy, hn : Integer;

begin

Result := ''; if sy = '' then Exit;

if (sy = '1') and (kat = 1) then begin Result := 'Bin'; Exit; end;

hn := 0; lsy := length(sy);

while (hn < 3) and (hn < lsy)

begin

Result := hanex[hn, sy[lsy - hn]] + Result;

Inc(hn);

end;

Result := Result + katx[kat];

Inc(kat);

if lsy > 3 then Result := _Cevir(copy(sy, 1, lsy - 3)) + Result;

end;

begin

Result := ''; kat := 0;

Result := _Cevir(formatFloat('##0', int(Val)));

end;

function TExCevir(e:extended):string;

var

e1,e2:Extended;

lenE2:integer;

s1,s2:string;

const virgul : array[0..20] of string = (

'','Onda','Yüzde','Binde','Onbinde',

'Yüzbinde','Milyonda','Onmilyonda','Yüzmilyonda','Milyarda',

'Onmilyarda','Yüzmilyarda','Trilyonda','Ontrilyonda','Yüztrilyonda',

'Katrilyonda','Onkatrilyonda','Yüzkatrilyonda','Katrilyarda','Onkatrilyarda','Yüzkatrilyarda');

begin

e1:=Int(e);

e2:=e-e1;

lenE2:=StrLen(PChar(FloatToStr(e2)));

e2:=e2 * Power(10,lenE2-2);

s1:=Cevir(e1);

s2:=Cevir(e2);

lenE2:=StrLen(PChar(FloatToStr(e2)));

if e2<>0 then

begin

Result:=s1 + ' tam ' + virgul[lenE2] + ' ' + s2;

end

else

begin

Result:=s1;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowMessage(TExCevir(StrToFloat(edit1.Text)));

end;

// Kod Tolgahan Albayrak tarafından modifiye edilmiştir.

Delphi - .....................................

soruya cevap ado select

With AdoQuery Do

begin

with sql do

Begin

Clear;

Close;

Add('select *');

Add('from ATTablo');

Add('Where Adi='''+Edit1.text+''');

Open;

end;

Text alanları SQl cumlesıne yazarken tırnak ıcıne almalısın

espedon@hotmail.com

Delphi - .....................................

Nasıl Post Edilir

Selamlar

http://www.gib.gov.tr/motop/bilgi.php nasıl post edebiliriz.

Delphi - .....................................

Plakalı/Plakasız İller Listesi (Bu, doğru ve tam olanı)

Selamu aleykum. Arkadaşlar gördüm ki iller listesinin gönderilmesi başarısız

olmuş, en kullanışlı olduğunu düşündüğüm halini göndermeyi kendime vazife bildim.

Aşağıdaki kodları formunuzun On Create eventına eklerseniz, açılışta ComboBox1

nesnesine iller listesini ekler. İllerin plaka kodları için ComboBox1.ItemIndex+1

değişkenini kullanabilirsiniz. MSN: yasin@qbilisim.com

ComboBox1.Items.Clear;

ComboBox1.Items.Add('Adana');

ComboBox1.Items.Add('Adıyaman');

ComboBox1.Items.Add('Afyon');

ComboBox1.Items.Add('Ağrı');

ComboBox1.Items.Add('Amasya');

ComboBox1.Items.Add('Ankara');

ComboBox1.Items.Add('Antalya');

ComboBox1.Items.Add('Artvin');

ComboBox1.Items.Add('Aydın');

ComboBox1.Items.Add('Balıkesir');

ComboBox1.Items.Add('Bilecik');

ComboBox1.Items.Add('Bingöl');

ComboBox1.Items.Add('Bitlis');

ComboBox1.Items.Add('Bolu');

ComboBox1.Items.Add('Burdur');

ComboBox1.Items.Add('Bursa');

ComboBox1.Items.Add('Çanakkale');

ComboBox1.Items.Add('Çankırı');

ComboBox1.Items.Add('Çorum');

ComboBox1.Items.Add('Denizli');

ComboBox1.Items.Add('Diyarbakır');

ComboBox1.Items.Add('Edirne');

ComboBox1.Items.Add('Elazığ');

ComboBox1.Items.Add('Erzincan');

ComboBox1.Items.Add('Erzurum');

ComboBox1.Items.Add('Eskişehir');

ComboBox1.Items.Add('Gaziantep');

ComboBox1.Items.Add('Giresun');

ComboBox1.Items.Add('Gümüşhane');

ComboBox1.Items.Add('Hakkari');

ComboBox1.Items.Add('Hatay');

ComboBox1.Items.Add('Isparta');

ComboBox1.Items.Add('İçel');

ComboBox1.Items.Add('İstanbul');

ComboBox1.Items.Add('İzmir');

ComboBox1.Items.Add('Kars');

ComboBox1.Items.Add('Kastamonu');

ComboBox1.Items.Add('Kayseri');

ComboBox1.Items.Add('Kırklareli');

ComboBox1.Items.Add('Kırşehir');

ComboBox1.Items.Add('Kocaeli');

ComboBox1.Items.Add('Konya');

ComboBox1.Items.Add('Kütahya');

ComboBox1.Items.Add('Malatya');

ComboBox1.Items.Add('Manisa');

ComboBox1.Items.Add('Kahramanmaraş');

ComboBox1.Items.Add('Mardin');

ComboBox1.Items.Add('Muğla');

ComboBox1.Items.Add('Muş');

ComboBox1.Items.Add('Nevşehir');

ComboBox1.Items.Add('Niğde');

ComboBox1.Items.Add('Ordu');

ComboBox1.Items.Add('Rize');

ComboBox1.Items.Add('Sakarya');

ComboBox1.Items.Add('Samsun');

ComboBox1.Items.Add('Siirt');

ComboBox1.Items.Add('Sinop');

ComboBox1.Items.Add('Sivas');

ComboBox1.Items.Add('Tekirdağ');

ComboBox1.Items.Add('Tokat');

ComboBox1.Items.Add('Trabzon');

ComboBox1.Items.Add('Tunceli');

ComboBox1.Items.Add('Urfa');

ComboBox1.Items.Add('Uşak');

ComboBox1.Items.Add('Van');

ComboBox1.Items.Add('Yozgat');

ComboBox1.Items.Add('Zonguldak');

ComboBox1.Items.Add('Aksaray');

ComboBox1.Items.Add('Bayburt');

ComboBox1.Items.Add('Karaman');

ComboBox1.Items.Add('Kırıkkale');

ComboBox1.Items.Add('Batman');

ComboBox1.Items.Add('Şırnak');

ComboBox1.Items.Add('Bartın');

ComboBox1.Items.Add('Ardahan');

ComboBox1.Items.Add('Iğdır');

ComboBox1.Items.Add('Yalova');

ComboBox1.Items.Add('Karabük');

ComboBox1.Items.Add('Kilis');

ComboBox1.Items.Add('Osmaniye');

ComboBox1.Items.Add('Düzce');

--------------------------------------------------------------------------------

Plakalı liste isterseniz, o da var:

ComboBox1.Items.Clear;

ComboBox1.Items.Add('01 Adana');

ComboBox1.Items.Add('02 Adıyaman');

ComboBox1.Items.Add('03 Afyon');

ComboBox1.Items.Add('04 Ağrı');

ComboBox1.Items.Add('05 Amasya');

ComboBox1.Items.Add('06 Ankara');

ComboBox1.Items.Add('07 Antalya');

ComboBox1.Items.Add('08 Artvin');

ComboBox1.Items.Add('09 Aydın');

ComboBox1.Items.Add('10 Balıkesir');

ComboBox1.Items.Add('11 Bilecik');

ComboBox1.Items.Add('12 Bingöl');

ComboBox1.Items.Add('13 Bitlis');

ComboBox1.Items.Add('14 Bolu');

ComboBox1.Items.Add('15 Burdur');

ComboBox1.Items.Add('16 Bursa');

ComboBox1.Items.Add('17 Çanakkale');

ComboBox1.Items.Add('18 Çankırı');

ComboBox1.Items.Add('19 Çorum');

ComboBox1.Items.Add('20 Denizli');

ComboBox1.Items.Add('21 Diyarbakır');

ComboBox1.Items.Add('22 Edirne');

ComboBox1.Items.Add('23 Elazığ');

ComboBox1.Items.Add('24 Erzincan');

ComboBox1.Items.Add('25 Erzurum');

ComboBox1.Items.Add('26 Eskişehir');

ComboBox1.Items.Add('27 Gaziantep');

ComboBox1.Items.Add('28 Giresun');

ComboBox1.Items.Add('29 Gümüşhane');

ComboBox1.Items.Add('30 Hakkari');

ComboBox1.Items.Add('31 Hatay');

ComboBox1.Items.Add('32 Isparta');

ComboBox1.Items.Add('33 İçel');

ComboBox1.Items.Add('34 İstanbul');

ComboBox1.Items.Add('35 İzmir');

ComboBox1.Items.Add('36 Kars');

ComboBox1.Items.Add('37 Kastamonu');

ComboBox1.Items.Add('38 Kayseri');

ComboBox1.Items.Add('39 Kırklareli');

ComboBox1.Items.Add('40 Kırşehir');

ComboBox1.Items.Add('41 Kocaeli');

ComboBox1.Items.Add('42 Konya');

ComboBox1.Items.Add('43 Kütahya');

ComboBox1.Items.Add('44 Malatya');

ComboBox1.Items.Add('45 Manisa');

ComboBox1.Items.Add('46 Kahramanmaraş');

ComboBox1.Items.Add('47 Mardin');

ComboBox1.Items.Add('48 Muğla');

ComboBox1.Items.Add('49 Muş');

ComboBox1.Items.Add('50 Nevşehir');

ComboBox1.Items.Add('51 Niğde');

ComboBox1.Items.Add('52 Ordu');

ComboBox1.Items.Add('53 Rize');

ComboBox1.Items.Add('54 Sakarya');

ComboBox1.Items.Add('55 Samsun');

ComboBox1.Items.Add('56 Siirt');

ComboBox1.Items.Add('57 Sinop');

ComboBox1.Items.Add('58 Sivas');

ComboBox1.Items.Add('59 Tekirdağ');

ComboBox1.Items.Add('60 Tokat');

ComboBox1.Items.Add('61 Trabzon');

ComboBox1.Items.Add('62 Tunceli');

ComboBox1.Items.Add('63 Urfa');

ComboBox1.Items.Add('64 Uşak');

ComboBox1.Items.Add('65 Van');

ComboBox1.Items.Add('66 Yozgat');

ComboBox1.Items.Add('67 Zonguldak');

ComboBox1.Items.Add('68 Aksaray');

ComboBox1.Items.Add('69 Bayburt');

ComboBox1.Items.Add('70 Karaman');

ComboBox1.Items.Add('71 Kırıkkale');

ComboBox1.Items.Add('72 Batman');

ComboBox1.Items.Add('73 Şırnak');

ComboBox1.Items.Add('74 Bartın');

ComboBox1.Items.Add('75 Ardahan');

ComboBox1.Items.Add('76 Iğdır');

ComboBox1.Items.Add('77 Yalova');

ComboBox1.Items.Add('78 Karabük');

ComboBox1.Items.Add('79 Kilis');

ComboBox1.Items.Add('80 Osmaniye');

ComboBox1.Items.Add('81 Düzce');

--------------------------------------------------------------------------------

"Lazım olmaz." demeyin, lazım olursa uğraşmayın.

ComboBox1.Items.Clear;

ComboBox1.Items.Add('Adana 01');

ComboBox1.Items.Add('Adıyaman 02');

ComboBox1.Items.Add('Afyon 03');

ComboBox1.Items.Add('Ağrı 04');

ComboBox1.Items.Add('Amasya 05');

ComboBox1.Items.Add('Ankara 06');

ComboBox1.Items.Add('Antalya 07');

ComboBox1.Items.Add('Artvin 08');

ComboBox1.Items.Add('Aydın 09');

ComboBox1.Items.Add('Balıkesir 10');

ComboBox1.Items.Add('Bilecik 11');

ComboBox1.Items.Add('Bingöl 12');

ComboBox1.Items.Add('Bitlis 13');

ComboBox1.Items.Add('Bolu 14');

ComboBox1.Items.Add('Burdur 15');

ComboBox1.Items.Add('Bursa 16');

ComboBox1.Items.Add('Çanakkale 17');

ComboBox1.Items.Add('Çankırı 18');

ComboBox1.Items.Add('Çorum 19');

ComboBox1.Items.Add('Denizli 20');

ComboBox1.Items.Add('Diyarbakır 21');

ComboBox1.Items.Add('Edirne 22');

ComboBox1.Items.Add('Elazığ 23');

ComboBox1.Items.Add('Erzincan 24');

ComboBox1.Items.Add('Erzurum 25');

ComboBox1.Items.Add('Eskişehir 26');

ComboBox1.Items.Add('Gaziantep 27');

ComboBox1.Items.Add('Giresun 28');

ComboBox1.Items.Add('Gümüşhane 29');

ComboBox1.Items.Add('Hakkari 30');

ComboBox1.Items.Add('Hatay 31');

ComboBox1.Items.Add('Isparta 32');

ComboBox1.Items.Add('İçel 33');

ComboBox1.Items.Add('İstanbul 34');

ComboBox1.Items.Add('İzmir 35');

ComboBox1.Items.Add('Kars 36');

ComboBox1.Items.Add('Kastamonu 37');

ComboBox1.Items.Add('Kayseri 38');

ComboBox1.Items.Add('Kırklareli 39');

ComboBox1.Items.Add('Kırşehir 40');

ComboBox1.Items.Add('Kocaeli 41');

ComboBox1.Items.Add('Konya 42');

ComboBox1.Items.Add('Kütahya 43');

ComboBox1.Items.Add('Malatya 44');

ComboBox1.Items.Add('Manisa 45');

ComboBox1.Items.Add('Kahramanmaraş 46');

ComboBox1.Items.Add('Mardin 47');

ComboBox1.Items.Add('Muğla 48');

ComboBox1.Items.Add('Muş 49');

ComboBox1.Items.Add('Nevşehir 50');

ComboBox1.Items.Add('Niğde 51');

ComboBox1.Items.Add('Ordu 52');

ComboBox1.Items.Add('Rize 53');

ComboBox1.Items.Add('Sakarya 54');

ComboBox1.Items.Add('Samsun 55');

ComboBox1.Items.Add('Siirt 56');

ComboBox1.Items.Add('Sinop 57');

ComboBox1.Items.Add('Sivas 58');

ComboBox1.Items.Add('Tekirdağ 59');

ComboBox1.Items.Add('Tokat 60');

ComboBox1.Items.Add('Trabzon 61');

ComboBox1.Items.Add('Tunceli 62');

ComboBox1.Items.Add('Urfa 63');

ComboBox1.Items.Add('Uşak 64');

ComboBox1.Items.Add('Van 65');

ComboBox1.Items.Add('Yozgat 66');

ComboBox1.Items.Add('Zonguldak 67');

ComboBox1.Items.Add('Aksaray 68');

ComboBox1.Items.Add('Bayburt 69');

ComboBox1.Items.Add('Karaman 70');

ComboBox1.Items.Add('Kırıkkale 71');

ComboBox1.Items.Add('Batman 72');

ComboBox1.Items.Add('Şırnak 73');

ComboBox1.Items.Add('Bartın 74');

ComboBox1.Items.Add('Ardahan 75');

ComboBox1.Items.Add('Iğdır 76');

ComboBox1.Items.Add('Yalova 77');

ComboBox1.Items.Add('Karabük 78');

ComboBox1.Items.Add('Kilis 79');

ComboBox1.Items.Add('Osmaniye 80');

ComboBox1.Items.Add('Düzce 81');

--------------------------------------------------------------------------------

Bu listeyi hazırlarken Excel çok işime yaradı. Örneğin A1 hücresine

="ComboBox1.Items.Add('"&B1&" "&C1&"');"

formülünü yazar, yukarıdan aşağıya kopyalarsanız ve bu arada B hücresinde plaka

kodları, C hücresinde de iller listesi olursa, plaka kodlu iller listesini elde

edebilirsiniz. Bu listeyi kopyalayıp Delphi editörüne yapıştırırsanız, 81 satır

kod yazmaktan kurtulursunuz.

Aslında bunu yapamayacak olanınız yoktur ama bazen insanın yapabileceği şeyler

aklına gelmez. Fikir vermek bâbından söyleyeyim dedim. Kolay gelsin.

Delphi - .....................................

Şehirler listesi Güncel

Arkadaşım Çorumu unutmuşsun.Çok ayıp, bir çorumlu olarak bunu kendime görev bildim.

01 Adana

02 Adıyaman

03 Afyon

04 Ağrı

05 Amasya

07 Antalya

08 Artvin

10 Balıkesir

11 Bilecik

13 Bitlis

14 Bolu

15 Burdur

16 Bursa

17 Çanakkale

18 Çankırı

19 Çorum

20 Denizli

21 Diyarbakır

22 Edirne

23 Elazığ

25 Erzurum

26 Eskişehir

28 Giresun

29 Gümüşhane

31 Hatay

32 Isparta

33 İçel

34 İstanbul

35 İzmir

36 Kars

37 Kastamonu

38 Kayseri

39 Kırklareli

41 Kocaeli

42 Konya

43 Kütahya

44 Malatya

45 Manisa

46 Kahramanmaraş

47 Mardin

48 Muğla

49 Muş

50 Nevşehir

51 Niğde

53 Rize

54 Sakarya

55 Samsun

56 Siirt

57 Sinop

58 Sivas

61 Trabzon

63 Şanlıurfa

65 Van

66 Yozgat

67 Zonguldak

68 Aksaray

69 Bayburt

70 Karaman

73 Şırnak

74 Bartın

75 Ardahan

76 Iğdır

77 Yalova

78 Karabük

80 Osmaniye

81 Düzce

Kolay Gelsin ..

Delphi - .....................................

Xml ve delphi

Şimdi basit gibi görülebilen bir sorun.

Xml ile veri alıyorum bunları listeliyorum ama sorunum şu mesela

listboxtan neye tıklanırsa xml den onun linkini alsın label1.caption una yazsın

Desteklerinizi Bekliyorum..

<item>

<baslik>Anket Ferdifon Tarafindan Degerlendirilecek.</baslik>

</item>

<item>

<baslik>konser icin rekor ucret...</baslik>

</item>

<item>

<baslik>Biliyor musunuz?</baslik>

</item>

<item>

<baslik>Yillar parcasi neden silindi</baslik>

</item>

<item>

<baslik>ibrahim tatlisesten babanin huzurum kalmadi sarkisi</baslik>

</item>

<item>

<baslik>Besteleri nasil ortaya cikiyormus</baslik>

</item>

<item>

<baslik>Byurun ferdiciler klipleri indirin</baslik>

</item>

<item>

<baslik>ferdi tayfur dert yagmuru albumu(minareci) </baslik>

</item>

<item>

<baslik>Ferdi baba'nin hayati(Gazeteden)</baslik>

</item>

<item>

<baslik>bende ozledim kasedi avrupa baskisi </baslik>

</item>

<item>

<baslik>Askin Cezasi ve Gizli Sevda Klipleri</baslik>

</item>

</rss>

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;

type

TForm1 = class(TForm)

XMLDocument1: TXMLDocument;

GroupBox1: TGroupBox;

ListBox1: TListBox;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

root : IXMLNode;

a : IXMLNode;

i : Integer;

begin

XMLDocument1.LoadFromFile('D:ferdi.xml');

a:=XMLDocument1.DocumentElement;

for i:=0 To a.childNodes.Count -1 Do

begin

root:=XMLDocument1.DocumentElement.ChildNodes[i];

ListBox1.Items.add(root.ChildNodes['baslik'].Text);

label1.Caption:= root.ChildNodes['link'].Text

end;

procedure TForm1.ListBox1Click(Sender: TObject);

var

s: Integer;

begin

for s := 0 to (ListBox1.Items.Count - 1) do begin

try

if ListBox1.Selected[s] then

begin

label1.Caption:=listbox1.items.strings[s];

end;

finally

{ do something here }

end;

end.

Delphi - .....................................

Xml ve delphi

Şimdi basit gibi görülebilen bir sorun.

Xml ile veri alıyorum bunları listeliyorum ama sorunum şu mesela

listboxtan neye tıklanırsa xml den onun linkini alsın label1.caption una yazsın

Desteklerinizi Bekliyorum..

<item>

<baslik>Anket Ferdifon Tarafindan Degerlendirilecek.</baslik>

</item>

<item>

<baslik>konser icin rekor ucret...</baslik>

</item>

<item>

<baslik>Biliyor musunuz?</baslik>

</item>

<item>

<baslik>Yillar parcasi neden silindi</baslik>

</item>

<item>

<baslik>ibrahim tatlisesten babanin huzurum kalmadi sarkisi</baslik>

</item>

<item>

<baslik>Besteleri nasil ortaya cikiyormus</baslik>

</item>

<item>

<baslik>Byurun ferdiciler klipleri indirin</baslik>

</item>

<item>

<baslik>ferdi tayfur dert yagmuru albumu(minareci) </baslik>

</item>

<item>

<baslik>Ferdi baba'nin hayati(Gazeteden)</baslik>

</item>

<item>

<baslik>bende ozledim kasedi avrupa baskisi </baslik>

</item>

<item>

<baslik>Askin Cezasi ve Gizli Sevda Klipleri</baslik>

</item>

</rss>

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, xmldom, XMLIntf, StdCtrls, msxmldom, XMLDoc;

type

TForm1 = class(TForm)

XMLDocument1: TXMLDocument;

GroupBox1: TGroupBox;

ListBox1: TListBox;

Label1: TLabel;

procedure FormCreate(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

var

root : IXMLNode;

a : IXMLNode;

i : Integer;

begin

XMLDocument1.LoadFromFile('D:ferdi.xml');

a:=XMLDocument1.DocumentElement;

for i:=0 To a.childNodes.Count -1 Do

begin

root:=XMLDocument1.DocumentElement.ChildNodes[i];

ListBox1.Items.add(root.ChildNodes['baslik'].Text);

label1.Caption:= root.ChildNodes['link'].Text

end;

procedure TForm1.ListBox1Click(Sender: TObject);

var

s: Integer;

begin

for s := 0 to (ListBox1.Items.Count - 1) do begin

try

if ListBox1.Selected[s] then

begin

label1.Caption:=listbox1.items.strings[s];

end;

finally

{ do something here }

end;

end.

Delphi - .....................................

Türkiyedeki Şehir Listesi (Belki Lazım Olur)

01 Adana

02 Adıyaman

03 Afyon

04 Ağrı

05 Amasya

07 Antalya

08 Artvin

10 Balıkesir

11 Bilecik

13 Bitlis

14 Bolu

15 Burdur

16 Bursa

17 Çanakkale

18 Çankırı

20 Denizli

21 Diyarbakır

22 Edirne

23 Elazığ

25 Erzurum

26 Eskişehir

28 Giresun

29 Gümüşhane

31 Hatay

32 Isparta

33 İçel

34 İstanbul

35 İzmir

36 Kars

37 Kastamonu

38 Kayseri

39 Kırklareli

41 Kocaeli

42 Konya

43 Kütahya

44 Malatya

45 Manisa

46 Kahramanmaraş

47 Mardin

48 Muğla

49 Muş

50 Nevşehir

51 Niğde

53 Rize

54 Sakarya

55 Samsun

56 Siirt

57 Sinop

58 Sivas

61 Trabzon

63 Şanlıurfa

65 Van

66 Yozgat

67 Zonguldak

68 Aksaray

69 Bayburt

70 Karaman

73 Şırnak

74 Bartın

75 Ardahan

76 Iğdır

77 Yalova

78 Karabük

80 Osmaniye

81 Düzce

Kolay Gelsin ..

Delphi - .....................................

Parayı ingilizce olarak yazdırmak için fonksiyon

const

Birler : Array[0..9] of string = ('','one','two','three','four','five','six','seven','eight','nine');

YirmiyeKadar : Array[0..19] of string = ('','one','two','three','four','five','six','seven','eight','nine','ten','eleven','twelve','thirteen','fourteen','fifteen','sixteen','seventeen','eighteen','nineteen');

Onluklar : Array[2..9] of string = ('twenty','thirty','forty','fifty','sixty','seventy','eighty','ninety');

implementation

{$R *.dfm}

function UcluyuCevir(CevirilecekSayi: Integer): string;

var

Donecek: String;

begin

Donecek := '';

if Length(IntToStr(CevirilecekSayi)) = 3 then // 33333333333333333333333333333

begin

Donecek := Birler[StrToInt(Copy(IntToStr(CevirilecekSayi),1,1))]+'hundred';

if StrToInt(Copy(IntToStr(CevirilecekSayi),2,2)) < 20 then Donecek := Donecek + YirmiyeKadar[StrToInt(Copy(IntToStr(CevirilecekSayi),2,2))];

if StrToInt(Copy(IntToStr(CevirilecekSayi),2,2)) >= 20 then

begin

Donecek := Donecek + Onluklar[StrToInt(Copy(IntToStr(CevirilecekSayi),2,1))];

Donecek := Donecek + Birler[StrToInt(Copy(IntToStr(CevirilecekSayi),3,1))];

end;

if Length(IntToStr(CevirilecekSayi)) = 2 then // 22222222222222222222222222222

begin

if StrToInt(Copy(IntToStr(CevirilecekSayi),1,2)) < 20 then Donecek := Donecek + YirmiyeKadar[StrToInt(Copy(IntToStr(CevirilecekSayi),1,2))];

if StrToInt(Copy(IntToStr(CevirilecekSayi),1,2)) >= 20 then

begin

Donecek := Donecek + Onluklar[StrToInt(Copy(IntToStr(CevirilecekSayi),1,1))];

Donecek := Donecek + Birler[StrToInt(Copy(IntToStr(CevirilecekSayi),2,1))];

end;

if Length(IntToStr(CevirilecekSayi)) = 1 then // 11111111111111111111111111111

begin

if StrToInt(Copy(IntToStr(CevirilecekSayi),1,1)) = 0 then Exit;

Donecek := Donecek + Birler[StrToInt(Copy(IntToStr(CevirilecekSayi),1,1))];

end;

Result := Donecek;

end;

function YaziyaCevir(CevirilecekSayi: Real): string;

var

a,AlinacakYer,Bolum,Kalan,YaziUzunlugu: Integer;

Yazi,Parca: String;

begin

if CevirilecekSayi = 0 then

begin

Result := 'Zero'; Exit;

end;

// Tamsayı kısmı *************************************************************

Yazi := '';

Bolum := Length(FloatToStr(int(CevirilecekSayi))) div 3;

Kalan := Length(FloatToStr(Trunc(CevirilecekSayi))) mod 3;

YaziUzunlugu := Length(FloatToStr(Trunc(CevirilecekSayi)));

for a := 1 to Bolum do

begin

AlinacakYer := YaziUzunlugu-(a*3)+1;

Parca := '';

Parca := UcluyuCevir(StrToInt(Copy(FloatToStr(CevirilecekSayi),AlinacakYer,3)));

if a = 1 then Yazi := Parca;

if (a = 2) and (Parca <> '') then Yazi := Parca+'thousand'+Yazi;

if (a = 3) and (Parca <> '') then Yazi := Parca+'million'+Yazi;

if (a = 4) and (Parca <> '') then Yazi := Parca+'billion'+Yazi;

if (a = 5) and (Parca <> '') then Yazi := Parca+'trillion'+Yazi;

end;

if Kalan > 0 then

begin

if a = 0 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr(CevirilecekSayi),1,Kalan)));

if a = 2 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr(CevirilecekSayi),1,Kalan)))+'thousand'+Yazi;

if a = 3 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr(CevirilecekSayi),1,Kalan)))+'million'+Yazi;

if a = 4 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr(CevirilecekSayi),1,Kalan)))+'billion'+Yazi;

if a = 5 then Yazi := UcluyuCevir(StrToInt(Copy(FloatToStr(CevirilecekSayi),1,Kalan)))+'trillion'+Yazi;

end;

// Virgüllü kısmı ************************************************************

Parca := '';

a := Pos(',',FloatToStr(CevirilecekSayi));

if a > 0 then

begin

if Length(Copy(FloatToStr(CevirilecekSayi),a+1,2)) = 1 then

Parca := UcluyuCevir(StrToInt(Copy(FloatToStr(CevirilecekSayi),a+1,2)+'0')) else

Parca := UcluyuCevir(StrToInt(Copy(FloatToStr(CevirilecekSayi),a+1,2)));

if Parca <> '' then Parca := ' and ' + Parca + ' cent';

end;

if Yazi <> '' then Result := Yazi + ' Euro' + Parca;

if Yazi = '' then

begin

Delete(Parca,1,5);

Result := Parca;

end;

Delphi - .....................................

Delphi Soket Uygulamaları..

Arkadaşlar Ben Yüsel İnan Nihat Demirli Delphi 7 Kitabını Aldım Fakat Kitap Soket Uygulamaları Hakkında En Ufak Bir Bilgi Bile Vermemiş..Belli Bir Süreden Sonra da Soket Uygulamalarını Öğrenmen Gerekiyor..Sizden İsteğim Soket Uygulamaları Hakkında Elinde Kayank Olan Paylaşırsa İyi OUr Diye Düşünüyorum Arkadaşlar...

Delphi - .....................................

delphi5

arkadaşlar sizlerden isteğim elinizde delphi 5 ile ilgili ne kadar kod varsa bana mail atmanız...tabi zahmet olmazsa... yada herhangi bir kitabın pdf. veya doc. falan döküman varsa o da olabilir... şimdiden tşk ederim...

emrahkorkmaz86@hotmail.com

Delphi - .....................................