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

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

ออฟไลน์ ittipol

  • Hero Member
  • *****
  • กระทู้: 841
  • ขอตั้งใจและมั่นใจในสิ่งที่ทำ
  • Respect: +4
    • ดูรายละเอียด
    • www.thungchanghospital.com
ButtonEdit
« เมื่อ: กุมภาพันธ์ 03, 2014, 08:48:09 AM »
0
อาจารย์ครับ
ช่วยแนะนำการใช้งาน ButtonEdit
ในโปรแกรม Delphi ในการดึงข้อมูลหน่อยครับ
ขอบคุณครับ
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

ออฟไลน์ apisak

  • Full Member
  • ***
  • กระทู้: 204
  • Respect: 0
    • ดูรายละเอียด
    • โรงพยาบาลสวนผึ้ง
Re: ButtonEdit
« ตอบกลับ #1 เมื่อ: พฤษภาคม 29, 2014, 08:02:55 AM »
0
เรียนรู้ร่วมกันครับ
Accessing Field Values with a Dataset's FieldByName Method
รูปแบบ
FDQuery1.Fields[0].AsString;
Edit1.Text := FieldByName('username').AsString;

ตัวอย่าง
RzEdit1.Text := q_list_office.Fields[0].AsString ;
RzEdit2.Text := q_list_office.Fields[6].AsString ;

RzEdit1.Text := q_list_office.FieldByName('stock_manual_id').AsString ;
RzEdit2.Text := q_list_office.FieldByName('department_id').AsString ;

หมายเหตุไม่สามารถใช้ ใช้ชื่อย่อได้ Alas
m.stock_department_id  ต้องใช้ stock_department_id

//
Edit2.Text := Customers.FieldByName('CustNo').AsString;
Edit2->Text = Customers->FieldByName("CustNo")->AsString;
Conversely, you can assign a value to a field:
begin
  Customers.Edit;
  Customers.FieldByName('CustNo').AsString := Edit2.Text;
  Customers.Post;
end;
Customers->Edit();
Customers->FieldByName("CustNo")->AsString = Edit2->Text;
Customers->Post();
HP ProLiant ML3306 G6
Ram 32 G
โรงพยาบาลสวนผึ้ง จังหวัดราชบุรี
ขึ้นระบบ 2553
FreeBSD8.2
MySQL5.5.20