BMS-HOSxP Community

HOSxP => Delphi / Pascal => ข้อความที่เริ่มโดย: ittipol ที่ พฤศจิกายน 06, 2011, 16:03:42 PM

หัวข้อ: Delphi : Edit
เริ่มหัวข้อโดย: ittipol ที่ พฤศจิกายน 06, 2011, 16:03:42 PM

อาจารย์ทุกท่าน
ผมได้ทดสอบทำ 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;

หัวข้อ: Re: Delphi : Edit
เริ่มหัวข้อโดย: usa0823 ที่ พฤศจิกายน 06, 2011, 16:10:05 PM

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

หัวข้อ: Re: Delphi : Edit
เริ่มหัวข้อโดย: ittipol ที่ พฤศจิกายน 06, 2011, 16:18:39 PM

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

หัวข้อ: Re: Delphi : Edit
เริ่มหัวข้อโดย: ittipol ที่ พฤศจิกายน 07, 2011, 08:44:38 AM

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

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.

หัวข้อ: Re: Delphi : Edit
เริ่มหัวข้อโดย: dusit ที่ พฤศจิกายน 07, 2011, 10:01:59 AM

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

หัวข้อ: Re: Delphi : Edit
เริ่มหัวข้อโดย: ittipol ที่ พฤศจิกายน 07, 2011, 15:32:34 PM

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

หัวข้อ: Re: Delphi : Edit
เริ่มหัวข้อโดย: SrWooD ที่ พฤศจิกายน 07, 2011, 16:23:17 PM

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

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

ลองดูครับ

 ;D ;D ;D

หัวข้อ: Re: Delphi : Edit
เริ่มหัวข้อโดย: ittipol ที่ พฤศจิกายน 09, 2011, 11:37:37 AM

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

หัวข้อ: Re: Delphi : Edit
เริ่มหัวข้อโดย: ittipol ที่ พฤศจิกายน 10, 2011, 11:40:27 AM

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

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