unit1.pas

这是一个用DELPHI编写的信息系统,为KTV管理信息系统,对很多学习信息的同学有很大帮助

unit Unit1;

interface

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

type
  TmainForm = class(TForm)
    mainImage: TImage;
    MainMenu1: TMainMenu;
    xi1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    ControlBar1: TControlBar;
    tuichuBitBtn: TBitBtn;
    fangtaiBitBtn: TBitBtn;
    yudingBitBtn: TBitBtn;
    jiankongBitBtn: TBitBtn;
    pinxiangBitBtn: TBitBtn;
    kucunBitBtn: TBitBtn;
    kafaxingBitBtn: TBitBtn;
    kacunkuanBitBtn: TBitBtn;
    xingyeBitBtn: TBitBtn;
    shouyinBitBtn: TBitBtn;
    N10: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    Panel1: TPanel;
    qiantaiBitBtn: TBitBtn;
    jiezhangBitBtn: TBitBtn;
    StatusBar1: TStatusBar;
    procedure tuichuBitBtnClick(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure fangtaiBitBtnClick(Sender: TObject);
    procedure qiantaiBitBtnClick(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure yudingBitBtnClick(Sender: TObject);
    procedure kacunkuanBitBtnClick(Sender: TObject);
    procedure kafaxingBitBtnClick(Sender: TObject);
    procedure shouyinBitBtnClick(Sender: TObject);
    procedure jiezhangBitBtnClick(Sender: TObject);
    procedure N7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  mainForm: TmainForm;

implementation

uses Unit2, Unit3, Unityd, Unitphb, huiyuankaUnit, youhuiquanUnit,
  qiantaijiezhangUnit;

{$R *.dfm}

procedure TmainForm.tuichuBitBtnClick(Sender: TObject);
begin
close;
end;

procedure TmainForm.N2Click(Sender: TObject);
begin
close;
end;

procedure TmainForm.fangtaiBitBtnClick(Sender: TObject);
begin
fangtaiform.show;
end;

procedure TmainForm.qiantaiBitBtnClick(Sender: TObject);
begin
qiantaiform.show;
end;

procedure TmainForm.N6Click(Sender: TObject);
begin
qiantaiform.Show;
end;

procedure TmainForm.yudingBitBtnClick(Sender: TObject);
begin
yudingform.show;
end;

procedure TmainForm.kacunkuanBitBtnClick(Sender: TObject);
begin
paihangbform.show;
end;

procedure TmainForm.kafaxingBitBtnClick(Sender: TObject);
begin
kafaxingform.show;
end;

procedure TmainForm.shouyinBitBtnClick(Sender: TObject);
begin
youhuiquanform.show;
end;

procedure TmainForm.jiezhangBitBtnClick(Sender: TObject);
begin
qiantaijiezhangform.show;
end;

procedure TmainForm.N7Click(Sender: TObject);
begin
qiantaijiezhangform.show;
end;

end.