อาจารย์ทุกท่านนะครับ
คือผมอยากสร้างฐานข้อมูลที่บันทึกค่าแบบ
VN : 541109110504 แบบที่อาจารย์ทำในการ
ใช้งาน vn_stat นะครับไม่รู้ว่าต้องทำแบบไหนครับ
ขออาจารย์ทุกท่านแนะนำด้สนนะครับ
ขอบคุณครับ

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

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.

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

ขอบคุณครับอาจารย์
ขอเพิ่มนะครับ

ถ้าต้องการให้เลือกช่วงเวลาแล้วข้อมูลเปลี่ยนไปตามที่เลือกต้องใช้คำสั่งอะไรเพิ่มเติ่มไหมครับ
จากที่ได้เรียนมาจะมีคำสั่ง refresh นะครับถ้าจำไม่ผิด
ฝากอาจารย์ช่วยแนะนำด้วยครับ

ครับ
เพิ่มค่าของวันไปด้วยนะครับ

IPD-PROFILE-CONTINUE-LIST-ALL
ทดลองดูครับ

คลิกที่ปุ่ม Update Age ครับ
หรือไม่ทดสอบที่ ปุ่มปรับคำนำหน้าอัตโนมัติ ด้วยนะครับ
จะได้มีการตรวจสอบข้อมูลที่ตาราง person เก็บ birthdate
ได้อีกแบบหนึ่งครับ
ทดลองดูครับ

ตรวจสอบข้อมูลที่ตารางวันเกิดห่อนครับว่าเป็นงัยมั่ง

ลองดูนะครับ
IPD-MAR
IPD-MAR-HOME

ถามอาจารย์นะครับ
การตรวจสอบว่า  Error get_serialnumber นะครับ
ที่อาจารย์ให้โปรแกรมตรวจสอบนั้น ตรวจสอบข้อมูลตรงไหนของ server ครับ
จะได้ลองตามให้นะครับว่ามันควรแก้ไขต้องไหนได้มั่งนะครับ
อาจช่วยได้ในบางส่วนครับ

รายละเอียดของ Error ที่เกิดขึ้นนะครับ อีกนิดนะครับ

ครับอาจารย์ ผมทดสอบการใช้งานกับ
Dell R210 นะครับโดยติดตั้ง
Endian 2.4 และ Xlampp 1.7.4 นะครับ
และทำการ grant all on *.* to root@'%' identified by 'xxx' with grant option ;
grant super on  *.* to root@'%' identified by 'xxx' ; flush privileges ;
นะครับ เปิดการทำงานของ get_serialnumber แล้วด้วยครับ
เลยอยากทดสอบว่าจะใช้งานได้ไหมนะครับ

อาจารย์ครับ
โปรแกรมเกิดปัญหาว่า
Do you want to fix this errcr
ต้องแก้ไขยังงัยครับ

อาจารย์ครับ
ผมทดสอบทำ Server ใหม่นะครับ
แต่เกิด Error get_serialnumber นะครับต้องแก้ไขยังงัยครับ

อาจารย์ทุกท่านครับ
ติดต่อฐานข้อมูลไม่ได้แนะนำหน่อยครับ
แต่ Mysql ทำงานนะครับ

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

เอาไปวางใน
C:\programfile\HOSxPหรือที่ติดตั้งโปรแกรม HOSxP
ลองดู

อาจารย์ครับ
ทางห้องแลปขอมาครับ
อยากให้ระบบค้นหาข้อมูลได้จาก Lab_order_number ด้วยครับ
เพื่อให้เกิดความสะดวกต่อการค้นหาการรายงานผลแลปได้สะดวกขึ้น
และผู้ที่มารับบริการที่มีการตรวจแลปมากกว่า 1 ประเภทนะครับ
ขอบคุณครับ

อาจารย์ครับ
พบปัญหาพิมพ์ใบ Request ของระบบงานLABครับ
คือเวลาพิมพ์ใบ Request แล้วไม่ค่อยออกครับ
และไม่รู้ว่าชื่ออะไรครับตรวจสอบให้หน่อยครับ
ของตัวอย่างฟอร์มของ พิมพ์ใบ Request ด้วยนะครับ
ขอบคุณครับ

ระบบผู้ป่วย admit นะครับ
การให้ยาครับ พิมพ์ใบ HOME MAR ไม่ได้ครับ
ตรวจสอบให้หน่อยครับ
ขอบคุณครับ

เยี่ยมเลยครับ
เดี่ยวทดสอบให้ครับ

ตรวจสอบรหัสวินิจฉัยให้ถูกต้องด้วยว่าตรงตาง ICD101 หรือเปล่า
ตรวจสอบประเภทการให้รหัสด้วยครับ

แสดงความยินดีกับการพัฒนาอีกก้าวหนึ่งครับ

ยินดีตอนรับ
สมาชิกใหม่ครับ

สุดยอด
ขอบคุณครับ....