Xây dựng phần mềm kế toán bán hàng tại Công ty cổ phần thương mại bia Hà Nội – Hưng Yên 89 HƯƠNG I: NHỮNG VẤN ĐỀ CHUNG VỀ XÂY DỰNG PHẦN MỀM KẾ TOÁN BÁN HÀNG TẠI CÔNG TY CỔ PHẦN THƯƠNG MẠI BIA HÀ NỘI – HƯNG YÊN 89 CHƯƠNG II: KHẢO SÁT, ĐÁNH GIÁ THỰC TRẠNG VÀ GIẢI PHÁP PHÂN TÍCH HTTT KẾ TOÁN BÁN HÀNG TẠI CÔNG TY CỔ PHẦN THƯƠNG MẠI BIA HÀ NỘI – HƯNG YÊN 89 CHƯƠNG III: XÂY DỰNG PHẦN MỀM KẾ TOÁN BÁN HÀNG TẠI CÔNG TY CỔ PHẦN THƯƠNG MẠI BIA HN – HƯNG YÊN 89
Khoa h thng thụng tin kinh t ỏn tt nghip LI CM N Bn nm hc qua em ó may mn c hc v nghiờn cu ti trng Hc vin Ti chớnh, s ch bo tn tỡnh ca th thy cụ ó trang b cho chỳng em nhng kin thc quý bỏu, nhng kinh nghim ngh nghip b ớch lm hnh trang vng chc bc vo cuc sng mi sau tt nghip c s dỡu dt, hng dn ca thy cụ tng bc i ngh nghip chuyờn mụn, em thy mỡnh ang dn trng thnh hn Em s luụn luụn ghi nh cụng n ca cỏc thy cụ nhng ngi lỏi ũ tn tỡnh nht a chỳng em n vi chõn tri tri thc Em xin chõn thnh cm n cỏc thy cụ giỏo khoa H thng thụng tin kinh t ó cú nhng bi ging b ớch v s ging dy nhit tỡnh sut thi gian em theo hc ti trng, em cú th dng tt kin thc chuyờn mụn hon thnh tt ỏn tt nghip v cú c ngh nghip vng chc tng lai Vi lũng bit n sõu sc, em xin chõn thnh cm n thy giỏo ThS.V Bỏ Anh ó tn tỡnh hng dn, giỳp em sut thi gian qua Thy ó ch bo v cung cp cho em nhng kin thc quý bỏu em hon thnh chuyờn ny Thc hin chuyờn ny, em cũn nhn c s giỳp tn tỡnh ca cỏc anh, cỏc ch n v thc Em xin chõn thnh cm n ban lónh o v c bit l cỏc anh ch thuc phũng ti chớnh k toỏn Cụng Ty c phn thng mi bia H Ni Hng Yờn 89 ó to mi iu kin giỳp em sut quỏ trỡnh thc Cui cựng, em xin gi li cm n ti gia ỡnh, bn bố v ngi thõn luụn ng viờn v h tr em sut quỏ trỡnh hc ỏn khụng trỏnh nhng hn ch nht nh, em mong mun tip tc nhn c nhng ý kin úng gúp ca thy cụ v bn bố Em xin chõn thnh cm n!!! Mc lc T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t ỏn tt nghip M U S cn thit ca ti nghiờn cu : Cựng vi s phỏt trin vt bc ca khoa hc k thut, tin hc ó tr thnh mt lnh vc quan trng, thit yu thi i ngy nay.Trong bt c mt lnh vc no ca cuc sng, ngi ta cng u phi ng dng tin hc nõng cao cht lng cỏc hot ng c bit, i vi cỏc doanh nghip, vic nm bt v ng dng tin hc hiu qu l bt buc nu mun tn ti v phỏt trin trờn th trng y tớnh cnh tranh Khi lng cụng vic s ca doanh nghip khụng th khụng cú s tr giỳp ca mỏy tớnh in t Mt mỏy tớnh in t giỳp chỳng ta thc hin hng chc triu phộp tớnh vũng mt giõy, gim thiu ti a thi gian cng nh cụng sc cong ngi b nờn tit kim chi phớ nhõn cụng, cú c thụng tin nhanh chúng, chớnh xỏc, kp thi Vỡ vy, thi bui kinh t th trng ngy nay, bt c mt doanh nghip no cng cn ng dng tin hc Xut phỏt t xu th chung ca xó hi, hng lot cỏc phn mm phc v hot ng sn xut, kinh doanh, qun tr ó i ỏp ng nhu cu cp thit ca cỏc doanh nghip hin Thc t cho thy, t ỏp dng cỏ phn mm tin hc, hot ng qun lớ ngy cnh nh nhng, chớnh xỏc, hiu qu v em li thnh cụng cao cho rt nhiu doanh nghip Tuy nhiờn, cú mt phn mm phự hp vi cụng tỏc qun lớ, va phự hp vi hot ng c trng hot ng ca mi doanh nghip khụng phi l mt iu d dng iu ny ũi hi s kt hp nhun nhuyn gia cỏc yu t tin hc, qun lớ v nghip v Vỡ nhng lý trờn em quyt nh chn ti nghiờn cu l Xõy dng phn mm k toỏn bỏn hng ti Cụng ty c phn thng mi bia H Ni Hng Yờn 89 i tng nghiờn cu ca ti T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t ỏn tt nghip ti trung nghiờn cu cỏc phõn h k toỏn Doanh thu bỏn hng ti Cụng ty c phn thng mi bia H Ni Hng Yờn 89 nh : hỡnh thc k toỏn s dng ti cụng ty, cỏc chng t s dng v quy trỡnh luõn chuyn chng t, h thng ti khon, h thng s v bỏo cỏo s dng ti cụng ty v cui cựng l quy trỡnh hch toỏn k toỏn doanh thu bỏn hng ti Cụng ty T ú xõy dng lờn phn mm k toỏn doanh thu bỏn hng ti cụng ty Phm vi nghiờn cu ca ti Khi thc hin ti xõy dng phn mm K toỏn doanh thu bỏn hng trung nghiờn cu cỏc d liu nh: d liu u vo v d liu u bao gm nhng gỡ phc v quỏ trỡnh thit k , v nghiờn cu cỏc th tc cn thit xõy dng phn mm Phng phỏp nghiờn cu ti s dng cỏc phng phỏp nghiờn cu sau õy: - Phng phỏp thu thp thụng tin nh l : phng phỏp phng vn, phng phỏp ghi chộp thụng tin, phng phỏp quan sỏt, v phng phỏp hi ý kin - chuyờn gia, Cỏc phng phỏp phõn tớch, thit k h thng thụng tin : phng phỏp phõn tớch t di lờn, phng phỏp phõn tớch t trờn xung, Kt cu ca ỏn Kt cu ca ỏn gm chng nh sau: CHNG I: NHNG VN CHUNG V XY DNG PHN MM K TON BN HNG TI CễNG TY C PHN THNG MI BIA H NI HNG YấN 89 CHNG II: KHO ST, NH GI THC TRNG V GII PHP PHN TCH HTTT K TON BN HNG TI CễNG TY C PHN THNG MI BIA H NI HNG YấN 89 T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t ỏn tt nghip CHNG III: XY DNG PHN MM K TON BN HNG TI CễNG TY C PHN THNG MI BIA HN HNG YấN 89 CHNG I: NHNG VN CHUNG V XY DNG PHN MM K TON BN HNG TRONG CễNG TY 1.1 Nhng nhn thc cn bit xõy dng phn mm k toỏn ti Cụng ty 1.1.1 Mt s khỏi nim, c im, yờu cu ca phn mm k toỏn Khỏi nim: - Phn mm k toỏn l phn mm ng dng vic ghi chộp v x lý cỏc giao dch k toỏn cỏc module chc nng nh cỏc ti khon n phi tr, ti khon phi thu, bng lng, v s d cõn i ti khon - Phn mm k toỏn hot ng nh l mt h thng thụng tin k toỏn Nú cú th c phỏt trin nh ca cụng ty hay t chc s dng nú, cú th c mua t mt bờn th ba, hoc cú th l mt s kt hp ca mt gúi phn mm ca bờn th ba ng dng vi s sa i a phng Cú rt nhiu phn mm k toỏn khỏc v phc v chi phớ ca nú c im: - Phn mm k toỏn sn xut nhm mc ớch cung cp cho doanh nghip Vit Nam l chớnh, vỡ th giao din v ti liu hng dn s dng u bng - ting Vit thun li cho vic khai thỏc thụng tin v s dng Khỏc vi cỏc loi phn mm khỏc vỡ phn mm k toỏn luụn luụn phi ỏp dng trit cỏc phng phỏp k toỏn nh: Phng phỏp chng t, Phng - phỏp cõn i, Phng phỏp ti khon, Phng phỏ tớnh giỏ H thng cỏc chng t, cỏc d liu vo, cỏc bỏo cỏo a ra, cỏc s , bt - buc phi tuõn theo mu ó c nh nc quy chun Cỏc thay i thng xuyờn ca B ti chớnh h thng ti khon, hch - toỏn, h thng bỏo cỏo cng c cp nht nhanh Giỏ thnh khụng cao, cụng vic bo hnh, bo trỡ nhanh chúng, kp thi T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t ỏn tt nghip Yờu cu: - Phn mm k toỏn phi mụ phng c quy trỡnh thc hin cụng tỏc k toỏn n v Qua trỡnh mụ phng c thc hin di hỡnh thc: + Mụ phng ỳng nh quy trỡnh thc hin ca h thng thc + Mụ phng theo nguyờn lý hp en : ch cn xỏc nh yu t u vo - v u ra, khụng quan tõm n quỏ trỡnh thc hin Phi cung cp c y cỏc thuc tớnh ca cụng tỏc k toỏn nh: tớnh nh kỡ, tớnh tc thi cú th linh hot ỏp ng nhu cu qun lý ni b ca cỏc - DN Cỏc quy nh bỏo cỏo ca c quan nh nc luụn thay i, phn mm k - toỏn cng cn uyn chuyn ỏp ng nhng nhu cu ny Giao din ca phn mm k toỏn phi phự hp, c bit l i vi cỏc k toỏn viờn mi vo ngh hoc i vi cỏc k toỏn ó quen lm vic bng - excel Thao tỏc s dng trờn phn mm k toỏn phi thun tin, m bo quỏ trỡnh - thc hin l nhanh v hp lý nht Phn mm k toỏn phi t ng x lý v m bo s chớnh xỏc v s liu k - toỏn Phn mm k toỏn phi m bo tớnh bo mt thụng tin v an ton d liu H tr nhiu tin ớch cao cp nh import d liu t file excel v ngc li, export t phn mm file excel, word; phn mm liờn tc cp nht cỏc tớnh nng mi 1.1.2 Cỏc cụng c tin hc cn thit xõy dng phn mm k toỏn H qun tr c s d liu H qun tr c s d liu l mt phn mm cụng c giỳp cho ngi s dng iu khin v truy nhp mt c s d liu Nú l mt h thng phn mm ph dng, lm cho quỏ trỡnh nh ngha, xõy dng v thao tỏc c s d liu tr nờn d dng cho cỏc ng dng khỏc Mt h qun tr c s d liu phi m bo ba chc nng: T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t - ỏn tt nghip H qun tr CSDL cung cp mt mụi trng ngi dựng d dng to lp d liu, khai bỏo kiu d liu, cỏc cu trỳc d liu th hin thụng tin v cỏc - rng buc d liu H qun tr CSDL cung cp mụi trng cp nht v khai thỏc CSDL H qun tr CSDL cung cp mt cụng c cú th truy c d liu theo nh kỡ hoc thi im bt kỡ theo yờu cu ca ngi dựng Mt s h qun tr CSDL thng dựng: Microsoft Acess, SQL Server, FoxPro, Oracle Mi h qun tr CSDL u cú nhng u, nhc im nht nh: - H qun tr CDSL Microsoft Acess u im: Nh gn, ci t d dng, phự hp vi cỏc qui mụ nh Nhc im: Hn ch s ngi cựng truy cp vo CSDL, hn ch v kớch thc CSDL, Hn ch tng s module mt ng dng, kớch thc d liu cng ln n nh cng gim, khụng h tr truy cõp t - xa qua mng Ch phự hp vi cỏc ng dng qui mụ nh H qun tr CSDL Oracle u im: Oracle l mt h qun tr CSDL tuyt vi bi tớnh bo mt, an ton ca d liu cao, d bo trỡ, nõng cp, c ch quyn hn rừ rng, n nh, d ci t v trin khai Nhc im: Chi phớ u t ln vỡ cn mỏy cú cu hỡnh mnh, - - phc cao, qun tr khú Thớch hp vi cỏc ng dng cú CSDL ln H qun tr CSDL SQL Server u im: C s d liu c truy cp vi mc n inh, d s dng, d theo dừi, cung cp m h thng cỏc hm tin ớch mnh Nhc im: Ch thớch hp trờn cỏc h iu hnh Windows S dng cho cỏc ng dng cú CSDL va v nh H qun tr c s d liu Visual Foxpro u im: Visual Foxpro h tr v lp trỡnh hng i tng, h tr kh nng thit k giao din trc quan, d dng t chc CSDL, nh ngha cỏc nguyờn tc ỏp dng cho CSDL v xõy dng chng trỡnh ng dng, nú cho phộp nhanh chúng kin to cỏc biu mu, tin, bỏo biu da vo b cụng c thit k giao din Hn th na, T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t ỏn tt nghip VFP d tỏch ng dng thnh nhiu mụ-un nờn khỏ d dng nõng cp, sa i Nhc im: Bo mt kộm, khụng an ton, khụng thun tin chy trờn mụi trng mng Thớch hp s dng cho cỏc ng dng cú CSDL qui mụ va v nh Ngụn ng lp trỡnh: - Ngụn ng lp trỡnh gm loi ngụn ng : Ngụn ng mỏy, Ngụn ng trung - gian( hay Ngụn ng kớ hiu) v Ngụn ng thut toỏn Ngụn ng mỏy l ngụn ng c thự ca loi mỏy tớnh m ngi s dng dựng c im ca ngụn ng mỏy l d hiu, d s dng vi ngi lp trỡnh gii quyt cỏc bi toỏn; miờu t y , rừ rng cỏc tin trỡnh cú th chy - c trờn mỏy tớnh Ngụn ng thut toỏn c s dng ch yu xõy dng cỏc trỡnh ng dng, nú phự hp xõy dng phn mm k toỏn vỡ xõy dng cỏc phn mm k toỏn phi tuõn theo cỏc quy c chung v mu chng t, cỏc bỏo cỏo v - quy trỡnh hch toỏn ca B Ti Chớnh Cỏc ngụn ng lp trỡnh: + Ngụn ng lp trỡnh hng cu trỳc: cho phộp din t mt thut gii d dng cng nh ỏp dng thut toỏn chia tr giỳp trỏnh li vit cỏc chng trỡnh ln, phc Phng phỏp ny hin ớt s dng VD: Pascal, C + Ngụn ng lp trỡnh hng i tng: l phng thc cao hn ca lp trỡnh, cho phộp úng gúi d liu v cỏc phng thc hot ng trờn chỳng, ng thi cỏch ly cỏc i tng vi Mi hn so vi lp trỡnh cu trỳc v c ỏp dng nhiu thc t VD: C++, C#, Java, Ada, NET, Hin ngụn ng ch yu c s dng l NET Cụng c to bỏo cỏo: Bỏo cỏo l mt ti liu cha cỏc thụng tin c a t chng trỡnh ng dng theo yờu cu ngi dựng Cỏc bỏo cỏo thng cha cỏc thụng tin kt xut t cỏc bng c s d liu v c hin th mỏy in hoc mn hỡnh, tựy theo yờu cu ca ngi s dng T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t ỏn tt nghip Cụng c to bỏo cỏo l cỏc cụng c c xõy dng sn quỏ trỡnh thit k phn mm Cỏc phn mm k toỏn hin bt buc phi xõy dng cỏc cụng c to bỏo cỏo vỡ tt c cỏc mu bỏo cỏo in v cú hiu lc phi tuõn theo mu quy nh ca B Ti Chớnh - c im: + Thụng qua cỏc giao din c h tr sn h thng giỳp ngi qun lớ d dng in n cỏc bỏo cỏo cn thit a giy + Bỏo cỏo c cu to bao gm nhiu dũng, nhiu ct nhng kh giy in cú gii hn nờn cỏc bỏo cỏo thng c thit k gm ớt ct v - nhiu dũng Mt s cụng c to bỏo cỏo + Crystal Report: õy l mt cụng c to bỏo cỏo c s dng ph bin hin nay, h tr hu ht cỏc ngụn ng lp trỡnh Crystal Report cú th thc hin vic to bỏo cỏo mt cỏch c lp hoc c tớch hp vo mt s ngụn ng lp trỡnh hin (.NET) Crystal Report h tr cỏc chc nng in n, kt xut sang cỏc nh dng khỏc nh Excel + Zoho Report: Nhiu doanh nghip mi cú th khụng cú kinh phớ ban u cú c tt c mi th h mun ln u tiờn bt u Zoho Report s giỳp bn tit kim tin v cú mt bỏo cỏo siờu chuyờn nghip + Element WordPro: Vi Element WordPro bn cú th to cỏc bỏo cỏo, th t, s yu lý lch, bn fax mt cỏch nhanh chúng v d dng Element WordPro h tr tt c nh dng ti liu hng u: PDF, DOC (MSWord), DOCX (MSWord 2007 +), v RTF (Rich Text Format) + H qun tr CSDL VFP h tr ngi lp trỡnh to bỏo cỏo theo hai cỏch: To bỏo cỏo bng Report Winzard: õy l cụng c h tr to bỏo cỏo khỏ thun li v nhanh chúng Cỏch thc thc hin n gin To bỏo cỏo bng report designer: Cụng c ny giỳp ngi lp trỡnh t thit k bỏo cỏo t u theo ý tng ca mỡnh, phự hp vi tng iu kin hon cnh T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t ỏn tt nghip 1.1.3 Quy trỡnh xõy dng phn mm k toỏn Quy trỡnh xõy dng phn mm l mt hp cỏc hnh ng phi c thc hin quỏ trỡnh xõy dng mt h thng phn mm Cỏc bc quy trỡnh xõy dng phn mm: - Bc 1: Phõn tớch v thit k Trong quỏ trỡnh xõy dng mt phn mm hng i tng, phõn tớch thit k h thng thụng tin úng mt vai trũ quan trng nht Cú PTTK mi giỳp xõy - dng phn mm c ti u Mi ngi cuc sng luụn gp phi cỏc cn gii quyt Vn cú th d m cng cú th phc tp, khú khn cú th gii quyt , chỳng ta cn tỡm cỏc li gii thớch hp nht nh mc tiờu mong mun da trờn kh nng cng nh hn ch ca chỳng ta Quỏ trỡnh ny cũn gi l quỏ - trỡnh phõn tớch Tng t nh trờn, quyt nh ỏp dng tin hc cho mt vic no ú, ta cn phi suy ngh tỡm cỏc phng ỏn thớch hp vi kh nng cng nh hn - ch ca chỳng ta iu ny cú ngha ta ang phõn tớch mt ỏp dng tin hc Phõn tớch mt ỏp dng tin hc l mt nghiờn cu gm: + Nghiờn cu m gii hn ca nú ó c xỏc nh + La chn cỏc li gii + V phỏt trin cỏc li gii da trờn c s ca cụng c x lý trờn mỏy tớnh in t - T tng ch o ca cỏc phng phỏp phõn tớch v thit k h thng l: S tru tng húa nhn bit c nhng h thng quỏ phc tp, phi loi b nhng c im ph nhn bit cho c cỏc c im chớnh H thng c nhn thc di hai mc: + Mc vt lý + Mc logic p dng phng thc bin i bng cỏch tr li: T Th Hng CQ47/41.01 Khoa h thng thụng tin kinh t ỏn tt nghip + mc vt lý - Mụ t thc trng h thng c: What: Cỏi gỡ? Lm gỡ? How: Lm nh th no?(Lm th no? Phng tin no? Cỏch lm no? Lỳc no? Ai lm? Lm gỡ?) + mc logic: Gt b nhng chi tit thy bn cht v ch cn tr li WHAT (1): Bc tru tng hoỏ (2): a nhng yờu cu mi ny sinh ca h thng (3): Giai on thit k Phõn tớch t trờn xung - i t tng quỏt n chi tit: - Dựng hp en: cỏi gỡ cha bit gi l hp en Vớ d: CL nh th no? Phõn cp: phõn cp cỏc chc nng phc thnh cỏc chc nng nh hn v c th tip tc S dng mụ hỡnh cụng c biu din cú tng cng hỡnh v: T Th Hng CQ47/41.01 10 Khoa h thng thụng tin kinh t T Th Hng CQ47/41.01 ỏn tt nghip 85 Khoa h thng thụng tin kinh t T Th Hng CQ47/41.01 ỏn tt nghip 86 Khoa h thng thụng tin kinh t T Th Hng CQ47/41.01 ỏn tt nghip 87 Khoa h thng thụng tin kinh t T Th Hng CQ47/41.01 ỏn tt nghip 88 Khoa h thng thụng tin kinh t T Th Hng CQ47/41.01 ỏn tt nghip 89 Khoa h thng thụng tin kinh t ỏn tt nghip KT LUN Tỏc ng mnh m ca Cụng ngh thụng tin ó to thay i mi lnh vc ca i sng kinh t v xó hi c bit i vi nn kinh t th trng, cnh tranh l quyt nh n s sng cũn ca mi doanh nghip thỡ ng dng tin hc vo cụng tỏc qun lớ tr thnh mt tt yu, ú h thng qun lớ Ban hang cụng ty Thng mai c phn l vụ cựng quan trng ti: Xõy dng phn mm qun ly Ban Hang tai cụng ty TM CP bia H Ni Hng Yờn 89 c thc hin da trờn nhu cu thc t vi mong mun gim bt vt v khú khn vic qun lý ban hang Trong iu kin nht nh, ti ó ỏp ng c mt s mc tiờu c bn cụng tỏc qun lý Ban Hang nh: Xõy dng hon chnh c s d liu v qun lý ban hang ti Cụng ty Xõy dng c mt s module c bn ca cụng tỏc qun lý ban hang ti Cụng ty Mt ln na em xin chõn thnh cm n cỏc cỏn b ca phũng k toỏn Cụng ty TM CP bia H Ni Hng Yờn 89, cỏc thy cụ giỏo khoa h thng thụng tin kinh t , c bit l thy giỏo Th.s V Bỏ Anh ó to iu kin em hon thnh ỏn H Ni , ngy thỏng nm 2013 Sinh viờn: T Th Hng T Th Hng CQ47/41.01 90 Khoa h thng thụng tin kinh t ỏn tt nghip PH LC Ph lc A: Mt s on Code c bn Form ng nhp S kin ng nhp: PUBLIC _quyen,_matkhau IF EMPTY(thisform.text1.Value).or.empty(thisform.text2.Value) MESSAGEBOX( "Bạn nhập đầy đủ thông tin !!!" ,0,"Chú ý") thisform.text1.Value='' thisform.text2.Value='' thisform.text1.setfocus ELSE LOCATE FOR ALLTRIM(username)== ALLTRIM(thisform.text1.Value) and ALLTRIM(pass)== ALLTRIM(thisform.text2.Value) IF FOUND() MESSAGEBOX("Chào bạn "+ ALLTRIM(thisform.text1.Value)+" !",0, "Welcome") thisform.Release IF ALLTRIM(quyen)=="Toàn quyền" _quyen=1 ELSE IF ALLTRIM(quyen)=="Quyền sửa" _quyen=2 ELSE _quyen=3 ENDIF ENDIF DO FORM "form/form_main" thisform.Release ELSE MESSAGEBOX("'Đăng nhập không thành công ! ",0,"Thông báo") thisform.text1.Value='' thisform.text2.Value='' ENDIF ENDIF S kin Thoỏt: k= MESSAGEBOX("Bạn có muốn thoát không? IF k=1 thisform.Release ENDIF ",1+32, "Thông báo") Form Dmhanghoa S kin nỳt Thờm SELECT mathang T Th Hng CQ47/41.01 91 Khoa h thng thụng tin kinh t ỏn tt nghip IF EMPTY(thisform.txt_tenmh.Value) OR EMPTY(thisform.txt_dongia.Value) or EMPTY(thisform.cbb_dvt.Value) =MESSAGEBOX('Bạn cha nhập đủ thông tin!!!',30) else x1=ALLTRIM(thisform.txt_mamh.Value) x2=ALLTRIM(thisform.txt_tenmh.Value) x3=thisform.txt_dongia.Value x4=ALLTRIM(thisform.cbb_dvt.Value) INSERT INTO mathang(mamh,tenmh,dongia,dvt) values(x1,x2,x3,x4) =MESSAGEBOX('Bạn thêm thành công',0) ENDIF thisform.xoa_text thisform.refresh thisform.txt_mamh.init S kin nỳt Sa SELECT mathang x1=ALLTRIM(thisform.txt_mamh.Value) x2=ALLTRIM(thisform.txt_tenmh.Value) x3=thisform.txt_dongia.Value x4=ALLTRIM(thisform.cbb_dvt.Value) UPDATE mathang SET tenmh=x2,dongia=x3,dvt=x4 WHERE mamh=x1 thisform.Refresh =MESSAGEBOX('Bạn cập nhật thành công',64+0) thisform.xoa_text thisform.hien_nut thisform.txt_mamh.init S kin nỳt Xúa SELECT mathang IF messagebox('Bạn có muốn xoá không',4+32) == SET DELETE ON DELETE PACK thisform.grid1.RecordSourceType= thisform.grid1.RecordSource="mathang" thisform.grid1.Column1.ControlSource="mamh" thisform.grid1.Column1.header1.fontname=".VnTime" thisform.grid1.Column1.header1.caption="Mã mặt hàng" thisform.grid1.Column1.width=100 thisform.grid1.Column2.ControlSource="tenmh" thisform.grid1.Column2.header1.fontname=".VnTime" thisform.grid1.Column2.header1.caption="Tên mặt hàng" thisform.grid1.Column2.width=200 thisform.grid1.Column3.ControlSource="dvt" thisform.grid1.Column3.header1.fontname=".VnTime" thisform.grid1.Column3.header1.caption="Đvt" thisform.grid1.Column3.width=90 thisform.grid1.Column4.ControlSource="dongia" T Th Hng CQ47/41.01 92 Khoa h thng thụng tin kinh t ỏn tt nghip thisform.grid1.Column4.header1.fontname=".VnTime" thisform.grid1.Column4.header1.caption="Đơn giá" thisform.grid1.Column4.width=150 ENDIF thisform.Refresh thisform.grid1.Refresh thisform.hien_nut thisform.xoa_text thisform.txt_mamh.init Form Phiu nhp xut S kin nỳt Thờm SELECT phieunhapxuat x1=alltrim(thisform.cbb_loaiphieu.Value) x2=thisform.txt_ngayphieu.Value x3=alltrim(thisform.cbb_kh.Value) x4=ALLTRIM(thisform.cbb_nhanvien.Value) x5=ALLTRIM(thisform.txt_makho.Value) x6=ALLTRIM(thisform.txt_tkno.Value) x7=ALLTRIM(thisform.txt_tkco.Value) x8=ALLTRIM(thisform.txt_sophieu.Value) x9=ALLTRIM(thisform.txt_lydo.Value) x10=thisform.txt_tongtien.Value IF EMPTY(x8) or EMPTY(x1) or EMPTY(x2).or EMPTY(x2).or EMPTY(x3).or EMPTY(x4).or EMPTY(x5); or EMPTY(x6).or EMPTY(x7).or EMPTY(x8).or EMPTY(x10) =MESSAGEBOX("Cha nhập đủ thông tin!",0+16) ELSE INSERT INTO phieunhapxuat(sophieunx,loaiphieu,ngayphieu,makh,manv,makho,tkco,tkno,lyd o,tongtien) VALUES (x8,x1,x2,x3,x4,x5,x6,x7,x9,x10) SELECT bangtg GO top DO WHILE !EOF() SELECT ctphieunhapxuat INSERT INTO ctphieunhapxuat(sophieunx,mamh,soluong,thanhtien) VALUES (x8,bangtg.mamh,bangtg.sl,bangtg.thanhtien) SELECT BANGTG SKIP ENDDO =MESSAGEBOX("Thêm thành công!",0+64) thisform.Refresh THISFORM.Pageframe1.Page2.grd_ct.Refresh THISFORM.Pageframe1.Page1.grd_ttc.Refresh ENDIF thisform.xoa_text thisform.txt_sophieu.Init thisform.txt_sophieu.SetFocus() T Th Hng CQ47/41.01 93 Khoa h thng thụng tin kinh t ỏn tt nghip thisform.txt_loaiphieu.Visible=.F thisform.cbb_loaiphieu.Visible= T SELECT bangtg DELETE ALL PACK thisform.grid_mh.RecordSourceType= thisform.grid_mh.RecordSource='bangtg' thisform.grid_mh.column1.ControlSource="Mamh" thisform.grid_mh.column1.header1.FontName=".VnTime" thisform.grid_mh.column1.header1.caption="Mã mặt hàng" thisform.grid_mh.column1.Width=100 thisform.grid_mh.column2.ControlSource="tenmh" thisform.grid_mh.column2.header1.FontName=".VnTime" thisform.grid_mh.column2.header1.caption="Tên mặt hàng" thisform.grid_mh.column2.Width=100 thisform.grid_mh.column3.ControlSource="dvt" thisform.grid_mh.column3.header1.FontName=".VnTime" thisform.grid_mh.column3.header1.caption="Đvt" thisform.grid_mh.column3.Width=100 thisform.grid_mh.column4.ControlSource="sl" thisform.grid_mh.column4.header1.FontName=".VnTime" thisform.grid_mh.column4.header1.caption="Số lợng" thisform.grid_mh.column4.Width=100 thisform.grid_mh.column5.ControlSource="dg" thisform.grid_mh.column5.header1.FontName=".VnTime" thisform.grid_mh.column5.header1.caption="Đơn giá" thisform.grid_mh.column5.Width=100 thisform.grid_mh.column6.ControlSource="thanhtien" thisform.grid_mh.column6.header1.FontName=".VnTime" thisform.grid_mh.column6.header1.caption="Thành tiền" thisform.grid_mh.column6.Width=100 S kin nỳt In SELECT SELECT SELECT SELECT mathang khachhang phieunhapxuat ctphieunhapxuat SELECT * FROM phieunhapxuat; inner join khachhang ON phieunhapxuat.makh=khachhang.makh; inner JOIN ctphieunhapxuat ON phieunhapxuat.sophieunx=ctphieunhapxuat.sophieunx; inner JOIN mathang ON ctphieunhapxuat.mamh=mathang.mamh; where phieunhapxuat.sophieunx=thisform.txt_sophieu.value; into CURSOR T SET PROCEDURE TO prg\doichu mchar=vnd(1500) ?mchar font [vni-times],12 PUBLIC a SELECT T a=vnd(T.tongtien) REPORT FORM report\rp_phieunx preview thisform.Release T Th Hng CQ47/41.01 94 Khoa h thng thụng tin kinh t ỏn tt nghip S kin nỳt Sa SELECT phieunhapxuat x1=alltrim(thisform.txt_loaiphieu.Value) x2=thisform.txt_ngayphieu.Value x3=alltrim(thisform.cbb_kh.Value) x4=ALLTRIM(thisform.cbb_nhanvien.Value) x5=ALLTRIM(thisform.txt_makho.Value) x6=ALLTRIM(thisform.txt_tkno.Value) x7=ALLTRIM(thisform.txt_tkco.Value) x8=ALLTRIM(thisform.txt_sophieu.Value) x9=ALLTRIM(thisform.txt_lydo.Value) x10=thisform.txt_tongtien.Value x11=ALLTRIM(thisform.txt_ctgkt.value) x12=ALLTRIM(thisform.cbb_mamh.Value) x13=thisform.txt_soluong.Value x14=thisform.txt_thanhtien.Value UPDATE phieunhapxuat SET loaiphieu=x1,ngayphieu=x2,makh=x3,manv=x4,makho=x5,tkno=x6,tkco=x7,lydo=x 9,tongtien=x10,ctgkt=x11 where sophieunx=x8 thisform.Refresh =MESSAGEBOX('Bạn cập nhật thành công',0+64) thisform.xoa_text thisform.txt_sophieu.Init thisform.txt_sophieu.SetFocus() thisform.txt_loaiphieu.Visible=.F thisform.cbb_loaiphieu.Visible= T SELECT bangtg DELETE ALL PACK thisform.grid_mh.RecordSourceType= thisform.grid_mh.RecordSource='bangtg' thisform.grid_mh.column1.ControlSource="Mamh" thisform.grid_mh.column1.header1.FontName=".VnTime" thisform.grid_mh.column1.header1.caption="Mã mặt hàng" thisform.grid_mh.column1.Width=100 thisform.grid_mh.column2.ControlSource="tenmh" thisform.grid_mh.column2.header1.FontName=".VnTime" thisform.grid_mh.column2.header1.caption="Tên mặt hàng" thisform.grid_mh.column2.Width=100 thisform.grid_mh.column3.ControlSource="dvt" thisform.grid_mh.column3.header1.FontName=".VnTime" thisform.grid_mh.column3.header1.caption="Đvt" thisform.grid_mh.column3.Width=100 thisform.grid_mh.column4.ControlSource="sl" thisform.grid_mh.column4.header1.FontName=".VnTime" thisform.grid_mh.column4.header1.caption="Số lợng" thisform.grid_mh.column4.Width=100 thisform.grid_mh.column5.ControlSource="dg" T Th Hng CQ47/41.01 95 Khoa h thng thụng tin kinh t ỏn tt nghip thisform.grid_mh.column5.header1.FontName=".VnTime" thisform.grid_mh.column5.header1.caption="Đơn giá" thisform.grid_mh.column5.Width=100 thisform.grid_mh.column6.ControlSource="thanhtien" thisform.grid_mh.column6.header1.FontName=".VnTime" thisform.grid_mh.column6.header1.caption="Thành tiền" thisform.grid_mh.column6.Width=100 S kin nỳt Xúa SET DELETED ON SELECT phieunhapxuat PACK SELECT ctphieunhapxuat PACK IF MESSAGEBOX("Bạn có muốn xóa không???",4+32,"Thông báo")==6 DELETE FROM ctphieunhapxuat WHERE ctphieunhapxuat.sophieunx=thisform.txt_sophieu.Value DELETE FROM phieunhapxuat WHERE sophieunx=thisform.txt_sophieu.Value MESSAGEBOX("Xóa liệu thành công!",0+64,"Thông báo") ENDIF Thisform.Pageframe1.page1.grd_ttc.recordsourcetype = Thisform.Pageframe1.page1.grd_ttc.recordsource = "phieunhapxuat" thisform.Pageframe1.page1.grd_ttc.column1.header1.FontName=".VnTime" thisform.Pageframe1.page1.grd_ttc.column1.header1.caption=" Số hoá đơn" thisform.Pageframe1.page1.grd_ttc.column1.controlsource=" phieunhapxuat.sophieunx" thisform.Pageframe1.page1.grd_ttc.column1.Width=90 thisform.Pageframe1.page1.grd_ttc.column2.header1.fontname=".VnTime" thisform.Pageframe1.page1.grd_ttc.column2.header1.caption=" Ngày phiếu" thisform.Pageframe1.page1.grd_ttc.column2.controlsource=" phieunhapxuat.ngayphieu" thisform.Pageframe1.page1.grd_ttc.column2.Width=90 thisform.Pageframe1.page1.grd_ttc.column3.header1.fontname=".VnTime" thisform.Pageframe1.page1.grd_ttc.column3.header1.caption="Mã KH" thisform.Pageframe1.page1.grd_ttc.column3.controlsource=" phieunhapxuat.makh" thisform.Pageframe1.page1.grd_ttc.column3.Width=80 thisform.Pageframe1.page1.grd_ttc.column4.header1.fontname=".VnTime" thisform.Pageframe1.page1.grd_ttc.column4.header1.caption="Mã kho" thisform.Pageframe1.page1.grd_ttc.column4.controlsource=" phieunhapxuat.makho" thisform.Pageframe1.page1.grd_ttc.column4.Width=70 thisform.Pageframe1.page1.grd_ttc.column5.header1.fontname=".VnTime" thisform.Pageframe1.page1.grd_ttc.column5.header1.caption="Mã NV" thisform.Pageframe1.page1.grd_ttc.column5.controlsource=" phieunhapxuat.manv" thisform.Pageframe1.page1.grd_ttc.column5.Width=70 T Th Hng CQ47/41.01 96 Khoa h thng thụng tin kinh t ỏn tt nghip thisform.Pageframe1.page1.grd_ttc.column6.header1.fontname=".VnTime" thisform.Pageframe1.page1.grd_ttc.column6.header1.caption="Tổng tiền" thisform.Pageframe1.page1.grd_ttc.column6.controlsource=" phieunhapxuat.tongtien" thisform.Pageframe1.page1.grd_ttc.column6.Width=100 ******************* Ph lc B: Cỏc mu chng t v bỏo cỏo s dng T Th Hng CQ47/41.01 97 Khoa h thng thụng tin kinh t ỏn tt nghip NHN XẫT CA GING VIấN HNG DN H tờn ngi nhn xột: Nhn xột ỏn (chuyờn ) thc Sinh viờn: T Th Hng Lp: Khúa: ti: Xõy dng phn mm qun lý bỏn hng ti Cụng ty c phn thng mi bia H Ni Hng Yờn 89 im: - Bng s: - Bng ch: H Ni, ngy thỏng .nm Ngi nhn xột T Th Hng CQ47/41.01 98 Khoa h thng thụng tin kinh t ỏn tt nghip TI LIU THAM KHO [1] Ths V Bỏ Anh Giỏo trỡnh C s d liu (hc phn 2), 2006 [2] - Nguyn Vn Ba Phõn tớch v thit k h thng thụng tin Nh xut bn i hc Quc Gia H Ni, 2006 [3] - Nguyn Vn V - Phõn tớch thit k h thng thụng tin qun lý Nh xut bn khoa hc t nhiờn v cụng ngh H Ni , 2007 [4] - PGS.TS Ngụ Th Chi TS Trng Th Thu - Giỏo trỡnh k toỏn Ti chớnh - Hc vin ti chớnh Nh xut bn Ti chớnh H Ni , 2007 [5] PGS.TS Ngụ Th Chi TS Trng Th Thu - Giỏo trỡnh k toỏn doanh nghip - Hc vin ti chớnh Nh xut bn thng kờ H Ni, 2006 [6] Mt s ti liu ca Cụng Ty TNHH TM & XNK Quục Bao [7] K toỏn doanh nghip vi Visual Foxpro Nh xut bn Thng Kờ [8] Ch k toỏn doanh nghip ban hnh theo quyt nh s 15/2006/QBTC ngy 20 thỏng 03 nm 2006 ca B trng B Ti chớnh T Th Hng CQ47/41.01 99 [...]... thuần được kế toán ghi: Nợ TK 511 - Doanh thu bán hàng Có TK 911 - Xác định kế quả kinh doanh Tạ Thị Hương CQ47/41.01 31 Khoa hệ thống thông tin kinh tế Đồ án tốt nghiệp CHƯƠNG II: KHẢO SÁT, ĐÁNH GIÁ THỰC TRẠNG VÀ GIẢI PHÁP PHÂN TÍCH HTTT KẾ TOÁN BÁN HÀNG TẠI CÔNG TY CỔ PHẦN THƯƠNG MẠI BIA HÀ NỘI – HƯNG YÊN 89 2.1 Giới thiệu khái quát về Công ty cổ phần thương mại bia Hà Nội – Hưng Yên 89 2.1.1 Giới... về công ty cổ phần thương mại bia HN – Hưng Yên 89 Công ty cổ phần thương mại bia Hà Nội – Hưng Yên 89 là Công ty cổ phần được thành lập theo giấy chứng nhận đăng ký kinh doanh số 0503000221 ngày 14/05/2007, giấy chứng nhận được đăng ký kinh doanh và đăng ký thuế mới số 0900270055 do Sở Kế Hoạch và Đầu Tư tỉnh Hưng Yên cấp, giấy chứng nhận đăng ký kinh doanh thay đổi lần 4 ngày 25/05/2010 Tên công ty. .. dịch bán hàng e Xác định được chi phí liên quan đến giao dịch bán hàng Doanh thu bán hàng bao gồm: Doanh thu bán hàng ra ngoài và doanh thu bán hàng nội bộ Các khoản trừ doanh thu bán hàng và cung cấp dịch vụ bao gồm: - Chiết khấu thương mại: là các khoản doanh nghiệp bán giảm giá niêm iết cho khách hàng mua hàng với khối lượng lớn - Hàng bán bị trả lại: là giá trị khối lượng hàng bán đã xác định là bán. .. của doanh nghiệp Một kế toán bán hàng giỏi là người xây dựng và quản lý hệ thống thông tin bán hàng Kế toán bán hàng không đơn thuần là người ghi chép mà trở thành người giúp các nhà quản lý ra quyết định Như vậy, kế toán bán hàng có thể cung cấp bất kỳ thông tin nào nhà quản lý yêu cầu Nhiệm vụ của kế toán bán hàng - Ghi chép phản ánh kịp thời đầy đủ và chính xác tình hình bán hàng của doanh nghiệp... - Kế toán doanh thu bán hàng theo phương thức hàng đổi hành Phương thức hàng đổi hàng là phương thức bán hàng doanh nghiệp đem sản phẩm, vật tư, hàng hoá để đổi lấy hàng hoá khác không tương tự giá trao đổi là giá hiện hành của hàng hoá , vật tư tương ứng trên thị trường Nhiệm vụ của kế toán bán hàng Để phục vụ quản lý chặt chẽ thành phẩm, thúc đẩy hoạt động kinh doanh và các hoạt động khác kế toán. .. Ngoài ra kế toán còn sử dụng một số Nhật ký-Chứng từ, bảng kê có liên quan như: Nhật ký chứng từ số 1, 2 và số 10 1.2.6 Các báo cáo liên quan đến Kế toán bán hàng Các loại báo cáo thường sử dụng trong kế toán doanh thu bán hàng là : - Báo cáo doanh thu bán hàng Báo cáo các khoản giảm trừ doanh thu Báo cáo hàng bán bị trả lại 1.2.7 Quy trình hạch toán Kế toán bán hàng Kế toán doanh thu bán hàng và... chính Hình thức kế toán trên máy vi tính Đặc trưng cơ bản của Hình thức kế toán trên máy vi tính là công việc kế toán được thực hiện theo một chương trình phần mềm kế toán trên máy vi tính Phần mềm kế toán được thiết kế theo nguyên tắc của một trong bốn hình thức kế toán hoặc kết hợp các hình thức kế toán quy định trên đây Phần mềm kế toán không hiển thị đầy đủ quy trình ghi sổ kế toán, nhưng phải in... luân chuyển chứng từ Bộ phận bán hàng : - Giao dịch, đàm phán trực tiếp với khách hàng về các điều kiện bán hàng, - thanh toán, giảm giá hàng bán, Nhận các đơn đặt hàng của khách hàng, lập Hóa đơn bán hàng Lưu hóa đơn theo tên, mã khách hàng Bộ phận kế toán công nợ Trong hoạt động bán chịu, kiểm tra và chấp thuận điều kiện bán chịu, điều - kiện thanh toán cho khách hàng Trong xử lý xóa nợ phải thu,... Đồ án tốt nghiệp Kế toán doanh thu bán hàng Trường hợp 1: Xuất hàng giao bán cho khách hàng, doanh nghiệp thu tiền ngay hoặc khách hàng chấp nhận trả tiền - Đối với hàng hoá, thành phẩm thuộc đối tượng chịu thuế GTGT theo phương pháp khấu trừ thuế, kế toán phản ánh như sau: + Căn cứ giá vốn hàng xuất kho, kế toán ghi: Nợ TK 632 - Giá vốn hàng bán Có TK 155 - Thành phẩm, TK 156 - hàng hoá Hoặc có TK... và số lương hàng bán trên từng mặt hàng, từng địa điểm bán hàng, từng phương thức bán hàng Tạ Thị Hương CQ47/41.01 15 Khoa hệ thống thông tin kinh tế - Đồ án tốt nghiệp Tính toán và phản ánh chính xác tổng giá tính toán của hàng bán ra bao gồm cả doanh thu bán hàng, thuế giá trị gia tăng đầu ra của từng nhóm hàng, từng hoá - đơn khách hàng, từng đơn vị trực thuộc( theo các của hàng, quầy hàng ) Xác