101
แจ้งปัญหา / ขอความช่วยเหลือ / Re: ช่วยดูรายงานให้หน่อยครับ อยากให้แสดงการแพ้ยา
« เมื่อ: กุมภาพันธ์ 23, 2012, 15:23:14 PM »
อันนี้เป็นของ รพ....
นะครับ
ทดลองใช้งานดู้ครับ
นะครับ
ทดลองใช้งานดู้ครับ
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
repeatนำไปใส่ตรงไหนคัรบ
vn := formatdatetime('eemmddhhnnss', now);
until ((getsqldata('select count(*) as cc from TABLEX where vn = "' + vn
+'"') = 0)
จาก ตย. source code hosxp อ.ชัยพร
vn ได้จาก formatdatetime function
แต่ต้อง checkไม่ให้ซ้ำ ใน table โดย loop repeat... until ...
แล้วจึงนำ vn ไปใช้ เป็น key fieldได้
อาจารย์ครับไม่ต้อง edit ซ้ำครับ ลองแก้เป็นแบบนี้นะครับ
procedure TCarAddForm.cxButtonRecordClick(Sender: TObject);
begin//record
if MyQueryCarLog.State in ([dsInsert,dsEdit]) then
begin
MyQueryCarLog.fieldByName('car_log_id').AsInteger;
end;
MyQueryCarLog.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;
ไม่สำเร็จครับอาจารย์ ต้องแก้ไขยังงัยต่อครับ
procedure TCarAddForm.cxButtonRecordClick(Sender: TObject);
begin//record
if MyQueryCarLog.State in ([dsInsert,dsEdit]) then
begin
MyQueryCarLog.fieldByName('car_log_id').AsInteger:=getserialnumber('car_log_id');
end;
MyQueryCarLog.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;
เหมือน อ.ชัยพร ครับ เพิ่มเติม รับค่า car_log_id +1 จากฟังชั่นของ อ.ครับ
getserialnumber('car_log_id'); // จะเพิ่มค่า +1 ให้กับตัวแปรชื่อใน 'xxx' อ. สร้าง function ไว้แล้ว นำไปใช้ได้เลยครับ
ไม่ต้อง edit ซ้ำครับ ลองแก้เป็นแบบนี้นะครับ
procedure TCarAddForm.cxButtonRecordClick(Sender: TObject);
begin//record
if MyQueryCarLog.State in ([dsInsert,dsEdit]) then
begin
MyQueryCarLog.fieldByName('car_log_id').AsInteger;
end;
MyQueryCarLog.Post;
ShowMessage('เพิ่มข้อมูลสำเร็จ');
Close;
end;