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 继续阅读
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1