搜索
书店销售管理系统Delphi源代码programBook_Manager;usesForms,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}beginApplication.Initialize;Application.CreateForm(Tfrm_main,frm_main);Application.Run;end.unituni_main;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Menus,ComCtrls,ToolWin,ImgList;typeTfrm_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;varfrm_main:Tfrm_main;implementationusesuni_out,uni_dm,uni_in,uni_book;{$R*.dfm}procedureTfrm_main.N2Click(Sender:TObject);vari:integer;beginfori:=0tofrm_main.MDIChildCount-1dobeginiffrm_main.MDIChildren[i]=frm_outthenbeginfrm_out.PageControl1.ActivePageIndex:=0;exit;end;end;application.CreateForm(Tfrm_out,frm_out);frm_out.PageControl1.ActivePageIndex:=0;end;procedureTfrm_main.FormCreate(Sender:TObject);beginApplication.CreateForm(Tdm,dm);end;procedureTfrm_main.N3Click(Sender:TObject);vari:integer;beginfori:=0tofrm_main.MDIChildCount-1dobeginiffrm_main.MDIChildren[i]=frm_outthenbeginfrm_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;beginfori:=0tofrm_main.MDIChildCount-1dobeginiffrm_main.MDIChildren[i]=frm_outthenbeginfrm_out.PageControl1.ActivePageIndex:=2;exit;end;end;application.CreateForm(Tfrm_out,frm_out);frm_out.PageControl1.ActivePageIndex:=2;end;procedureTfrm_main.ToolButton1Click(Sender:TObject);beginN2Click(Sender);end;procedureTfrm_main.ToolButton2Click(Sender:TObject);beginN3Click(Sender);end;procedureTfrm_main.ToolButton3Click(Sender:TObject);beginN4Click(Sender);end;procedureTfrm_main.N6Click(Sender:TObject);vari:integer;beginfori:=0tofrm_main.MDIChildCount-1dobeginiffrm_main.MDIChildren[i]=frm_inthenbeginfrm_in.PageControl1.ActivePageIndex:=0;exit;end;end;application.CreateForm(Tfrm_in,frm_in);frm_in.PageControl1.ActivePageIndex:=0;end;procedureTfrm_main.ToolButton4Click(Sender:TObject);beginN6Click(Sender);end;procedureTfrm_main.N7Click(Sender:TObject);vari:integer;beginfori:=0tofrm_main.MDIChildCount-1dobeginiffrm_main.MDIChildren[i]=frm_inthenbeginfrm_in.PageControl1.ActivePageIndex:=1;exit;end;end;application.CreateForm(Tfrm_in,frm_in);frm_in.PageControl1.ActivePageIndex:=1;end;procedureTfrm_main.ToolButton5Click(Sender:TObject);beginN7Click(Sender);end;procedureTfrm_main.N9Click(Sender:TObject);vari:integer;beginfori:=0tofrm_main.MDIChildCount-1dobeginiffrm_main.MDIChildren[i]=frm_bookthenbeginfrm_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;beginfori:=0tofrm_main.MDIChildCount-1dobeginiffrm_main.MDIChildren[i]=frm_bookthenbeginfrm_book.PageControl1.ActivePageIndex:=1;exit;end;end;application.CreateForm(Tfrm_book,frm_book);frm_book.PageControl1.ActivePageIndex:=1;end;procedureTfrm_main.ToolButton6Click(Sender:TObject);beginN9Click(Sender);end;procedureTfrm_main.ToolButton7Click(Sender:TObject);beginN10Click(Sender);end;end.unituni_out;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,DB,ADODB,Grids,DBGrids,StdCtrls,ExtCtrls;typeTfrm_out=class(TForm)PageControl1:TPageControl;TabSheet1:TTabSheet;cb_id:TComboBox;Label1:TLabel;Label2:TLabel;edt_name:TEdit;Label3:TLabel;edt_price:TEdit;Label4:TLabel;edt_num:TEdit;Label5:TLabel;edt_publisher:TEdit;Label6:TLabel;edt_writer:TEdit;Label7:TLabel;edt_date:TEdit;DBGrid1:TDBGrid;Label8:TLabel;ds_out:TDataSource;btn_OK:TButton;qy_book:TADOQuery;qy_out:TADOQuery;Panel1:TPanel;TabSheet2:TTabSheet;edt_year:TEdit;Label9:TLabel;qy_outBookID:TWideStringField;qy_outBookName:TWideStringField;qy_outDate:TWideStringField;qy_outNum:TIntegerField;qy_outPrice:TBCDField;qy_outtotal:TCurrencyField;Label10:TLabel;edt_month:TEdit;Label11:TLabel;edt_day:TEdit;Label12:TLabel;btn_date:TButton;qy_day:TADOQuery;ds_d