BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: SIWIT ที่ ตุลาคม 02, 2023, 14:43:47 PM

หัวข้อ: สอบถามวิธีการเรียก procedure event clik ครับ
เริ่มหัวข้อโดย: SIWIT ที่ ตุลาคม 02, 2023, 14:43:47 PM
สอบถามครับ ใน vn script  v.4  ผมสร้าง form2 มีปุ่ม ที่มี event.Close();
ในกรณีที่ผมไม่ต้องการให้ form แสดงผมอยากปิด Form2 หรือ สั่ง Button1.Click();
โดยที่ไม่ต้องคลิ๊กเมาส์ได้ไหมครับ
หัวข้อ: Re: สอบถามวิธีการเรียก procedure event clik ครับ
เริ่มหัวข้อโดย: SIWIT ที่ ตุลาคม 02, 2023, 14:58:45 PM
กรณีไม่เข้าเงื่อนไขอยากให้ Form2 ปิดเองโดยไม่ต้อง Click ครับผม
หัวข้อ: Re: สอบถามวิธีการเรียก procedure event clik ครับ
เริ่มหัวข้อโดย: BlueEye ที่ ตุลาคม 05, 2023, 16:48:16 PM
ถ้าไม่เข้าเงื่อนไขก็ไม่ต้องแสดงฟอร์มเลยดีกว่ามั้ยครับ

คิวรี่ในเรื่องเดียวกัน ใช้คิวรี่เดียวก็ครอบคลุมได้นะครับ
หัวข้อ: Re: สอบถามวิธีการเรียก procedure event clik ครับ
เริ่มหัวข้อโดย: pong3plas ที่ พฤศจิกายน 13, 2023, 08:01:37 AM
อ้างจาก: BlueEye ที่ ตุลาคม 05, 2023, 16:48:16 PM
ถ้าไม่เข้าเงื่อนไขก็ไม่ต้องแสดงฟอร์มเลยดีกว่ามั้ยครับ

คิวรี่ในเรื่องเดียวกัน ใช้คิวรี่เดียวก็ครอบคลุมได้นะครับ

ใส่เงื่อนไขกันแสดงฟอร์มตรงไหนเหรอคับ
หัวข้อ: Re: สอบถามวิธีการเรียก procedure event clik ครับ
เริ่มหัวข้อโดย: BlueEye ที่ พฤศจิกายน 14, 2023, 12:37:55 PM
เงื่อนไข สามารถใส่ได้ 2 จุดคือก่อน form2.open กับ หลังจาก open แล้วให้เขียนเงื่อนไขที่ constructure ของ form ก็ได้

แต่ปกติ ผม จะทำ vnscript ขึ้นมาเป็น main ก่อน ที่จะไปเปิด form อื่น เพราะจะได้ตรวจสอบเงื่อนไข ก่อนที่จะ open form อื่นๆที่ต้องการ
หัวข้อ: Re: สอบถามวิธีการเรียก procedure event clik ครับ
เริ่มหัวข้อโดย: pong3plas ที่ พฤศจิกายน 15, 2023, 14:45:51 PM
อ้างจาก: BlueEye ที่ พฤศจิกายน 14, 2023, 12:37:55 PM
เงื่อนไข สามารถใส่ได้ 2 จุดคือก่อน form2.open กับ หลังจาก open แล้วให้เขียนเงื่อนไขที่ constructure ของ form ก็ได้

แต่ปกติ ผม จะทำ vnscript ขึ้นมาเป็น main ก่อน ที่จะไปเปิด form อื่น เพราะจะได้ตรวจสอบเงื่อนไข ก่อนที่จะ open form อื่นๆที่ต้องการ

พอเข้าใจแล้วคับ สร้าง form main มาสักอันนึง แล้วถ้าเข้าเงื่อนไข ค่อย open form ย่อยมาแสดง
พอจะได้ไอเดียแล้วคับ เพิ่งจะหัดทำครั้งแรกเลย พอจะมีตัวอย่างไหมคับ ขอบคุณคับ
หัวข้อ: Re: สอบถามวิธีการเรียก procedure event clik ครับ
เริ่มหัวข้อโดย: BlueEye ที่ พฤศจิกายน 17, 2023, 15:38:48 PM
โค๊ด: [Select]
  try
    RunHOSxP_ScriptProgram('CHECK_TB');
    if tmdep then RunHOSxP_ScriptProgram('CHECK_PTDEPART');
    RunHOSxP_ScriptProgram('HSRIP_NCD_SCRIPT_V8');


    //if FileExists('C:\Program Files (x86)\hsrip\HOSxPNotify\HOSxPNotify.exe') then
      //WinEXEC('C:\Program Files (x86)\hsrip\HOSxPNotify\HOSxPNotify.exe '+cid);

    //if FileExists('C:\Program Files\hsrip\HOSxPNotify\HOSxPNotify.exe') then
      //WinEXEC('C:\Program Files\hsrip\HOSxPNotify\HOSxPNotify.exe '+cid);

    //if bpdep then RunHOSxP_ScriptProgram('SmartBP');

  except
    on E : Exception do Exit;
  end;

ตรงนี้คือ สั่งให้มันเปิด form ชื่อ "SmartBP" ของ v4 ผมยังไม่เคยเข้าไปดู อาจจะแตกต่างหรือเปล่าไม่รุ้นะครับ เอาเป้นแค่ ไอเดียก็ได้

โค๊ด: [Select]
RunHOSxP_ScriptProgram('SmartBP');
หัวข้อ: Re: สอบถามวิธีการเรียก procedure event clik ครับ
เริ่มหัวข้อโดย: pong3plas ที่ พฤศจิกายน 26, 2023, 20:56:08 PM
อ้างจาก: BlueEye ที่ พฤศจิกายน 17, 2023, 15:38:48 PM
โค๊ด: [Select]
  try
    RunHOSxP_ScriptProgram('CHECK_TB');
    if tmdep then RunHOSxP_ScriptProgram('CHECK_PTDEPART');
    RunHOSxP_ScriptProgram('HSRIP_NCD_SCRIPT_V8');


    //if FileExists('C:\Program Files (x86)\hsrip\HOSxPNotify\HOSxPNotify.exe') then
      //WinEXEC('C:\Program Files (x86)\hsrip\HOSxPNotify\HOSxPNotify.exe '+cid);

    //if FileExists('C:\Program Files\hsrip\HOSxPNotify\HOSxPNotify.exe') then
      //WinEXEC('C:\Program Files\hsrip\HOSxPNotify\HOSxPNotify.exe '+cid);

    //if bpdep then RunHOSxP_ScriptProgram('SmartBP');

  except
    on E : Exception do Exit;
  end;

ตรงนี้คือ สั่งให้มันเปิด form ชื่อ "SmartBP" ของ v4 ผมยังไม่เคยเข้าไปดู อาจจะแตกต่างหรือเปล่าไม่รุ้นะครับ เอาเป้นแค่ ไอเดียก็ได้

โค๊ด: [Select]
RunHOSxP_ScriptProgram('SmartBP');

ขอบคุณสำหรับไอเดียคับ จะลองไปปรับดู