mainform.pas

本系统为演示Delphi的功能而开发设计

unit Mainform;

interface

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

type
  TXyglMainForm = class(TForm)
    MainMenuXygl: TMainMenu;
    NYeWuGuanLi: TMenuItem;
    NBuLiang: TMenuItem;
    NChaXun: TMenuItem;
    NGongJu: TMenuItem;
    NBangZhu: TMenuItem;
    NTuiChu: TMenuItem;
    NZuChe: TMenuItem;
    NXuZu: TMenuItem;
    NHuanChe: TMenuItem;
    NBuLiangChaXun: TMenuItem;
    NZuLinChaXun: TMenuItem;
    NShuaKaChaXun: TMenuItem;
    NGaiKouLing: TMenuItem;
    N19: TMenuItem;
    NShanYongHu: TMenuItem;
    NZhuTi: TMenuItem;
    N23: TMenuItem;
    NGuanYu: TMenuItem;
    MainPanel: TPanel;
    ButtonZulin: TSpeedButton;
    ButtonHuanChe: TSpeedButton;
    ButtonBuLiang: TSpeedButton;
    ButtonGongGao: TSpeedButton;
    ButtonXuZu: TSpeedButton;
    ButtonShuaKa: TSpeedButton;
    ButtonTuiChu: TSpeedButton;
    P1: TMenuItem;
    O1: TMenuItem;
    P2: TMenuItem;
    SpeedButton1: TSpeedButton;
    Image1: TImage;
    N1: TMenuItem;
    D1: TMenuItem;
    SpeedButton2: TSpeedButton;
    procedure NTuiChuClick(Sender: TObject);
    procedure NZuCheClick(Sender: TObject);
    procedure NXuZuClick(Sender: TObject);
    procedure NHuanCheClick(Sender: TObject);
    procedure NBuLiangChaXunClick(Sender: TObject);
    procedure NBuLiangQueRenClick(Sender: TObject);
    procedure NBuLiangQuXiaoClick(Sender: TObject);
    procedure NGongGaoClick(Sender: TObject);
    procedure NXinYongHuClick(Sender: TObject);
    procedure NGaiKouLingClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ButtonZulinClick(Sender: TObject);
    procedure ButtonXuZuClick(Sender: TObject);
    procedure ButtonHuanCheClick(Sender: TObject);
    procedure ButtonBuLiangClick(Sender: TObject);
    procedure ButtonGongGaoClick(Sender: TObject);
    procedure ButtonTuiChuClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure NGongGaoFaBuClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure NShanYongHuClick(Sender: TObject);
    procedure ButtonShuaKaClick(Sender: TObject);
    procedure NShuaKaChaXunClick(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure P2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure NZuLinChaXunClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XyglMainForm: TXyglMainForm;
  TxtFile:TextFile;
  S:String;

implementation

uses Shuaka,Xinyong,Gonggao,login,PassWord,xuzu,
     huanche,UBuLiang,BuLiang,BuLiangCha,GonggaoFaBu,HuaXia,LoginData,
     AddUser, yuqi, brush, cheliang, Shenfen, Zonghe, GeRenChaXun,
  DanWeiChaXun;

{$R *.DFM}

procedure TXyglMainForm.NTuiChuClick(Sender: TObject);
begin
close;
end;

procedure TXyglMainForm.NZuCheClick(Sender: TObject);
begin
ShuakaForm.ShowModal;
end;

procedure TXyglMainForm.NXuZuClick(Sender: TObject);
begin
XuZuForm.ShowModal;
end;

procedure TXyglMainForm.NHuanCheClick(Sender: TObject);
begin
HuanCheForm.ShowModal;
end;

procedure TXyglMainForm.NBuLiangChaXunClick(Sender: TObject);
begin
YuQiForm.ShowModal;
end;

procedure TXyglMainForm.NBuLiangQueRenClick(Sender: TObject);
begin
BuLiangForm.ShowModal;
end;

procedure TXyglMainForm.NBuLiangQuXiaoClick(Sender: TObject);
begin
UBuLiangForm.ShowModal;
end;



procedure TXyglMainForm.NGongGaoClick(Sender: TObject);
begin
GonggaoForm.ShowModal;
end;

procedure TXyglMainForm.NXinYongHuClick(Sender: TObject);
begin
try
  With SystemData.QueryLogin Do
          begin
          Close;
          Unprepare;
          With Sql Do
          Begin
          Clear;
          Add('select * From user_login_info');
          Add(' where login_name=:loginname and login_time=:logintime');
          End;
          RequestLive:=True;
          ParamByName('loginname').AsString:=Login.loginname;
          ParamByName('logintime').Value:=Login.loginTime;
          prepare;
          Open;
          If SystemData.QueryLogin.RecordCount=1 Then
             Begin
             SystemData.QueryLogin.Edit;
             SystemData.QueryLogin.FieldByName('exit_time').Value:=Now;
             SystemData.QueryLogin.Post;
             End;
          End;
  With SystemData.QueryUser Do
          begin
          Close;
          Unprepare;
          With Sql Do
          Begin
          Clear;
          Add('select * from system_user_info');
          Add(' where login_name=:loginname');
          End;
          RequestLive:=True;
          ParamByName('loginname').AsString:=Login.loginname;
          prepare;
          Open;
          If SystemData.QueryUser.RecordCount=1 Then
             Begin
             SystemData.QueryUser.Edit;
             SystemData.QueryUser.FieldByName('login_status').AsString:='退出';
             SystemData.QueryUser.Post;
             End;
          End;
Except
          On E:Exception Do
          Begin
          ShowMessage('数据库连接失败,退出信息未正常写入数据库');
          Exit;
          End;
end;
LoginForm.ShowModal;
end;

procedure TXyglMainForm.NGaiKouLingClick(Sender: TObject);
begin
PassWordForm.ShowModal;
end;

procedure TXyglMainForm.FormActivate(Sender: TObject);
begin
If Login.Secruity='租赁公司管理' Then
   NShanYongHu.Enabled:=True
Else
   NShanYongHu.Enabled:=False;
AssignFile(TxtFile,'Txt.Dat');
Reset(TxtFile);
Readln(TxtFile,s);
CloseFile(TxtFile);
With HuaXiaData.QueryGongGao Do
     Begin
     Close;
     Unprepare;
     With Sql Do
     Begin
       Clear;
       Add('Select * From sys_bulletin Where Bulletin_date>:PubDate');
     end;
     ParamByName('PubDate').AsDateTime:=Trunc(Now)-1;
     prepare;
     Open;
     End;
If (s='False') And (HuaXiaData.QueryGongGao.RecordCount>0) Then
   Begin
   GongGaoForm.CheckBoxGongGao.Checked:=False;
   GongGaoForm.ShowModal;
   End
   Else
   GongGaoForm.CheckBoxGongGao.Checked:=True;
end;

procedure TXyglMainForm.ButtonZulinClick(Sender: TObject);
begin
ShuaKaForm.ShowModal;
{ShenFenForm.ShowModal;}
end;

procedure TXyglMainForm.ButtonXuZuClick(Sender: TObject);
begin
XuZuForm.ShowModal;
end;

procedure TXyglMainForm.ButtonHuanCheClick(Sender: TObject);
begin
HuanCheForm.ShowModal;
end;

procedure TXyglMainForm.ButtonBuLiangClick(Sender: TObject);
begin
YuQiForm.ShowModal;
end;


procedure TXyglMainForm.ButtonGongGaoClick(Sender: TObject);
begin
GongGaoForm.ShowModal;
end;

procedure TXyglMainForm.ButtonTuiChuClick(Sender: TObject);
begin
Close;
end;

procedure TXyglMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
  End;
end;


procedure TXyglMainForm.NGongGaoFaBuClick(Sender: TObject);
begin
  GongGaoFaBuForm.ShowModal;
end;

procedure TXyglMainForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
try
  With SystemData.QueryLogin Do
          begin
          Close;
          Unprepare;
          With Sql Do
          Begin
          Clear;
          Add('select * From user_login_info');
          Add(' where login_name=:loginname and login_time=:logintime');
          End;
          RequestLive:=True;
          ParamByName('loginname').AsString:=Login.loginname;
          ParamByName('logintime').Value:=Login.loginTime;
          prepare;
          Open;
          If SystemData.QueryLogin.RecordCount=1 Then
             Begin
             SystemData.QueryLogin.Edit;
             SystemData.QueryLogin.FieldByName('exit_time').Value:=Now;
             SystemData.QueryLogin.Post;
             End;
          End;
  With SystemData.QueryUser Do
          begin
          Close;
          Unprepare;
          With Sql Do
          Begin
          Clear;
          Add('select * from system_user_info');
          Add(' where login_name=:loginname');
          End;
          RequestLive:=True;
          ParamByName('loginname').AsString:=Login.loginname;
          prepare;
          Open;
          If SystemData.QueryUser.RecordCount=1 Then
             Begin
             SystemData.QueryUser.Edit;
             SystemData.QueryUser.FieldByName('login_status').AsString:='退出';
             SystemData.QueryUser.Post;
             End;
          End;
Except
          On E:Exception Do
          Begin
          ShowMessage('数据库连接失败,退出信息未正常写入数据库');
          Exit;
          End;

end;
End;


procedure TXyglMainForm.NShanYongHuClick(Sender: TObject);
begin
FormUser.ShowModal;
end;

procedure TXyglMainForm.ButtonShuaKaClick(Sender: TObject);
begin
BrushinfoForm.ShowModal;
end;

procedure TXyglMainForm.NShuaKaChaXunClick(Sender: TObject);
begin
BrushinfoForm.ShowModal;
end;

procedure TXyglMainForm.O1Click(Sender: TObject);
begin
GongGaoForm.ShowModal;
end;

procedure TXyglMainForm.P2Click(Sender: TObject);
begin
GongGaoFaBuForm.ShowModal;
end;

procedure TXyglMainForm.SpeedButton1Click(Sender: TObject);
begin
CheLiangForm.ShowModal;
end;

procedure TXyglMainForm.NZuLinChaXunClick(Sender: TObject);
begin
FormZonghe.ShowModal;
end;

procedure TXyglMainForm.N1Click(Sender: TObject);
begin
FormGeRen.ShowModal;
end;

procedure TXyglMainForm.D1Click(Sender: TObject);
begin
FormDanWei.ShowModal;
end;

procedure TXyglMainForm.SpeedButton2Click(Sender: TObject);
begin
 try
  With  SystemData.DatabaseLogin Do
  begin
  Connected:= False;
  LoginPrompt:= False;
  Params.Values['USER NAME']:= 'qiao';
  Params.Values['PASSWORD']:= 'qiao';
  Connected:= True;
  end;
  with HuaXiaData.Databasehx do
     begin
     Connected := False;
     Params.Values['USER NAME'] := 'qiao';
     Params.Values['PASSWORD'] := 'qiao';
     LoginPrompt := False;
     Connected := True;
  end;
  Except
   On E:Exception Do
   Begin
   ShowMessage('数据库连接失败,请检验网络连接是否正常');
   End;
 End;

end;

end.