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

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

programBook_Manager;

uses

Forms,

uni_maininuni_main.pas{frm_main},

uni_outinuni_out.pas{frm_out},

uni_DMinuni_DM.pas{DM:TDataModule},

uni_ininuni_in.pas{frm_in},

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

implemen