ufrmain.~pas

一个功能较全的图书进销存软件,功能还算完备

unit ufrMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls;

type
  TfrMain = class(TForm)
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N21: TMenuItem;
    N9: TMenuItem;
    N7: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frMain: TfrMain;

implementation

uses ufPublish_ChMnt, ufPublish_JhMnt, ufPBookInfo_Update, ufBookAlert,
  ufOptions, ufPublish_DictMnt, ufPublish_ProviderMnt,
  ufPublish_MemberInfoMnt, Uglobal;

{$R *.dfm}

procedure TfrMain.N4Click(Sender: TObject);
begin
  if fPublish_Jhmnt=nil then
    fPublish_Jhmnt:=tfpublish_jhmnt.Create(application);
  fPublish_Jhmnt.Show;
end;

procedure TfrMain.N5Click(Sender: TObject);
begin
  if fPublish_chmnt=nil then
    fPublish_chmnt:=tfPublish_chmnt.Create(application);
  fPublish_chmnt.Show;
end;

procedure TfrMain.N2Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrMain.N9Click(Sender: TObject);
begin
  if fPBookInfo_update=nil then
    fPBookInfo_update:=tfPBookInfo_update.Create(application);
  fPBookInfo_update.Show;
end;

procedure TfrMain.N11Click(Sender: TObject);
begin
  if fPublish_DictMnt=nil then
    fPublish_DictMnt:=tfPublish_DictMnt.Create(application);
  fPublish_DictMnt.Show;
end;

procedure TfrMain.N10Click(Sender: TObject);
begin
  if fPublish_ProviderMnt=nil then
    fPublish_ProviderMnt:=tfPublish_ProviderMnt.Create(application);
  fPublish_ProviderMnt.Show;
end;

procedure TfrMain.N12Click(Sender: TObject);
begin
  if fPublish_MemberInfoMnt=nil then
    fPublish_MemberInfoMnt:=tfPublish_MemberInfoMnt.Create(application);
  fPublish_MemberInfoMnt.Show;
end;

procedure TfrMain.N14Click(Sender: TObject);
begin
  ReportIndex:=0;
  if fOptions=nil then
    fOptions:=tfOptions.Create(application);
  fOptions.Caption:='进销统计清单－查询条件';
  fOptions.Show;
end;

procedure TfrMain.N21Click(Sender: TObject);
begin
  if fBookAlert=nil then
    fBookAlert:=tfBookAlert.Create(application);
  fBookAlert.Show;
end;

procedure TfrMain.N15Click(Sender: TObject);
begin
  ReportIndex:=1;
  if fOptions=nil then
    fOptions:=tfOptions.Create(application);
  fOptions.Caption:='销售排行清单(按数量)－查询条件';
  fOptions.Show;
end;

procedure TfrMain.N16Click(Sender: TObject);
begin
  ReportIndex:=2;
  if fOptions=nil then
    fOptions:=tfOptions.Create(application);
  fOptions.Caption:='销售排行清单(按金额)－查询条件';
  fOptions.Show;
end;

end.