BMS-HOSxP Community

HOSxP => การเขียน SQL Script => ข้อความที่เริ่มโดย: Bond_007 ที่ มกราคม 27, 2011, 14:58:03 PM

หัวข้อ: สอบถามการเขียน if then else ครับ
เริ่มหัวข้อโดย: Bond_007 ที่ มกราคม 27, 2011, 14:58:03 PM

พอดีผมสร้าง variable ขึ้นมา 1 อัน เขียน code ดังนี้ครับ

 if DBPipeline['vn']=DBPipeline['an'] then
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
else
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');

ไม่ทราบต้องแก้ยังไงครับขอบคุณครับ

หัวข้อ: Re: สอบถามการเขียน if then else ครับ
เริ่มหัวข้อโดย: Svl2Nuk3 ที่ มกราคม 27, 2011, 15:11:47 PM

อ้างจาก: Bond_007 ที่ มกราคม 27, 2011, 14:58:03 PM

พอดีผมสร้าง variable ขึ้นมา 1 อัน เขียน code ดังนี้ครับ

 if DBPipeline['vn']=DBPipeline['an'] then
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
else
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');

ไม่ทราบต้องแก้ยังไงครับขอบคุณครับ

 if DBPipeline['vn']=DBPipeline['an'] then
begin
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end
else
begin
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end;

ลองดูครับ  ว่าแต่   if DBPipeline['vn']=DBPipeline['an'] then 
vn  กับ  an  มันจะเท่ากันตอนไหนอ่ะคับ

หัวข้อ: Re: สอบถามการเขียน if then else ครับ
เริ่มหัวข้อโดย: Bond_007 ที่ มกราคม 27, 2011, 15:28:31 PM

ในตาราง rcpt_debt ของผม เลข vn มีทั้ง vn และ an ครับขอบคุณมากครับ

อ้างจาก: I'm nuke ที่ มกราคม 27, 2011, 15:11:47 PM

อ้างจาก: Bond_007 ที่ มกราคม 27, 2011, 14:58:03 PM

พอดีผมสร้าง variable ขึ้นมา 1 อัน เขียน code ดังนี้ครับ

 if DBPipeline['vn']=DBPipeline['an'] then
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
else
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');

ไม่ทราบต้องแก้ยังไงครับขอบคุณครับ

 if DBPipeline['vn']=DBPipeline['an'] then
begin
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end
else
begin
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end;

ลองดูครับ  ว่าแต่   if DBPipeline['vn']=DBPipeline['an'] then 
vn  กับ  an  มันจะเท่ากันตอนไหนอ่ะคับ

หัวข้อ: Re: สอบถามการเขียน if then else ครับ
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ มกราคม 27, 2011, 19:21:59 PM

อ้างจาก: I'm nuke ที่ มกราคม 27, 2011, 15:11:47 PM

อ้างจาก: Bond_007 ที่ มกราคม 27, 2011, 14:58:03 PM

พอดีผมสร้าง variable ขึ้นมา 1 อัน เขียน code ดังนี้ครับ

 if DBPipeline['vn']=DBPipeline['an'] then
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
else
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');

ไม่ทราบต้องแก้ยังไงครับขอบคุณครับ

 if DBPipeline['vn']=DBPipeline['an'] then
begin
doctor := GetSQLStringData('select incharge_doctor from ipt where an="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end
else
begin
doctor := GetSQLStringData('select dx_doctor from vn_stat where vn="'+DBPipeline['vn']+'"');
Value := 'á¾·Âì'+ ' ' +GetSQLStringData('select name from doctor  where code ="'+doctor+'"');
end;

เยี่ยม..มากครับ ;)