unit1.pas

用Delphi做一个公寓管理系统

unit Unit1;

interface

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

type
  TForm_main = class(TForm)
    MainMenu1: TMainMenu;
    menu_config: TMenuItem;
    menu_config_flat: TMenuItem;
    menu_config1: TMenuItem;
    menu_config_uesr: TMenuItem;
    menu_config2: TMenuItem;
    menu_config_exit: TMenuItem;
    menu_student: TMenuItem;
    menu_student_insert: TMenuItem;
    menu_student_deldte: TMenuItem;
    menu_student1: TMenuItem;
    menu_visit: TMenuItem;
    menu_student_query: TMenuItem;
    menu_student_query_name: TMenuItem;
    menu_student_query_sno: TMenuItem;
    menu_student_query_room: TMenuItem;
    menu_visit_in: TMenuItem;
    menu_visit_out: TMenuItem;
    menu_visit1: TMenuItem;
    menu_visit_log: TMenuItem;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    menu_sanit: TMenuItem;
    menu_sanit_order: TMenuItem;
    menu_sanit_room: TMenuItem;
    menu_config_flatguid: TMenuItem;
    menu_config_flatlist: TMenuItem;
    byroom: TMenuItem;
    bystudent: TMenuItem;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    GroupBox1: TGroupBox;
    ToolButton9: TToolButton;
    ToolButton8: TToolButton;
    projectdir: TLabel;
    ToolButton10: TToolButton;
    Image1: TImage;
    N1: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    Database1: TDatabase;
    ToolButton11: TToolButton;
    procedure menu_config_flatguidClick(Sender: TObject);
    procedure bystudentClick(Sender: TObject);
    procedure menu_config_exitClick(Sender: TObject);
    procedure byroomClick(Sender: TObject);
    procedure menu_student_query_nameClick(Sender: TObject);
    procedure menu_student_query_snoClick(Sender: TObject);
    procedure menu_student_query_roomClick(Sender: TObject);
    procedure menu_visit_inClick(Sender: TObject);
    procedure menu_visit_outClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure menu_config_uesrClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure menu_student_deldteClick(Sender: TObject);
    procedure menu_visit_logClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure menu_sanit_orderClick(Sender: TObject);
    procedure menu_sanit_roomClick(Sender: TObject);
    procedure menu_config_flatlistClick(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_main: TForm_main;
  

implementation

uses Unit2, Unit5, Unit8, Unit9, Unit10, Unit6, Unit11, Unit12, Unit15,
  Unit17, Unit4, Unit14, Unit16, Unit7;

{$R *.dfm}

procedure TForm_main.menu_config_flatguidClick(Sender: TObject);
begin
  application.CreateForm(TForm_floorconfig1,Form_floorconfig1);
  Form_floorconfig1.ShowModal;
  
end;

procedure TForm_main.bystudentClick(Sender: TObject);
begin
  application.CreateForm(TForm_infos_s,Form_infos_s);
  Form_infos_s.ShowModal;

end;

procedure TForm_main.menu_config_exitClick(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm_main.byroomClick(Sender: TObject);
begin
  application.CreateForm(TForm_infos_r,Form_infos_r);
  Form_infos_r.ShowModal;

end;

procedure TForm_main.menu_student_query_nameClick(Sender: TObject);
begin
  Application.CreateForm(TForm_info_q1,Form_info_q1);
  Form_info_q1.ShowModal;

end;

procedure TForm_main.menu_student_query_snoClick(Sender: TObject);
begin
  Application.CreateForm(TForm_info_q2,Form_info_q2);
  Form_info_q2.ShowModal;

end;

procedure TForm_main.menu_student_query_roomClick(Sender: TObject);
begin
  Application.CreateForm(TForm_info_q3,Form_info_q3);
  Form_info_q3.ShowModal;

end;

procedure TForm_main.menu_visit_inClick(Sender: TObject);
begin
  application.CreateForm(TForm_vist_in,Form_vist_in);
  Form_vist_in.ShowModal;

end;

procedure TForm_main.menu_visit_outClick(Sender: TObject);
begin
  application.CreateForm(TForm_vist_out,Form_vist_out);
  Form_vist_out.ShowModal;

end;

procedure TForm_main.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  application.Terminate;
end;

procedure TForm_main.Timer1Timer(Sender: TObject);
var dow:string;
begin
  case dayofweek(date()) of
      1: dow:='日';
      2: dow:='一';
      3: dow:='二';
      4: dow:='三';
      5: dow:='四';
      6: dow:='五';
      7: dow:='六';
    end;

  statusbar1.Panels.Items[5].Text:=datetostr(date())+'  '+timetostr(time());
  statusbar1.Panels.Items[6].Text:='星期'+dow;
end;

procedure TForm_main.menu_config_uesrClick(Sender: TObject);
begin
  application.CreateForm(TForm_userconfig,Form_userconfig);
  Form_userconfig.ShowModal;

end;

procedure TForm_main.FormCreate(Sender: TObject);
begin
  projectdir.Caption:=getcurrentdir;      //获得工程所在的路径
  
end;


procedure TForm_main.menu_student_deldteClick(Sender: TObject);
begin
  application.CreateForm(TForm_infos_del,Form_infos_del);
  Form_infos_del.ShowModal;

end;

procedure TForm_main.menu_visit_logClick(Sender: TObject);
begin
  application.CreateForm(TForm_valuables_move,Form_valuables_move);
  Form_valuables_move.ShowModal;
end;

procedure TForm_main.N1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm_main.menu_sanit_orderClick(Sender: TObject);
begin
  Form_unfinished.show;
end;

procedure TForm_main.menu_sanit_roomClick(Sender: TObject);
begin
  Form_unfinished.show;
end;

procedure TForm_main.menu_config_flatlistClick(Sender: TObject);
begin
  application.CreateForm(TForm_config_xi,Form_config_xi);
  Form_config_xi.ShowModal;
end;

procedure TForm_main.ToolButton11Click(Sender: TObject);
begin
  if toolbutton11.Caption='迷你模式' then
  begin
    form_main.Height:=130;

    toolbutton11.Caption:='正常模式';
  end
  else
  if toolbutton11.Caption='正常模式' then
  begin
    form_main.Height:=610;

    toolbutton11.Caption:='迷你模式';
  end;
end;

end.