Rap จะมีเฉพาะใน Enterprise edition นะครับ
[/quote
อาจารย์ครับ แล้วมันส่ง function GetSqlData เข้าไปได้อย่างไรครับ

procedure TFimport43.SpeedButton1Click(Sender: TObject);
var
 txt:TextFile;
 quebra:TStringList;
 arq:string;
begin
  quebra := TStringList.Create;
  AssignFile(txt,RzEdit1.Text);
  Reset(txt);
  ProgressBar1.Position:=0;
  ProgressBar1.Max:=FileSize(txt);
  while not eoln(txt) do
  begin
    quebra.Clear;
    Readln(txt,arq);
    ExtractStrings([';'],[],pChar(arq),quebra);
      with q41service  do
      begin
        q41service.SQL.Clear;
        q41service.SQL.Add('insert into service(pcucode,pid,seq) values ('+
        #34+quebra.Strings[0] +#34+','+
        #34+quebra.Strings[1] +#34+','+
        #34+quebra.Strings[2] +#34+')');
        ExecSQL;
        end;
      ProgressBar1.Position:=ProgressBar1.Position+1;
      end;
      CloseFile(txt);
      ProgressBar1.Position:=0;
      quebra.Free;
      ShowMessage('ARQIO successo');

###
txt ที่ใช้โหลด

0000;01111;8888

ถ้าตัวหน้าเป็นเลขหลักเดียวโหลดได้

ขอคำแนะนำครับ

ACCIDENT  กรอกข้อมูลหน้าไหน สำหรับ hos pcu

หัตถการ สำหรับสถานีอนามัยต้องจับคุ่ icd10tm เปล่าครับ

อาจารย์ครับ
TSevenZip คือ อะไรครับ
ขอคำแนะนำด้วยครับ
ขอบคุณครับ

ไม่ทราบว่าใช่เปล่านะครับ ให้ลองดูครับ
http://www.componentace.com/extract-file-from-zip-in-delphi.htm
//zip file
      begin
      //
          archiver := TZipForge.Create(nil);
            try
                  with archiver do
                          begin
                            // Set the name of the archive file we want to create
                            FileName := 'C:\test.zip';
                            // Because we create a new archive,
                            // we set Mode to fmCreate
                            OpenArchive(fmCreate);
                            // Set base (default) directory for all archive operations
                            BaseDir := 'C:\';
                            // Add the c:\Test folder to the archive with all subfolders
                            AddFiles('C:\Test\*.*');
                            CloseArchive();
                          end;
                                    except
                              on E: Exception do
                                begin
                                  Writeln('Exception: ', E.Message);
                                  // Wait for the key to be pressed
                                  Readln;
                                end;
          //
          end;

      end;
//unzip
begin
            begin
              // Create an instance of the TZipForge class
              archiver := TZipForge.Create(nil);
              try
              with archiver do
                        begin
                          // The name of the ZIP file to unzip
                          FileName := 'C:\test.zip';
                          // Open an existing archive
                          OpenArchive(fmOpenRead);
                          // Set base (default) directory for all archive operations
                          BaseDir := 'C:\temp';
                          // Extract all files from the archive to C:\Temp folder
                          ExtractFiles('*.*');
                          CloseArchive();
                        end;
              except
              on E: Exception do
                        begin
                          Writeln('Exception: ', E.Message);
                          // Wait for the key to be pressed
                          Readln;
                        end;
              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;

ขอบคุณครับ  สำหรับตัวอย่าง 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;

From login MD5 เป็นค่าว่าง (ไม่รับค่าจาก Rzedit2.text)

var
  Md5:TIdHashMessageDigest5;
  Str:string;
  Sai:string;
 begin
        Md5:=TIdHashMessageDigest5.Create;
        Sai:=md5.HashStringAsHex(Str);
        RzEdit2.Text := Sai;
        DataModule1.Qmember2.Open;
  while not  DataModule1.Qmember2.Eof do

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

           begin

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

              exit;
           end

        else
        begin
         DataModule1.Qmember2.Next;
              if(RzEdit1.Text = DataModule1.Qmember2['username']) and (Sai=DataModule1.Qmember2['password']) then
                     begin
                       Exit;

                     end

             else
                     begin
                         ShowMessage('กรุณาล็อกอินใหม่');
                         RzEdit1.Text:='';
                         RzEdit2.Text:='';
                         RzEdit1.SetFocus;
                         Exit;
                     end;
         end;

สอบถามเรื่องการส่งออกข้อมูล แฟ้ม service  ตอนส่งออกสังเกตเห็นว่า ส่งออกเลขที่สิทธิการรักษาเป็น 4 หลัก ไม่ทราบว่า
ไปดึงข้อมูลเลข 4 หลักนี้มาจากไหนครับ

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

ขอบคุณมาก ๆๆๆๆ
หามาหลายวันแล้ว  สรุปคือ ไม่ได้ use raIDE,ppCTDsgn,myChkBoxDesign, ppChrtUI;

ก็ยัง งง อยู่ดีครับ 

ทำได้แล้วครับ อาจารย์ ตัว datasource  กับ ตัว  myquery ไม่ไปด้วยกัน(ได้จำนวนที่ต้องการนับแล้วครับ)

ขอบคุณครับ

select vn,hn,pname,lanme,cout(vn) as 'total vn'   from vn
เวลาเข้าหน้า From เพื่อเลือกวันที่ cxdateedit  มันจะไม่แสดง ฟิวส์ที่เป็นค่านับมา
ขอคำชี้แนะด้วยครับ

ระบบคลังยา

ขอโทษครับ ผมถามไม่เข้าใจเองครับ คือ ผมต้องการทราบ component  ที่ใช้สร้างเมนูนี้ครับ
เพิ่มเติมครับ ถ้าต้องการให้ หน้า From refresh ทุก 10 นาทีไม่ทราบว่าต้องใช้คำสั่งอย่างไรครับ

อ้างจาก: เกื้อกูล ครับ.. ที่ กุมภาพันธ์ 06, 2013, 13:19:57 PM

เวอร์ช้ันหน้างาน...ที่เจอปัญหา

v 3.55.11.9
error ด้านล่าง
ไฟดับ servcer วันที่เปลี่ยน ตอนนี้แก้กลับมาแล้ว resyenc vn แล้ว update age ที่บัญชี 1 แล้ว
กด enter แล้วหายหมดครับ

ขอคำแนะนำครับ

ถ้ากรอก HN เข้าไปเลย โดยไม่กดค้นหา สามารถส่งตรวจได้

อ้างจาก: golf_win ที่ ตุลาคม 07, 2012, 08:16:18 AM

อ้างจาก: อยากมีที่จอดใจ ที่ ตุลาคม 07, 2012, 03:21:45 AM

อ้างจาก: apisak ที่ กันยายน 16, 2011, 09:45:20 AM

อ้างจาก: คันหู...ไม่รู้เป็นอะไร ที่ กันยายน 15, 2011, 08:48:04 AM

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

ขอบคุณครับแล้วผมจะลองดูนะครับว่าได้หรือเปล่า

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

บี๋ผ่านไปปีกว่าแล้วนะแสดงตัวหน่อย มีคนคิดถึง

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

hosxp pcu หน้า one stop service ค้นคนไข้ได้ แต่ส่งตรวจไม่ได้(enter แล้วหายไปเลย) กลับมาอีกแล้วครับ แต่คราวนี้ person ฟิวส์ village_id ไม่ว่าง ท่านใดเคยพบปัญหานี้ช่วยตอบด้วยครับ

ดูที่ตาราง patient  ตรง ๆ ว่า  hn รายนี้ คอลัมน์ที่อยู่ และคอลัมน์ วันเกิด ว่างหรือไม่ครับ

ไม่ว่างครับ มีข้อมูล ทั้ง 2 อย่างที่ว่ามา คือ ที่อยู่ไม่ว่าง วดป เกิดไม่ว่าง

ขอบคุณครับที่แจ้งข่าวให้ทราบ

close;

แต่กลับ ย่อฟอร์มไว้ ขอคำแนะนำด้วยครับ

EasyReport2U 1.56.1.21 By  James011  Download  ====>  http://www.facebook.com/groups/191037677695931/247803155352716/

โหลดไม่ได้ครับ ต้องการทดสอบเช่นกัน (ใช่ค่อยได้ใช่ face)
ผมอยากได้วิธีเขียนแบบเลือกวันที่ ครับ

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

ผมติก พิมพ์เวชระเบียน / ใบสั่งยาออกได้เปล่าครับ

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

ได้แล้วครับขอบคุณมากครับแต่ขอถามต่อนะครับจากรูปพี่ลง unidac กับ mydac พร้อมกันได้อย่างไรครับ

อ้างจาก: apisak ที่ มกราคม 09, 2013, 14:59:01 PM

อ้างจาก: Bond_007 ที่ มกราคม 09, 2013, 14:18:01 PM

หลังจากลง ลงโปรแกรม Delphi  2007 ติดตั้งคอมโพเน้นเดิม โดยไม่มี error ใดๆปรากฎว่าตอนออกแบบโปรแกรมะจะเรียก componant mydac หาไม่เจอครับต้องแก้ยังไงครับ

น่าจะเกิดจาก ลง mydac 2 ครั้งเลยทำให้โหลด mydac ไม่ได้ ต้องเปิดแบบธรรมดา

หาตัว unidac ตัวเดี่ยวๆ ครับ

พึ่งหัดทำ intraweb ครับโดนรับน้องเลยครับไมกล้ารันเลยครับ ทั้งทีเป็นฐานข้อมูลที่คนละตัวกะ Hosxp

น่าจะต้องเติมใน my.cnf (linux)/ my.ini(windows)
แถวๆ mysqld

log_bin_trust_function_creators = 1

#restart  service mysql

if cxDBDateEdit1.date=null then
begin

xxxxxxxx;

end else
begin

xxxxxxxxx;

end;

ขอบคุณครับ แบบนี้แหละที่ต้องการ
แบบนี้ หลัง else ผมก็สั่ง show message ได้เลยที่เปล่าครับ

ไม่ทราบว่าติดตั้ง Jv ยัง ถ้าติดตั้งแล้ว ให้ไปหาตำแหน่งตอนติดตั้งครับว่าไปอยู่ที่ไหน
เช่นของผม ตัว install อยู่ที่ d:\jv\  แต่ตอนติดตั้งแล้วไปอยู่ที่ C:\User\zero\down\jv
ผมก็ Add Jv เข้ามาใน lib ครับ
(กด add นะครับ)

procedure TForm1.FormCreate(Sender: TObject);
begin
MyQuery1.sql.text:=' select vn_stat.vn,vn_stat.hn,vn_stat.pdx,vn_stat.vstdate from vn_stat limit 0 ';
MyQuery1.open;
end;
 

ขอบคุณครับ
แก้ที่ MyQuery1 ก่อน select vn_stat.vn,vn_stat.hn,vn_stat.pdx,vn_stat.vstdate from vn_stat limit 0

MyQuery1.sql.text:=' select  * from vn_stat where vstdate between "'+formatdatetime('yyyy-mm-dd',cxDBDateEdit1.date)+'" and "'+formatdatetime('yyyy-mm-dd',cxDBDateEdit1.date)+'" ';
MyQuery1.open;

cxDBDateEdit // กำหนด DataBinding  // datasurce  , dataset

//มีตัวอย่างการ ดัก error เปล่า กรณีไม่มีการเลือกวันที่