BMS-HOSxP Community

HOSxP => แจ้งปัญหา / ขอความช่วยเหลือ => ข้อความที่เริ่มโดย: naj ที่ พฤศจิกายน 30, 2006, 05:19:16 AM

หัวข้อ: เกี่ยวกับการใช้ InputQuery
เริ่มหัวข้อโดย: naj ที่ พฤศจิกายน 30, 2006, 05:19:16 AM

เรียนถาม อ mn
ยกตัวอย่าง เกี่ยวกับการใช้ InputQuery
begin
 GetDateRangeDialog(date1, date2);   
       ds1:=formatdatetime('yyyy-mm-dd',date1);
    ds2:=formatdatetime('yyyy-mm-dd',date2);
    fan:=InputQuery('เลือก AN ที่ต้องการ',' AN 9 หลัก เช่น 490001206');   
            fhn :=   GetSQLStringData('select hn from ipt where an="'+fan+'"'); 

end;
เกี่ยวกับการใช้ InputQuery ครับผมอยากจะให้แสดงค่า an=490001252 เป็นค่าเริ่มต้น ใน InputQuery  ในการเรียกรายงานทุกครั้งเพื่อที่ผู้ใช้จะได้ไม่ต้องใส่ an ถึง 9 หลัก จะเปลี่ยนแค่เลขท้ายจะสะดวกกว่าไม่ทราบว่ามีวิธีอย่างไรครับ
ขอบคุณครับ
พร้อมแนบตัวอย่างนรายงานมาให้ อ mn ดูด้วยครับ

หัวข้อ: Re: เกี่ยวกับการใช้ InputQuery
เริ่มหัวข้อโดย: udomchok ที่ พฤศจิกายน 23, 2009, 00:43:33 AM

อ้างจาก: naj ที่ พฤศจิกายน 30, 2006, 05:19:16 AM

เรียนถาม อ mn
ยกตัวอย่าง เกี่ยวกับการใช้ InputQuery
begin
 GetDateRangeDialog(date1, date2);   
       ds1:=formatdatetime('yyyy-mm-dd',date1);
    ds2:=formatdatetime('yyyy-mm-dd',date2);
    fan:=InputQuery('เลือก AN ที่ต้องการ',' AN 9 หลัก เช่น 490001206');   
            fhn :=   GetSQLStringData('select hn from ipt where an="'+fan+'"'); 

end;
เกี่ยวกับการใช้ InputQuery ครับผมอยากจะให้แสดงค่า an=490001252 เป็นค่าเริ่มต้น ใน InputQuery  ในการเรียกรายงานทุกครั้งเพื่อที่ผู้ใช้จะได้ไม่ต้องใส่ an ถึง 9 หลัก จะเปลี่ยนแค่เลขท้ายจะสะดวกกว่าไม่ทราบว่ามีวิธีอย่างไรครับ
ขอบคุณครับ
พร้อมแนบตัวอย่างนรายงานมาให้ อ mn ดูด้วยครับ

น่าสนใจครับ อ.mn ยังไม่ได้ตอบครับ  :( :( :(

หัวข้อ: Re: เกี่ยวกับการใช้ InputQuery
เริ่มหัวข้อโดย: dusit ที่ พฤศจิกายน 23, 2009, 06:57:42 AM

GetSQLStringData(sql:string) string ;
 
ต้องแก้ไข ให้รับค่า มันรับค่าอีกอันหนึ่งป่าวคับ

GetSQLStringData(sql,defa:string) string ;

หรือใช้ฟังชั่น keyboard ที่สั่งกด keyboard ปุ่มตัวเลข 490001206 ใน on create

หรือว่าบอก use ให้คีย์ตัวเลขท้าย แล้วเราไปเติมเลขหน้าให้เองก่อนนำไปใช้

เดาเอาหน่ะคับ ...

หัวข้อ: Re: เกี่ยวกับการใช้ InputQuery
เริ่มหัวข้อโดย: anonymous ที่ พฤศจิกายน 23, 2009, 10:36:30 AM

เดาด้วย อิอิ


an=490001252

InputBox('Enter data','Please enter your data','+an+');

หัวข้อ: Re: เกี่ยวกับการใช้ InputQuery
เริ่มหัวข้อโดย: doramon ที่ พฤศจิกายน 23, 2009, 12:37:29 PM

อ้างจาก: naj ที่ พฤศจิกายน 30, 2006, 05:19:16 AM

เรียนถาม อ mn
ยกตัวอย่าง เกี่ยวกับการใช้ InputQuery
begin
 GetDateRangeDialog(date1, date2);   
       ds1:=formatdatetime('yyyy-mm-dd',date1);
    ds2:=formatdatetime('yyyy-mm-dd',date2);
    fan:=InputQuery('เลือก AN ที่ต้องการ',' AN 9 หลัก เช่น 490001206');   
            fhn :=   GetSQLStringData('select hn from ipt where an="'+fan+'"'); 

end;
เกี่ยวกับการใช้ InputQuery ครับผมอยากจะให้แสดงค่า an=490001252 เป็นค่าเริ่มต้น ใน InputQuery  ในการเรียกรายงานทุกครั้งเพื่อที่ผู้ใช้จะได้ไม่ต้องใส่ an ถึง 9 หลัก จะเปลี่ยนแค่เลขท้ายจะสะดวกกว่าไม่ทราบว่ามีวิธีอย่างไรครับ
ขอบคุณครับ
พร้อมแนบตัวอย่างนรายงานมาให้ อ mn ดูด้วยครับ

download  ไม่ได้ครับ

หัวข้อ: Re: เกี่ยวกับการใช้ InputQuery
เริ่มหัวข้อโดย: SrWooD ที่ พฤศจิกายน 23, 2009, 12:40:06 PM

อ้างจาก: doraemon ที่ พฤศจิกายน 23, 2009, 12:37:29 PM

อ้างจาก: naj ที่ พฤศจิกายน 30, 2006, 05:19:16 AM

เรียนถาม อ mn
ยกตัวอย่าง เกี่ยวกับการใช้ InputQuery
begin
 GetDateRangeDialog(date1, date2);   
       ds1:=formatdatetime('yyyy-mm-dd',date1);
    ds2:=formatdatetime('yyyy-mm-dd',date2);
    fan:=InputQuery('เลือก AN ที่ต้องการ',' AN 9 หลัก เช่น 490001206');   
            fhn :=   GetSQLStringData('select hn from ipt where an="'+fan+'"'); 

end;
เกี่ยวกับการใช้ InputQuery ครับผมอยากจะให้แสดงค่า an=490001252 เป็นค่าเริ่มต้น ใน InputQuery  ในการเรียกรายงานทุกครั้งเพื่อที่ผู้ใช้จะได้ไม่ต้องใส่ an ถึง 9 หลัก จะเปลี่ยนแค่เลขท้ายจะสะดวกกว่าไม่ทราบว่ามีวิธีอย่างไรครับ
ขอบคุณครับ
พร้อมแนบตัวอย่างนรายงานมาให้ อ mn ดูด้วยครับ

download  ไม่ได้ครับ

กระทู้มันนานแล้วนี่ครับ

 ;D ;D ;D

หัวข้อ: Re: เกี่ยวกับการใช้ InputQuery
เริ่มหัวข้อโดย: doramon ที่ พฤศจิกายน 23, 2009, 12:42:17 PM

จริงด้วย   ;D ;D ;D ;D