ผู้เขียน หัวข้อ: Delphi : cid  (อ่าน 4264 ครั้ง)

0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

ออฟไลน์ ittipol

  • Hero Member
  • *****
  • กระทู้: 841
  • ขอตั้งใจและมั่นใจในสิ่งที่ทำ
  • Respect: +4
    • ดูรายละเอียด
    • www.thungchanghospital.com
Delphi : cid
« เมื่อ: พฤศจิกายน 11, 2011, 08:29:32 AM »
0
เรียนอาจารย์ครับ
ผมได้ทดสอบสร้างโปรแกรมขึ้นมาครับ
สำหรับเพิ่มบุคลากรครับ
แต่อยากให้โปรแกรมตรวจสอบ cid ไม่ให้ซ้ำกันนะครับ
ไม่ทราบว่าต้องใช้คำสั่งแบบไหนครับใรการตรวจสอบก่อนบันทึกข้อมูลนะครับ
เพื่อไม่ให้ข้อมูลซ้ำกันนะครับ
ขอบคุณครับ
Thungchang Hospital NAN
ward 30 bedno computer 50 client
Endien Firewall+Ip cop
mysql 5.0.51
P4 2.4G DDR 2 GB
HDD 80G 7200
HOsxP 3.52.10.5
HOSxP_PCU 3.52.10.5
ขึ้นระบบ 01-10-2548

ออฟไลน์ Multithreading

  • Sr. Member
  • ****
  • กระทู้: 388
  • หน่วยควบคุมโรคนำโดยแมลง(de-buger)
  • Respect: 0
    • ดูรายละเอียด
    • Android4Health
Re: Delphi : cid
« ตอบกลับ #1 เมื่อ: พฤศจิกายน 11, 2011, 09:06:55 AM »
0
เอาแบบ ถึกๆ   ก็  select  ฟิลด์ cid  โดย where ด้วย cid ตัวใหม่ที่ขึ้นมาดูก่อน
ถ้าเอาตามความสามารถของ dbms ก็ตั้ง cid เป็น primary key
เวลา insert  แล้วเกิดซ้ำกัน  จะมี error เกิดขึ้น   ใช้ try....except จับเอา

สอนเขียน Android และ GIS


นักวิชาการสาธารณสุขปฏิบัติการ in พิษณุโลก

https://www.facebook.com/Android4Health

My Projects in HosXP field.
SurveyTool Android App
HealthPlace  Android App
HosOnDroid  Android App

============================

dusit

  • บุคคลทั่วไป
Re: Delphi : cid
« ตอบกลับ #2 เมื่อ: พฤศจิกายน 11, 2011, 12:11:37 PM »
0
หรือ ก่อนบันทึกรายใหม่ ก็ให้ ตรวจสอบของเก่าก่อน ถ้ามีก็
Exit;  :)

ออฟไลน์ ittipol

  • Hero Member
  • *****
  • กระทู้: 841
  • ขอตั้งใจและมั่นใจในสิ่งที่ทำ
  • Respect: +4
    • ดูรายละเอียด
    • www.thungchanghospital.com
Re: Delphi : cid
« ตอบกลับ #3 เมื่อ: พฤศจิกายน 11, 2011, 14:26:20 PM »
0
งงครับ
ขอคำอธิบายและตัวอย่างอีกนิดครับ
เอาแบบตรวจสอบว่าซ้ำกับหรือเปล่า
แบบตรวจสอบ cid เลยครับ
Thungchang Hospital NAN
ward 30 bedno computer 50 client
Endien Firewall+Ip cop
mysql 5.0.51
P4 2.4G DDR 2 GB
HDD 80G 7200
HOsxP 3.52.10.5
HOSxP_PCU 3.52.10.5
ขึ้นระบบ 01-10-2548

ออฟไลน์ farmonline

  • Sr. Member
  • ****
  • กระทู้: 353
  • Nobody Perfect
  • Respect: 0
    • ดูรายละเอียด
    • Piyanat Blog
Re: Delphi : cid
« ตอบกลับ #4 เมื่อ: มกราคม 27, 2012, 15:29:53 PM »
0
ก็ใช้คำสั่ง sql ไปเช็คนะครับ เช่น

 cds.data:=ClsDBMS.HOSxP_GetDataset('select count(cid) from employee where cid = "' +Edit1.Text+'"';

   if cds.recordcount > 0 then
       begin
            showmessage('ซ้ำ');
            exit;
       end
       
ปิยะณัฐ นิ่มขุนทด (Farm)
นักวิชาการคอมพิวเตอร์ - โรงพยาบาลวิเชียรบุรี จ.เพชรบูรณ์
Email farmonline@gmail.com
MSN farmonline@hotmail.com
HOSxP V. 3.54.X.X MySQL 5.1.30
<b>Show the world what I can do!</b>
โปรแกรม HOSxP2Depression2011 https://sites.google.com/site/hosxp2depression2011