📄 maimform.~pas

📁 房屋出租信息管理系统,房屋出租信息的录入、查询、删除以及用户管理等功能
💻 ~PAS
字号:
unit MaimForm;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N17: TMenuItem;
    CalculateItem: TMenuItem;
    NotepadItem: TMenuItem;
    WriteItem: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N5: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N16: TMenuItem;
    N22: TMenuItem;
    N21: TMenuItem;
    N23: TMenuItem;
    ImgList1: TImageList;
    StatusBar1: TStatusBar;
    Timer_update: TTimer;
    ADQIsExists: TADOQuery;
    ADQSyIsExists: TADOQuery;
    N24: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N25: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N38: TMenuItem;
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure CalculateItemClick(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N15Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure Timer_updateTimer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
  private
    { Private declarations }
  public
     loginname:string;
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Kfdj, FangBasic, DanJia, Khrz, Zjgl, Cbgl, LsSf, RsSf, YdSf, UpdatePW,
  UserManager, Login, Unit_common_files, Tfgl, KfCx, CzfCx, ZfKfCx, CzfCbcx,
  ZfSfcx, LsSfCx, RsSfCx, YdSfCx, QtFyTj, AboutBox;

{$R *.dfm}

////////////////////////////////////////////////////
procedure TMainForm.N7Click(Sender: TObject);
begin
   if  FangBasicform=nil then
       FangBasicform:=TFangBasicform.Create(nil);
       FangBasicform.ShowModal;
end;

procedure TMainForm.N6Click(Sender: TObject);
begin
   if  DanJiaForm=nil then
       DanJiaForm:=TDanJiaForm.Create(nil);
       DanJiaForm.ShowModal ;
end;

procedure TMainForm.CalculateItemClick(Sender: TObject);
var
Stringpas:string;
WinPath:array [0..127] of char;
ErrorMessage:integer;
SystemVersion:TOSVERSIONINFO;
begin
SystemVersion.dwOSVersionInfoSize:=Sizeof(TOSVERSIONINFO);
GetVersionEx(SystemVersion);
if SystemVersion.dwPlatformId=VER_PLATFORM_WIN32_NT then  //winnt
 begin
   if sender =CalculateItem then
      StringPas:='\system32\calc.exe';
   if sender= NotepadItem then
      StringPas:='\system32\notepad.exe';
   if Sender=WriteItem then
      StringPas:='\system32\write.exe';
 end
else
 begin
   if sender =CalculateItem then
      StringPas:='\calc.exe';
   if sender= NotepadItem then
      StringPas:='\notepad.exe';
   if Sender=WriteItem then
      StringPas:='\write.exe';

 end;
ErrorMessage:=GetWindowsDirectory(WinPath,sizeof(Winpath));
if ErrorMessage=0 then
   Application.MessageBox('系统未安装此应用程序!','余科华提示！',MB_OK)
else
  begin
    StringPas:=StrPas(WinPath)+StringPas;
    StrPCopy(WinPath,Stringpas);
  end;
WinExec(WinPath,SW_SHOWNORMAL);
end;

procedure TMainForm.N18Click(Sender: TObject);
begin
   if kfdjform=nil then
      kfdjform:=Tkfdjform.Create(nil);
      kfdjform.Show ;
end;

procedure TMainForm.N2Click(Sender: TObject);
begin
   if Khrzform=nil then
      Khrzform:=TKhrzform.Create(nil);
      Khrzform.ShowModal ;
end;

procedure TMainForm.N20Click(Sender: TObject);
begin
   if ZjglForm=nil then
      ZjglForm:=TZjglForm.Create(nil);
      ZjglForm.ShowModal;
end;

procedure TMainForm.N10Click(Sender: TObject);
begin
  if CbglForm=nil then
     CbglForm:=TCbglForm.Create(nil);
     CbglForm.ShowModal ;
end;

procedure TMainForm.N11Click(Sender: TObject);
begin
  if LssfForm =nil then
     LssfForm:=TLssfForm.Create(nil);
     LssfForm.ShowModal ;
end;

procedure TMainForm.N12Click(Sender: TObject);
begin
  if RssfForm=nil then
     RssfForm:=TRssfForm.Create(nil);
     RssfForm.ShowModal;
end;

procedure TMainForm.N16Click(Sender: TObject);
begin
  if YdSfForm=nil then
     YdSfForm:=TYdSfForm.Create(nil);
     YdSfForm.ShowModal;
end;

procedure TMainForm.N22Click(Sender: TObject);
begin
  if UpdatePWForm=nil then
     UpdatePWForm:=TUpdatePWForm.Create(nil);
     UpdatePWForm.showmodal;
end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('确认退出房屋出租管理系统吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
      application.Terminate;
    end
  else
     action:=caNone;
end;

procedure TMainForm.N15Click(Sender: TObject);
begin
  if MessageDlg('确认退出房屋出租管理系统吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  //if  application.MessageBox('要退出应用程序吗?','退出',mb_okcancel)=idok   then
    begin
      application.Terminate;
    end  
end;

procedure TMainForm.N8Click(Sender: TObject);
begin
  if UserManagerF=nil then
     UserManagerF:=TUserManagerF.Create(nil);
     UserManagerF.showmodal;
end;

procedure TMainForm.N21Click(Sender: TObject);
begin
  if LoginForm=nil then
     LoginForm:=TLoginForm.Create(nil);
     LoginForm.Show ; 
end;

procedure TMainForm.Timer_updateTimer(Sender: TObject);
var 
        Strtmp:String;
begin
  statusbar1.Panels[0].Text:='当前用户：'+CurrentUserName ;
        Strtmp:=FormatDateTime('YYYY',Date)+'年'+FormatDateTime('MM',Date)+'月'+FormatDateTime('DD',Date)+'日';
        statusbar1.Panels[2].Text:='     '+formatdatetime('hh:mm:ss',now);
        case DayOfWeek(Now) of
                1:begin
                        Strtmp:=Strtmp+' 星期日';
                end;
                2:begin
                        Strtmp:=Strtmp+' 星期一';
                end;
                3:begin
                        Strtmp:=Strtmp+' 星期二';
                end;
                4:begin
                        Strtmp:=Strtmp+' 星期三';
                end;
                5:begin
                        Strtmp:=Strtmp+' 星期四';
                end;
                6:begin
                        Strtmp:=Strtmp+' 星期五';
                end;
                7:begin
                        Strtmp:=Strtmp+' 星期六';
                end;
        end;
       
         statusbar1.Panels[1].Text:='  '+strtmp;
end;

procedure TMainForm.FormShow(Sender: TObject);
var nYear,nMonth,nDay:word;
begin
      timer_update.Enabled:=true;
      DecodeDate(Now(),nYear,nMonth,nDay);
      GetTableName(nYear,nMonth);
      GetsyTableName(nYear,nMonth);
      oldTableName:=StrTableName;
   if not ADQIsExists.Locate('Name',StrTableName,[]) then
          CreateBiaodiTable  ;
   if not ADQSyIsExists.Locate('Name',SyTableName,[]) then
          CreateSyBiaodiTable;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
  ADQIsExists.Open ;
  ADQSyIsExists.Open ;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
  if TfglForm =nil then
     TfglForm:=TTfglForm.Create(nil);
     TfglForm.ShowModal ;
end;

procedure TMainForm.N24Click(Sender: TObject);
begin
  if KfCxForm=nil then
     KfCxForm:=TKfCxForm.Create(nil);
     KfCxForm.showModal;
end;

procedure TMainForm.N25Click(Sender: TObject);
begin
   if CzfCxForm =nil then
      CzfCxForm:=TCzfCxForm.Create(nil);
      CzfCxForm.ShowModal;
end;

procedure TMainForm.N28Click(Sender: TObject);
begin
  if ZfKfCxForm =nil then
     ZfKfCxForm:=TZfKfCxForm.Create(nil);
     ZfKfCxForm.ShowModal;
end;

procedure TMainForm.N26Click(Sender: TObject);
begin
  if  CzfCbcxForm =nil then
      CzfCbcxForm:=TCzfCbcxForm.Create(nil);
      CzfCbcxForm.ShowModal;
end;

procedure TMainForm.N29Click(Sender: TObject);
begin
  if ZfSfcxForm =nil then
     ZfSfcxForm:=TZfSfcxForm.create(nil);
     ZfSfcxForm.ShowModal;
end;

procedure TMainForm.N30Click(Sender: TObject);
begin
  if LsSfCxForm =nil then
     LsSfCxForm:=TLsSfCxForm.Create(nil);
     LsSfCxForm.ShoWModal;
end;

procedure TMainForm.N31Click(Sender: TObject);
begin
  if RsSfCxForm =nil  then
     RsSfCxForm:=TRsSfCxForm.Create(nil);
     RsSfCxForm.ShowModal;
end;

procedure TMainForm.N32Click(Sender: TObject);
begin
   if YdSfCxForm =nil  then
      YdSfCxForm:=TYdSfCxForm.Create(nil);
      YdSfCxForm.ShowModal ;
end;

procedure TMainForm.N38Click(Sender: TObject);
begin
  if QtFyTjForm =nil then
     QtFyTjForm:=TQtFyTjForm.Create(nil);
     QtFyTjForm.ShowModal;
end;

procedure TMainForm.N35Click(Sender: TObject);
begin
  if AboutBoxForm =nil then
     AboutBoxForm:=TAboutBoxForm.Create(nil);
     AboutBoxForm.ShowModal;
end;

end.
💿 文件大小 822 K
👤 上传用户 lingyun579
📂 所属分类其他行业
🏷️ 相关标签

#房屋 #信息管理系统 #删除 #查询
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -