文档介绍:书店销售管理系统 Delphi 源代码
program Book_Manager;
uses
Forms,
uni_main in '' {frm_main},
uni_out in '' {frm_out},
uni_DM in '' {DM: TDataModule},
uni_in in '' {frm_in},
uni_book in '' {frm_book};
{$R *.res}
begin
;
(Tfrm_main, frm_main);
;
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 (Sender: TObject);
var
i:integer;
begin
for i:=0 to -1 do
begin
if [i]=frm_out then
begin