UE-แบบบันทึกการออกปฏิบัติการ EMS (คำนวนเวลา)

[naj]

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

ขอขอบคุณ
น้องนักศึกษาหญิง(ไม่ทราบคณะ)ที่เดินผ่านไปมาทำเกิดแรงบันดาลใจ
และขอบคุณน้องยินดีมากที่อ้อนให้ต้องอุ้มพาเดินตลอดทาง ไม่รู้ว่า ตัวแม่ ไปอยู่ไหน ขนาดคุยกับพนักงานที่ร้าน 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;

[naj]

นึกขึ้นได้ถ้ามีช่วงคาบเกี่ยวก่อนและหลังเที่ยงคืน เช่น รับแจ้ง เวลา 23:59  น แต่ออกจากโรงพยาบาล เวลา 00:25 น ของวันใหม่ อาจจะมีปัญหาในการคำนวนเวลา  แก้ไขให้แล้วใน Version ถัดไป (เลียนแบบ อ.mn  )
หมายเหตุ
ยังไม่รู้จะเขียน Code ยังงัยดี นึกไม่ออก สงสัยต้องไปหาแรงบันดาลใจ

[jdadmin1]

  พาดพิงนะครับ อ.นาจ ผมก็เหมือนอ.นาจนั่นแหละครับกับผู้ชายด้วยกันผมไม่เคย"กดดัน"ครับ ขอบคุณครับสำหรับ code ที่เขียนเสร็จเร็วที่สุดในรอบ 6 เดือน(คราวหน้าพาผมไปหาแรงบันดาลใจด้วยคนนะครับ)

[naj]

พาดพิงนะครับ อ.นาจ ผมก็เหมือนอ.นาจนั่นแหละครับกับผู้ชายด้วยกันผมไม่เคย"กดดัน"ครับ ขอบคุณครับสำหรับ code ที่เขียนเสร็จเร็วที่สุดในรอบ 6 เดือน(คราวหน้าพาผมไปหาแรงบันดาลใจด้วยคนนะครับ)

เสียวแทนเลย น้า
จั๋งซี้มันต้องถอน

[doramon]

พาดพิงนะครับ อ.นาจ ผมก็เหมือนอ.นาจนั่นแหละครับกับผู้ชายด้วยกันผมไม่เคย"กดดัน"ครับ ขอบคุณครับสำหรับ code ที่เขียนเสร็จเร็วที่สุดในรอบ 6 เดือน(คราวหน้าพาผมไปหาแรงบันดาลใจด้วยคนนะครับ)

 

[Neo28]

พาดพิงนะครับ อ.นาจ ผมก็เหมือนอ.นาจนั่นแหละครับกับผู้ชายด้วยกันผมไม่เคย"กดดัน"ครับ ขอบคุณครับสำหรับ code ที่เขียนเสร็จเร็วที่สุดในรอบ 6 เดือน(คราวหน้าพาผมไปหาแรงบันดาลใจด้วยคนนะครับ)

 น้าพูดอย่างนี้เดี๋ยว อ.นาจ ขน code ที่เขียนไว้ทั้งหมดมาให้น่ะครับ

[naj]

V.2 ออกมาแล้วครับ
เมื่อเช้าพอมาถึงโรงพยาบาลได้พบหน้าแรงบันดาลใจ
 ก็เลยมาเขียนต่อ ลองทดสอบดูนะครับ
หมายเหตุ
แก้ไข 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;

[nahos]

สุดยอด

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

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

[naj]

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

[Manit]

นำเข้าไม่ได้ครับ ขึ้น 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

[golf_win]

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

สนใจครับพี่นาจ รบกวนด้วยครับ
golf_win@hotmail.com

[shukree]

อยากได้คู่มือนี้มานานแล้วครับ  ขอด้วย
shukreez@hotmail.com

[Neo]

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

ขอเดียวคนครับ อ.นาจ Mr.chayanut@hotmail.com

[thecoy]

เข้าแถวรอด้วยคนครับ  mail  benraham@hotmail.com

[doramon]

ทำมาแจก ผมแล้วกัน  เอกสารสอนไม่เอา   

[jdadmin1]

ทำมาแจก ผมแล้วกัน  เอกสารสอนไม่เอา   Grin

หมายความตาม อ.อ๊อด บอกครับ อ.นาจ ผมก็จะคอยตามเก็บ ขอให้ อ.นาจ มีแรงบันดาลใจบ่อย ๆ นะครับ

[Khuad]

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

... สุดดดดดดด ยอดดดดดดดด        ...

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

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

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

... ของผมเอาแบบ คู่มือด้วย แล้วก็ให้ อ.นาจ ทำแจกด้วย ...     

[nahos]

งั้นขอรับ ด้วยคนครับ เอาแบบของอาจารย์ขวดครับ 
.

.. ของผมเอาแบบ คู่มือด้วย แล้วก็ให้ อ.นาจ ทำแจกด้วย ..

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

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

ขอบคุณอย่างสูงครับ

[Khuad]

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

... ท่าน nahos จะแต่งงานหรือครับ ...  ...

[nuayny]

ขอร่วมทำคู่มือ UE ด้วยคนครับ nuayny@hotmail.com

[udomchok]

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

...อันนี้แปลว่าจะไปบวชครับ 

แต่หลังจากนั้น

... ท่าน nahos จะแต่งงานหรือครับ ...  ...

อ.ขวด จะไปเป็นเถ้า (เฒ่า) แก่ สู่ขอให้หรือไงครับ 

[jassada]

พิมพ์แบบฟอร์มไม่ได้ครับ ไม่มีตัวรายงานครับ

[wiphusit]

 

[udomchok]

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

เอ...อ.นาจ ได้ทำคู่มือไว้หรือยังครับ ยังไงส่งขึ้นมาบน web ให้พี่ ๆ น้อง ๆ ได้นำไปใช้ด้วยครับ
แม้จะไม่มีของตอบแทนเป็น "แรงบันดาลใจ" อย่างที่ชอบ ก็ได้เป็นบุญกลับไปแทนนะครับ 

[socker]

ขอด้วยคนครับ terayut.j@gmail.com
ขอบคุณครับ

[E-Hos]

ขอด้วยคนครับ...    >>>~   konitjaa2008@hotmail.com   ~<<<   

[Bond_007]

ขอดัวยคนครับ
ucsirivej@hotmail.com
จะช่วยพิมพ์และจัดหน้าให้ครับ และจะนำมาแบ่งปันในชุมชนแห่งนี้ครับ

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

ขอเดียวคนครับ อ.นาจ Mr.chayanut@hotmail.com

[tonkawhom]

ขอด้วยคนนะคะ ขอบคุณคะ --------->  sobprabhospital@hotmail.com

[toob55]

ขอด้วยคนครับ  btoob250@hotmail.com   

[weerathap]

ขอ หนึ่ง ชุด ครับ ท่านอาจารย์

weerathap@hotmail.com

[Hos_Wang]

ขอด้วยคนน่ะครับผม.....ตอนนี้กำลังตันกะ UE  ถ้าได้คู่มือมาใช้อีกคงจะทำให้ผมพบทางสว่างครับ  as.juice@gmail.com

[ถึงจะเท่ห์ไม่มาก...แต่ท่ายากส์มีเยอะ...]

ขอด้วยเช่นกันครับ  sahar_kuchi@hotmail.com  ขอบคุณครับ

[โรงพยาบาลส่งเสริมสุขภาพตำบลไผ่เขียว]

ขอด้วยเช่นกันครับ a10_4820@hotmail.com  ขอบคุณครับ

[xycop]

ขอด้วยคนครับ xycop@hotmail.com
ขอบคุณครับ

[najahosxp]

ขอทดสอบด้วยคนครับ

[JACK_LOMKAO]

ขอด้วยๆ อิอิ กำลังอยากได้ kittipong_bo@hotmail.com ขอบพระคุณครับผม 

[nongyaihos]

Thank a lot ขอทดสอบด้วยครับ

[phungnoy]

ขอด้วยคนค่ะ
phungnoy_pk@hotmail.co.th

ขอบคุณล่วงหน้าค่ะ

[เกื้อกูล ครับ..]

V.2 ออกมาแล้วครับ
เมื่อเช้าพอมาถึงโรงพยาบาลได้พบหน้าแรงบันดาลใจ
 ก็เลยมาเขียนต่อ ลองทดสอบดูนะครับ
หมายเหตุ
แก้ไข 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;

อยู่ในตอบ...อันนี้ครับ..

[BERBATOM]

ขอด้วยคนครับผม winit_p_8133@hotmail.com

[admin30]

อาจารย์ไม่มีรายงานสรุปหรือ พิมพ์รายคนบ้างหรอครับ

[patoona49]

นำแน่ครับ..
patoona49@gmail.com

[Anuchit6066]

ขอด้วย โรงพยาบาลห้วยยอด Anuchit6066@hotmail.com

[oh_oh]

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

ลองเลือกประเภทเป็น Combobox แล้วกำหนดที่ maskedit เป็น 00:00 หรือ 99:99 ดูครับ
(ตอบแทน เจ้าหน้าที่ครับ บังเอิญเขา login ไว้อยู้แล้ว)

[hongmung]

ขอด้วยคนจ้า>>  buthnan_125@hotmail.com
 

[numSuPan]

สวดหยอด

[bannok]

ยังมีเหลือไหมครับ ขอด้วย