书店销售管理系统源代码.docx
《书店销售管理系统源代码.docx》由会员分享,可在线阅读,更多相关《书店销售管理系统源代码.docx(6页珍藏版)》请在冰豆网上搜索。
书店销售管理系统源代码
书店销售管理系统Delphi源代码
programBook_Manager;
uses
Forms,
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}
begin
Application.Initialize;
Application.CreateForm(Tfrm_main,frm_main);
Application.Run;
end.
unituni_main;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,ComCtrls,ToolWin,ImgList;
type
Tfrm_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;
var
frm_main:
Tfrm_main;
implementation
usesuni_out,uni_dm,uni_in,uni_book;
{$R*.dfm}
procedureTfrm_main.N2Click(Sender:
TObject);var
i:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_outthen
begin
frm_out.PageControl1.ActivePageIndex:
=0;
exit;
end;
end;
application.CreateForm(Tfrm_out,frm_out);
frm_out.PageControl1.ActivePageIndex:
=0;end;
procedureTfrm_main.FormCreate(Sender:
TObject);begin
Application.CreateForm(Tdm,dm);
end;
procedureTfrm_main.N3Click(Sender:
TObject);vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_outthen
begin
frm_out.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm(Tfrm_out,frm_out);
frm_out.PageControl1.ActivePageIndex:
=1;end;
procedureTfrm_main.N4Click(Sender:
TObject);vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_outthen
begin
frm_out.PageControl1.ActivePageIndex:
=2;
exit;
end;
end;
application.CreateForm(Tfrm_out,frm_out);
frm_out.PageControl1.ActivePageIndex:
=2;end;
procedureTfrm_main.ToolButton1Click(Sender:
TObject);begin
N2Click(Sender);
end;
procedureTfrm_main.ToolButton2Click(Sender:
TObject);begin
N3Click(Sender);
end;
procedureTfrm_main.ToolButton3Click(Sender:
TObject);begin
N4Click(Sender);
end;
procedureTfrm_main.N6Click(Sender:
TObject);
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_inthen
begin
frm_in.PageControl1.ActivePageIndex:
=0;
exit;
end;
end;
application.CreateForm(Tfrm_in,frm_in);
frm_in.PageControl1.ActivePageIndex:
=0;
end;
procedureTfrm_main.ToolButton4Click(Sender:
TObject);begin
N6Click(Sender);
end;
procedureTfrm_main.N7Click(Sender:
TObject);
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_inthen
begin
frm_in.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm(Tfrm_in,frm_in);
frm_in.PageControl1.ActivePageIndex:
=1;
end;
procedureTfrm_main.ToolButton5Click(Sender:
TObject);begin
N7Click(Sender);
end;
procedureTfrm_main.N9Click(Sender:
TObject);
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_bookthen
begin
frm_book.PageControl1.ActivePageIndex:
=0;
exit;
end;
end;
application.CreateForm(Tfrm_book,frm_book);
frm_book.PageControl1.ActivePageIndex:
=0;
end;
procedureTfrm_main.N10Click(Sender:
TObject);
vari:
integer;
begin
fori:
=0tofrm_main.MDIChildCount-1do
begin
iffrm_main.MDIChildren[i]=frm_bookthen
begin
frm_book.PageControl1.ActivePageIndex:
=1;
exit;
end;
end;
application.CreateForm(Tfrm_book,frm_book);
frm_book.PageControl1.ActivePageIndex:
=1;
end;
procedureTfrm_main.ToolButton6Click(Sender:
TObject);begin
继续阅读