书店销售管理系统源代码

1、书店销售管理系统 delphi 源代码program book_manager;usesforms,uni_main in uni_main.pas frm_main,uni_out in uni_out.pas frm_out,uni_dm in uni_dm.pas dm: tdatamodule,uni_in in uni_in.pas frm_in,uni_book in uni_book.pas frm_book;$r *.resbeginapplication.initialize;application.createform(tfrm_main, frm_main);applic

2、ation.run;end.unit uni_main;interfaceuseswindows, messages, sysutils, variants, classes, graphics, controls, forms,dialogs, menus, comctrls, toolwin, imglist;typetfrm_main = class(tform)mainmenu1: tmainmenu;n1: tmenuitem;n2: tmenuitem;n3: tmenuitem;n4: tmenuitem;n5: tmenuitem;n6: tmenuitem;n7: tmenu

3、item;n8: tmenuitem;n9: tmenuitem;n10: tmenuitem;toolbar1: ttoolbar;toolbutton1: ttoolbutton;toolbutton2: ttoolbutton;toolbutton3: ttoolbutton;toolbutton4: ttoolbutton;toolbutton5: ttoolbutton;imagelist1: timagelist;toolbutton6: ttoolbutton;toolbutton7: ttoolbutton;procedure n2click(sender: tobject);

4、procedure formcreate(sender: tobject);procedure n3click(sender: tobject);procedure n4click(sender: tobject);procedure toolbutton1click(sender: tobject);procedure toolbutton2click(sender: tobject);procedure toolbutton3click(sender: tobject);procedure n6click(sender: tobject);procedure toolbutton4clic

5、k(sender: tobject);procedure n7click(sender: tobject);procedure toolbutton5click(sender: tobject);procedure n9click(sender: tobject);procedure n10click(sender: tobject);procedure toolbutton6click(sender: tobject);procedure toolbutton7click(sender: tobject); private private declarations public public

6、 declarations end;varfrm_main: tfrm_main;implementationuses uni_out,uni_dm, uni_in, uni_book;$r *.dfmprocedure tfrm_main.n2click(sender: tobject);vari:integer;beginfor i:=0 to frm_main.mdichildcount-1 dobeginif frm_main.mdichildreni=frm_out thenbeginfrm_out.pagecontrol1.activepageindex:=0;exit;end;e

7、nd;application.createform(tfrm_out,frm_out);frm_out.pagecontrol1.activepageindex:=0;end;procedure tfrm_main.formcreate(sender: tobject);beginapplication.createform(tdm,dm);end;procedure tfrm_main.n3click(sender: tobject);var i:integer;beginfor i:=0 to frm_main.mdichildcount-1 dobeginif frm_main.mdic

8、hildreni=frm_out thenbeginfrm_out.pagecontrol1.activepageindex:=1;exit;end;end;application.createform(tfrm_out,frm_out);frm_out.pagecontrol1.activepageindex:=1;end;procedure tfrm_main.n4click(sender: tobject);var i:integer;beginfor i:=0 to frm_main.mdichildcount-1 dobeginif frm_main.mdichildreni=frm

9、_out thenbeginfrm_out.pagecontrol1.activepageindex:=2;exit;end;end;application.createform(tfrm_out,frm_out);frm_out.pagecontrol1.activepageindex:=2;end;procedure tfrm_main.toolbutton1click(sender: tobject); beginn2click(sender);end;procedure tfrm_main.toolbutton2click(sender: tobject); beginn3click(

10、sender);end;procedure tfrm_main.toolbutton3click(sender: tobject); beginn4click(sender);end;procedure tfrm_main.n6click(sender: tobject);var i:integer;beginfor i:=0 to frm_main.mdichildcount-1 dobeginif frm_main.mdichildreni=frm_in thenbeginfrm_in.pagecontrol1.activepageindex:=0;exit;end;end;applica

11、tion.createform(tfrm_in,frm_in);frm_in.pagecontrol1.activepageindex:=0;end;procedure tfrm_main.toolbutton4click(sender: tobject); beginn6click(sender);end;procedure tfrm_main.n7click(sender: tobject);var i:integer;beginfor i:=0 to frm_main.mdichildcount-1 dobeginif frm_main.mdichildreni=frm_in thenb

12、eginfrm_in.pagecontrol1.activepageindex:=1;exit;end;end;application.createform(tfrm_in,frm_in);frm_in.pagecontrol1.activepageindex:=1;end;procedure tfrm_main.toolbutton5click(sender: tobject);beginn7click(sender);end;procedure tfrm_main.n9click(sender: tobject);var i:integer;beginfor i:=0 to frm_mai

13、n.mdichildcount-1 dobeginif frm_main.mdichildreni=frm_book thenbeginfrm_book.pagecontrol1.activepageindex:=0;exit;end;end;application.createform(tfrm_book,frm_book);frm_book.pagecontrol1.activepageindex:=0;end;procedure tfrm_main.n10click(sender: tobject);var i:integer;beginfor i:=0 to frm_main.mdic

14、hildcount-1 dobeginif frm_main.mdichildreni=frm_book thenbeginfrm_book.pagecontrol1.activepageindex:=1;exit;end;end;application.createform(tfrm_book,frm_book);frm_book.pagecontrol1.activepageindex:=1;end;procedure tfrm_main.toolbutton6click(sender: tobject); beginn9click(sender);end;procedure tfrm_m

15、ain.toolbutton7click(sender: tobject);beginn10click(sender);end;end.unit uni_out;interfaceuseswindows, messages, sysutils, variants, classes, graphics, controls, forms,dialogs, comctrls, db, adodb, grids, dbgrids, stdctrls, extctrls;typetfrm_out = class(tform)pagecontrol1: tpagecontrol;tabsheet1: tt

16、absheet;cb_id: tcombobox;label1: tlabel;label2: tlabel;edt_name: tedit;label3: tlabel;edt_price: tedit;label4: tlabel;edt_num: tedit;label5: tlabel;edt_publisher: tedit;label6: tlabel;edt_writer: tedit;label7: tlabel;edt_date: tedit;dbgrid1: tdbgrid;label8: tlabel;ds_out: tdatasource;btn_ok: tbutton

17、;qy_book:tadoquery;qy_out: tadoquery;panel1: tpanel;tabsheet2: ttabsheet;edt_year: tedit;label9: tlabel;qy_outbookid: twidestringfield;qy_outbookname: twidestringfield;qy_outdate: twidestringfield;qy_outnum: tintegerfield;qy_outprice: tbcdfield;qy_outtotal: tcurrencyfield;label10: tlabel;edt_month:

18、tedit;label11: tlabel;edt_day: tedit;label12: tlabel;btn_date: tbutton;qy_day: tadoquery;ds_day: tdatasource;dbgrid2: tdbgrid;lbl_caption: tlabel;btn_day: tbutton;qy_create: tadoquery;tabsheet3: ttabsheet;label13: tlabel;edt_year1: tedit;cb_month: tcombobox;label14: tlabel;qy_month: tadoquery;ds_mon

19、th: tdatasource;grid_month: tdbgrid;btn_month: tbutton;qy_view: tadoquery;ds_view: tdatasource;grid_view: tdbgrid;lbl_month: tlabel;qy_daybookid: twidestringfield;qy_daybookname: twidestringfield;qy_daydate: twidestringfield;qy_daynum: tintegerfield;qy_dayprice: tbcdfield;qy_viewbookid: twidestringf

20、ield;qy_viewbookname: twidestringfield;qy_viewnum: tintegerfield;qy_viewaveprice: tbcdfield;qy_viewtotal: tbcdfield;qy_monthbookid: twidestringfield;qy_monthbookname: twidestringfield;qy_monthdate: twidestringfield;qy_monthnum: tintegerfield;qy_monthprice: tbcdfield;procedure formclose(sender: tobje

21、ct; var action: tcloseaction);procedure formcreate(sender: tobject);procedure cb_idchange(sender: tobject);procedure btn_okclick(sender: tobject);procedure qy_outcalcfields(dataset: tdataset);procedure btn_dateclick(sender: tobject);procedure btn_dayclick(sender: tobject);procedure cb_monthchange(se

22、nder: tobject);procedure btn_monthclick(sender: tobject);private private declarations public public declarations end;varfrm_out: tfrm_out;today,daystr,month:string;booknum:integer;implementationuses uni_dm;$r *.dfmprocedure tfrm_out.formclose(sender: tobject; var action: tcloseaction); beginaction:=

23、cafree;end;procedure tfrm_out.formcreate(sender: tobject);begintoday:=formatdatetime(yyyy-m-d,now);with qy_book dobeginclose;sql.clear;sql.add(select id from book);tryopen;first;while not eof dobegincb_id.items.add(fieldbyname(id).asstring);next;end;finallyclose;end;end;with qy_out dobeginclose;sql.

24、clear;sql.add(select * from bookout where date=+quotedstr(today);tryopen;exceptshowmessage( ?哈 e y?a3?!);exit;end;end;end;procedure tfrm_out.cb_idchange(sender: tobject);beginif cb_id.text= then exit;with qy_book dobeginclose;sql.clear;sql.add(select * from book where id=+quotedstr(cb_id.text);tryex

25、ecsql;open;first;edt_name.text:=fieldbyname(name).asstring;edt_writer.text:=fieldbyname(writer).asstring;edt_price.text:=floattostr(fieldbyname(price).asfloat*fieldbyname(discount).asfloat);edt_publisher.text:=fieldbyname(publisher).asstring;edt_date.text:=fieldbyname(publishdate).asstring;booknum:=

26、fieldbyname(num).asinteger;exceptshowmessage( ?哈 e y?a3? f?;close;end;end;btn_ok.enabled:=true;end;procedure tfrm_out.btn_okclick(sender: tobject);varnum:integer;numout:integer;begintrynumout:=strtoint(edt_num.text);exceptshowmessage(? y e e- ? e ? e y)； ?exit;end;if numoutbooknum thenbeginshowmessa

27、ge(? e e 2a ? 6 ；?+inttostr(booknum)+,?a ?2?x?学;？exit;end;with qy_out dobeginclose;sql.clear;sql.add(select * from bookout where bookid=+quotedstr(cb_id.text);sql.add( and date=+quotedstr(today);tryopen;if recordcount0 then/ e ? 1 b?-6d ? e e jiu ?,? o ti? e yabeginnum:=numout+fieldbyname(num).asint

28、eger;close;sql.clear;sql.add(update bookout set num=+inttostr(num)+ where bookid=);sql.add(quotedstr(cb_id.text)+ and date=+quotedstr(today);execsql;endelse beginclose;/ e ?1? od,? o o? ?d? ?sql.clear;sql.add(select * from bookout);open;append;fieldbyname(bookid).asstring:=cb_id.text;fieldbyname(boo

29、kname).asstring:=edt_name.text;fieldbyname(date).asstring:=today;fieldbyname(num).asinteger:=strtoint(edt_num.text);fieldbyname(price).ascurrency:=strtofloat(edt_price.text); post;end;sql.clear; /? ?d? e? ipi ? e?sql.add(select * from bookout where date=+quotedstr(today); open;exceptshowmessage( ?e

30、e y?a3?!);exit;end;end;showmessage(? ? 6x 叠|1?;btn_ok.enabled:=false;edt_name.text:=;edt_writer.text:=;edt_publisher.text:=;edt_date.text:=;edt_price.text:=;with qy_book dobeginclose;sql.clear;sql.add(select * from book where id=+quotedstr(cb_id.text);tryopen;edit;fieldbyname(num).asinteger:=booknum

31、-strtoint(edt_num.text); post;finallyclose;end;end;end;procedure tfrm_out.qy_outcalcfields(dataset: tdataset);beginqy_outtotal.value:=qy_outprice.value*qy_outnum.value;end;procedure tfrm_out.btn_dateclick(sender: tobject);varday:tdatetime;begindaystr:=edt_year.text+-+edt_month.text+-+edt_day.text;tr

32、yday:=strtodatetime(daystr);if day=now thenbeginshowmessage( ? ? 口3?;exit;end;exceptshowmessage(? 6 ?y 包？ ？ 6? )?exit;end;with qy_day dobeginclose;sql.clear;sql.add(select * from bookout where date=+quotedstr(daystr);tryopen;exceptshowmessage( ? e e y?a3? f?;exit;end;end;lbl_caption.caption:=edt_yea

33、r.text+?e +edt_mo?+edt_xlay?text+ 6?+?u e?e ? a t ibtn_day.enabled:=true;end;procedure tfrm_out.btn_dayclick(sender: tobject);vartablename:string;begintablename:=formatdatetime(yyyymmdd,strtodatetime(daystr);with qy_create dobeginclose;sql.clear;sql.add(select bookid,bookname,num,price into +tablena

34、me+ from bookout);sql.add( where date=+quotedstr(daystr);tryexecsql;exceptshowmessage( 让？? e?e ? =ya?-? ? u )?exit;end;end;showmessage(3e |1? 一？ 6?口 6后？；btn_day.enabled:=false;end；procedure tfrm_out.cb_monthchange(sender: tobject)；vary,m:string；beginy:=formatdatetime(yyyy,now)；m:=formatdatetime(m,no

35、w)；tryif (strtoint(edt_year1.text)strtoint(y)or(strtoint(edt_year1.text)=strtoint(y)and (strtoint(cb_month.text)=strtoint(m) thenbeginshowmessage( ? ? 口3?;exit；end；exceptshowmessage(? e ?y 包？ ？?？ y?;exit；end;month:=edt_year1.text+-+cb_month.text;with qy_month dobeginclose;sql.clear;sql.text:=select

36、* from bookout where date like ;sql.text:=sql.text+quotedstr(month+-%)+ order by bookid;tryopen;grid_month.visible:=true; grid_view.visible:=false;exceptshowmessage( ?哈 e y?a3? f?;close;exit;end;end;btn_month.enabled:=true;lbl_month.caption:=edt_yea1text+?e +cb_mon?.tex?+? 1end;procedure tfrm_out.bt

37、n_monthclick(sender: tobject); varid,bookname:string;num:integer;total,aveprice:currency;tablename:string;begintablename:=edt_year1.text+cb_month.text;with qy_create dobegin close; sql.clear; sql.add(select * into +tablename+ from monthout); tryexecsql;exceptshowmessage(? ?科？3? ? 士(5?-? ? u);qy_view

38、.close;qy_view.sql.clear;qy_view.sql.add(select * from +tablename);qy_view.open;grid_month.visible:=false;grid_view.visible:=true;lbl_month.caption:=edt_year1.text+?e +cb_mon?.itex?+?i? ;iexit; end; sql.clear; sql.add(select * from +tablename);tryopen;append;qy_month.first;id:=qy_month.fieldbyname(b

39、ookid).asstring;bookname:=qy_month.fieldbyname(bookname).asstring;num:=0;total:=0;while not qy_month.eof dobeginif id=qy_month.fieldbyname(bookid).asstring thenbeginnum:=num+qy_month.fieldbyname(num).asinteger;total:=total+qy_month.fieldbyname(price).ascurrency*qy_month.fieldbyname(num).asinteger ;e

40、ndelse beginaveprice:=total/num;fieldbyname(bookid).asstring:=id;fieldbyname(bookname).asstring:=bookname;fieldbyname(aveprice).ascurrency:=aveprice;fieldbyname(num).asinteger:=num;fieldbyname(total).ascurrency:=total;post;append;id:=qy_month.fieldbyname(bookid).asstring;bookname:=qy_month.fieldbyna

41、me(bookname).asstring;num:=qy_month.fieldbyname(num).asinteger;total:=qy_month.fieldbyname(num).asinteger*qy_month.fieldbyname(price).ascurrency;end;qy_month.next;end;aveprice:=total/num;fieldvaluesbookid:=id;fieldvaluesbookname:=bookname;fieldvaluesaveprice:=aveprice;fieldvaluesnum:=num;fieldvalues

42、total:=total;post;updatebatch;exceptshowmessage( ? 3? ? 3?丞？；exit;end;end;showmessage(3e|1? 一？w？? 6 航？ 士后？；qy_create.close;qy_view.close;qy_view.sql.clear;qy_view.sql.add(select * from +tablename);qy_view.open;grid_month.visible:=false;grid_view.visible:=true;lbl_month.caption:=edt_yea1text+?e +cb_m

43、on?.tex?+? ; 1btn_month.enabled:=false;end;end.unit uni_dm;interfaceusessysutils, classes, db, adodb;typetdm = class(tdatamodule)adoconnection1: tadoconnection;private private declarations public public declarations end;vardm: tdm;implementation$r *.dfmend.unit uni_in;interface useswindows, messages

44、, sysutils, variants, classes, graphics, controls, forms, dialogs, extctrls, db, adodb, comctrls, stdctrls, grids, dbgrids;typetfrm_in = class(tform)panel1: tpanel;pagecontrol1: tpagecontrol;tabsheet1: ttabsheet;tabsheet2: ttabsheet;qy_in: tadoquery;ds_in: tdatasource;label1: tlabel;cb_bookid: tcomb

45、obox;qy_book: tadoquery;label2: tlabel;edt_pricein: tedit;edt_num: tedit;label3: tlabel;label4: tlabel;edt_bookname: tedit;label5: tlabel;edt_writer: tedit;label6: tlabel;edt_publisher: tedit;label7: tlabel;edt_price: tedit;btn_import: tbutton;label9: tlabel;edt_pubdate: tedit;dbgrid1: tdbgrid;qy_in

46、bookid: twidestringfield;qy_indate: twidestringfield;qy_innum: tintegerfield;qy_inprice: tbcdfield;label8: tlabel;label10: tlabel;edt_year: tedit;label11: tlabel;edt_month: tedit;label12: tlabel;edt_ok: tbutton;data_month: tadodataset;ds_month: tdatasource;dbgrid2: tdbgrid;label13: tlabel;cb_bookid1

47、: tcombobox;data_monthbookid: twidestringfield;data_monthdate: twidestringfield;data_monthnum: tintegerfield;data_monthprice: tbcdfield;data_monthbookname: tstringfield;procedure formcreate(sender: tobject);procedure cb_bookidchange(sender: tobject);procedure btn_importclick(sender: tobject);procedu

48、re formclose(sender: tobject; var action: tcloseaction);procedure edt_okclick(sender: tobject);procedure cb_bookid1change(sender: tobject);private private declarations public public declarations end;varfrm_in: tfrm_in;today,month:string;booknum:integer;bookexist:boolean;implementationuses uni_dm;$r

49、*.dfmprocedure tfrm_in.formcreate(sender: tobject);begintoday:=formatdatetime(yyyy-m-d,now);with qy_book dobeginclose;sql.clear;sql.add(select id from book);tryopen;first;while not eof dobegincb_bookid.items.add(fieldbyname(id).asstring);next;end;cb_bookid1.items:=cb_bookid.items;finallyclose;sql.te

50、xt:=select * from book;end;end;with qy_in dobeginclose;sql.clear;sql.add(select * from bookin where date=+quotedstr(today);open;end;end;procedure tfrm_in.cb_bookidchange(sender: tobject);beginwith qy_book dobeginclose;sql.clear;sql.add(select * from book where id=+quotedstr(cb_bookid.text);tryopen;i

51、f recordcount0 then /? e 6m-? u ?)?也?？ 6 e x e a? beginbookexist:=true;edt_bookname.text:=fieldbyname(name).asstring;edt_writer.text:=fieldbyname(writer).asstring;edt_price.text:=fieldbyname(price).asstring;edt_pubdate.text:=fieldbyname(publishdate).asstring;edt_publisher.text:=fieldbyname(publisher

52、).asstring;endelse bookexist:=false;finallyclose;sql.text:=select * from book;end;end;end;procedure tfrm_in.btn_importclick(sender: tobject);varnum:integer;pricein,price:currency;pubdate:string;beginif (cb_bookid.text=) or(edt_bookname.text=) or (edt_writer.text=)or (edt_pricein.text=) or (edt_price

53、.text=) or (edt_num.text=)or (edt_pubdate.text=) or (edt_publisher.text=) thenbeginshowmessage(? df 生？ ?;exit;end;trypricein:=strtofloat(edt_pricein.text);price:=strtofloat(edt_price.text);num:=strtoint(edt_num.text);pubdate:=formatdatetime(yyyy-m-d,strtodatetime(edt_pubdate.text);exceptshowmessage(? ? ? e y a ?oue? ?浮&均？exit;end？with qy_in dobeginclose？sql.clear？sql.add(s