BMS-HOSxP Community

HOSxP => Development => ข้อความที่เริ่มโดย: naj ที่ มิถุนายน 29, 2009, 00:46:03 AM

หัวข้อ: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: naj ที่ มิถุนายน 29, 2009, 00:46:03 AM
 กำลังเดินเล่นอยู่แถว LOTUS กับพี่ยินดีและตัวแม่  ใกล้ๆักับ ม.ศิลปากร (ที่อื่นไม่ไป มาที่นี่เนื่องจาก นักศึกษาเยอะดี) น้อง Golf_Win
(ซึ่งน้องเขาบอกว่าเป็นรุ่นน้องเภสัช มหาลัยเดียวกัน  ขอโทษที่จำน้องไม่ได้เนื่องจากถ้าเป็นน้องผู้ชายส่วนใหญ่จะจำได้น้อยมากหรือไม่ได้เลย  พูดเล่นนะ;D ;D ;D ;D แต่ดีใจครับ ที่ได้รู้จักรุ่นน้องที่ขยันมาก ขนาดวันหยุดมันยังไม่ยอมพักเลย :) :) :) :) ) แจ้งมาว่า
รบกวนพี่นาจช่วยใส่ script คำนวนเวลา 2 ตัวครับ ตอนนี้ช่องกรอกเวลายังไม่ได้กำหนดเป็น date/time ครับ
     
  ตอบน้องทันที่ว่าไม่ได้   แต่จะขอลองเขียนก่อน ซึงน้อง Golf_Win เขาจะ post ใน board ไว้ให้ เลยบอกว่าไม่ต้อง ส่งมาที่ mail ดีกว่า เนื่องจากที่ผ่านมาถ้า  post ใน board  แล้วยังทำไม่เสร็จ อาจจะโดนน้า JD เข้ามากดดัน ;D ;D ;D   หลังจากนั้นเลยไปหาแรงบันดาลใจเพื่อจะทำได้  ในที่สุดก็เสร็จแล้วครับ

ขอขอบคุณ
น้องนักศึกษาหญิง(ไม่ทราบคณะ)ที่เดินผ่านไปมาทำเกิดแรงบันดาลใจ
และขอบคุณน้องยินดีมากที่อ้อนให้ต้องอุ้มพาเดินตลอดทาง ไม่รู้ว่า ตัวแม่ ไปอยู่ไหน ขนาดคุยกับพนักงานที่ร้าน Telewis เรื่องโทรศัพท์ พี่ยินดียังเอามือมาตบปาก ให้เลิกคุย จั๋งซี้มันต้องถอน

หมายเหตุ
กำลังหาวิธีที่จะ Fix รูปแบบการกรอกให้มี :(colon) คั่นระหว่าง ชั่วโมงและนาที ไว้ให้เลยอัตโนมัติ แต่ไม่รู้ต้องไปกำหนด Property ตัวไหน ดังนั้น อาจจะไม่สะดวกตอนลงบันทึก ที่ต้องพิมพ์เครืองหมาย : เอง เช่น 12:30

ตัวอย่างการเขียน Code ดูจากที่ link นี้ครับ
http://www.delphibasics.co.uk/RTL.asp?Name=DecodeTime
โค๊ด: Delphi
  1.   ;
  2. var
  3. t1,t2,t3,t4,t5,t6,t7,rst:Tdatetime;
  4. tot1,tot2,h,m,s,ss:integer;
  5. begin
  6. t1:=strtotime(GetFormInputValue(178));
  7. t2:=strtotime(GetFormInputValue(179));
  8. t3:=strtotime(GetFormInputValue(180));
  9. t4:=strtotime(GetFormInputValue(181));
  10. t5:=strtotime(GetFormInputValue(182));
  11. t6:=strtotime(GetFormInputValue(183));
  12. t7:=(t3-t1);
  13. rst:=(t4-t1);
  14. decodetime(t7,h,m,s,ss);
  15. tot1:=(h*60)+m;
  16. SetFormInputValue(184,tot1);
  17. decodetime(rst,h,m,s,ss);
  18. tot2:=(h*60)+m;
  19. SetFormInputValue(185,tot2);
  20. //showmessage('tot1='+inttostr(tot1)+' tot2='+inttostr(tot2)) ;
  21. end;
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS
เริ่มหัวข้อโดย: naj ที่ มิถุนายน 29, 2009, 06:55:14 AM
นึกขึ้นได้ถ้ามีช่วงคาบเกี่ยวก่อนและหลังเที่ยงคืน เช่น รับแจ้ง เวลา 23:59  น แต่ออกจากโรงพยาบาล เวลา 00:25 น ของวันใหม่ อาจจะมีปัญหาในการคำนวนเวลา  แก้ไขให้แล้วใน Version ถัดไป (เลียนแบบ อ.mn  ;D ;D ;D ;D ;D)
หมายเหตุ
ยังไม่รู้จะเขียน Code ยังงัยดี นึกไม่ออก สงสัยต้องไปหาแรงบันดาลใจ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS
เริ่มหัวข้อโดย: jdadmin1 ที่ มิถุนายน 29, 2009, 06:56:53 AM
 ;D ;D ;D พาดพิงนะครับ อ.นาจ ผมก็เหมือนอ.นาจนั่นแหละครับกับผู้ชายด้วยกันผมไม่เคย"กดดัน"ครับ ขอบคุณครับสำหรับ code ที่เขียนเสร็จเร็วที่สุดในรอบ 6 เดือน(คราวหน้าพาผมไปหาแรงบันดาลใจด้วยคนนะครับ) ;D ;D ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS
เริ่มหัวข้อโดย: naj ที่ มิถุนายน 29, 2009, 07:00:21 AM
อ้างจาก: jdadmin1 ที่ มิถุนายน 29, 2009, 06:56:53 AM
;D ;D ;D พาดพิงนะครับ อ.นาจ ผมก็เหมือนอ.นาจนั่นแหละครับกับผู้ชายด้วยกันผมไม่เคย"กดดัน"ครับ ขอบคุณครับสำหรับ code ที่เขียนเสร็จเร็วที่สุดในรอบ 6 เดือน(คราวหน้าพาผมไปหาแรงบันดาลใจด้วยคนนะครับ) ;D ;D ;D
เสียวแทนเลย น้า
จั๋งซี้มันต้องถอน
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS
เริ่มหัวข้อโดย: doramon ที่ มิถุนายน 29, 2009, 07:40:16 AM
อ้างจาก: jdadmin1 ที่ มิถุนายน 29, 2009, 06:56:53 AM
;D ;D ;D พาดพิงนะครับ อ.นาจ ผมก็เหมือนอ.นาจนั่นแหละครับกับผู้ชายด้วยกันผมไม่เคย"กดดัน"ครับ ขอบคุณครับสำหรับ code ที่เขียนเสร็จเร็วที่สุดในรอบ 6 เดือน(คราวหน้าพาผมไปหาแรงบันดาลใจด้วยคนนะครับ) ;D ;D ;D


 ;D ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: Neo28 ที่ มิถุนายน 29, 2009, 07:42:20 AM
อ้างจาก: jdadmin1 ที่ มิถุนายน 29, 2009, 06:56:53 AM
;D ;D ;D พาดพิงนะครับ อ.นาจ ผมก็เหมือนอ.นาจนั่นแหละครับกับผู้ชายด้วยกันผมไม่เคย"กดดัน"ครับ ขอบคุณครับสำหรับ code ที่เขียนเสร็จเร็วที่สุดในรอบ 6 เดือน(คราวหน้าพาผมไปหาแรงบันดาลใจด้วยคนนะครับ) ;D ;D ;D
 น้าพูดอย่างนี้เดี๋ยว อ.นาจ ขน code ที่เขียนไว้ทั้งหมดมาให้น่ะครับ ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: naj ที่ มิถุนายน 29, 2009, 10:40:08 AM
V.2 ออกมาแล้วครับ
 เมื่อเช้าพอมาถึงโรงพยาบาลได้พบหน้าแรงบันดาลใจ ;D ;D ;D ;D
 ก็เลยมาเขียนต่อ ลองทดสอบดูนะครับ
หมายเหตุ
แก้ไข Code ให้รองรับการคำนวนช่วงเวลาที่คาบเกี่ยวกันได้ครับ
ตัวอย่าง Code ที่ใช้ครับ
โค๊ด: Pascal
  1. var
  2. t1,t2,t3,t4,t5,t6,t7,rst:Tdatetime;
  3. tot1,tot2,t2n,t1n,h,m,s,ss:integer;
  4. begin
  5. t1:=strtotime(GetFormInputValue(178));
  6. t2:=strtotime(GetFormInputValue(179));
  7. t3:=strtotime(GetFormInputValue(180));
  8. t4:=strtotime(GetFormInputValue(181));
  9. t5:=strtotime(GetFormInputValue(182));
  10. t6:=strtotime(GetFormInputValue(183));
  11. If t3<t1  Then
  12. begin
  13. DecodeTime(t3,H,M,S,SS);
  14. t2n:=((H+24)*60)+M;
  15. DecodeTime(t1,H,M,S,SS);
  16. t1n:=(H*60)+M;
  17. tot1:=t2n-t1n;
  18. end else
  19. begin
  20. t7:=t3-t1;
  21. DecodeTime(t7,H,M,S,SS);
  22.  tot1:=(H*60)+M;
  23.    end;
  24.    SetFormInputValue(184,tot1);
  25.    If t4<t1  Then
  26. begin
  27. DecodeTime(t4,H,M,S,SS);
  28. t2n:=((H+24)*60)+M;
  29. DecodeTime(t1,H,M,S,SS);
  30. t1n:=(H*60)+M;
  31. tot2:=t2n-t1n;
  32. end else
  33. begin
  34. rst:=(t4-t1);
  35. decodetime(rst,h,m,s,ss);
  36. tot2:=(h*60)+m;
  37.    end;
  38. SetFormInputValue(185,tot2);
  39. //showmessage('tot1='+inttostr(tot1)+' tot2='+inttostr(tot2)) ;
  40.  
  41. end;
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: nahos ที่ มิถุนายน 29, 2009, 10:57:12 AM
สุดยอด

อยากให้อาจารย์ MN เอาไปปรับใส่ใน hosxp ให้ป็นมาตรฐานไปเลยครับ
เพราะคิดว่าทุก รพ.ต้องใช้ฟอร์มนี้อยู่แล้ว

คือผมคิดว่าการใช้ UE ลำบาก บาง UE มีเป็น 40-50 record เวลาเรียกงรายงานก็ไม่ค่อยถนัด
หลาย ๆ ที่ยังใช้  UE ไม่เป็น 55



หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: naj ที่ มิถุนายน 29, 2009, 11:09:01 AM
มีผู้สนใจเสนอ อยากให้ทำเป็นคู่มือ การสร้าง UE แบบ Advance with Pascal Script มีท่านใดสนใจบ้างครับ
ผมจะส่งฉบับร่างไปให้ ช่วยพิมพ์และจัดหน้าให้ด้วยครับ จะได้มาแบ่งปันในชุมชนแห่งนี้ครับ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: Manit ที่ มิถุนายน 29, 2009, 11:19:20 AM
นำเข้าไม่ได้ครับ ขึ้น error ดังรูป

EurekaLog 6.0.18

Application:
-------------------------------------------------------
  1.1 Start Date      : Mon, 29 Jun 2009 11:18:34 +0700
  1.2 Name/Description: HOSMy.exe
  1.3 Version Number  : 3.52.6.25
  1.4 Parameters      :
  1.5 Compilation Date: Thu, 25 Jun 2009 16:38:45 +0700
  1.6 Up Time         : 2 minutes, 58 seconds

Exception:
-----------------------------------------------------
  2.1 Date          : Mon, 29 Jun 2009 11:21:33 +0700
  2.2 Address       : 008E1364
  2.3 Module Name   : HOSMy.exe
  2.4 Module Version: 3.52.6.25
  2.5 Type          : EDBClient
  2.6 Message       : Key violation.
  2.7 ID            : 3EE0
  2.8 Count         : 1
  2.9 Status        : New
  2.10 Note         :

User:
-------------------------------------------------------
  3.1 ID        : Administrator
  3.2 Name      : asus
  3.3 Email     :
  3.4 Company   :
  3.5 Privileges: SeChangeNotifyPrivilege         - ON
                  SeSecurityPrivilege             - OFF
                  SeBackupPrivilege               - OFF
                  SeRestorePrivilege              - OFF
                  SeSystemtimePrivilege           - OFF
                  SeShutdownPrivilege             - OFF
                  SeRemoteShutdownPrivilege       - OFF
                  SeTakeOwnershipPrivilege        - OFF
                  SeDebugPrivilege                - OFF
                  SeSystemEnvironmentPrivilege    - OFF
                  SeSystemProfilePrivilege        - OFF
                  SeProfileSingleProcessPrivilege - OFF
                  SeIncreaseBasePriorityPrivilege - OFF
                  SeLoadDriverPrivilege           - ON
                  SeCreatePagefilePrivilege       - OFF
                  SeIncreaseQuotaPrivilege        - OFF
                  SeUndockPrivilege               - ON
                  SeManageVolumePrivilege         - OFF
                  SeImpersonatePrivilege          - ON
                  SeCreateGlobalPrivilege         - ON

Active Controls:
-------------------------------------------------------------------------------------------------------------------
  4.1 Form Class   : TMainForm
  4.2 Form Text    : UniversalFormListForm - :: HOSxP :: 3.52.6.25 5.0.37-standard  Database hos @ 192.168.0.111 []
  4.3 Control Class: TcxButton
  4.4 Control Text : Import

Computer:
---------------------------------------------------------------------------------------
  5.1 Name          : PHAR07
  5.2 Total Memory  : 2047 Mb
  5.3 Free Memory   : 874 Mb
  5.4 Total Disk    : 116.44 Gb
  5.5 Free Disk     : 67.49 Gb
  5.6 System Up Time: 37 days, 22 hours, 21 minutes, 25 seconds
  5.7 Processor     : Intel(R) Pentium(R) D CPU 3.00GHz
  5.8 Display Mode  : 1024 x 768, 32 bit
  5.9 Display DPI   : 96
  5.10 Video Card   : NVIDIA GeForce 7300 SE/7200 GS (driver 6.14.10.9424 - RAM 512 MB)
  5.11 Printer      : HP LaserJet 1020 (driver 6,0,3508,0)

Operating System:
------------------------------------
  6.1 Type    : Microsoft Windows XP
  6.2 Build # : 2600
  6.3 Update  : Service Pack 2
  6.4 Language: Thai
  6.5 Charset : 222

Network:
---------------------------------
  7.1 IP Address: 192.168.000.056
  7.2 Submask   : 255.255.255.000
  7.3 Gateway   : 192.168.000.007
  7.4 DNS 1     : 202.129.027.135
  7.5 DNS 2     : 061.019.254.134
  7.6 DHCP      : OFF           

Custom Information:
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  8.1 Hospital Code            : 11110 [þª. ÈÃÕʧ¤ÃÒÁ]
  8.2 Database Type            : MySQL
  8.3 Database Protocol        : mysql-4.1 [5.0.37-standard
                                  Database hos @ 192.168.0.111]
  8.4                          :
  8.5 No 1                     : select count(*) as cc from universal_form_design where universal_form_design_id = 2876
  8.6 No 2                     : insert into replicate_log (`event_time`,`client`,`sql`) values (current_timestamp,'PHAR07','update serial set serial_no = 2876 where name =\'universal_form_design_id\'')
  8.7 No 3                     : select get_serialnumber('universal_form_design_id') as cc
  8.8 DBMS Variables           :
  8.9                          :
  8.10 auto_increment_increment: 1
                                 auto_increment_offset = 1
                                 automatic_sp_privileges = ON
                                 back_log = 50
                                 basedir = /
                                 binlog_cache_size = 32768
                                 bulk_insert_buffer_size = 8388608
                                 character_set_client = tis620
                                 character_set_connection = tis620
                                 character_set_database = tis620
                                 character_set_filesystem = binary
                                 character_set_results = tis620
                                 character_set_server = tis620
                                 character_set_system = utf8
                                 character_sets_dir = /usr/share/mysql/charsets/
                                 collation_connection = tis620_thai_ci
                                 collation_database = tis620_thai_ci
                                 collation_server = tis620_thai_ci
                                 completion_type = 0
                                 concurrent_insert = 1
                                 connect_timeout = 5
                                 datadir = /var/lib/mysql/
                                 date_format = %Y-%m-%d
                                 datetime_format = %Y-%m-%d %H:%i:%s
                                 default_week_format = 0
                                 delay_key_write = ON
                                 delayed_insert_limit = 100
                                 delayed_insert_timeout = 300
                                 delayed_queue_size = 1000
                                 div_precision_increment = 4
                                 engine_condition_pushdown = OFF
                                 expire_logs_days = 0
                                 flush = OFF
                                 flush_time = 0
                                 ft_boolean_syntax = + -><()~*:""&|
                                 ft_max_word_len = 84
                                 ft_min_word_len = 4
                                 ft_query_expansion_limit = 20
                                 ft_stopword_file = (built-in)
                                 group_concat_max_len = 1024
                                 have_archive = YES
                                 have_bdb = NO
                                 have_blackhole_engine = NO
                                 have_compress = YES
                                 have_crypt = YES
                                 have_csv = NO
                                 have_dynamic_loading = YES
                                 have_example_engine = NO
                                 have_federated_engine = NO
                                 have_geometry = YES
                                 have_innodb = YES
                                 have_isam = NO
                                 have_merge_engine = YES
                                 have_ndbcluster = NO
                                 have_openssl = NO
                                 have_query_cache = YES
                                 have_raid = NO
                                 have_rtree_keys = YES
                                 have_symlink = YES
                                 init_connect = SET NAMES tis620
                                 init_file =
                                 init_slave =
                                 innodb_additional_mem_pool_size = 20971520
                                 innodb_autoextend_increment = 8
                                 innodb_buffer_pool_awe_mem_mb = 0
                                 innodb_buffer_pool_size = 583008256
                                 innodb_checksums = ON
                                 innodb_commit_concurrency = 0
                                 innodb_concurrency_tickets = 500
                                 innodb_data_file_path = ibdata1:10M:autoextend
                                 innodb_data_home_dir = /var/lib/mysql/
                                 innodb_doublewrite = ON
                                 innodb_fast_shutdown = 1
                                 innodb_file_io_threads = 4
                                 innodb_file_per_table = ON
                                 innodb_flush_log_at_trx_commit = 1
                                 innodb_flush_method =
                                 innodb_force_recovery = 0
                                 innodb_lock_wait_timeout = 50
                                 innodb_locks_unsafe_for_binlog = OFF
                                 innodb_log_arch_dir = /var/lib/mysql/
                                 innodb_log_archive = OFF
                                 innodb_log_buffer_size = 8388608
                                 innodb_log_file_size = 67108864
                                 innodb_log_files_in_group = 2
                                 innodb_log_group_home_dir = /var/lib/mysql/
                                 innodb_max_dirty_pages_pct = 90
                                 innodb_max_purge_lag = 0
                                 innodb_mirrored_log_groups = 1
                                 innodb_open_files = 300
                                 innodb_rollback_on_timeout = OFF
                                 innodb_support_xa = ON
                                 innodb_sync_spin_loops = 20
                                 innodb_table_locks = ON
                                 innodb_thread_concurrency = 8
                                 innodb_thread_sleep_delay = 10000
                                 interactive_timeout = 28800
                                 join_buffer_size = 131072
                                 key_buffer_size = 268435456
                                 key_cache_age_threshold = 300
                                 key_cache_block_size = 1024
                                 key_cache_division_limit = 100
                                 language = /usr/share/mysql/english/
                                 large_files_support = ON
                                 large_page_size = 0
                                 large_pages = OFF
                                 lc_time_names = en_US
                                 license = GPL
                                 local_infile = ON
                                 locked_in_memory = OFF
                                 log = OFF
                                 log_bin = OFF
                                 log_bin_trust_function_creators = OFF
                                 log_error =
                                 log_queries_not_using_indexes = OFF
                                 log_slave_updates = OFF
                                 log_slow_queries = OFF
                                 log_warnings = 1
                                 long_query_time = 10
                                 low_priority_updates = OFF
                                 lower_case_file_system = OFF
                                 lower_case_table_names = 0
                                 max_allowed_packet = 16776192
                                 max_binlog_cache_size = 4294967295
                                 max_binlog_size = 1073741824
                                 max_connect_errors = 10
                                 max_connections = 100
                                 max_delayed_threads = 20
                                 max_error_count = 64
                                 max_heap_table_size = 16777216
                                 max_insert_delayed_threads = 20
                                 max_join_size = 18446744073709551615
                                 max_length_for_sort_data = 1024
                                 max_prepared_stmt_count = 16382
                                 max_relay_log_size = 0
                                 max_seeks_for_key = 4294967295
                                 max_sort_length = 1024
                                 max_sp_recursion_depth = 0
                                 max_tmp_tables = 32
                                 max_user_connections = 0
                                 max_write_lock_count = 4294967295
                                 multi_range_count = 256
                                 myisam_data_pointer_size = 6
                                 myisam_max_sort_file_size = 2147483647
                                 myisam_recover_options = OFF
                                 myisam_repair_threads = 1
                                 myisam_sort_buffer_size = 134217728
                                 myisam_stats_method = nulls_unequal
                                 net_buffer_length = 16384
                                 net_read_timeout = 30
                                 net_retry_count = 10
                                 net_write_timeout = 60
                                 new = OFF
                                 old_passwords = OFF
                                 open_files_limit = 1222
                                 optimizer_prune_level = 1
                                 optimizer_search_depth = 62
                                 pid_file = /var/lib/mysql/hos.pid
                                 port = 3306
                                 preload_buffer_size = 32768
                                 profiling = OFF
                                 profiling_history_size = 15
                                 protocol_version = 10
                                 query_alloc_block_size = 8192
                                 query_cache_limit = 1048576
                                 query_cache_min_res_unit = 4096
                                 query_cache_size = 67108864
                                 query_cache_type = ON
                                 query_cache_wlock_invalidate = OFF
                                 query_prealloc_size = 8192
                                 range_alloc_block_size = 2048
                                 read_buffer_size = 1044480
                                 read_only = OFF
                                 read_rnd_buffer_size = 4190208
                                 relay_log_purge = ON
                                 relay_log_space_limit = 0
                                 rpl_recovery_rank = 0
                                 secure_auth = OFF
                                 server_id = 1
                                 skip_external_locking = ON
                                 skip_networking = OFF
                                 skip_show_database = OFF
                                 slave_compressed_protocol = OFF
                                 slave_load_tmpdir = /tmp/
                                 slave_net_timeout = 3600
                                 slave_skip_errors = OFF
                                 slave_transaction_retries = 10
                                 slow_launch_time = 2
                                 socket = /var/lib/mysql/mysql.sock
                                 sort_buffer_size = 1048568
                                 sql_big_selects = ON
                                 sql_mode =
                                 sql_notes = ON
                                 sql_warnings = OFF
                                 ssl_ca =
                                 ssl_capath =
                                 ssl_cert =
                                 ssl_cipher =
                                 ssl_key =
                                 storage_engine = MyISAM
                                 sync_binlog = 0
                                 sync_frm = ON
                                 system_time_zone = ICT
                                 table_cache = 556
                                 table_lock_wait_timeout = 50
                                 table_type = MyISAM
                                 thread_cache_size = 8
                                 thread_stack = 196608
                                 time_format = %H:%i:%s
                                 time_zone = SYSTEM
                                 timed_mutexes = OFF
                                 tmp_table_size = 33554432
                                 tmpdir = /tmp/
                                 transaction_alloc_block_size = 8192
                                 transaction_prealloc_size = 4096
                                 tx_isolation = REPEATABLE-READ
                                 updatable_views_with_limit = YES
                                 version = 5.0.37-standard
                                 version_comment = MySQL Community Edition - Standard (GPL)
                                 version_compile_machine = i686
                                 version_compile_os = pc-linux-gnu
                                 wait_timeout = 28800

Call Stack Information:
------------------------------------------------------------------------------------------------
|Address |Module   |Unit                  |Class                 |Procedure/Method   |Line     |
------------------------------------------------------------------------------------------------
|Running Thread: ID=2480; Priority=0; Class=; [Main]                                           |
|----------------------------------------------------------------------------------------------|
|01BD2745|HOSMy.exe|UniversalFormListU.pas|                      |ReplaceTableFromCDS|224[27]  |
|01BD24E8|HOSMy.exe|UniversalFormListU.pas|                      |ReplaceTableFromCDS|197[0]   |
|01BD36C0|HOSMy.exe|UniversalFormListU.pas|TUniversalFormListForm|cxButton4Click     |503[242] |
|023D29CE|HOSMy.exe|HOSMy.dpr             |                      |                   |1438[136]|
------------------------------------------------------------------------------------------------

Modules Information:
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|Handle  |Name                     |Description                                                          |Version         |Size    |Modified           |Path                                                                                                |
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|00400000|HOSMy.exe                |                                                                     |3.52.6.25       |64537088|2009-06-25 16:38:46|C:\Program Files\HOSxP                                                                              |
|05860000|libintl-2.dll            |                                                                     |                |51016   |2008-04-23 02:00:00|C:\WINDOWS\system32                                                                                 |
|05870000|libiconv-2.dll           |                                                                     |                |916849  |2008-04-23 02:00:00|C:\WINDOWS\system32                                                                                 |
|05950000|krb5_32.dll              |Kerberos v5 - MIT GSS / Kerberos v5 distribution                     |1.3.5.0         |524288  |2007-11-09 13:45:44|C:\WINDOWS\system32                                                                                 |
|059E0000|ssleay32.dll             |OpenSSL Shared Library                                               |0.9.8.1         |200704  |2007-11-09 13:45:44|C:\WINDOWS\system32                                                                                 |
|07330000|idmmkb.dll               |Internet Download Manager module                                     |4.0.0.1         |34488   |2007-01-15 19:18:32|C:\Program Files\Internet Download Manager                                                          |
|08110000|libmysql41.dll           |                                                                     |                |1056768 |2004-07-12 14:36:18|C:\WINDOWS\system32                                                                                 |
|093D0000|GrooveShellExtensions.dll|GrooveShellExtensions Module                                         |12.0.4518.1014  |2210608 |2006-10-27 15:48:42|C:\Program Files\Microsoft Office\Office12                                                          |
|0FFD0000|rsaenh.dll               |Microsoft Enhanced Cryptographic Provider                            |5.1.2600.2161   |152576  |2004-08-03 22:31:44|C:\WINDOWS\system32                                                                                 |
|10000000|libeay32.dll             |OpenSSL Shared Library                                               |0.9.8.1         |1064960 |2007-11-09 13:45:44|C:\WINDOWS\system32                                                                                 |
|1C000000|comerr32.dll             |COM_ERR - Common Error Handler for MIT Kerberos v5 / GSS distribution|1.3.5.0         |24576   |2007-11-09 13:45:44|C:\WINDOWS\system32                                                                                 |
|20000000|xpsp2res.dll             |Service Pack 2 Messages                                              |5.1.2600.2180   |2897920 |2004-08-04 00:56:38|C:\WINDOWS\system32                                                                                 |
|20B00000|imon.dll                 |NOD32 IMON - Internet scanning support                               |2.70.39.0       |298104  |2007-11-15 15:56:08|C:\WINDOWS\system32                                                                                 |
|4D4F0000|WINHTTP.dll              |Windows HTTP Services                                                |5.1.2600.2180   |351232  |2004-08-04 00:56:48|C:\WINDOWS\system32                                                                                 |
|4DE10000|msado15.dll              |Microsoft Data Access - ActiveX Data Objects                         |2.81.1117.0     |536576  |2004-08-04 00:56:44|C:\Program Files\Common Files\System\ado                                                            |
|4EC50000|gdiplus.dll              |Microsoft GDI+                                                       |5.1.3102.2180   |1712128 |2004-08-04 00:57:00|C:\WINDOWS\WinSxS\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.2180_x-ww_522f9f82        |
|58D40000|Wship6.dll               |IPv6 Helper DLL                                                      |5.1.2600.2180   |14336   |2004-08-04 00:56:48|C:\WINDOWS\system32                                                                                 |
|5A730000|wbemdisp.dll             |WMI Scripting                                                        |5.1.2600.2180   |178176  |2004-08-04 00:56:48|C:\WINDOWS\system32\wbem                                                                            |
|5AD70000|uxtheme.dll              |Microsoft UxTheme Library                                            |6.0.2900.2180   |218624  |2004-08-07 20:55:58|C:\WINDOWS\system32                                                                                 |
|5B860000|netapi32.dll             |Net Win32 API DLL                                                    |5.1.2600.2180   |332288  |2004-08-04 00:56:46|C:\WINDOWS\system32                                                                                 |
|5D300000|hhctrl.ocx               |Microsoft? HTML Help Control                                         |5.2.3790.1194   |526848  |2004-08-03 22:23:00|C:\WINDOWS\system32                                                                                 |
|5EDD0000|olepro32.dll             |                                                                     |5.1.2600.2180   |83456   |2004-08-04 00:56:46|C:\WINDOWS\system32                                                                                 |
|629C0000|LPK.DLL                  |Language Pack                                                        |5.1.2600.2180   |22016   |2004-08-04 00:56:44|C:\WINDOWS\system32                                                                                 |
|63100000|libpq.dll                |PostgreSQL Access Library                                            |8.2.5.7260      |187044  |2007-11-09 13:45:44|C:\WINDOWS\system32                                                                                 |
|65E30000|GrooveSystemServices.dll |GrooveSystemServices Module                                          |12.0.4518.1014  |222512  |2006-10-27 15:48:02|C:\Program Files\Microsoft Office\Office12                                                          |
|662B0000|hnetcfg.dll              |Home Networking Configuration Manager                                |5.1.2600.2180   |344064  |2004-08-04 00:56:44|C:\WINDOWS\system32                                                                                 |
|68EF0000|GrooveUtil.dll           |GrooveUtil Module                                                    |12.0.4518.1014  |955680  |2006-10-27 15:48:34|C:\Program Files\Microsoft Office\Office12                                                          |
|68FF0000|GrooveNew.dll            |GrooveNew Module                                                     |12.0.4518.1014  |22808   |2006-10-27 15:47:40|C:\Program Files\Microsoft Office\Office12                                                          |
|71190000|AgentMPx.dll             |Microsoft Agent Custom Marshaling Proxy DLL                          |2.0.0.3422      |49152   |2004-08-04 00:56:42|C:\WINDOWS\msagent                                                                                  |
|711D0000|AgentCtl.dll             |Microsoft Agent Control                                              |2.0.0.3422      |214016  |2004-08-04 00:56:42|C:\WINDOWS\msagent                                                                                  |
|71A50000|mswsock.dll              |Microsoft Windows Sockets 2.0 Service Provider                       |5.1.2600.2180   |245248  |2004-08-04 00:56:46|C:\WINDOWS\System32                                                                                 |
|71A90000|wshtcpip.dll             |Windows Sockets Helper DLL                                           |5.1.2600.2180   |19968   |2004-08-04 00:56:48|C:\WINDOWS\System32                                                                                 |
|71AA0000|WS2HELP.dll              |Windows Socket 2.0 Helper for Windows NT                             |5.1.2600.2180   |19968   |2004-08-04 00:56:48|C:\WINDOWS\system32                                                                                 |
|71AB0000|WS2_32.dll               |Windows Socket 2.0 32-Bit DLL                                        |5.1.2600.2180   |82944   |2004-08-04 00:56:48|C:\WINDOWS\system32                                                                                 |
|71AD0000|wsock32.dll              |Windows Socket 32-Bit DLL                                            |5.1.2600.2180   |22528   |2004-08-04 00:56:48|C:\WINDOWS\system32                                                                                 |
|71B20000|mpr.dll                  |Multiple Provider Router DLL                                         |5.1.2600.2180   |59904   |2004-08-04 00:56:44|C:\WINDOWS\system32                                                                                 |
|722B0000|sensapi.dll              |SENS Connectivity API DLL                                            |5.1.2600.2180   |6656    |2004-08-04 00:56:46|C:\WINDOWS\system32                                                                                 |
|72D10000|msacm32.drv              |Microsoft Sound Mapper                                               |5.1.2600.0      |20480   |2001-08-23 19:00:00|C:\WINDOWS\system32                                                                                 |
|72D20000|wdmaud.drv               |WDM Audio driver mapper                                              |5.1.2600.2180   |23552   |2004-08-04 15:56:58|C:\WINDOWS\system32                                        &nbs
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: golf_win ที่ มิถุนายน 29, 2009, 12:06:44 PM
อ้างจาก: naj ที่ มิถุนายน 29, 2009, 11:09:01 AM
มีผู้สนใจเสนอ อยากให้ทำเป็นคู่มือ การสร้าง UE แบบ Advance with Pascal Script มีท่านใดสนใจบ้างครับ
ผมจะส่งฉบับร่างไปให้ ช่วยพิมพ์และจัดหน้าให้ด้วยครับ จะได้มาแบ่งปันในชุมชนแห่งนี้ครับ
สนใจครับพี่นาจ รบกวนด้วยครับ
golf_win@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: shukree ที่ มิถุนายน 29, 2009, 12:16:52 PM
อยากได้คู่มือนี้มานานแล้วครับ  ขอด้วย
shukreez@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: Neo ที่ มิถุนายน 29, 2009, 12:19:35 PM
อ้างจาก: naj ที่ มิถุนายน 29, 2009, 11:09:01 AM
มีผู้สนใจเสนอ อยากให้ทำเป็นคู่มือ การสร้าง UE แบบ Advance with Pascal Script มีท่านใดสนใจบ้างครับ
ผมจะส่งฉบับร่างไปให้ ช่วยพิมพ์และจัดหน้าให้ด้วยครับ จะได้มาแบ่งปันในชุมชนแห่งนี้ครับ
ขอเดียวคนครับ อ.นาจ Mr.chayanut@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: thecoy ที่ มิถุนายน 29, 2009, 13:16:50 PM
เข้าแถวรอด้วยคนครับ  mail  benraham@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: doramon ที่ มิถุนายน 29, 2009, 16:18:47 PM
ทำมาแจก ผมแล้วกัน  เอกสารสอนไม่เอา   ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: jdadmin1 ที่ มิถุนายน 29, 2009, 16:29:34 PM
อ้างถึง
ทำมาแจก ผมแล้วกัน  เอกสารสอนไม่เอา   Grin
;D ;D ;D หมายความตาม อ.อ๊อด บอกครับ อ.นาจ ผมก็จะคอยตามเก็บ ขอให้ อ.นาจ มีแรงบันดาลใจบ่อย ๆ นะครับ ;D ;D ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: Khuad ที่ มิถุนายน 29, 2009, 18:46:31 PM
อ้างจาก: naj ที่ มิถุนายน 29, 2009, 10:40:08 AM

V.2 ออกมาแล้วครับ
 เมื่อเช้าพอมาถึงโรงพยาบาลได้พบหน้าแรงบันดาลใจ ;D ;D ;D ;D
 ก็เลยมาเขียนต่อ ลองทดสอบดูนะครับ
หมายเหตุ
แก้ไข Code ให้รองรับการคำนวนช่วงเวลาที่คาบเกี่ยวกันได้ครับ


... สุดดดดดดด ยอดดดดดดดด  :o  :o  :o  ...

... แสดงว่าแรงบันดาลใจของ  อ.นาจ ต้อง สุดดดดดดด ยอดดดดดดดด ทั้งคุณภาพและปริมาณจริงๆๆๆๆ (..เห็นแย้ว น้ำยายไหย...UE นะครับ..)   ;D  ;D  ;D


อ้างจาก: naj ที่ มิถุนายน 29, 2009, 11:09:01 AM
มีผู้สนใจเสนอ อยากให้ทำเป็นคู่มือ การสร้าง UE แบบ Advance with Pascal Script มีท่านใดสนใจบ้างครับ
ผมจะส่งฉบับร่างไปให้ ช่วยพิมพ์และจัดหน้าให้ด้วยครับ จะได้มาแบ่งปันในชุมชนแห่งนี้ครับ

...  รับด้วยคนนะครับ ขอบคุณครับ ..  ;D ...
khuad50@gmail.com

... ของผมเอาแบบ คู่มือด้วย แล้วก็ให้ อ.นาจ ทำแจกด้วย ...  ;D  ;D  ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: nahos ที่ มิถุนายน 29, 2009, 19:28:01 PM
งั้นขอรับ ด้วยคนครับ เอาแบบของอาจารย์ขวดครับ 
.
อ้างถึง
.. ของผมเอาแบบ คู่มือด้วย แล้วก็ให้ อ.นาจ ทำแจกด้วย ..

และก็ขอเพิ่มรายงานที่ได้จากการใช้ UE ด้วยครับ

เดี่ยวออกพรรษาจะกลับมาศึกษาครับ jes2u@hotmail.com

ขอบคุณอย่างสูงครับ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: Khuad ที่ มิถุนายน 29, 2009, 19:34:39 PM
อ้างจาก: nahos ที่ มิถุนายน 29, 2009, 19:28:01 PM

เดี่ยวออกพรรษาจะกลับมาศึกษาครับ


... ท่าน nahos จะแต่งงานหรือครับ ...  ;D ...
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: nuayny ที่ มิถุนายน 29, 2009, 22:19:44 PM
ขอร่วมทำคู่มือ UE ด้วยคนครับ nuayny@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: udomchok ที่ มิถุนายน 30, 2009, 00:26:38 AM
อ้างจาก: nahos ที่ มิถุนายน 29, 2009, 19:28:01 PM
เดี่ยวออกพรรษาจะกลับมาศึกษาครับ
...อันนี้แปลว่าจะไปบวชครับ  ;D ;D ;D ;D ;D

แต่หลังจากนั้น
อ้างจาก: Khuad ที่ มิถุนายน 29, 2009, 19:34:39 PM
... ท่าน nahos จะแต่งงานหรือครับ ...  ;D ...
อ.ขวด จะไปเป็นเถ้า (เฒ่า) แก่ สู่ขอให้หรือไงครับ  ;D ;D ;D ;D ;D ;D ;D ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: jassada ที่ มิถุนายน 30, 2009, 12:43:45 PM
พิมพ์แบบฟอร์มไม่ได้ครับ ไม่มีตัวรายงานครับ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: wiphusit ที่ กรกฎาคม 02, 2009, 04:25:23 AM
 ::) ::) ::)
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: udomchok ที่ กุมภาพันธ์ 18, 2011, 08:07:45 AM
อ้างจาก: naj ที่ มิถุนายน 29, 2009, 11:09:01 AM
มีผู้สนใจเสนอ อยากให้ทำเป็นคู่มือ การสร้าง UE แบบ Advance with Pascal Script มีท่านใดสนใจบ้างครับ
ผมจะส่งฉบับร่างไปให้ ช่วยพิมพ์และจัดหน้าให้ด้วยครับ จะได้มาแบ่งปันในชุมชนแห่งนี้ครับ
เอ...อ.นาจ ได้ทำคู่มือไว้หรือยังครับ ยังไงส่งขึ้นมาบน web ให้พี่ ๆ น้อง ๆ ได้นำไปใช้ด้วยครับ
แม้จะไม่มีของตอบแทนเป็น "แรงบันดาลใจ" อย่างที่ชอบ ก็ได้เป็นบุญกลับไปแทนนะครับ  ;D ;D ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: socker ที่ กุมภาพันธ์ 18, 2011, 12:41:39 PM
ขอด้วยคนครับ terayut.j@gmail.com
ขอบคุณครับ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: E-Hos ที่ กุมภาพันธ์ 21, 2011, 15:07:18 PM
ขอด้วยคนครับ...  ;D ;D ;D  >>>~   konitjaa2008@hotmail.com   ~<<<   ;D ;D :D :D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: Bond_007 ที่ กุมภาพันธ์ 21, 2011, 16:16:05 PM
ขอดัวยคนครับ
ucsirivej@hotmail.com
จะช่วยพิมพ์และจัดหน้าให้ครับ และจะนำมาแบ่งปันในชุมชนแห่งนี้ครับ
อ้างจาก: Neo ที่ มิถุนายน 29, 2009, 12:19:35 PM
อ้างจาก: naj ที่ มิถุนายน 29, 2009, 11:09:01 AM
มีผู้สนใจเสนอ อยากให้ทำเป็นคู่มือ การสร้าง UE แบบ Advance with Pascal Script มีท่านใดสนใจบ้างครับ
ผมจะส่งฉบับร่างไปให้ ช่วยพิมพ์และจัดหน้าให้ด้วยครับ จะได้มาแบ่งปันในชุมชนแห่งนี้ครับ
ขอเดียวคนครับ อ.นาจ Mr.chayanut@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: tonkawhom ที่ กุมภาพันธ์ 28, 2011, 10:27:06 AM
ขอด้วยคนนะคะ ขอบคุณคะ ;D --------->  sobprabhospital@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: toob55 ที่ กุมภาพันธ์ 28, 2011, 10:56:40 AM
ขอด้วยคนครับ  btoob250@hotmail.com   ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: weerathap ที่ กุมภาพันธ์ 28, 2011, 14:42:44 PM
ขอ หนึ่ง ชุด ครับ ท่านอาจารย์

weerathap@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: Hos_Wang ที่ พฤษภาคม 03, 2011, 15:16:01 PM
ขอด้วยคนน่ะครับผม.....ตอนนี้กำลังตันกะ UE  ถ้าได้คู่มือมาใช้อีกคงจะทำให้ผมพบทางสว่างครับ  as.juice@gmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: ถึงจะเท่ห์ไม่มาก...แต่ท่ายากส์มีเยอะ... ที่ พฤษภาคม 08, 2011, 21:23:39 PM
ขอด้วยเช่นกันครับ  sahar_kuchi@hotmail.com  ขอบคุณครับ
หัวข้อ: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: โรงพยาบาลส่งเสริมสุขภาพตำบลไผ่เขียว ที่ พฤษภาคม 09, 2011, 07:28:42 AM
ขอด้วยเช่นกันครับ a10_4820@hotmail.com  ขอบคุณครับ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: xycop ที่ พฤษภาคม 09, 2011, 08:47:59 AM
ขอด้วยคนครับ xycop@hotmail.com
ขอบคุณครับ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: najahosxp ที่ มิถุนายน 05, 2011, 20:32:26 PM
ขอทดสอบด้วยคนครับ ;D ;D ;D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: JACK_LOMKAO ที่ มิถุนายน 06, 2011, 08:38:38 AM
ขอด้วยๆ อิอิ กำลังอยากได้ kittipong_bo@hotmail.com ขอบพระคุณครับผม  ;D :D
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: nongyaihos ที่ มีนาคม 23, 2012, 10:51:12 AM
Thank a lot ขอทดสอบด้วยครับ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: phungnoy ที่ มีนาคม 23, 2012, 11:27:11 AM
ขอด้วยคนค่ะ
phungnoy_pk@hotmail.co.th

ขอบคุณล่วงหน้าค่ะ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: เกื้อกูล ครับ.. ที่ มีนาคม 23, 2012, 11:31:41 AM
อ้างจาก: naj ที่ มิถุนายน 29, 2009, 10:40:08 AM
V.2 ออกมาแล้วครับ
 เมื่อเช้าพอมาถึงโรงพยาบาลได้พบหน้าแรงบันดาลใจ ;D ;D ;D ;D
 ก็เลยมาเขียนต่อ ลองทดสอบดูนะครับ
หมายเหตุ
แก้ไข Code ให้รองรับการคำนวนช่วงเวลาที่คาบเกี่ยวกันได้ครับ
ตัวอย่าง Code ที่ใช้ครับ
โค๊ด: Pascal
  1. var
  2. t1,t2,t3,t4,t5,t6,t7,rst:Tdatetime;
  3. tot1,tot2,t2n,t1n,h,m,s,ss:integer;
  4. begin
  5. t1:=strtotime(GetFormInputValue(178));
  6. t2:=strtotime(GetFormInputValue(179));
  7. t3:=strtotime(GetFormInputValue(180));
  8. t4:=strtotime(GetFormInputValue(181));
  9. t5:=strtotime(GetFormInputValue(182));
  10. t6:=strtotime(GetFormInputValue(183));
  11. If t3<t1  Then
  12. begin
  13. DecodeTime(t3,H,M,S,SS);
  14. t2n:=((H+24)*60)+M;
  15. DecodeTime(t1,H,M,S,SS);
  16. t1n:=(H*60)+M;
  17. tot1:=t2n-t1n;
  18. end else
  19. begin
  20. t7:=t3-t1;
  21. DecodeTime(t7,H,M,S,SS);
  22.  tot1:=(H*60)+M;
  23.    end;
  24.    SetFormInputValue(184,tot1);
  25.    If t4<t1  Then
  26. begin
  27. DecodeTime(t4,H,M,S,SS);
  28. t2n:=((H+24)*60)+M;
  29. DecodeTime(t1,H,M,S,SS);
  30. t1n:=(H*60)+M;
  31. tot2:=t2n-t1n;
  32. end else
  33. begin
  34. rst:=(t4-t1);
  35. decodetime(rst,h,m,s,ss);
  36. tot2:=(h*60)+m;
  37.    end;
  38. SetFormInputValue(185,tot2);
  39. //showmessage('tot1='+inttostr(tot1)+' tot2='+inttostr(tot2)) ;
  40.  
  41. end;

อยู่ในตอบ...อันนี้ครับ..
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: BERBATOM ที่ มีนาคม 23, 2012, 11:56:18 AM
ขอด้วยคนครับผม winit_p_8133@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: admin30 ที่ เมษายน 03, 2012, 10:27:46 AM
อาจารย์ไม่มีรายงานสรุปหรือ พิมพ์รายคนบ้างหรอครับ
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: patoona49 ที่ เมษายน 03, 2012, 10:32:37 AM
นำแน่ครับ.. ::)
patoona49@gmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: Anuchit6066 ที่ เมษายน 25, 2012, 10:23:22 AM
ขอด้วย โรงพยาบาลห้วยยอด Anuchit6066@hotmail.com
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: oh_oh ที่ พฤศจิกายน 14, 2012, 11:58:06 AM
อ้างจาก: naj ที่ มิถุนายน 29, 2009, 00:46:03 AM
หมายเหตุ
กำลังหาวิธีที่จะ Fix รูปแบบการกรอกให้มี :(colon) คั่นระหว่าง ชั่วโมงและนาที ไว้ให้เลยอัตโนมัติ แต่ไม่รู้ต้องไปกำหนด Property ตัวไหน ดังนั้น อาจจะไม่สะดวกตอนลงบันทึก ที่ต้องพิมพ์เครืองหมาย : เอง เช่น 12:30

ลองเลือกประเภทเป็น Combobox แล้วกำหนดที่ maskedit เป็น 00:00 หรือ 99:99 ดูครับ
(ตอบแทน เจ้าหน้าที่ครับ บังเอิญเขา login ไว้อยู้แล้ว)
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: hongmung ที่ พฤศจิกายน 16, 2012, 11:07:56 AM
ขอด้วยคนจ้า>>  buthnan_125@hotmail.com
 :)
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: numSuPan ที่ ธันวาคม 07, 2012, 01:16:29 AM
สวดหยอด
หัวข้อ: Re: UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)
เริ่มหัวข้อโดย: bannok ที่ ธันวาคม 07, 2012, 09:24:00 AM
ยังมีเหลือไหมครับ ขอด้วย