เกี่ยวกับการใช้ InputQuery

[naj]

เรียนถาม อ 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 ดูด้วยครับ

[udomchok]

เรียนถาม อ 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 ยังไม่ได้ตอบครับ 

[dusit]

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

GetSQLStringData(sql,defa:string) string ;

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

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

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

[anonymous]

เดาด้วย อิอิ


an=490001252

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

[doramon]

เรียนถาม อ 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  ไม่ได้ครับ

[SrWooD]

เรียนถาม อ 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  ไม่ได้ครับ

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

 

[doramon]

จริงด้วย