ถามเรื่อง scrip หน่อยครับ

[taw2010]

เรียนผู้รู้ ทุกท่าน
การเขียน กำหนดตัวแปร และ คำว่า fcdsใน scrip ในหน้าก่อนdesign นั้น หมายความว่าอะไร
แล้วผมต้องการกำหนดให้เห็นที่ หน้าต่างของ design ต้่องทำอย่างไรบ้าง
แล้วต้องการกำหนดเครื่องไข

 nursehospcode, hospname : string ;
        begin
        nursehospcode := GetSQLStringData('select left(hosptype,3) FROM hospcode WHERE hospcode="'+hcode+'" ');
        if nursehospcode = 'คลิ' then hospname := 'คลินิก' ;
        if nursehospcode = 'มหา' then hospname := 'อธิการบดีมหาวิทยาลัย' ;
        if nursehospcode = 'รพ.' then hospname := 'ผู้อำนวยการโรงพยาบาล' ;
        if nursehospcode = 'รพช' then hospname := 'ผู้อำนวยการโรงพยาบาล' ;
        if nursehospcode = 'โรง' then hospname := 'ผู้อำนวยการโรงพยาบาล' ;
        if nursehospcode = 'วิท' then hospname := 'ผู้อำนวยการวิทยาลัย' ;
        if nursehospcode = 'ศูน' then hospname := 'หัวหน้าศูนย์' ;
เช่นดังนี้ต้องทำอย่างไรบ้าง
มือใหม่นะ

[doramon]

ต้องส่งฟอร์มที่จะทำขึ้นมาด้วยครับจะได้ใส่ให้ถูก

var mda:string;
monthh: integer;
begin
    monthh:=strtoint(formatdatetime('mm',datetimepicker1.Date));

       if monthh=1 then
           mda:='jan'
       else if monthh=2 then
           mda:='feb'
       else if monthh=3 then
           mda:='3'
       else if monthh=4 then
           mda:='4'
       else if monthh=5 then
           mda:='5'
       else if monthh=6 then
           mda:='6'
       else if monthh=7 then
           mda:='7'
       else if monthh=8 then
           mda:='8'
       else if monthh=9 then
           mda:='9'
       else if monthh=10 then
           mda:='10'
       else if monthh=11 then
           mda:='11'
       else if monthh=12 then
           mda:='12';

    edit2.Clear;
    edit2.Text:=mda;

end;

[taw2010]

แล้วปลสอนด้วยนะ
ทำอย่างไร

[taw2010]

ผมได้ลง รายงานให้แล้วนะคัรบ
ช่งยแก้ไขให้หน่อยนะครับ
ขอบคุณมากนะคับ

[doramon]

ทดสอบดูครับว่าตรงกับที่ต้องการหรือเปล่า

[taw2010]

ผมต้องการว่า
ถ้าใส่ ที่ชื่อ รพ.
ให้ใช้คำว่า เรียน ู้อำนวยการ โรงพยาบาล
และถ้าเป็นสอ.ให้ใช้คำว่าเรียนหัวหน้า สถานีอนามัยนะ
และถ้าเลือก สาธารณสุขจังหวัด ให้ใช้คำว่า เรียน นายแพทนย์สาธารณสุขจังหวัด ราชบุรีเป็นต้น

และผมลองใช้แล้วมีปัญหาว่าถ้าเลือก สอ.แล้วไม่ขึ้นอะไรเลยนะครับ
ช่วยดูให้อีกทีนะครับ
ขอบคุณมากคับ

[doramon]

ผมต้องการว่า
ถ้าใส่ ที่ชื่อ รพ.
ให้ใช้คำว่า เรียน ู้อำนวยการ โรงพยาบาล
และถ้าเป็นสอ.ให้ใช้คำว่าเรียนหัวหน้า สถานีอนามัยนะ
และถ้าเลือก สาธารณสุขจังหวัด ให้ใช้คำว่า เรียน นายแพทนย์สาธารณสุขจังหวัด ราชบุรีเป็นต้น

และผมลองใช้แล้วมีปัญหาว่าถ้าเลือก สอ.แล้วไม่ขึ้นอะไรเลยนะครับ
ช่วยดูให้อีกทีนะครับ
ขอบคุณมากคับ

สอ. จะใส่เพิ่มให้ครับ

แล้ว  นายแพทนย์สาธารณสุขจังหวัด

แล้วแบบนี้ ok หรือยัง

[taw2010]

สอนในการแก้ไขด้วยซิครับ
เพื่อผมจะได้แก้ไขเองได้บ้างนะคับ
แล้วที่ผมใส่มันไม่ขึึ้นที่ หน้า design นะ
ตัวแปรเป็นเพราะว่าอย่างไรบ้างครับ
ถ้าใส่เป็นเป็นสำนำงาน
เป็ยหัวหน้านะ

[doramon]

สอนในการแก้ไขด้วยซิครับ
เพื่อผมจะได้แก้ไขเองได้บ้างนะคับ
แล้วที่ผมใส่มันไม่ขึึ้นที่ หน้า design นะ
ตัวแปรเป็นเพราะว่าอย่างไรบ้างครับ
ถ้าใส่เป็นเป็นสำนำงาน
เป็ยหัวหน้านะ

แบบที่ส่งไปใช้ได้แล้ว ใช้หรือเปล่าครับ

แต่ว่าขนาดแต่ว่าบ้างชื่อยังไม่ตรงกับที่ต้องการ

[doramon]

มันตั้ง 44 ชือ ผมจะใส่หมดหรือครับ

[taw2010]

ผมต้องการแแก่้ไขที่คำว่าเรรียนผุ้อำนวยการ
เป็นอย่างอื่นตามที่ เลือกสถานบริการนะครับ

แล้วที่ท่าdoremon แก้ไขที่เดียวใช่หรือเปล่าครับ

[taw2010]

ผมลองนำเข้าไม่ได้นะคับ
เพราะว่าอะไรหรือ

[doramon]

ผมลองนำเข้าไม่ได้นะคับ
เพราะว่าอะไรหรือ

ผมทำตัวนี้เพิ่มมาเพื่อส่งให้ name5 ครับ



function doctormainhospital(hh:string):string;
var
hh1:string ;
begin
   result:=  '';
 
  hh1:= vartostr(getsqldata('select left(hosptype,3) as cc  FROM hospcode WHERE hospcode="'+hh+'" '));
//  showmessage(hh1);
         begin
        if hh1 = '¤ÅÔ'    then  result:='¤ÅÔ¹Ô¡'       
        else if hh1 = 'ÁËÒ'   then result:='͸ԡÒú´ÕÁËÒÇÔ·ÂÒÅÑÂ'       
        else if hh1 = 'þ.'   then result:='¼ÙéÍӹǡÒÃâþÂÒºÒÅ'       
        else if hh1 = 'þª'   then result:= '¼ÙéÍӹǡÒÃâþÂÒºÒÅ'       
        else if hh1 = 'âÃ'   then result:= '¼ÙéÍӹǡÒÃâþÂÒºÒÅ'       
        else if hh1 = 'ÇÔ·'   then result:='¼ÙéÍӹǡÒÃÇÔ·ÂÒÅÑÂ'       
        else if hh1 = 'ÈÙ¹'   then result:='ËÑÇ˹éÒÈÙ¹Âì') ;     
         end;
//   result:= hh1;     
         
end;

[taw2010]

แล้วผมต้องแก้ไขอย่างไร
ที่ตรงไหนนะคับ

[taw2010]

ปมทดสอบที่ผมต้องการแล้วคับ
แต่มันไม่ไ้ด้ตามที่ต้องการนะคับ

[doramon]

ขั้นตอนที่หนึ่ง


รันคำสั่งนี้ดูก่อน


select left(hosptype,3) as cc  FROM hospcode

มันจะตัดตัวอักษร  3  ตัวแรก  ของ hosptype   

[doramon]

ต่อมา

hh1:= vartostr(getsqldata('select left(hosptype,3) as cc  FROM hospcode WHERE hospcode="'+hh+'" '));


hh1 คือค่าที่ได้จาก

select left(hosptype,3) as cc  FROM hospcode WHERE hospcode="10731"

[doramon]

ต่อไปก็

อันเอาไว้ตรวจสอบ hh1 ว่ามีค่าตรงกับตัวไหน  ถ้าตรงใช้  result:=ค่าที่ต้องการ

 if hh1 = '¤ÅÔ'    then  result:='¤ÅÔ¹Ô¡'   

[taw2010]

เรียน ผู้อำนวยการ .แล้วตามด้วยชื่อด้วยบริการนะคับ

[doramon]

เรียน ผู้อำนวยการ .แล้วตามด้วยชื่อด้วยบริการนะคับ

แบบนี้หรือเปล่าครับ

[taw2010]

เด่วนะคับ
กำลังทดสอบอยู่นะครับ

[taw2010]

ถ้าเลือก สถานพยาบาลเป็น เช่น โรงพยาบาลดำเนินสะดวก ให้ใช้คำว่า เรียนผู้อำนวยการโรงพยาบาลดำเนินสะดวก
แต่ถ้าเลือก สถานพยาบาลเป็นเช่น สอ.ดำเนินสะดวก ให้คำว่า เรียนหัวหน้าสถานีอนามัยดำเนินสะดวกนะเข้าใจไหมคัรบ
เป็นต้นนะ

[taw2010]

และถ้าเลือก สาธารณสุขจังหวัดราชบุรี ต้องคำว่าเรียน นายแพทย์สาธารณสุขจังหวัดราชบุรีนะครับ
พอเข้าใจไหมละครับ

[taw2010]

ทดสอบแล้วคัรบ
ขึ้นแต่ชื่อสถานพยาบาล
เรียน ผู้อำนวยการไม่เห็นขึ้นตามเลยนะครับ

[taw2010]

fcds คืออะไรละ
fcds2 คืออะไรละ
แต่ผมคิดว่าน่าจะเป็น client dataset หรือเปล่า
ถ้าใช่แล้วในการเพิ่มfiled ได้หรือเปล่า
แล้วมีการเปิด files ได้ด้วยนะ
ในหน้าของ scrip ก่อนหน้าdesign นะ

[thannawe]

อ.อ๊อด สุดยอด เลยคับ ขอชมเชยในความขยันครับ

[เกื้อกูล ครับ..]

อ.อ๊อด สุดยอด เลยคับ ขอชมเชยในความขยันครับ

    เทพอ๋อดมาโปรด.....

[doramon]

ทดสอบแล้วคัรบ
ขึ้นแต่ชื่อสถานพยาบาล
เรียน ผู้อำนวยการไม่เห็นขึ้นตามเลยนะครับ

download ฟอร์มสองนะครับ

ฟอร์มชื่อ CUSTOM-P44ทดสอบ-Saiyok  นะครับ

[taw2010]

load แล้วนะครับ
ก็ได้
แต่ทำได้เฉพาะรพ.
พวก สอ.หรือสสจ.ไม่ได้นะครับ