unitallfilm.pas

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

unit UnitAllFilm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGrids, Menus;

type
  TfrmAllFilm = class(TForm)
    DBGrid1: TDBGrid;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAllFilm: TfrmAllFilm;

implementation

{$R *.dfm}
uses
  unitDM, UnitAddFilm, UnitSearchFilm,unitComCZ, UnitMenCZ;
procedure TfrmAllFilm.DBGrid1TitleClick(Column: TColumn);
begin
  DM.AllFilmDS.IndexFieldNames:=Column.FieldName;
end;

procedure TfrmAllFilm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frmAllFilm.Free;
  frmAllFilm:=nil;
end;

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

procedure TfrmAllFilm.N2Click(Sender: TObject);
begin
  DM.AllFilmDS.Delete;
end;

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

procedure TfrmAllFilm.N6Click(Sender: TObject);
begin
  if not (DM.AllFilmDS.FieldByName('状态').AsString='可借') then
  begin
    ShowMessage('此影片不可租借，可能已经租出。请确认！');
    exit;
  end;
  if frmComCZ=nil then
    Application.CreateForm(TfrmComCZ,frmComCZ)
  else
    frmComCZ.show;
end;

procedure TfrmAllFilm.N7Click(Sender: TObject);
begin
  if not(DM.AllFilmDS.FieldByName('状态').AsString='可借') then
  begin
    ShowMessage('此影片不可租借，可能已经租出。请确认！');
    exit;
  end;
  if frmMenCZ=nil then
    Application.CreateForm(TfrmMenCZ,frmMenCZ)
  else
    frmMenCZ.Show;
end;

end.