เลือกแล้วครับ ปัญหาคือเมื่อเลือกแล้วปรากฎว่าข้อมูลจะไม่ติ้กถูกในช่องได้รับย่าพ่นครับ

ต้องเลือกยาเองค่ะ ตามรูป

ผมสามหลัก 

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

และอยากให้ส่งออกได้เหมือน COPD ครับ ตอนนี้ปุ่มนี้ยังไม่ทำงานครับ

เครื่องที่มีปัญหาผมถอย เป็น 56.2.7 ครับ

อ้างจาก: gweeped ที่ มีนาคม 13, 2013, 09:34:05 AM

upgrade จาก 3.55.10.29 เป็น 3.56.3.8c วันนี้
ที่แรกเจอเลย LIS-ERROR แก้ยังไงคับ

แง่ว ปัญหา นี้เจอ มาแล้วนะครับ ลองอ่านๆดูกระทู้ที่ผ่านๆมานะครับ มีวิธีการ อยู่ ว่าต้องทำอย่างไร

พิมคำสั่ง  service mysqld restart ครับ

อ้างจาก: manoi ที่ มีนาคม 11, 2013, 14:42:51 PM

MySQL ยังไม่ทำงานครับ

แก้ไขอย่างไรครับ อาจารย์ มือใหม่

ขอดันกระทู้ครับเนื่องจากคิดว่ามีประโยชน์ในหลายโรงพยาบาลครับ  ทดสอบแล้วใน version 56.2.26 ยังใช้ไม่ได้ครับ

ตรวจพบเจอ version 56.2.26  ครับ และ  ทดสอบ 56.3.8 ก็ยังพบอยู่ครับ

ใช้ Version อะไรครับ

วันนี้ได้รับการแจั้งจาก น้องพยาบาล  แจ้ง่ว่าไม่สามารถลงค่าสามหลักได้ในหน้าการลงข้อมูล asthma  ในฃ่อ
ง PEFR  ซื่งลงค่าเลข 3 หลักไม่ได้จะเกิดค่า  Value  out of bound ตามรูปครับ ซึ่งผมดูโครงสร้าง Asthma DATA กำหนดว่าให้เป็นค่าจำนวนเต็ม 2-3 หลัก ครับ

แรม 12G 

[client]

port=3306

[mysql]

default-character-set=tis620

[mysqld]

port=3306

basedir="C:/MySQL/"

datadir="C:/MySQLDATA/Data/"

character-set-server=tis620

default-storage-engine=INNODB

sql-mode="STRICT_TRANS_TABLES,NO_AUTO_CREATE_USER,NO_ENGINE_SUBSTITUTION"

max_connections=100



table_cache=2048

table_open_cache = 2048

tmp_table_size=256M

thread_cache_size=8





#*** MyISAM Specific options



myisam_max_sort_file_size=100G

myisam_sort_buffer_size=69M

key_buffer_size=55M

read_rnd_buffer_size=256K

sort_buffer_size=256K





#*** INNODB Specific options ***



#skip-innodb

innodb_additional_mem_pool_size=3M

innodb_flush_log_at_trx_commit=1

innodb_log_buffer_size=2M

innodb_buffer_pool_size=107M

innodb_log_file_size=54M

innodb_thread_concurrency=18

innodb_file_per_table

innodb_thread_concurrency = 16

innodb_flush_log_at_trx_commit = 2

innodb_lock_wait_timeout = 50

innodb_doublewrite=0

innodb_support_xa = 0

innodb_open_files = 2000

innodb_locks_unsafe_for_binlog=1

join_buffer_size = 2M

concurrent_insert = 2



max_heap_table_size = 512M

innodb_support_xa = 0

innodb_locks_unsafe_for_binlog = 1







general-log















innodb = ON

max_allowed_packet = 6048576

lock_wait_timeout = 81536000



[mysqldump]

quick

default-character-set=tis620

max_allowed_packet = 2G

allow-keywords

[mysql]

no-auto-rehash

#safe-updates


notebook ผม ram 12G runได้

ที่ไม่ทำงานเพราะว่า mysql ไม่ทำงานแน่นอน  เนื่องจาก inหnodb_log_file_size เป็นค่าที่ไม่สามารถเปลี่ยนได้หลังจาก mysql start ใช่หรือเปล่าครับ

อ้างจาก: por ที่ มีนาคม 05, 2013, 18:10:43 PM

mysqldump (เพิ่มเป็น)
max_allowed_packet = 2G

เพิ่มได้ สูงสุด เพียง 1073 M

อ้างจาก: Neo ที่ มีนาคม 05, 2013, 11:52:52 AM

หมายความว่าต้องการเพิ่มความเร็วในการโอนข้อมูลหรือเปล่าครับ ถ้าเช่นนั้น ลองปรับ my.ini

innodb_log_file_size=1024M  ประมาณนี้ครับผมปรับตัวนี้แล้วเวลาโอนข้อมูลเร็วขึ้นครับ.....

ปล.จากประสบการนะครับ ด้าน ปอ ทฤษฎีไม่แน่ใจครับ ลองดูนะครับ

แก้แบบนี้ บอกว่า mysql ไม่ทำงานแน่นอน

รอดีกว่าครับเพราะดูเหมือนระบบยังจะทำงานอยู่ครับ 

ไม่ได้กำหนดสิทธิในการเข้า report design หรือเปล่าครับ ปล แนะนำตัวหน่อยก็ดีนะครับ

ใช้ไม่ได้ยังไงครับพี่ ของผมกดปุ่มส่งออกแล้วไม่ขึ้นเหมือน copd

ระบบงาน Asthma ยังใช้ไม่ได้ครับ

ร่วมด้วยช่วยกันครับ 

อ้างจาก: Bond_007 ที่ กุมภาพันธ์ 27, 2013, 08:32:28 AM

ผมกำลังหา componant - DCPCrypt  ใน delphixe อยู่ครับ คงตอบโจทย์ข้อนี้ได้ครับ 
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=459.0

ตอนนี้ผมเขียนแบบนี้ครับ


  if  RzEdit2.Text = 'xxxxx' then

 begin
     Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
     MessageDlg('Programmer Mode', mtInformation, [mbOK], 0);
    with FormMain do
    begin
    RzEdit1.Text:=Self.RzEdit1.Text;
      RzEdit2.Text:=Self.RzEdit2.Text;
      RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:='ProgrammerMode';
       Show;
    end;
   //Close;
   //Abort;
 end;

  if (RzEdit1.Text<> '' ) and (RzEdit2.Text <> '' ) then
begin

 with MyQuery1 do
 begin
   Close;
   sql.Text := 'select * from hospital_member where loginname =:vlogin and password =:vpassword ';
   Params.ParamValues['vlogin'] := trim(RzEdit1.Text);
    Params.ParamValues['vpassword'] :=trim(RzEdit2.Text);
    Open;
 end;
  if not MyQuery1.eof then
  begin
   Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
      with FormMain do
    begin
       RzEdit1.Text:=Self.MyQuery1['personcode'];
       RzEdit2.Text:=Self.MyQuery1['name'];
       RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:=Self.myQuery1['loginname'];
       show;
    end;
    //Close;  }
  end
  else
  begin
     ShowMessage('ลองใหม่อีกทีจิ');
     RzEdit2.Clear;
     RzEdit2.SetFocus;
     Abort;
  end;

ขอบคุณครับ  สำหรับตัวอย่าง code
ทำได้แล้วครับ

procedure TFrlogin4.RzButton1Click(Sender: TObject);
var
  Md5:TIdHashMessageDigest5;
  Str:string;
  Sai:string;
 begin
        Md5:=TIdHashMessageDigest5.Create;
         Str := md5.HashStringAsHex(RzEdit2.Text);
        // Str := RzEdit2.Text;
        DataModule1.Qmember2.Close;
        DataModule1.Qmember2.SQL.Clear;
        DataModule1.Qmember2.SQL.Add('Select username,password From member_info where  username ="'+RzEdit1.Text+'" and password = "'+Str+'"');
        DataModule1.Qmember2.Open;
    // while not  DataModule1.Qmember2.Eof do
     // if(RzEdit1.Text = DataModule1.Qmember2['username']) and (RzEdit2.Text = DataModule1.Qmember2['password'])
      if((RzEdit1.Text = DataModule1.Qmember2['username']) and (Str = DataModule1.Qmember2['password']))  then

   //  if((RzEdit1.Text = DataModule1.Qmember2['username']) and (Str = DataModule1.Qmember2['password']) ) then

           begin

              if Fmenu=nil then
              Application.CreateForm(TFmenu, Fmenu);
              Fmenu.Show;
              //Frlogin4.Hide;
              Frlogin4.Close;

              exit;
           end

        else
        begin
                       if((RzEdit1.Text <> DataModule1.Qmember2['username'])or (RzEdit1.Text = DataModule1.Qmember2['username']) and (Str <> DataModule1.Qmember2['password'])) then
                     begin
                         ShowMessage('กรุณาล็อกอินใหม: Invalid Username/Password ');
                         RzEdit1.Text:='';
                         RzEdit2.Text:='';
                         RzEdit1.SetFocus;
                         Exit;
                       Exit;

                     end


         end;




end;

ผมกำลังหา componant - DCPCrypt  ใน delphixe อยู่ครับ คงตอบโจทย์ข้อนี้ได้ครับ 
http://hosxp.net/index.php?option=com_smf&Itemid=28&topic=459.0

ตอนนี้ผมเขียนแบบนี้ครับ


  if  RzEdit2.Text = 'xxxxx' then

 begin
     Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
     MessageDlg('Programmer Mode', mtInformation, [mbOK], 0);
    with FormMain do
    begin
    RzEdit1.Text:=Self.RzEdit1.Text;
      RzEdit2.Text:=Self.RzEdit2.Text;
      RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:='ProgrammerMode';
       Show;
    end;
   //Close;
   //Abort;
 end;

  if (RzEdit1.Text<> '' ) and (RzEdit2.Text <> '' ) then
begin

 with MyQuery1 do
 begin
   Close;
   sql.Text := 'select * from hospital_member where loginname =:vlogin and password =:vpassword ';
   Params.ParamValues['vlogin'] := trim(RzEdit1.Text);
    Params.ParamValues['vpassword'] :=trim(RzEdit2.Text);
    Open;
 end;
  if not MyQuery1.eof then
  begin
   Formlogin.Hide;
     if formmain = nil then
     Application.CreateForm(Tformmain,formmain);
      with FormMain do
    begin
       RzEdit1.Text:=Self.MyQuery1['personcode'];
       RzEdit2.Text:=Self.MyQuery1['name'];
       RzEdit3.Text:='0';
       dxRibbonStatusBar1.Panels[0].Text:=Self.myQuery1['loginname'];
       show;
    end;
    //Close;  }
  end
  else
  begin
     ShowMessage('ลองใหม่อีกทีจิ');
     RzEdit2.Clear;
     RzEdit2.SetFocus;
     Abort;
  end;

Frlogin4.Close; มันปิดไปเลยไม่ได้รับค่าหรือเปล่าครับ ขอดูหน้าตาด้วยได้หรือเปล่าครับผมก

กระทู้นี้หรือเปลาตรับ
http://hosxp.net/smf/index.php?topic=25995.0

ก็ยินดีด้วยครับที่ได้ 15 เดือน แต่ว่าต้องคิดถึงโรงพยาบาลอื่นที่ยังไม่ได้ Activate ด้วยครับ แต่จะถ้าจะให้ดีที่สุดก็รอคำยืนยันชัดเจนจาก BMS ดีกว่านะครับจะได้เข้าใจตรงกันทั้งบอร์ด

อ้างจาก: Bond_007 ที่ กุมภาพันธ์ 08, 2013, 10:54:44 AM

มีอีกเรืองหนึ่งครับคือ คาบริการ Activate รายปีหมายถึง สามารถดาวโหลด HOSXP Version ใหม่ตั้งแต่มกราคม-ธันวาคม ปี 2556 ดังนั้นโรงพยาบาล ก เสียค่า activate รายปี โดยสมัครใช้เดือน มิถุนายน แต่ก็สามารถดาวโหลดได้ถึงเดือนธันวาคม
ครับ  

เพจเกจ activate ไม่ว่าจะ activate เดือนไหน ก็หมดสัญญา ธันวาคม 2556 หมดทุก รพ.แหละค่ะ จริงๆ แล้วถ้า activate ตั้งแต่เดือนตุลาคม ก็ได้กำไรนะคะเนี่ย ได้ใช้ตั้งแต่ ตุลาคม 2555-ธันวาคม 2556 ก็ตั้ง 15 เดือน
ส่วน ihosxp ก็ยังได้แถมอยู่ ปัจจุบัน เวอร์ชั่น 3.56.1.30 ก็ใช้ได้ตามปกติ 

ตอนนี้เห็นน้องเขาบอกว่ายังพัฒนาอยู่ และยังเป็นของแถมที่มา Activate อยู่เป็นความเข้าใจคลาดเคลื่อนของน้องที่มาใหม่ แต่รอทางการตลาดแจ้งอีกทีดีกว่าครับ 

อ้างจาก: Bond_007 ที่ กุมภาพันธ์ 08, 2013, 10:56:01 AM

ประเด็นคือ ถ้าใช้ได้ผมจะไม่ได้ใช้นะสิพี่ 

อ้างจาก: niyomstd ที่ กุมภาพันธ์ 08, 2013, 10:50:59 AM

เข้าใช้งานได้ตลอดเลยเหรอครับ ของพี่ เปลี่ยน V ไหน ก็ Login ค้าง หมุนตลอดเลย ไม่สามารถใ้ช้งานได้เลยครับ

ก็ยังดีที่สามารถใช้งานได้ครับ ของพี่ไม่ว่ารุ่นไหนรุ่นไหน ก็ ค้างตลอดเลย

มีอีกเรืองหนึ่งครับคือ คาบริการ Activate รายปีหมายถึง สามารถดาวโหลด HOSXP Version ใหม่ตั้งแต่มกราคม-ธันวาคม ปี 2556 ดังนั้นโรงพยาบาล ก เสียค่า activate รายปี โดยสมัครใช้เดือน มิถุนายน แต่ก็สามารถดาวโหลดได้ถึงเดือนธันวาคม
ครับ  

ในส่วน Hosxp จะมีเมื่อไหร่ครับอาจารย์

อยู่ใน 3.56.2.7 เป็นต้นไปครับ 

ใช้เครื่อง slave ไปก่อนครับ วาสายแลนเสียบอยูหรือปล่าครับ

ขอ source code ด้วยได้ไหมครับ 

ผมลง mydac แต่เวลาลง sdac mydac จะหายไปพอไป componant เพิ้อติกถูกโปรแกรมจะ error ไม่ยอมให้ขึ้นครับ