main.pas

运行程序==>安装数据库==>重新配置数据库连接。用户名admin数据库密码为123

unit main;

interface

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

type
  TFom_main = class(TForm)
    MainMenu1: TMainMenu;
    n_config: TMenuItem;
    N_vote: TMenuItem;
    N_backup: TMenuItem;
    N_exit: TMenuItem;
    N_sys: TMenuItem;
    N_yjgl: TMenuItem;
    N_yjcx: TMenuItem;
    N_yjtj: TMenuItem;
    N_help: TMenuItem;
    N_about: TMenuItem;
    CoolBar1: TCoolBar;
    N1: TMenuItem;
    N_department: TMenuItem;
    N_job: TMenuItem;
    N_worker: TMenuItem;
    ImageList1: TImageList;
    ToolBar2: TToolBar;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    ImageList2: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    N2: TMenuItem;
    N_dinzhi: TMenuItem;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton6: TToolButton;
    procedure N_voteClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N_yjglClick(Sender: TObject);
    procedure N_yjcxClick(Sender: TObject);
    procedure N_yjtjClick(Sender: TObject);
    procedure N_aboutClick(Sender: TObject);
    procedure N_backupClick(Sender: TObject);
    procedure N_exitClick(Sender: TObject);
    procedure N_workerClick(Sender: TObject);
    procedure N_departmentClick(Sender: TObject);
    procedure N_jobClick(Sender: TObject);
    procedure N_dinzhiClick(Sender: TObject);
    procedure N_guide(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fom_main: TFom_main;

implementation

uses login, backup, links, lyda, reovto, Uyjgl, yjcx, yjtj, about,
  department, job, guide;

{$R *.dfm}

procedure TFom_main.N_voteClick(Sender: TObject);
begin
  Application.CreateForm(TFom_revote, Fom_revote);
  Fom_revote.ShowModal;
end;

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

procedure TFom_main.N_yjglClick(Sender: TObject);
begin
  Application.CreateForm(TFom_yjgl, Fom_yjgl);
  fom_yjgl.ShowModal;
end;

procedure TFom_main.N_yjcxClick(Sender: TObject);
begin
  Application.CreateForm(TForm_yjcx, Form_yjcx);
  form_yjcx.ShowModal;
end;

procedure TFom_main.N_yjtjClick(Sender: TObject);
begin
  Application.CreateForm(TFom_yjtj, Fom_yjtj);
  fom_yjtj.ShowModal;
end;

procedure TFom_main.N_aboutClick(Sender: TObject);
begin
  Application.CreateForm(TFom_about, Fom_about);
  fom_about.ShowModal;
end;

procedure TFom_main.N_backupClick(Sender: TObject);
begin
  Application.CreateForm(TFom_backup, Fom_backup);
  Fom_backup.ShowModal;
end;

procedure TFom_main.N_exitClick(Sender: TObject);
begin
  application.Terminate;
end;

procedure TFom_main.N_workerClick(Sender: TObject);
begin
  Application.CreateForm(TFom_lyda, Fom_lyda);
  fom_lyda.ShowModal;
end;

procedure TFom_main.N_departmentClick(Sender: TObject);
begin
  Application.CreateForm(TFom_department, Fom_department);
  Fom_department.ShowModal;
end;

procedure TFom_main.N_jobClick(Sender: TObject);
begin
  Application.CreateForm(TFom_job, Fom_job);
  fom_job.ShowModal;
end;

procedure TFom_main.N_dinzhiClick(Sender: TObject);
begin
  Application.CreateForm(TFom_dinzhi, Fom_dinzhi);
  fom_dinzhi.ShowModal;
end;

procedure TFom_main.N_guide(Sender: TObject);
begin
  Application.CreateForm(TFom_guide, Fom_guide);
  Fom_guide.ShowModal;
end;

procedure TFom_main.ToolButton6Click(Sender: TObject);
begin
  Application.CreateForm(TFom_dinzhi, Fom_dinzhi);
  fom_dinzhi.ShowModal;
end;

end.