mainform.pas

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

unit Mainform;

interface

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

type
  TXtglMainForm = class(TForm)
    MainPanel: TPanel;
    ButtonCompSite: TSpeedButton;
    ButtonGeRen: TSpeedButton;
    ButtonComp: TSpeedButton;
    ButtonOnLine: TSpeedButton;
    ButtonUser: TSpeedButton;
    ButtonPublisher: TSpeedButton;
    ButtonExit: TSpeedButton;
    SpeedBackup: TSpeedButton;
    ButtonCompBulletin: TSpeedButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    W1: TMenuItem;
    N12: TMenuItem;
    O1: TMenuItem;
    N13: TMenuItem;
    A1: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    B1: TMenuItem;
    N16: TMenuItem;
    A2: TMenuItem;
    D1: TMenuItem;
    R1: TMenuItem;
    Image1: TImage;
    procedure NTuiChuClick(Sender: TObject);
    procedure NGaiKouLingClick(Sender: TObject);
    procedure ButtonGeRenClick(Sender: TObject);
    procedure ButtonCompClick(Sender: TObject);
    procedure ButtonPublisherClick(Sender: TObject);
    procedure ButtonExitClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure NGongGaoFaBuClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ButtonCompSiteClick(Sender: TObject);
    procedure ButtonUserClick(Sender: TObject);
    procedure ButtonCompBulletinClick(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure ButtonOnLineClick(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure A2Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure B1Click(Sender: TObject);
    procedure SpeedBackupClick(Sender: TObject);
    procedure R1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XtglMainForm: TXtglMainForm;

implementation

uses  login, PassWord, AddUser, GonggaoFaBu, HuaXia, LoginData,
  GeRen, DanWei, GonggaoLiuLan, WorkFlag, comp, xukezheng, heimingdan,
  heimingdanwei, BackUp, Restore;

{$R *.DFM}

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



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


procedure TXtglMainForm.ButtonGeRenClick(Sender: TObject);
begin
GeRenForm.ShowModal;
end;

procedure TXtglMainForm.ButtonCompClick(Sender: TObject);
begin
DanWeiForm.ShowModal;
end;

procedure TXtglMainForm.ButtonPublisherClick(Sender: TObject);
begin
GongGaoLiuLanForm.ShowModal;
end;


procedure TXtglMainForm.ButtonExitClick(Sender: TObject);
begin
Close;
end;

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


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

procedure TXtglMainForm.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;
          Close;
          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;
          SystemData.QueryUser.Close;
          End;
Except
      On E:Exception Do
      Begin
      ShowMessage('数据库连接失败,请检验网络连接是否正常');
      Application.Terminate;
      End;
End;
End;


procedure TXtglMainForm.ButtonCompSiteClick(Sender: TObject);
begin
FormCompSetup.ShowModal;
end;

procedure TXtglMainForm.ButtonUserClick(Sender: TObject);
begin
FormUser.ShowModal;
end;

procedure TXtglMainForm.ButtonCompBulletinClick(Sender: TObject);
begin
GongGaoFaBuForm.ShowModal;
end;

procedure TXtglMainForm.N12Click(Sender: TObject);
begin
 PassWordForm.ShowModal;
end;

procedure TXtglMainForm.ButtonOnLineClick(Sender: TObject);
begin
WorkFlagForm.ShowModal;
end;

procedure TXtglMainForm.N15Click(Sender: TObject);
begin
WorkFlagForm.ShowModal;
end;

procedure TXtglMainForm.N16Click(Sender: TObject);
begin
XuKeForm.ShowModal;
end;

procedure TXtglMainForm.A2Click(Sender: TObject);
begin
HeiMingDanForm.ShowModal;
end;

procedure TXtglMainForm.D1Click(Sender: TObject);
begin
HeiMingDanWeiForm.ShowModal;
end;

procedure TXtglMainForm.B1Click(Sender: TObject);
begin
BackUpForm.ShowModal;
end;

procedure TXtglMainForm.SpeedBackupClick(Sender: TObject);
begin
BackUpForm.ShowModal;
end;

procedure TXtglMainForm.R1Click(Sender: TObject);
begin
RestoreForm.ShowModal;
end;

end.