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

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

2、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;

3、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; ToolButto

4、n7: 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); p

5、rocedure 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 ToolButton7

6、Click(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.MD

7、IChildreni=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(Sende

8、r: TObject); var i:integer; begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=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(Sen

9、der: TObject); var i:integer; begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_out then begin frm_out.PageControl1.ActivePageIndex:=2; exit; end; end; application.CreateForm(Tfrm_out,frm_out); frm_out.PageControl1.ActivePageIndex:=2; end; procedure Tfrm_main.ToolButto

10、n1Click(Sender: TObject); begin N2Click(Sender); end; procedure Tfrm_main.ToolButton2Click(Sender: TObject); begin N3Click(Sender); end; procedure Tfrm_main.ToolButton3Click(Sender: TObject); begin N4Click(Sender); end; procedure Tfrm_main.N6Click(Sender: TObject); var i:integer; begin for i:=0 to f

11、rm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_in then begin frm_in.PageControl1.ActivePageIndex:=0; exit; end; end; application.CreateForm(Tfrm_in,frm_in); frm_in.PageControl1.ActivePageIndex:=0; end; procedure Tfrm_main.ToolButton4Click(Sender: TObject); begin N6Click(Sender); end;

12、procedure Tfrm_main.N7Click(Sender: TObject); var i:integer; begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_in then begin frm_in.PageControl1.ActivePageIndex:=1; exit; end; end; application.CreateForm(Tfrm_in,frm_in); frm_in.PageControl1.ActivePageIndex:=1; end; pro

13、cedure Tfrm_main.ToolButton5Click(Sender: TObject); begin N7Click(Sender); end; procedure Tfrm_main.N9Click(Sender: TObject); var i:integer; begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_book then begin frm_book.PageControl1.ActivePageIndex:=0; exit; end; end; appl

14、ication.CreateForm(Tfrm_book,frm_book); frm_book.PageControl1.ActivePageIndex:=0; end; procedure Tfrm_main.N10Click(Sender: TObject); var i:integer; begin for i:=0 to frm_main.MDIChildCount-1 do begin if frm_main.MDIChildreni=frm_book then begin frm_book.PageControl1.ActivePageIndex:=1; exit; end; end; application.CreateForm(Tfrm_book,frm_book); frm_book.PageControl1.ActivePageIndex:=1; end; procedure Tfrm_main.ToolButton6Click(Sender: TObject); begin 继续阅读