Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - anurote

Pages: [1] 2 3 ... 5
1
create or alter procedure UNSELECT_ALL_STUDENT (
    ALLORUN integer,
    PEESELE type of DO_STR5_VCHAR5)
as
begin
    UPDATE T_MEMBER
    SET    SELECTED = :ALLORUN
    WHERE  YEAR_ACT = :PEESELE;
end^

2
create or alter procedure ADD_STUDENT_NEWYEAR (
    OLDYEAR type of DO_STR5_VCHAR5,
    NEWYEAR type of DO_STR5_VCHAR5)
as
declare variable MEMCODE type of DO_STR10_VCHAR10;
declare variable MEMID type of DO_STR10_VCHAR10;
declare variable TITLENAME type of DO_STR20_VCHAR20;
declare variable FIRSTNAME type of DO_STR50_VCHAR50;
declare variable LASTNAME type of DO_STR50_VCHAR50;
declare variable CLASSV type of DO_STR5_VCHAR5;
declare variable ROOMV type of DO_STR5_VCHAR5;
declare variable CLASSNO smallint;
declare variable BIRTHDATEV date;
declare variable CITIZENCODE type of DO_STR20_VCHAR20;
declare variable PICV blob sub_type 0 segment size 80;
declare variable KINDCODE type of DO_STR30_VCHAR30;
declare variable MEMOV type of DO_STR200_VCHAR200;
declare variable MEMSEX type of DO_STR10_VCHAR10;
declare variable YEARACT type of DO_STR5_VCHAR5;
BEGIN
  /* Procedure body */
FOR
  SELECT MEM_CODE,
         MEM_ID,
         TITLE_NAME,
         FIRST_NAME,
         LAST_NAME,
         CLASS,
         ROOM,
         CLASS_NO,
         BIRTHDATE,
         CITIZEN_CODE,
         PIC,
         KIND_CODE,
         MEMO,
         MEM_SEX,
         YEAR_ACT
   FROM   T_MEMBER
   WHERE  YEAR_ACT = :OLDYEAR
   INTO   :MEMCODE,
          :MEMID,
          :TITLENAME,
          :FIRSTNAME,
          :LASTNAME,
          :CLASSV,
          :ROOMV,
          :CLASSNO,
          :BIRTHDATEV,
          :CITIZENCODE,
          :PICV,
          :KINDCODE,
          :MEMOV,
          :MEMSEX,
          :YEARACT
DO
 BEGIN
   INSERT INTO  T_MEMBER_TEMP (
                   MEM_CODE,
                   MEM_ID,
                   TITLE_NAME,
                   FIRST_NAME,
                   LAST_NAME,
                   CLASS,
                   ROOM,
                   CLASS_NO,
                   BIRTHDATE,
                   CITIZEN_CODE,
                   PIC,
                   KIND_CODE,
                   MEMO,
                   MEM_SEX,
                   YEAR_ACT )
   VALUES (        :MEMCODE,
                    :MEMID,
                    :TITLENAME,
                    :FIRSTNAME,
                    :LASTNAME,
                    :CLASSV,
                    :ROOMV,
                    :CLASSNO,
                    :BIRTHDATEV,
                    :CITIZENCODE,
                    :PICV,
                    :KINDCODE,
                    :MEMOV,
                    :MEMSEX,
                    :NEWYEAR
                    );
 END
 FOR
  SELECT MEM_CODE,
         MEM_ID,
         TITLE_NAME,
         FIRST_NAME,
         LAST_NAME,
         CLASS,
         ROOM,
         CLASS_NO,
         BIRTHDATE,
         CITIZEN_CODE,
         PIC,
         KIND_CODE,
         MEMO,
         MEM_SEX,
         YEAR_ACT
   FROM   T_MEMBER_TEMP
   WHERE  YEAR_ACT = :NEWYEAR
   INTO   :MEMCODE,
          :MEMID,
          :TITLENAME,
          :FIRSTNAME,
          :LASTNAME,
          :CLASSV,
          :ROOMV,
          :CLASSNO,
          :BIRTHDATEV,
          :CITIZENCODE,
          :PICV,
          :KINDCODE,
          :MEMOV,
          :MEMSEX,
          :YEARACT
DO
 BEGIN
   INSERT INTO  T_MEMBER (
                   MEM_CODE,
                   MEM_ID,
                   TITLE_NAME,
                   FIRST_NAME,
                   LAST_NAME,
                   CLASS,
                   ROOM,
                   CLASS_NO,
                   BIRTHDATE,
                   CITIZEN_CODE,
                   PIC,
                   KIND_CODE,
                   MEMO,
                   MEM_SEX,
                   YEAR_ACT )
   VALUES (        :MEMCODE,
                    :MEMID,
                    :TITLENAME,
                    :FIRSTNAME,
                    :LASTNAME,
                    :CLASSV,
                    :ROOMV,
                    :CLASSNO,
                    :BIRTHDATEV,
                    :CITIZENCODE,
                    :PICV,
                    :KINDCODE,
                    :MEMOV,
                    :MEMSEX,
                    :YEARACT
                    );
 END
  BEGIN
  /* Procedure body */
       DELETE FROM T_MEMBER_TEMP
       WHERE  YEAR_ACT = :NEWYEAR;
    /* SUSPEND; */
 END

END^

3
create or alter procedure DELETE_DATA_PEE_TEMP (
    PEESELE type of DO_STR5_VCHAR5)
as
BEGIN
  /* Procedure body */

       DELETE FROM T_MEMBER_TEMP
       WHERE  YEAR_ACT = :PEESELE;

   /* SUSPEND; */
END^

4
การเซ็ต ร้าวเตอร์ HG8247H เป็นบริดโหมด เพื่อเป็นตัวปล่อย WIFI
1. reset ค่าจากโรงงาน
2. เข้า 192.168.1.1
3. User telecomadmin Pass admintelecom
4 set ตาม ภาพ



5
Image Fire / DAEMON Tools Pro 8.2.0.0708 + Patch [CracksNow]
« on: April 04, 2018, 01:15:21 pm »
DAEMON Tools Pro 8.2.0.0708 + Patch [CracksNow]

6
My Sql / https://saixiii.com/sql-command/
« on: April 04, 2018, 11:33:24 am »

8
หน้า ล็อกอิน




9
YEAR_STATUS DO_BOOLEAN_N01

เพื่อ กำหนดปีการศึกษาปัจจุบัน

10
การใช้งาน compunent / การใช้ Actionlist
« on: April 01, 2018, 06:46:19 pm »

11
CREATE TABLE T_TEACHER (
  TEAC_CODE DO_STR10_VCHAR10 NOT NULL,
  TEAC_ID DO_STR10_VCHAR10,
  TITLE_NAME DO_STR20_VCHAR20,
  FIRST_NAME DO_STR50_VCHAR50,
  LAST_NAME DO_STR50_VCHAR50,
  CITIZEN_CODE DO_STR20_VCHAR20,
  PIC DO_IMG_BLOB,
  KIND_CODE DO_STR30_VCHAR30,
  MEMO DO_STR200_VCHAR200,
  TEAC_SEX DO_STR10_VCHAR10);

12
Picosmos Tools / Picosmos Tools
« on: April 01, 2018, 03:01:45 pm »

13
blogspot / http://anurote.blogspot.com/
« on: April 01, 2018, 02:29:38 pm »

15
1.กําหนดคุณสมบัติพืนฐานของเดลไฟสําหรับพัฒนาระบบ   
1.1 เลือกเมนู tools—Editor Options –Page Display     
คลิกเครืองหมายถูก ( /) หน้า Zoom to Full Screen      Editor Font :=Fixedsys   
1.2 เลือกเมนู Tools—Environment Options—Designer     
คลิกเครืองหมายถูก (/) หน้า Show component Caption   
1.3 เลือกเมนู Tools—Debugger Options      คลิกเครืองหมายถูก(/) หน้า Integrate Debuggin ออก

Pages: [1] 2 3 ... 5