资源描述：
《书店销售管理系统源代码.docx》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、书店销售管理系统Delphi源代码programBook_Manager;usesForms,uni_mainin'uni_main.pas'{frm_main},uni_outin'uni_out.pas'{frm_out},uni_DMin'uni_DM.pas'{DM:TDataModule},uni_inin'uni_in.pas'{frm_in},uni_bookin'uni_book.pas'{frm_book};{$R*.res}beginApplication.Initialize;Application.Crea
2、teForm(Tfrm_main,frm_main);Application.Run;end.unituni_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:T
3、MenuItem;N5:TMenuItem;N6:TMenuItem;N7:TMenuItem;N8:TMenuItem;N9:TMenuItem;N10:TMenuItem;ToolBar1:TToolBar;ToolButton1:TToolButton;ToolButton2:TToolButton;ToolButton3:TToolButton;ToolButton4:TToolButton;ToolButton5:TToolButton;ImageList1:TImageList;ToolButton6:TToolBut
4、ton;ToolButton7:TToolButton;procedureN2Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureN3Click(Sender:TObject);procedureN4Click(Sender:TObject);procedureToolButton1Click(Sender:TObject);procedureToolButton2Click(Sender:TObject);procedureToolButton3C
5、lick(Sender:TObject);procedureN6Click(Sender:TObject);procedureToolButton4Click(Sender:TObject);procedureN7Click(Sender:TObject);procedureToolButton5Click(Sender:TObject);procedureN9Click(Sender:TObject);procedureN10Click(Sender:TObject);procedureToolButton6Click(Send
6、er:TObject);procedureToolButton7Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varfrm_main:Tfrm_main;implementationusesuni_out,uni_dm,uni_in,uni_book;{$R*.dfm}procedureTfrm_main.N2Click(Sender:TObject);vari:integer;beginfori:=0tofrm_ma
7、in.MDIChildCount-1dobeginiffrm_main.MDIChildren[i]=frm_outthenbeginfrm_out.PageControl1.ActivePageIndex:=0;exit;end;end;application.CreateForm(Tfrm_out,frm_out);frm_out.PageControl1.ActivePageIndex:=0;end;procedureTfrm_main.FormCreate(Sender:TObject);beginApplication.
8、CreateForm(Tdm,dm);end;procedureTfrm_main.N3Click(Sender:TObject);vari:integer;beginfori:=0tofrm_main.MDIChildCount-1dobegin
