mainfrm.pas

该系统实现了对DVD租赁过程的管理,功能完善,方便实用.

unit MainFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Menus, StdCtrls, Buttons, ToolWin, jpeg,
  XPMan, DB, ADODB, ImgList;

type
  TFrmMain = class(TForm)
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    Timer1: TTimer;
    Panel1: TPanel;
    Image1: TImage;
    XPManifest1: TXPManifest;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Image2: TImage;
    A1: TMenuItem;
    bbtnZulin: TBitBtn;
    bbtnHuifei: TBitBtn;
    bbtnDVDInfo: TBitBtn;
    bbtnDVDBh: TBitBtn;
    bbtnHuiyuanSear: TBitBtn;
    bbtnDVDSear: TBitBtn;
    bbtnShouruSear: TBitBtn;
    bbtnHuiyuanInfo: TBitBtn;
    ADOConnection1: TADOConnection;
    ImageList1: TImageList;
    procedure Timer1Timer(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure bbtnZulinClick(Sender: TObject);
    procedure bbtnHuifeiClick(Sender: TObject);
    procedure bbtnHuiyuanInfoClick(Sender: TObject);
    procedure bbtnDVDInfoClick(Sender: TObject);
    procedure bbtnDVDBhClick(Sender: TObject);
    procedure bbtnHuiyuanSearClick(Sender: TObject);
    procedure bbtnDVDSearClick(Sender: TObject);
    procedure bbtnShouruSearClick(Sender: TObject);
    procedure A1Click(Sender: TObject);
  private
    { Private declarations }
  public
     sp1, sp2, sp3, sp4, sp5, sp6, sp7, sp8 : Boolean;
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;
  
implementation

uses ZulingFrm, HuifeiFrm, HuiyuanInfoFrm, DVDInfoFrm, DVDBhFrm,
  MemberSearchFrm, DVDSearchFrm, ShouruSearFrm, AboutFrm;

  


{$R *.dfm}

procedure TFrmMain.Timer1Timer(Sender: TObject);
begin
  StatusBar1.Panels[0].Text := '  当前时间： '+FormatDateTime('YYYY"年"MM"月"DD"日  "DDDD"  "HH":"MM":"SS',Now());
end;

procedure TFrmMain.N1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  sp1 := False;
  sp2 := False;
  sp3 := False;
  sp4 := False;
  sp5 := False;
  sp6 := False;
  sp7 := False;
  sp8 := False;
end;

procedure TFrmMain.bbtnZulinClick(Sender: TObject);
begin
  if Not sp1 then
  begin
    Application.CreateForm(TFrmZuling, FrmZuling);
    FrmZuling.Show;
    sp1 := True;
  end;
  FrmZuling.WindowState := wsMaximized;
end;

procedure TFrmMain.bbtnHuifeiClick(Sender: TObject);
begin
  if Not sp2 then
  begin
    Application.CreateForm(TFrmHuifei, FrmHuifei);
    FrmHuifei.Show;
    sp2 := True;
  end;
  FrmHuifei.WindowState := wsMaximized;
end;

procedure TFrmMain.bbtnHuiyuanInfoClick(Sender: TObject);
begin
  if Not sp3 then
  begin
    Application.CreateForm(TFrmHuiyuanInfo, FrmHuiyuanInfo);
    FrmHuiyuanInfo.Show;
    sp3 := True;
  end;
  FrmHuiyuanInfo.WindowState := wsMaximized;
end;

procedure TFrmMain.bbtnDVDInfoClick(Sender: TObject);
begin
  if Not sp4 then
  begin
    Application.CreateForm(TFrmDVDInfo, FrmDVDInfo);
    FrmDVDInfo.Show;
    sp4 := True;
  end;
  FrmDVDInfo.WindowState := wsMaximized;
end;

procedure TFrmMain.bbtnDVDBhClick(Sender: TObject);
begin
  if Not sp5 then
  begin
    Application.CreateForm(TFrmDVDBh, FrmDVDBh);
    FrmDVDBh.Show;
    sp5 := True;
  end;
  FrmDVDBh.WindowState := wsMaximized;
end;

procedure TFrmMain.bbtnHuiyuanSearClick(Sender: TObject);
begin
  if Not sp6 then
  begin
    Application.CreateForm(TFrmMemberSearch, FrmMemberSearch);
    FrmMemberSearch.Show;
    sp6 := True;
  end;
  FrmMemberSearch.WindowState := wsMaximized;
end;

procedure TFrmMain.bbtnDVDSearClick(Sender: TObject);
begin
  if Not sp7 then
  begin
    Application.CreateForm(TFrmDVDSearch, FrmDVDSearch);
    FrmDVDSearch.Show;
    sp7 := True;
  end;
  FrmDVDSearch.WindowState := wsMaximized;
end;

procedure TFrmMain.bbtnShouruSearClick(Sender: TObject);
begin
  if Not sp8 then
  begin
    Application.CreateForm(TFrmShouruSear, FrmShouruSear);
    FrmShouruSear.Show;
    sp8 := True;
  end;
  FrmShouruSear.WindowState := wsMaximized;
end;

procedure TFrmMain.A1Click(Sender: TObject);
begin
  FrmAbout.ShowModal;
end;

end.