Đồ án công nghệ thông tin quản lý tài sản cố định

BỘ GIÁO DỤC VÀ ĐÀO TẠO
TRƯỜNG ĐẠI HỌC QUẢN LÝ VÀ KINH DOANH HÀ NỘI

KHOA TIN HỌC

Giáo viên hướng dẫn
Sinh Viên thực hiện
Mã sinh viên
Khóa

:
:
:
:

TS. Hoàng Xuân Thảo
Đỗ Đức Chung
99CV17
IV

Đề tài:

QUẢN LÝ TÀI SẢN CỐ ĐỊNH

Ngành đào tạo:

Tin học quản lý


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Mc lc

Ni dung
Phn I
1
2
Phn II
1
2
3
Phn III
1
2

Li cm n
Li gii thiu
Gii thiu v ngụn ng Visual Basic
Cỏc cụng c thit k giao din
Lp trỡnh vI ngụn ng Visual Basic
Phn mm Qun lý ti sn c nh
Mc ớch v nhu cu thc t ca phn mm
Cỏc chc nng chớnh
C s d liu
Mó ngun
Mt s Form chớnh
Mt s Modul chớnh
Kt lun

Đỗ Đức Chung Tin4

Trang
3
4
5
5
8
14
14
14
16
22
22
85
92

2


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Li Cm n

Hn bn nm hc vt v nhng y thỳ v ó trụi qua.
Ngy ra trng ó n gn. Chỳng tụi, nhng sinh viờn lp
tin 4, trng i hc Qun lý v Kinh doanh H Ni ó
hon tt nt nhng trang cui ca Lun vn tt nghip.

Lun vn ny l kt qu hc tp, rốn luyn ca tụi trong bn
nm hc v hn 6 thỏng thc tp. cú th hon thnh lun
vn ny, tụi ó nhn c rt nhiu s ch bo, hng dn
ca cỏc thy, c giỏo, s ng viờn, giỳp ca bn bố, gia
ỡnh
Trc ht, tụi xin c chõn thnh cm n Thy giỏo,
TS. Hong Xuõn Tho ó tn tỡnh hng dn v giỳp tụi
hon thnh ti lun vn tụt nghip.
Tụi xin c by t lũng bit n cỏc thy, cụ giỏo
trng i Hc Qun lý v Kinh doanh H Ni, c bit l
Khoa Tin Hc, ó ging dy, truyn th nhng kin thc quý
bỏu, cng nh to mi iu kin thun li cho tụi trong sut
quỏ trỡnh hc tp ti trng.
Xin c gi li cm n n nhng ngi thõn trong
gia ỡnh, bn bố ó giỳp , ng viờn tụi trong quỏ trỡnh
thc hin lun vn.

Đỗ Đức Chung Tin4

3


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Li gii thiu

Trong thi i ngy nay, bt k t chc, cỏ nhõn no, t cỏc
doanh nghip t nhõn n c quan nh nc, hay cỏc t

chc xó hi tt c u khụng th khụng s dng cụng ngh
thụng tin phỏt trin v tn ti. Cỏc hot ng ca nh
nc, m qun lý ti sn l mt phn nh, cng khụng nm
ngoi quy lut trờn.
Hng nm, nh nc ta u tin hnh kim kờ cỏc ti sn c
nh nhm nm c s lng, cht lng, giỏ tr v thc
trng s dng ca cỏc ti sn c nh ang s dng trong cỏc
c quan nh nc. Ti sn c nh õy l tt c cỏc ti sn
cú ngun gc t vn ca nh nc, ang c cỏc n v
hnh chớnh s dng. Vic kim kờ ny bao gm rt nhiu
cụng on nh: Xỏc nh hin trng, nh giỏ li ti sn, lp
phiu kim kờ, thng kờ s liu, lu gi d liuCụng vic
ny ũi hi mt s lng ln thi gian, nhõn lc, vt lc.
Chớnh vỡ vy, tụi ó chn ti Qun lý ti sn c nh lm
ti cho Lun vn tt nghip. Chng trỡnh c vit ra nhm
mc ớch tin hc hoỏ cỏc hot ng trờn gim bt chi phớ
v thi gian cho cụng vic thng kờ, tỡm kim, lp phiu
kim, lu gi d liu. Chng trỡnh cú th ỏp dng trong TP.
H Ni.
Cụng tỏc qun lý, thng kờ cỏc ti sn c nh l mt bi toỏn
ln, phc tp. Trong khi ú, thi gian thc hin ỏn l cú
hn, cng nh kinh nghim v lp trỡnh, hiu bit v nghip v
thc t cũn hn ch, nờn chc chn chng trỡnh phn mm
v lun vn nay s cũn nhiu hn ch. Tụi rt mong s nhn
c s úng gúp ý kin, ch bo ca cỏc thy, cụ giỏo, cng
nh cỏc bn cú quan tõm n ti ny.

Đỗ Đức Chung Tin4

4

Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Phn I : Gii thiu ngụn ng Visual Basic
Ngụn ng Visual Basic ngy cng c s dng rng rói trong cỏc ỏn,
chng trỡnh thc hin trong v ngoi nc. Visual Basic c xem l
mt cụng c phỏt trin phn mm thụng dng hin nay.
Sau phiờn bn Visual Basic 1.0 l Visual Basic 2.0, ó tng chy nhanh
hn, d s dng hn. n Visual Basic 3.0 b sung thờm mt s phng
thc n gin, d iu khin c s d liu hn. Visual Basic 4.0 b sung
thờm hn h tr phỏt trin 32 bit v bt u tin trỡnh chuyn Visual Basic
thnh ngụn ng lp trỡnh hng I tng. Visual Basic 5.0 b sung kh
nng to cỏc iu khin riờng. Visual Basic 6.0 cú thờm nhiu chc nng
mnh nh cỏc ng dng Internet/ Intranet. . .v.v..
Visual Basic gn lin vI khỏi nim lp trỡnh trc quan, ngha l khi thit k
chng trỡnh, bn thy ngay c kt qu qua tng thao tỏc. Visual Basic
cho phộp chnh sa mt cỏch n gin, nhanh chúng giao din ca cỏc
I tng trong ng dng. ú l mt thun lI cho ngI lp trỡnh.
VI Visual Basic, vic lp trỡnh trong Windows ó tr nờn hiu qu hn v
n gin hn rt nhiu. Mt kh nng na ca Visual Basic l kh nng
kt hp cỏc th vin liờn kt ng DLL (Dynamic Link Library). DLL chớnh
l phn m rng cho Visual Basic, tc l khi xõy dng mt chng trỡnh
cú mt s yờu cu m Visual Basic khụng ỏp ng y ta cú th vit
cỏc DLL ph thờm cho chng trỡnh.

1 Cỏc cụng c thit k giao din:
Nh chỳng ta ó bit Visual Basic l ngụn ng lp trỡnh cú tớnh hng I

tng nờn cụng vic thit k giao din l rt n gin. Chỳng ta ch vic
tin hnh a cỏc I tng cn thit trong thanh cụng c vo Form bng
cỏch kớch kộo sau ú thay I cỏc thuc tớnh ca chỳng trờn ca s
Properties cho phự hp vI mc ớch lp trỡnh.
1.1

Form:

Form l mt biu mu ca mI ng dng trong Visual Basic. Ta dựng Form
nhm mc ớch nh v v sp xp cỏc b phn trờn nú khi thit k giao
din vI ngI s dng. Ta cú th xem Form nh mt b phn m nú cú
th cha cỏc b phn khỏc. Cỏc thnh phn trong Form chớnh ca ng
dng tng tỏc vI cỏc Form khỏc v cỏc b phn ca chỳng to nờn giao
tip cho ng dng. Form chớnh l giao din chớnh ca ng dng, cỏc Form
khỏc cú th cha cỏc cụng c nhp d liu, xem xột v.v

Đỗ Đức Chung Tin4

5


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Trong nhiu ng dng ca Visual Basic, kớch c v v trớ ca biu mu lỳc
thit k l kớch c m ngI dựng s gp vo lỳc s dng. iu ny, cú
ngha l Visual Basic cho phộp ta thay I kớch c v di chuyn v trớ Form
n bt c ni no trờn mn hỡnh khi chy mt ỏn, bng cỏch thay I
mt s thuc tớnh ca nú trờn ca s thuc tớnh I tng (Properties

Windows ). Thc t, mt trong tớnh nng thiu ca Visual Basic l kh
nng tin hnh cỏc thay I ng ỏp ng s kin ngI dựng.
1.2

Toolbox (hp cụng c):

Toolbox l hp cụng c cha cỏc biu tng, biu th cho cỏc iu khin
m ta cú th biu mu l bng cha cỏc i tng ó c nh ngha
sn ca Visual Basic. Cỏc i tng ny c s dng trong Form to
thnh giao din cho cỏc chng trỡnh ng dng ca Visual Basic. Ta cú
th coi hp cụng c l mt hp ngh ca ngi thit k chng trỡnh.
1.3

Scrollbar (thanh cun):

Scrollbar l i tng cho phộp nhn t ngi dựng mt giỏ tr tu theo v
trớ con chy trờn thanh cun thay cho cỏc giỏ tr s.
Thanh cun cú mt s thuc tớnh quan trng sau:
Thuc tớnh Min: xỏc nh cn di ca thanh cun.
Thuc tớnh Max: xỏc nh cn trờn ca thanh cun.
Thuc tớnh Value: xỏc nh giỏ tr tm thi ca thanh cun.
1.4

Option Button (Nỳt chn):

i tng nỳt chn (thng c dựng nhiu nỳt) cho phộp ngi dựng
chn mt trong nhng la chn a ra. Nh vy, ti 1 thi im ch cú th
l 1 trong nhng nỳt chn uc chn
1.5

Checkbox( hp kim)

Cng nh nỳt chn, i tng hp kim c dựng nhiu hp mt ln.
Nhng khỏc vi nỳt chn, hp kim cho phộp ngi dựng la mt hay
nhiu iu kin. Nh vy ti 1 thi im cú th cú nhiu hp kim c
chn
1.6

Label(nhón)

i tng nhón cho phộp ngi dựng gn nhón 1 b phn no ú
giao din trong lỳc thit k giao din cho chng trỡnh ng dng .
Cỏc nhón dựng hin th thụng tin khụng mun ngi dựng thay
Trong thc t, cỏc nhón thng c dựng nh danh 1 hp vn
hoc 1 iu khin khỏc bng vic mụ t ni dung ca iu khin ú.
cụng c ph bin cho vic hin th thụng tin tr giỳp,

Đỗ Đức Chung Tin4

ca
i.
bn
Mt

6


Quản lý tài sản cố định

1.7

Trờng Đại học Quản lý và kinh doanh Hà Nội

Picturebox, Image ( hp nh, iu khin nh )

i tng Image v Picturebox dựng hin th nh . Nú cho phộp ngi
thit k a hỡnh nh t cỏc file nh ( .bmp , .gif ) lờn Form
1.8

Textbox ( hp vn bn )

i tng Textbox dựng lm hp nhp d liu cho phộp a cỏc chui ký
t vo Form. Cú th dựng hp vn bn nhp d liu hoc hin th vn
bn . Tt c cỏc cụng c trong windows v chnh sa vn bn nh : cut ,
copy , paste u dựng trong hp vn bn
1.9

Command Button ( nỳt lnh )

Khi ngi dựng kớch vo 1 nỳt lnh trong biu mu, mt thao tỏc no ú
s c thc hin tu theo th tc s kin c vit ỏp ng s kin
kớch chut ú .
1.10 Listbox ( hp danh sỏch )

i tng Listbox cho phộp kt xut cỏc thụng tin v nhiu chui kớ t vo
trong nú thụng qua phng thc additem. Thng c dựng hin th
thụng tin di dng danh sỏch cú liờn quan vi nhau. Listbox khụng cho
phộp ngi dựng nhp d liu vo.
1.11 Combo box ( hp kt hp )

Cụng c ny cho phộp ngi dựng gừ vo thụng tin v hin th thụng tin .
nú cú tỏc dng nh hp danh sỏch v hp vn bn . Hp kt hp cú 3 loi:
- Hp kt hp th xung ( drop-down combo ) : l 1 hp vn bn cho
phộp ngi dựng gừ vo, k bờn cú 1 mi tờn m khi nhn vo nú s
x ra 1 danh sỏch cho phộp ngi s dng chn la .
- Hp kt hp n gin ( simple combo ) : luụn hin th danh sỏch v cho
phộp ngi dựng gừ vo hp vn bn.
- Hp danh sỏch th xung ( drop- down list box) : tng t nh hp kt
hp th xung. Danh sỏch s khụng hin th sn nu ngi dựng
khụng nhn vo mi tờn bờn cnh. ngi s dng ch cú th chn t
danh sỏch, gừ vo hp vn bn thỡ danh sỏch s cun ỳng n phn
t yờu cu v ỏnh du nú.

Đỗ Đức Chung Tin4

7


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

1.12 Ole ( i tng nhỳng )

Ole l vit tt ca Object - Linking and Embedding . Nú cho phộp ta nhỳng
ton b ng dng v d liu t mt ng dng khỏc vo chng trỡnh . Ole
khụng ch l 1 h thng cho phộp nhỳng hay kt ni d liu t 1 ng dng
khỏc m vo thi gian chy ca chng trỡnh ta s cú 1 bn sao ca ng
dng ú trong chng trỡnh ca ta. Nú cú kh nng automation cho phộp
úng gúi cỏc i tng chc nng ca ng dng cú th s dng trong

ng dng khỏc.
1.13 Project explorer

Project explorer trong Visual Basic 6.0 giỳp qun lý v nh hng cỏc
ỏn, biu mu, cỏc module,. Visual Basic cho phộp t chc nhiu ỏn
trong 1 nhúm gi l project groups. Ta cú th lu tp hp cỏc ỏn trong
Visual Basic thnh 1 tp tin nhúm ỏn. Cỏc tp tin ny cú phn m rng
l .Vbg .
1.14 Propeties windows ( ca s thuc tớnh )

L ni cha danh sỏch cỏc thuc tớnh ca mt i tng c th. Cỏc
thuc tớnh ny cú th khỏc nhau vi tng i tng c th. Ta cú th t
cỏc thuc tớnh cho phự hp vi cỏc chng trỡnh ng dng.

2 Lp trỡnh vi ngụn ng Visual Basic
phn mt, chỳng ta mi ch bit tu bin biu mu bng cỏch b xung
cỏc iu khin vo cho phự hp vi yờu cu ca chng trỡnh. Tuy nhiờn,
ú ch cú th coi l b mt ca chng trỡnh. Mun chng trỡnh chy
c thỡ chỳng ta phi thờm vo cỏc thnh phn khỏc nh lnh, d liu. .
v cỏch thc th hin chỳng trong chng trỡnh.
Khi lp trỡnh trong Visual Basic thỡ phn ln cỏc mó c x lý ỏp ng
s kin. Vớ d nh s kin kớch chut, bm phớm, load formCỏc dũng
mó thi hnh trong mt chng trỡnh Visual Basic phi nm trong cỏc th
tc hoc hm, cỏc dũng lnh nm ngoi s khụng lm vic. Ton b mó
lnh c gừ vo trong ca s code.
2.1

Ca s code

Ca s code bao gm cỏc thnh phn sau:

Thanh tỏch: ca s code cú mt thanh tỏch (Split bar) nm u thanh
cun dc. Mc ớch ca nú l: khi cỏc dũng mó tr nờn nhiu, ta cú th
chia ca s code thnh 2 phn.

Đỗ Đức Chung Tin4

8


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Hp lit kờ Object: nm u ca s code bờn trỏi, nú lit kờ tt c cỏc
iu khin cú trờn biu mu v thờm vo mt i tng cú tờn l: General.
Khi th hp lit kờ v nhp vo mt i tng no ú thỡ s a ta n
phn mó vit cho i tng ú.
Hp Procedure: hp ny cung cp mi s kin m i tng ó c la
chn trong hp lit kờ object.
2.2

Intellisence:

Intellisence l mt cụng c thụng minh, nú giỳp ta mt cụng gừ v tra
cu. Intellisence m cỏc hp lit kờ cựng vi cỏc thụng tin v i tng
m ta ang tip cn. Nú cú 3 phn:
- QuickInfo: cho ta thụng tin v cỳ phỏp ca 1 lnh Visual Basic. Mi khi
nhp mt t khoỏ theo sau l mt du cỏch hoc du chm. . .mt hp
thoi s hin ra cung cp cỳ phỏp ca thnh phn ú.
- List properties/Methods: tớnh nng ny a ra mt danh sỏch cỏc tớnh

cht v phng phỏp ca i tng ngay khi ta gừ du chm.
- Available constant : tớnh nng ny cung cp mt danh sỏch cỏc hng
sn cú.
2.3

Bin

Trong Visual Basic, tờn bin cú th di ti a 255 kớ t. Kớ t u tiờn phi
l mt ch cỏi v tờn bin cú th l mt t hp ch cỏi, ch s v du
gch di. Khụng c dựng cỏc t khoỏ trong Visual Basic ( nh end,
print. . .) lm tờn bin. Visual Basic khụng phõn bit ch hoa, ch thng.
Cỏch khai bỏo bin: Dim <Tờn bin> as <Kiu bin>
Phm vi s dng bin ph thuc vo cỏch khai bỏo bin v v trớ t dũng
lờnh khai bỏo.
2.4

-

Cỏc kiu d liu:

String: cỏc bin string lu gi cỏc kớ t. Mt chui cú th cú mt hay
nhiu kớ t.
Integer: bin nguyờn lu gi cỏc giỏ tr s nguyờn t -32768 n
+32767.
Long Integer: bin s nguyờn di lu gi cỏc s nguyờn gia:
-2147483648 n +214783647.
Single precision: cỏc s cú phn thp phõn gm: Single precision cú
chớnh xỏc n 7 ch s v double precision cú chớnh xỏc lờn n 16
v trớ.

Đỗ Đức Chung Tin4

9


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Currency: Bin tin t l mt kiu mi. Kiu ny cho ta 15 ch s trc
du thp phõn v 4 ch s sau du thp phõn.
Date: kiu d liu ngy thỏng.
Byte: kiu byte cú th lu gi cỏc s nguyờn t 0 n 255.
Boolean: õy l kiu logic vi cỏc giỏ tr True/False.
Variant: kiu ny c thit k lu mi d liu khỏc nhau ca Visual
Basic.

2.5

Cỏc toỏn t:

2.5.1 Cỏc toỏn t tớnh toỏn

Cỏc toỏn
t
+
*
/
\
Mod

^

í ngha

Vớ d

Cú th dựng cng hai toỏn hng X=y+1
hoc hai chui vi nhau.
A=A+B
tr 2 s hng
X=y-1
Nhõn 2 s hng
X=y*2
Chia, tr v kiu s thc
Y=4/2
Chia ly nguyờn
X=3\2(x=1)
Chia ly d
X=7 mod 4 (x=3)
Ly lu tha
X=y^3 (X=y3)

2.5.2 Cỏc toỏn t so sỏnh:

Toỏn t
>
<
=
<>
>=

<=

í ngha
So sỏnh xem s th nht cú ln hn s th 2 khụng
So sỏnh xem s th nht cú nh hn s th 2 khụng.
So sỏnh s th nht cú bng s th 2 khụng.
So sỏnh s th nht cú khỏc s th 2 khụng.
So sỏnh s th nht cú ln hn hay bng s th 2 khụng
So sỏnh s th nht cú nh hn hay bng s th 2 khụng

2.5.3 Cỏc toỏn t Boolean

Toỏn t
And
Or
Not

í ngha
Ch nhn giỏ tr True nu c 2 s hng u l True
Ch nhn giỏ tr False nu c 2 s hng u l False
Ph nh giỏ tr ca s hng

Đỗ Đức Chung Tin4

10


Quản lý tài sản cố định

2.6

Trờng Đại học Quản lý và kinh doanh Hà Nội

Cu trỳc iu khin

2.6.1 Cỏc cu trỳc chn:
2.6.1.1

Cu trỳc If.Then

Dng 1: If <Biu thc logic> then < lnh> End If
Khi gp mt iu lnh If..then, Visual Basic s kim tra logic>, nu l True thỡ mỏy s thc hin <lnh> nu kờt qu l False thỡ
mỏy s b qua lnh v thc hin nhng lnh sau End If.
Dng 2: If <Biu thc logic> then <lnh 1> else <lnh 2>
Khi gp lnh ny, nu <Biu thc logic> ly giỏ tr True thỡ thc hin < lnh
1> b qua <lnh 2>, cũn nu <Biu thc logic> ly giỏ tr False thỡ b qua
<lnh 1> v thc hin <lnh 2>.
Nhiu khi bn phi thc hin nhiu lnh ng vi iu kin l True hay
False. lm c iu ú, ta s dng dng khỏc ca cu trỳc If
..then, cú dng tng quỏt nh sau:
If <Biu thc iu kin> then
<Cỏc cõu lnh thc hin>
else
<Cỏc cõu lnh thc hin>
end if
2.6.1.2

Cu trỳc Select Case:

Cỳ phỏp:
Select case <Bin hay biu thc>
Case <giỏ tr 1>
<Cỏc cõu lnh>

Case <giỏ tr 2>
..
Case else
<Cỏc cõu ln>
End Select
2.6.2 Cu trỳc lp
2.6.2.1

Cu trỳc lp cú iu kin

Cỳ phỏp 1:
While < Biu thc iu kin>
<Cỏc cõu lnh>
Wend
Cỳ phỏp 2:

Đỗ Đức Chung Tin4

11


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Do
<Cỏc cõu lnh>
While <Biu thc iu kin>
<Cỏc cõu lnh> c thc hin lp i lp li nu <Biu thc iu kin>
vn nhn giỏ tr True. Do ú, thoỏt khi vũng lp thỡ trong lnh phi cú lnh thay i gia tr ca <Biu thc iu kin>. Trong cỳ phỏp
1, thỡ <Biu thc iu kin> c xột trc khi thc hin cỏc cõu lnh,
cũn trong cỳ phỏp 2 thỡ cỏc cõu lnh c thc hin trc khi xột n
<Biu thc iu kin>.
2.6.2.2

Cu trỳc For Next

Cỳ phỏp:
For <bin> = <giỏ tr u> to <giỏ tr cui> [Step <bc nhy>]
<Cỏc cõu lnh>
Next <bin>
õy l lnh lp bit trc s ln lp. Khi gp cu trỳc lnh ny, Visual
Basic s gỏn giỏ tr <bin> cho <giỏ tr u>, thc hin <Cỏc cõu lnh>, ri
tng <bin> lờn mt giỏ tr tu theo <bc nhy>. Vũng lp ny s kt thỳc
khi <bin> cú giỏ tr ln hn <giỏ tr cui>
2.2.1 Cu trỳc For Each.Next

For Each In <nhúm>
<Khi lnh>
Next
Khi gp cu trỳc ny, Visual Basic s lp li <Khi lnh> cho tng phn t
ca mng, hay cỏc iu khinNgi ta thng dựng cu trỳc ny
duyt nhiu i tng iu khin.
2.7

Th tc

Trong Visual Basic, mt th tc m trc khi ta mun s dng nú thỡ ta
phi nh ngha nú v ta phi dựng t khoỏ Sub khai bỏo nú.
Private/Public Sub <Tờn th tc>
<Cỏc cõu lnh>
End Sub
Nu dựng t khoỏ Public, th tc cú th c dựng trong bt kỡ Form no
trong chng trỡnh.
Nu ta khai bỏo bng t khoỏ Private thỡ th tc ch cú th c dựng
c trong Form,module cha nú m thụi.
Giỏ tr c truyn cho th tc thụng qua tham s. Mt th tc cú th cú
hoc khụng cú tham s. Khi gi mt th tc cú tham s, ta phi truyn giỏ

Đỗ Đức Chung Tin4

12


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

tr cho tham s ca th tc ú. Trong Visual Basic, cú 2 cỏch truyn
thỏm s : By Ref ( truyn tham chiu) v By Val ( truyn tham tr ).
Private/Public Sub <Tờn th tc> (<Tham s1> as <Kiu>, <Tham s 2>
as <Kiu 2>, v.v)
<Cỏc cõu lnh>
End Sub

2.8

Hin th v nhn thụng tin

Ta s dng cỏc hp i thoi hin th thụng tin cho ngi dựng hoc
nhn thụng tin. Trong Visual Basic cú 4 hp thoi, ú l:
2.8.1 Thụng ip: (MesageBox)

L mt hp thoi n gin nht, gm 2 loi:
- Ch cung cp thụng tin
- Tng tỏc vi ngi s dng.
2.8.2 Hp nhp (InputBox)

InputBox dựng nhp thụng tin t ngi dựng, nú bao gm mt dũng
thụng bỏo, hp son tho v 2 nỳt OK v Cancel. Nú cú mt hn ch l
ch cho ngi s dng nhp rt ớt thụng tin.
2.8.3 Cỏc hp thoi thụng dng

Bi hp thoi ny xut hin mi ni, nờn thay vỡ phi vit chng trỡnh
nhiu ln, Windows cha chỳng trong cựng mt DLL, Comdlg32.dll hay
Comdlg.ocx
Cú 6 hp thoi:
- M tp tin (File Open)
- Lu tp tin (File save).
- Chn mu (Color).
- Chn phụng (Font).
- Tr giỳp (Help).
- In n (Print).
2.8.4 Hp thoi hiu chnh (Custom Dialog).

õy l loi hp i thoi do ngi lp trỡnh nh ngha tng thớch vi
yờu cu nhn thụng tin ca ngi s dng. Nú cú u im l ta cú th
thit k theo ý thớch. Tr ngi ca nú l khi thi hnh tng biu mu thỡ s
s dng ti nguyờn h thng nh b nh, thi gian CPU. Nu dựng nhiu
hp thoi hiu chnh trong ng dng cú th mt ti nguyờn h thng v d
b treo mỏy.

Đỗ Đức Chung Tin4

13


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Phn II: Phn mm Qun lý ti sn c nh
1 Mc ớch v nhu cu thc t ca phn mm
Vic qun lý ti sn c nh ang s dng trong cỏc c quan hnh chớnh l
mt hot ng quan trng trong cỏc hot ng ca nh nc. Chớnh vỡ
vy, hng nm, nh nc ta u tin hnh cụng vic kim kờ cỏc ti sn
ny, nm c s lng, cht lng, hin trng s dng. T ú a
ra cỏc s liu thng kờ nhm s dng ti sn c nh mt cỏch hiu qu,
gim thiu cỏc chi phớ, tht thoỏt.
Nu nh thc hin cụng vic ny theo cỏch c in bng giy t, s sỏch
thỡ s cn n rt nhiu nhõn lc, vt lc cho vic nhp s liu, tớnh toỏn,
lu gi chng t. V cho dự cú y nhõn lc, vt lc, thỡ cụng vic trờn
s tiờu tn mt thi gian rt ln. Khi cú nhu cu tỡm kim, thng kờ, ta
khụng th tỡm kim nhanh chúng trong mt ng giy t. Trong khi y, ta
vn khụng m bo l trỏnh c cỏc sai sút.

Vỡ vy, vic ỏp dng cụng ngh thụng tin vo cụng vic trờn l iu tt yu.
Khi phn mm Qun lý ti sn c nh ra i s khc phc c cỏc
nhc im ca cỏch lm vic c in. ú l:
- Gim thiu nhõn lc, vt lc, thi gian cho vic thng kờ, qun lý ti
sn.
- Trỏnh c cỏc sai sút do con ngi gõy ra.
- a ra cỏc s liu tỡm kim, thng kờ trong thi gian nhanh nht.

2 Cỏc chc nng chớnh ca Phn mm Qun lý TSC
Phn mm cú cỏc chc nng chớnh sau:
- Qun lý quyn truy cp.
- Qun lý cỏc n v hnh chớnh. (v mt ti sn)
- Qun lý cỏc ti sn c nh.
- Qun lý cỏc giao dch.
- Tỡm kim, thng kờ.
- In bỏo cỏo theo mu ca B ti chớnh
S chc nng:

Đỗ Đức Chung Tin4

14


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Cỏc chc nng

2.1

QL Quyn truy cp

QL n v hnh chớnh

QL Ti sn c nh

QL Giao dch

Tỡm kim, thng kờ

In Bỏo cỏo

Qun lý quyn truy cp.

Vỡ chng trỡnh Qun lý TSC phc v cho vic qun lý, thng kờ ti sn
c nh do cỏc c quan, n v nh nc s dng, nờn bo mt d liu l
mt cụng tỏc vụ cựng quan trng. hc nng qun lý quyn truy cp ca
nhng ngi c phộp s dng chng trỡnh cú th, cho phộp, hn ch,
hoc khụng cho phộp s dng cỏc chc nng ca chng trỡnh. Ta cú th
chia nhng ngi c phộp s dng chng trỡnh thnh 3 nhúm chớnh:
ngi qun tr, ngi s dng cp cao v ngi s dng thụng thng.
Ngi s dng thụng thng: l nhúm ngi cú quyn thp nht.
Nhng ngi thuc nhúm ny ch cú quyn c xem cỏc d liu ca
chng trỡnh.
Ngi s dng cp cao: l nhúm ngi cú quyn nh ngi s dng
thụng thng nhng c phộp nhp, chnh sa d liu.
Ngi qun tr: õy l nhúm ngi cú quyn cao nht. Ngoi cỏc
quyn ca nhúm ngi s dng cp cao, nhúm ny cũn c phộp
qun lý cỏc nhúm ngi khỏc. (Nh c phộp thờm, xoỏ, sa cha

d liu ca cỏc ngi dựng.)
2.2

Qun lý n v hnh chớnh

Cỏc n v hnh chớnh õy chớnh l cỏc n v ang qun lý, s dng
cỏc ti sn c nh ca nh nc. Vic qun lý ny c tin hnh theo
nghnh dc. Chc nng ny cho phộp nm c cỏc thụng tin ca tng
n v, nh tờn, a ch, s in thoi ca tng n v

Đỗ Đức Chung Tin4

15


Quản lý tài sản cố định

2.3

Trờng Đại học Quản lý và kinh doanh Hà Nội

Qun lý Ti sn c nh

õy l chc nng chớnh ca chng trỡnh. Chc nng ny cú liờn quan
trc tip n chc nng trờn. Bi vỡ, chỳng ta qun lý ti sn theo tng
n v. d dng cho vic qun lý, nh nc ó quy nh chia ti sn c
nh thnh 7 loi chớnh: t ai, nh ca, vt kin trỳc, phng tin vn
ti, mỏy múc thit b, cỏc ti sn c nh khỏc. Vỡ c im riờng, ta cú th
phõn chia ti sn c nh ra thnh ti sn l t v ti sn khụng l t.
Chc nng ny cho phộp nhp mi, chnh sa mt cỏch chi tit v cỏc ti

sn c nh. Giỳp cho ngi qun lý nm c chi tiờt cỏc c im ca
tng ti sn, nh: Tờn, giỏ tr, thụng s k thutTrong chc nng ny,
chng trỡnh cho phộp tớnh toỏn hao mũn ca cỏc ti sn c nh.
2.4

Qun lý Giao dch

Chc nng Qun lý giao dch cho phộp ta qun lý c vic mua, bỏn cỏc
ti sn gia cỏc n v hnh chớnh vi nhau cng nh gia cỏc n v
hnh chớnh v cỏc n v, cụng ty khỏc. Cho phộp ta nm c cỏc ti
sn thanh lý, hu
2.5

Tỡm kim, thng kờ

õy l chc nng tr giỳp ngi qun lý chng trỡnh cú th tỡm kim cỏc
ti sn, cỏc n v cú trong chng trỡnh. Ngoi ra, nú cũn cho phộp a
ra cỏc s liu thng kờ theo yờu cu. Vi chc nng ny, ta cú th cú cỏi
nhỡn t tụng th n chi tit v cỏc ti sn c nh ca tng n v cng
nh tng loi ti sn c nh. T ú nm c s lng, cht lng, thc
trng ca cỏc ti sn.
2.6

In bỏo cỏo theo mu ca B Ti Chớnh.

Chc nng ny cho phộp in ra cỏc bỏo cỏo theo mu ca B Ti Chớnh.

3 C s d liu
Mụ hỡnh quan h trong c s d liu

Đỗ Đức Chung Tin4

16


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

3.1

Bng tblDonvi: Lu gi thụng tin v cỏc n v.

3.2

Bng tblDonviNgoai

3.3

Bng tblHopdong

Đỗ Đức Chung Tin4

17


Quản lý tài sản cố định

3.4

Bng tblHopdongBenA

3.5

Bng tblHopdongBenB

3.6

Bng tblHopdongMaDVN

3.7

Bng tblLoaiTS_Detail

3.8

Bng tblLoaiTS_Master

Đỗ Đức Chung Tin4

Trờng Đại học Quản lý và kinh doanh Hà Nội

18


Quản lý tài sản cố định

3.9

Trờng Đại học Quản lý và kinh doanh Hà Nội

Bng tblNhom

3.10 Bng tblPhieu

3.11 Bng tblSe_Group

3.12 Bng tblTongHopDat_Detail

Đỗ Đức Chung Tin4

19


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

3.13 Bng tblTongHopDat_Master

3.14 Bng tblTongHopTSCD_KLD_Detail

Đỗ Đức Chung Tin4

20


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

3.15 Bng tblTongHopTSCD_KLD_Master

3.16 Bng tblTonghopTSCD_KLD_Detail2

Đỗ Đức Chung Tin4

21


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Phn III: Mó ngun
Sau õy l mt s Form v Modul quan trng trong chng trỡnh.
1
1.1

Mt s Form chớnh
Form: MDIForm

õy l giao din chớnh ca chng trỡnh:

Public BExit As Boolean
Private Sub MDIForm_Load()
Path = App.Path & "\csdl.mdb"
Me.Icon = LoadResPicture(1, vbResIcon)
BExit = False
Skin = 0

MaDV = "H0000"
helppath = App.Path & "\help\help.chm"
MDIload
Init_icon
Set_Icon
Set_Panel
Set_Code

Đỗ Đức Chung Tin4

22


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

Set_Font
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
Call mnuThoat_Click
Cancel = Not BExit
End If
End Sub
Private Sub mnuAbout_Click()
frmAbout.Show
End Sub
Private Sub mnuAdmin_Click()
frmAdmin.Show

End Sub
Private Sub mnuBC1A_Click()
Report3
mnuTH3B.Checked = False
mnuBC1B.Checked = False
mnuBC2.Checked = False
mnuBC1A.Checked = True
mnuTH4.Checked = False
mnuTH3A.Checked = False
End Sub
Private Sub mnuBC1B_Click()
report4
mnuTH3B.Checked = False
mnuBC1B.Checked = True
mnuBC2.Checked = False
mnuBC1A.Checked = False
mnuTH4.Checked = False
mnuTH3A.Checked = False
End Sub
Private Sub mnuBC2_Click()
Report1
mnuTH3B.Checked = False
mnuBC1B.Checked = False
mnuBC2.Checked = True
mnuBC1A.Checked = False
mnuTH4.Checked = False

Đỗ Đức Chung Tin4

23

Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

mnuTH3A.Checked = False
End Sub
Private Sub mnuChonDV_Click()
'Call CloseActiveForm("frmChonDV")
frmChonDV.Show
End Sub
Private Sub mnuDat_Click()
'Call CloseActiveForm("frmNhapDS")
frmNhapDS.Show
frmNhapDS.SSTab1.Tab = 0
End Sub
Private Sub mnuDonvi_Click()
'Call CloseActiveForm("frmNhapDV")
frmDonVi.Show
End Sub
Private Sub mnuFont_Click()
Dim f As Form
Dim a As Control
' Set Cancel to True.
Dialog.CancelError = True
On Error GoTo ErrHandler
' Set the Flags property.
Dialog.Flags = cdlCFBoth Or cdlCFEffects
' Display the Font dialog box.

Dialog.ShowFont
If frmMDI.Dialog.FontSize > 14 Then frmMDI.Dialog.FontSize = 14
If frmMDI.Dialog.FontName <> "" Then
Default.Name = frmMDI.Dialog.FontName
Default.Bold = frmMDI.Dialog.FontBold
Default.Italic = frmMDI.Dialog.FontItalic
Default.Size = frmMDI.Dialog.FontSize
End If
For Each f In Forms
If f.Name <> "frmMDI" Then
For Each a In f.Controls
Set_Child_font f, a
Next
End If
Next
ErrHandler:
' User pressed Cancel button.
Resume Next

Đỗ Đức Chung Tin4

24


Quản lý tài sản cố định

Trờng Đại học Quản lý và kinh doanh Hà Nội

End Sub
Private Sub mnuGiaodich_Click()

'Call CloseActiveForm("frmGiaodich")
frmGiaoDich.Show
End Sub
Private Sub mnuKK1_Click()
Report1
End Sub
Private Sub mnuHaomon_Click()
frmHaoMon.Show
End Sub
Private Sub mnuHuongDan_Click()
HH_DISPLAY_Click
HH_HELP_Click
End Sub
Private Sub mnuKLD_Click()
'Call CloseActiveForm("frmNhapDS")
frmNhapDS.Show
frmNhapDS.SSTab1.Tab = 1
End Sub
Private Sub mnuLoai_Click()
'Call CloseActiveForm("frmNhapTS")
frmChonTS.Show
End Sub
Private Sub mnuLogOn_Click()
frmLogin.Show vbModal
End Sub
Private Sub mnuLogOut_Click()
'CloseActiveForm Me.Name
GroupCode = 0
Set_Menu
End Sub

Private Sub SkinChange()
Dim f As Form
For Each f In Forms
If f.Name <> "frmMDI" Then Set_Skin f
Next
End Sub

Đỗ Đức Chung Tin4

25