SANG KIEN 2020 PHAM TAN THANH

Ứng dụng ngôn ngữ lập trình web ASP chạy trên nền tảng IIS (Internet Information Services) để tạo phần mềm lưu sổ khen thưởng trên hệ cơ sở dữ liệu Access trên máy tính cá nhân. Cài đặt IIS. sau đó tạo cơ sở dữ liệu Access theo mẫu sổ thi đua khen thưởng cần lưu. Bước 3 là code web băng ngôn ngữ lập trình web ASP.

Trang 1

UBND HUYEN EA H'LEO

PHONG NOI VU

DQc l$p - Tq do - H4nh phric

sANc KIEN, GrAr pHAp cONc rAc I NAvr 2020

(Di nghi tQng thadng danh hiQu Chi€n s! thi dua co sd)

- H9 vd t0n: Ph4m T6n Thirnh

- Ngdy, thdng, ndm sinh: 281411988.

- Trinh dQ chuy€n m6n, nghiQp vU: Dai hgc C6ng nghQ th6ng tin

- Don vi cdng t5c: Phdng NQi vp huyQn Ea H'Leo, tinh pat I,an

rr lyQr DUNG SANC KrEN, GrAr pHAp CONC rAC

trinh web ASP ch4y trOn ndn ting IIS (Internet Information Services) t16 tao phAn mAm

Hdng ndm, c6ng tiic khen thuong vdi s5 lugng l6n kho6ng hcm 2.500 gi6y khen c6c lopi: Ndm 201,6:2.348;ndm2017:2.175;ndm2018:2.367;ndm2019:2.663;ndm

2020:2.553 nat bu6c phdi mo s6 theo ddi c6c loai gi6y khen dE dugc cdp phdts5 th* t.u

<lC tuu

Hu6ng tdi thdi kj, cdng nghQ 4.0, bin th6n tdi nhfln th6y vi6c luu trft s6 thri t.u

khen thucrng tr6n hO so giSy ld kh6ng con phir hqp md cAn ph6i sd h6a theo xu huong hi6n nay Do d6, bdng nhtng kii5n thric d5 hgc hic cdn ld sinh vi6n t4i trudrng Eai hqc.

TOi dA nhy ra y tuong ph6i vi6t ring dpng thi6t thuc dC ap dUng vdo c6ng viQc khen thucnrg girip luu trir sd thri tp khen thuong tr6n m6y tinh cdnh6n.

ngt lQp trinh tric <10ng le ASP wedsite ctQng chpy tr0n nOn tang IIS (Internet Information

3 Nhfrng y6u tii khSch quan, chri quan trong vi{c l$p thinh tfch, n6u s6ng

ki5n, gi6i phrlp cdng trflco tlii tii nghiGn cti'u dugc Ad xu6t trong thgc hiQn nhiQm vB,

Trang 2

a) Y6u tO kh6ch quan: Duoc su co r u dong vi6n ctia ldnh dao phong N6i vu dd

khich 16 ban th6n tdi phai tim toi nghien cuu

b) YCu t6 chrl quan: Ban thAn dugc ddo tao chuy€n mdn vd linh virc cong ngh€

th6ng tin, khi hoc <v trudng Dai hoc di dugc ti6p x0c vd ldm vi€c v6i nhi6u ung dung.

c6ng vi6c

4 NOi dung cria sring ki6n, gini phrip c6ng tric, tld thi nghiGn cri,u:

D€ thuc hi6n chucrng trinh ph6n m6m ung dung don gian ndy, chtng ta cdn lam

Infonnation Services) trdn mdy tinh cii nhdn DAu ti6n la chrin_s ta \ ao Starls/Control

- : l:iJ ir:-,: li taif i t-,r'r:ia.;.1.

,

'*

,, :.rain:ltli jt iij':a:

'ar*ri:tail,:l:.rr!jr.r,11 tikilillrr,11t.,_ ,: - ,.It, -i lt ,arlrf:.:,i

I !rf, ri:Jc,:: aalirir-: a ,,

I,rtair:e:

mi :r1: li.ti .1r: i .,

*"larl lat;l 'raa\r,t ^rij,"r.i!{rrt irnt.r ill -irb* !lr;h Flx;:rr l{ irtr.,.*,;

ffir$cie li.erler 'l i1t.,l.lir

I {;ntr txnrlrrn lr.1[ ].i,3 in,:crelr l,ltrr:l II: t:?r,r* LJ Ii?r r-k;1j1,

Jr, i-a*crr l.!r ln:egt ria(1le

.,,1

' ii{ ?.,tlii i FeCtums

r.;(.*fii?.]

i5s,j

.1,1-)!.,rf *.3,?,:.*

:&.,:1,,?* t3.:1,$

.U,iJ trtr i.:.$.*

'i.ri.{J

;{-: irn<o 1,1,, Iilijil( ri,ir:1({ aerig'1;iit5 S[ f o**n Qrirl: l!*u

.,

;1.:Ftr:l f.t;lltr

ffi rl.i* Flrrgir -trr., rii

5 l'i;lFir,,lr rrerr:*re errl.t

'ri ll,lii[:cft r]:reJ il,- jlli i*,Ji;trtbdrbtr , rii: ! i,

ffi 1:er1 -1r,.le -1,r

:15 1, -ffi 5F l,lir 5.rjer i{,ttiaf* Urir.rt}tl

&tJlt,nl C P,e*ri$*l ',]*-:r

$ '"'ii- itierl r.l

.* !:$r:::t4s!.er.,i{E

*$ rlnlefi 1.$t l;,hirr

t:: ;+Jr :r.i.l

.f: s infers€a Er$lrrer$

#, h1*rrei lrrrnrnl*f,cr Ssr.xs

:J.j,S tula*;I fscr$r.r

flf ,!i!kr*:*fi f,{xxr;r Qtzue r&l!Ll!l -{*rr

* ! Pllht ?frx usi&t$l:erir,:ff

.- i7-, F*S {*uN*firn t ler*6rr,*lrlinistrsticn Ait i( LJ :4,;; i,*m*t* [iffxmtixl irrr:p;::ri*r:

PIP Li:te6ff

\

fi{E& i"trFiri Lir,itqd

Safel.,let in*.

*rin.rsr Gmi;H

tlit t-Y.F.

;4i& :+t*

trl,Dr{{;{

34,j{.9,j?s?,

:T,iir28r'S

jl,,*"1r j,.)l*

2?,*ir":i'x'

l{.{r.?/Ir):,1

,71,*tsir*;tr

Trang 3

3

Khi cai dit thanh c6ng d6 test thu sen er dd hoat dQng chirng ta ki6m tra

c6ch mo trinh dur 0t rveb chrome vd nhflp r ao dia chi http://localhost

http:ii 127 0.0.1.

tri co so dir li6u Access d€ luu nhfing th6ng tin s5 thri tir

bing

hoEc

khen thucrng:

ffi 'r''a r.roi i a ,:.,.r'l;:r itir!."ie lteJi : .,'

/iaiiral :-iii,

l*Sl*! t*; {( i

i ,i"( ]fr!i

lr

I :l {-!^^- 1-.

: :J l*:r,ertf,

;

i

I

I,i

sll

r,dkl

*1i{r

T*r:

T*rii

$q*

119{y

Itd*li1

,,iri,!l.LAEiWi : I rirlt si;*

j I fi.$!rnlu.1

!tqr*at

; :l*err*U

1 : ,*r* ?^r1

lsrr4**ni

!.r ltua i!rs!.;lar)

C**eqi

Bu6'c 3: Vit-it cocle lpp trinh bang ng6n ngir ASP bang phdn m6m h5 trcy vi6t code

<9,'o

'K6t ndi c0 s0 dfr lieu

Set conn: server CreateObj ect("ADODB.Connection")

conn.Open StrConn

Trang 4

request("txtid") & rrr,rr' & request("txtstt" ) & rtr,trt & request("txtsqd") & rtt,t'r &

request("txtngay") & rrr,rrr & request("txtl1.dokt") & rtr,rrr

& request("txtndkt") & "',"' &

request("txthtkt") & rrr)r'

conn.Execute(sql) end if

o/r>

<html>

<head>

<titl*Sua sd thi dua khen thuong</tit1e>

</head>

<tr ><td align :center colspan :5 ><h2>THEM SO THI DUA KHEN

'f

HUON G < I h2> < I td> < I tr>

<tr >

<ltr>

<n/o

'Doc dir liQu ra bi6n recordset Set Rs : serer CreateObj ect(" ADODB.Recordset")

strSQL: "SELECT * FROM sothiduakt"

Rs.Open strSQL, conn

'Eua dir li6u ra:

Rs.MoveFirst

i:0

Do While Not Rs.EOF

i:i+ 1

oh>

<tr>

Trang 5

<.ltr>

<o/u

Rs.MoveNext

loop

end if

ol'a)

dtr>

<tr>

<td>

' <- tr>

<tr>

<td>

<itr>

<tr>

<td>

<ltr>

(tr)

<td>

<ltr>

(tr)

<td>Li do khen thucrng:<ltd>

<td>

<ltr>

Trang 6

<td>Nguoi dugc khen thuong:< td>

<td>

<ltr>

<tr>

<td>Hinh thric khen thuong:</td>

<td>

<ltr>

<tr>

<ltd>

< td>

<td>

</tr>

</form>

</td>

<ltr>

<ibody>

</html>

<o/o

Response.Redirect( "login asp " )

end if

conn.Open StrConn

sql:"Update sothiduakt set id:"'&Request("txtid") &"',stt:"' &

Request("txtstt") & "',sqd:"' & Request("txtsqd") &"',nga="' & Request("txtngay")

Trang 7

7

& "'.l 1 dokt:"' & Request( "txtldkt") & "',ndk1:"'& Request( "txtndkt") &"',htkt:"'&

Request( "trthrkt" )& ""'

o,' -r

<html>

<head>

<titl e> sua sothidu akt</title>

<ihead>

<body >

<tr ><td align :center valign :center colspan :3 background : iimagesinenl.gif><font

face :Arial size :4pt><b>Sua s6 thi dua kt</b></font></td></tr>

dtr >

" /imagesinen4 gif>ID</td>

<td ali gn :c enter background : ./images I nen4 gif>HiQu chinh</td>

< tr>

doc ilu lieu ra bien recordset

strSQL - "SELECT * FROM sothiduakt"

'dua du lieu ra

Rs.MoveFirst i:0

Do While Not Rs.EOF

<tr>

<td width : 5 0 O><oh:Rs ( " ndkt "

)o/o> < I td>

<td width:80 align :centeP(a href

:" suatintuc 1 asp ?idstt-(orlo:Rs(,' id"

)0/0> ">Sua</a><itd>

<hr>

Trang 8

<o

end if

0/:

</table>

</body>

</html>

Rs.MoveNext loop

<o/o

if Session("login")<>true then

Response.Redirect( "1ogin asp " )

end if

S et conn: server CreateObj ect("ADODB Connection" )

conn.Open StrConn

sql:"DELETE * FROM sothiduakt WHERE sothiduakt.stt:"' & item & 'rt't conn.Execute(sql)

O;r/o/

<html>

<head>

</head>

<body >

<tr)

<ltr>

<tr >

<td>check<ltd>

Trang 9

<td airgn:center>L-v do khen thucrng<r'td>

<td al i _un:c ent er>Nguoi cluoc khen thucrn,s<, td>

<td align:center>Hinh thric khen thucmg<itd>

<ltr>

./o,,

\/0

Set Rs: server.CreateObject("ADODB.Recordset',)

strSQL: "SELECT * FROM sothiduakt"

Rs"Open strSQL, conn

'dua du lieu ra

Rs.MoveFirst

Do While Not Rs.EOF

0,r(l/

<tr>

<td width :2}A><oh:Rs ( " I ydokt"

) %></td>

<itr>

{oo

Rs.MoveNext

loop

end if

o>

{tP

<ltd>

<ltr>

<r'table>

</body>

Trang 10

<ihtml>

Con m6t s6 phAn code php nhu dan-s nhdp quan

gon ndn t6i khdng trinh bAy phdn code nfia Ket clua

tri, tpo giao diQn nhurrg cI€ ngan

A.

cudi cung, t6i xin trinh bay sdn

lrn:lti " 1i

I

-.'-', .il

.r**-:!

ffir,*,-l

ffiffit

t*" ^-.-i}5;

Btrr I r.r Ha L16tit

t - ,: * t-1 *^ r;iiut

\-5,"a, +!"1,- I ?.a- ri-,*i.,-'l"tr,.t, r1.,"^ 1;"*", r;"**ra

Trang 11

Phan sua thong tin so thri tU hd scy khen thuone:

'"'E*t

n

1**

:*;

Ssa

$uB

k

S*-$s*

tt"*

S*s

o {i}

: frd

if Qr-LBsr

:i! Qil-l-.85D

is Q*-LBX*

;"i*'Qs-LBsr l4'qn-L&sr

J-i, Qil-LrB-\*

lt ri: l*:*

l*'sr l*:*

1* *1 ':*:*

in fi1 )ir',) 1* *:,.:*.:*

18 n: :*:*

i9 s.: :&:*

18 i): :*:*

l{*r"nh "'i':n nar

Phr.r:r 1'an I !*r

3r:r'in

,-ut]s Li \ 1r1 '1 r:111

Fh+*r ?*: ?i:x:h L'i Thiir:g Leing

.i'h:rt i:E!: Urinr

Bn Srrt Thi i{il liia:rg

11

tt :t,.,1;i!t!4!,:1

e ,$ffi,xffi,#"ffi

*+ *:

ffi*g**

Trang 12

I " il , "

Ir!1*flr:i td

I : I :

II

t-, t .r1

I t1*,

i I ,J

T

-,-:f

l' ,l]) 1

i,

lil.

ffiry

1 L.i J*+ 1

t .- - -.r 1 .:

I io:i

L ti

T -:T-l

lr": 3** ,

.\u"-\ >0 llrr' ItI Siiap

5::*

5.*s

ryt:ha :ore H;'-' '*

lcsrDCS

il-lgfXc\f ' '1r I i.!'-ltutr r a:: { Sllt !

t!r:irr-.r -/r/ iY.t

Ii

'P* ,,"x#;r rffit*.s :f** f:fr-o

Trang 13

5 Ph4m vi 5p dqng, kha nlng ptrti Ui6n s6ng ki6n2:

thuc ve c6ng ngh€ th6ng tin thi co th6 tu viet san phAm cdn n€u kh6ng c6 ki6n thfc thi chi cAn nho mdt ai d6 rdnh c6ng ngh6 th6ng tin copl'toan b0 code * Access do t6i vi6t ra

vd ti€n hdnh vdi thao t6c cdi dat dcrn gi6n tr0n m6r'tinh c6 nhdn t4i co quan, don vi ld co

th0 su dUng dugc ngay C6 kha ndng 6p dung tron-q todrn tinh, 6p dpng cho t6t ca cac

;,,

ileLi so noa.

b) Khd nang phO bien: Trdn dia bdn todn tinh, chi cAn copy code * du lieu Access

6 Thdi tli6m 6p dqng: DE dugc bdn thAn t6i 6p dUng thdnh c6ng t4i don vi tu dAu

7 Hi6u qui mang lai: Girip sO hoa th6ng tin luu trir tra cuu tim ki6m th6ng tin

thich c6 nhAn Khong cAn phai mua s6 gi6y de vi6t tay vdo s6 khen thuong nhu hic tru6c

III CAC DANH HIEU DU'qC GHI NHAN

* LiQt kd c6c danh hi0u thi dua trong thoi gian 03 ndm gdn ddy

quan ban hirnh quy6t ilinh 20t6 Chii5n si thi dua co sd

dua ndm 20 1 6

ti€nndm20l7

UBND huyQn vA viQc khen thu0ng danh hiOu Lao dQng ti6n ti6n nam 2018

20t9 Chii5n si thi dua co sd

Ea Drdng, ngdy 02 thdng 12 ndm 2020

Ngudi b6o c6o

/

t1/u

ap dung thi chung minh cu thd

Định dạng
Số trang	13
Dung lượng	7,55 MB
File đính kèm	SANG KIEN 2020_PHAM TAN THANH.rar (6 MB)