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

书店销售管理系统源代码.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

继续阅读