ยินดีต้อนรับคุณ,
บุคคลทั่วไป
กรุณา
เข้าสู่ระบบ
หรือ
ลงทะเบียน
ส่งอีเมล์ยืนยันการใช้งาน?
พฤศจิกายน 22, 2024, 18:25:57 PM
หน้าแรก
ช่วยเหลือ
ค้นหา
Recent posts
เข้าสู่ระบบ
สมัครสมาชิก
BMS-HOSxP Community
»
HOSxP
»
Delphi / Pascal
»
Delphi : cid
« หน้าที่แล้ว
ต่อไป »
พิมพ์
หน้า: [
1
]
ลงล่าง
ผู้เขียน
หัวข้อ: Delphi : cid (อ่าน 5054 ครั้ง)
0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้
ittipol
Hero Member
กระทู้: 841
ขอตั้งใจและมั่นใจในสิ่งที่ทำ
Respect:
+4
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
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
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:
+1
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
พิมพ์
หน้า: [
1
]
ขึ้นบน
« หน้าที่แล้ว
ต่อไป »
BMS-HOSxP Community
»
HOSxP
»
Delphi / Pascal
»
Delphi : cid