书店销售管理系统源代码

书店销售管理系统Delphi 源代码

program Book_Manager;

uses

Forms,

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 *.res}

begin

Application.Initialize;

Application.CreateForm(Tfrm_main, frm_main);

Application.Run;

end.

unit uni_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;

procedure N2Click(Sender: TObject);

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 ToolButton4Click(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 declarations }

end;

var

frm_main: Tfrm_main;

implementation

uses uni_out,uni_dm, uni_in, uni_book;

{$R *.dfm}

procedure Tfrm_main.N2Click(Sender: TObject); var

i:integer;

begin

for i:=0 to frm_main.MDIChildCount-1 do

begin

if frm_main.MDIChildren[i]=frm_out then

begin

frm_out.PageControl1.ActivePageIndex:=0;

exit;

end;

end;

application.CreateForm(Tfrm_out,frm_out);

frm_out.PageControl1.ActivePageIndex:=0; end;

procedure Tfrm_main.FormCreate(Sender: TObject); begin

Application.CreateForm(Tdm,dm);

end;

procedure Tfrm_main.N3Click(Sender: TObject); var i:integer;

begin

for i:=0 to frm_main.MDIChildCount-1 do

begin

if frm_main.MDIChildren[i]=frm_out then

begin

frm_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;

begin

for i:=0 to frm_main.MDIChildCount-1 do

begin

if frm_main.MDIChildren[i]=frm_out then

begin

frm_out.PageControl1.ActivePageIndex:=2;

exit;

end;

end;

application.CreateForm(Tfrm_out,frm_out);

frm_out.PageControl1.ActivePageIndex:=2; end;