unitmain.pas

一个音像租赁店铺的管理软件,可以维护影片库信息和会员信息,及日常业务的实现(出租/归还).这是我学delphi整一个月的纪念品,有些简单,不过我还是希望和大家分享一下我的成长历程.

unit UnitMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ImgList, ToolWin;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N5: TMenuItem;
    N20: TMenuItem;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    N21: TMenuItem;
    N22: TMenuItem;
    procedure N6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure ToolButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure N21Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}
uses unitAbout,unitMenber,unitDM,unitAllFilm, UnitSearchFilm, UnitAddFilm, UnitType,
  UnitRegist, UnitSearchMenber, UnitComCZ, UnitMenCZ, UnitComGH, UnitMenGH;

procedure TfrmMain.N6Click(Sender: TObject);
begin
  if frmAllfilm=nil then
    Application.CreateForm(TfrmAllFilm,frmAllFilm)
  else
    frmAllFilm.Show;
end;

procedure TfrmMain.N5Click(Sender: TObject);
begin
  if frmAllfilm=nil then
    Application.CreateForm(TfrmAllFilm,frmAllFilm)
  else
    frmAllFilm.Show;
  if frmSearchFilm=nil then
    Application.CreateForm(TfrmSearchFilm,frmSearchFilm)
  else
    frmSearchFilm.Show;
end;

procedure TfrmMain.N2Click(Sender: TObject);
begin
  if frmAddFilm=nil then
    Application.CreateForm(TfrmAddFilm,frmAddFilm)
  else
    frmAddFilm.Show;
end;

procedure TfrmMain.N20Click(Sender: TObject);
begin
  if not (frmAllFilm=nil) then
  DM.AllFilmDS.Delete;
end;

procedure TfrmMain.N4Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmMain.N18Click(Sender: TObject);
begin
  if frmType=nil then
    Application.CreateForm(TfrmType,frmType)
  else
    frmType.Show;
end;

procedure TfrmMain.N10Click(Sender: TObject);
begin
  if frmMenber=nil then
    Application.CreateForm(TfrmMenber,frmMenber)
  else
    frmMenber.Show;
end;

procedure TfrmMain.N8Click(Sender: TObject);
begin
  if frmRegist=nil then
    Application.CreateForm(TfrmRegist,frmRegist)
  else
    frmRegist.Show;
end;

procedure TfrmMain.N9Click(Sender: TObject);
begin
  if frmMenber=nil then
    Application.CreateForm(TfrmMenber,frmMenber)
  else
    frmMenber.Show;
  if frmSearchMenber=nil then
    Application.CreateForm(TfrmSearchMenber,frmSearchMenber)
  else
    frmSearchMenber.Show;  
end;

procedure TfrmMain.N13Click(Sender: TObject);
begin
  if frmComCZ=nil then
    Application.CreateForm(TfrmComCZ,frmComCZ)
  else
    frmComCZ.show;
end;

procedure TfrmMain.N14Click(Sender: TObject);
begin
  if frmMenCZ=nil then
    Application.CreateForm(TfrmMenCZ,frmMenCZ)
  else
    frmMenCZ.Show;
end;

procedure TfrmMain.N16Click(Sender: TObject);
begin
  if frmComGH=nil then
    Application.CreateForm(TfrmComGH,frmComGH)
  else
    frmComGH.Show;
end;

procedure TfrmMain.N17Click(Sender: TObject);
begin
  if frmMenGH=nil then
    Application.CreateForm(TfrmMenGH,frmMenGH)
  else
    frmMenGH.Close;
end;

procedure TfrmMain.ToolButton1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
ToolButton1.ShowHint:=True;
end;

procedure TfrmMain.N21Click(Sender: TObject);
begin
  if frmAbout=nil then
    Application.CreateForm(TfrmAbout,frmAbout)
  else
    frmAbout.Show;    
end;

end.