书店销售管理系统源代码.docx

--------------------校验:_____________--------------------日期:_____________书店销售管理系统源代码书店销售管理系统Delphi源代码programBook_Manager;usesForms,uni_mainin''{frm_main},uni_outin''{frm_out},uni_DMin''{DM:TDataModule},uni_inin''{frm_in},uni_bookin''{frm_book};{$R*.res};(Tfrm_main,frm_main);;;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Ctrls,ToolWin,ImgList;typeTfrm_main=class(TForm)MainMenu1:TMainMenu;N1:TMenuItem;N2:TMenuItem;N3:TMenuItem;N4:TMenuItem;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:TToolButton;ToolButton7:TToolButton;procedureN2Click(Sender:TObject);procedureFormCreate(Sender:TObject);procedureN3Click(Sender:TObject);procedureN4Click(Sender:TObject);procedureToolButton1Click(Sender:TObject);procedureToolButton2Click(Sender:TObject);procedureToolButton3Click(Sender:TObject);procedureN6Click(Sender:TObject);procedureToolButton4Click(Sender:TObject);procedureN7Click(Sender:TObject);procedureToolButton5Click(Sender:TObject);procedureN9Click(Sender:TObject);procedureN10Click(Sender:TObject);procedureToolButton6Click(Sender:TObject);procedureToolButton7Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varfrm_main:Tfrm_main;implementationusesuni_out,uni_dm,uni_in,uni_book;{$R*.dfm}(Sender:TObject);vari:integer;beginfori:=-[i]=:=0;exit;end;end;(Tfrm_out,frm_out);:=0;end;(Sender:TObject);(Tdm,dm);end;(