Delphi : Edit

[ittipol]

อาจารย์ทุกท่าน
ผมได้ทดสอบทำ Delphi
ในส่วนของ Edit แต่มันไม่ทำงานครับ
ขออาจารย์ทุกท่านแนะนำด้วยครับ

procedure TPersonnelListForm.cxButton3Click(Sender: TObject);
begin//Edit
  PersonnelAddForm:=TPersonnelAddForm.Create(application);
  PersonnelAddForm.addrid:=MyQueryPersonnelAdd.fieldByName('id').AsInteger;
  PersonnelAddForm.ShowModal;
  PersonnelAddForm.free;
  ShowMessage('แก้ไขรายชื่อสำเร็จ');

end;

[usa0823]

MyQueryPersonnelAdd.edit;
MyQueryPersonnelAdd.fieldByName('id').AsInteger:=9;
MyQueryPersonnelAdd.post;

[ittipol]

แก้ไขตรงไหนครับ
ขอคำอธิบายเพิ่มด้วยครับ

[ittipol]

ข้อมูลทั้งหมดนะครับ

unit PersonnelListUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters, Menus, StdCtrls,
  cxButtons, ExtCtrls, cxControls, cxStyles, dxSkinsCore,
  dxSkinsDefaultPainters, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit,
  DB, cxDBData, cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, DBAccess, MyAccess, MemDS;

type
  TPersonnelListForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    cxButton1: TcxButton;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    MyQueryPersonnelList: TMyQuery;
    MyDataSourcePersonnelList: TMyDataSource;
    cxGrid1DBTableView1id: TcxGridDBColumn;
    cxGrid1DBTableView1name: TcxGridDBColumn;
    cxGrid1DBTableView1work_in: TcxGridDBColumn;
    cxGrid1DBTableView1department_id: TcxGridDBColumn;
    cxGrid1DBTableView1status_id: TcxGridDBColumn;
    cxGrid1DBTableView1cid: TcxGridDBColumn;
    cxGrid1DBTableView1hn: TcxGridDBColumn;
    cxButton2: TcxButton;
    cxButton3: TcxButton;
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  PersonnelListForm: TPersonnelListForm;

implementation

uses TchmDataModuleUnit, PersonnelAddUnit;

{$R *.dfm}

procedure TPersonnelListForm.cxButton1Click(Sender: TObject);
begin
  Close;
end;

procedure TPersonnelListForm.cxButton2Click(Sender: TObject);
begin//Add
  PersonnelAddForm:=TPersonnelAddForm.Create(application);
  PersonnelAddForm.ShowModal;
  PersonnelAddForm.free;
end;

procedure TPersonnelListForm.cxButton3Click(Sender: TObject);
begin//Edit
  PersonnelAddForm:=TPersonnelAddForm.Create(application);
  //PersonnelAddForm.AddrID:=MyQueryPersonnelList.fieldByName('id').AsInteger;
    PersonnelAddForm.ShowModal;
  PersonnelAddForm.free;
  ShowMessage('แก้ไขรายชื่อสำเร็จ');

end;

end.

[dusit]

ใน Form PersonEdit สร้างตัวแปร addrid ไว้หรือยังครับ

[ittipol]

ยังเลยครับอาจารย์แนะนำเลยครับ
เพราะจำไม่ได้ครับ
แต่ผมมีรูปแบบที่เคยทำเป็นตัวอย่างแล้วครับ
แต่ยังลำลับไม่ถูกครับ

[SrWooD]

ประกาศตัวแปรใน PersonnelAddForm

แถวๆ   
  public
    { Public declarations }
    AddrID:integer;
  end;

ลองดูครับ

 

[ittipol]

ทำยังงัยต่อครับ
ขอคำอธิบายและตัวอย่างเพิ่มด้วยครับ
ขอบคุณครับ

[ittipol]

ขอบคุณอาจารย์ทุกท่านที่แนะนำครับ
ขอบคุณครับ

ตัวอย่างการตั้งค่า Delphi : Edit
ทดลองดูนะครับ