BMS-HOSxP Community
HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: taw2010 ที่ เมษายน 01, 2011, 19:55:05 PM
-
เรียนผู้รู้ ทุกท่าน
การเขียน กำหนดตัวแปร และ คำว่า 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 := 'หัวหน้าศูนย์' ;
เช่นดังนี้ต้องทำอย่างไรบ้าง
มือใหม่นะ
-
ต้องส่งฟอร์มที่จะทำขึ้นมาด้วยครับจะได้ใส่ให้ถูก
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;
-
แล้วปลสอนด้วยนะ
ทำอย่างไร
(http://)
-
ผมได้ลง รายงานให้แล้วนะคัรบ
ช่งยแก้ไขให้หน่อยนะครับ
ขอบคุณมากนะคับ
-
ทดสอบดูครับว่าตรงกับที่ต้องการหรือเปล่า
-
ผมต้องการว่า
ถ้าใส่ ที่ชื่อ รพ.
ให้ใช้คำว่า เรียน ู้อำนวยการ โรงพยาบาล
และถ้าเป็นสอ.ให้ใช้คำว่าเรียนหัวหน้า สถานีอนามัยนะ
และถ้าเลือก สาธารณสุขจังหวัด ให้ใช้คำว่า เรียน นายแพทนย์สาธารณสุขจังหวัด ราชบุรีเป็นต้น
และผมลองใช้แล้วมีปัญหาว่าถ้าเลือก สอ.แล้วไม่ขึ้นอะไรเลยนะครับ
ช่วยดูให้อีกทีนะครับ
ขอบคุณมากคับ
-
ผมต้องการว่า
ถ้าใส่ ที่ชื่อ รพ.
ให้ใช้คำว่า เรียน ู้อำนวยการ โรงพยาบาล
และถ้าเป็นสอ.ให้ใช้คำว่าเรียนหัวหน้า สถานีอนามัยนะ
และถ้าเลือก สาธารณสุขจังหวัด ให้ใช้คำว่า เรียน นายแพทนย์สาธารณสุขจังหวัด ราชบุรีเป็นต้น
และผมลองใช้แล้วมีปัญหาว่าถ้าเลือก สอ.แล้วไม่ขึ้นอะไรเลยนะครับ
ช่วยดูให้อีกทีนะครับ
ขอบคุณมากคับ
สอ. จะใส่เพิ่มให้ครับ
แล้ว นายแพทนย์สาธารณสุขจังหวัด
แล้วแบบนี้ ok หรือยัง
-
สอนในการแก้ไขด้วยซิครับ
เพื่อผมจะได้แก้ไขเองได้บ้างนะคับ
แล้วที่ผมใส่มันไม่ขึึ้นที่ หน้า design นะ
ตัวแปรเป็นเพราะว่าอย่างไรบ้างครับ
ถ้าใส่เป็นเป็นสำนำงาน
เป็ยหัวหน้านะ
-
สอนในการแก้ไขด้วยซิครับ
เพื่อผมจะได้แก้ไขเองได้บ้างนะคับ
แล้วที่ผมใส่มันไม่ขึึ้นที่ หน้า design นะ
ตัวแปรเป็นเพราะว่าอย่างไรบ้างครับ
ถ้าใส่เป็นเป็นสำนำงาน
เป็ยหัวหน้านะ
แบบที่ส่งไปใช้ได้แล้ว ใช้หรือเปล่าครับ
แต่ว่าขนาดแต่ว่าบ้างชื่อยังไม่ตรงกับที่ต้องการ
-
มันตั้ง 44 ชือ ผมจะใส่หมดหรือครับ
-
ผมต้องการแแก่้ไขที่คำว่าเรรียนผุ้อำนวยการ
เป็นอย่างอื่นตามที่ เลือกสถานบริการนะครับ
แล้วที่ท่าdoremon แก้ไขที่เดียวใช่หรือเปล่าครับ
-
ผมลองนำเข้าไม่ได้นะคับ
เพราะว่าอะไรหรือ
-
ผมลองนำเข้าไม่ได้นะคับ
เพราะว่าอะไรหรือ
ผมทำตัวนี้เพิ่มมาเพื่อส่งให้ 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;
-
แล้วผมต้องแก้ไขอย่างไร
ที่ตรงไหนนะคับ
-
ปมทดสอบที่ผมต้องการแล้วคับ
แต่มันไม่ไ้ด้ตามที่ต้องการนะคับ
-
ขั้นตอนที่หนึ่ง
รันคำสั่งนี้ดูก่อน
select left(hosptype,3) as cc FROM hospcode
มันจะตัดตัวอักษร 3 ตัวแรก ของ hosptype
-
ต่อมา
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"
-
ต่อไปก็
อันเอาไว้ตรวจสอบ hh1 ว่ามีค่าตรงกับตัวไหน ถ้าตรงใช้ result:=ค่าที่ต้องการ
if hh1 = '¤ÅÔ' then result:='¤ÅÔ¹Ô¡'
-
เรียน ผู้อำนวยการ .แล้วตามด้วยชื่อด้วยบริการนะคับ
-
เรียน ผู้อำนวยการ .แล้วตามด้วยชื่อด้วยบริการนะคับ
แบบนี้หรือเปล่าครับ
-
เด่วนะคับ
กำลังทดสอบอยู่นะครับ
-
ถ้าเลือก สถานพยาบาลเป็น เช่น โรงพยาบาลดำเนินสะดวก ให้ใช้คำว่า เรียนผู้อำนวยการโรงพยาบาลดำเนินสะดวก
แต่ถ้าเลือก สถานพยาบาลเป็นเช่น สอ.ดำเนินสะดวก ให้คำว่า เรียนหัวหน้าสถานีอนามัยดำเนินสะดวกนะเข้าใจไหมคัรบ
เป็นต้นนะ
-
และถ้าเลือก สาธารณสุขจังหวัดราชบุรี ต้องคำว่าเรียน นายแพทย์สาธารณสุขจังหวัดราชบุรีนะครับ
พอเข้าใจไหมละครับ
-
ทดสอบแล้วคัรบ
ขึ้นแต่ชื่อสถานพยาบาล
เรียน ผู้อำนวยการไม่เห็นขึ้นตามเลยนะครับ
-
fcds คืออะไรละ
fcds2 คืออะไรละ
แต่ผมคิดว่าน่าจะเป็น client dataset หรือเปล่า
ถ้าใช่แล้วในการเพิ่มfiled ได้หรือเปล่า
แล้วมีการเปิด files ได้ด้วยนะ
ในหน้าของ scrip ก่อนหน้าdesign นะ
-
อ.อ๊อด สุดยอด เลยคับ ขอชมเชยในความขยันครับ ;)
-
อ.อ๊อด สุดยอด เลยคับ ขอชมเชยในความขยันครับ ;)
:) :) :) :) :) เทพอ๋อดมาโปรด..... ;) ;) ;)
-
ทดสอบแล้วคัรบ
ขึ้นแต่ชื่อสถานพยาบาล
เรียน ผู้อำนวยการไม่เห็นขึ้นตามเลยนะครับ
download ฟอร์มสองนะครับ
ฟอร์มชื่อ CUSTOM-P44ทดสอบ-Saiyok นะครับ
-
load แล้วนะครับ
ก็ได้
แต่ทำได้เฉพาะรพ.
พวก สอ.หรือสสจ.ไม่ได้นะครับ