unit2.pas

人寿保险的管理信息系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons, ComCtrls,unit1, jpeg, ActnMan,
  ActnColorMaps, Menus;

type
  TF_main = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton101: TSpeedButton;
    SpeedButton102: TSpeedButton;
    SpeedButton103: TSpeedButton;
    SpeedButton501: TSpeedButton;
    SpeedButton104: TSpeedButton;
    SpeedButton201: TSpeedButton;
    SpeedButton401: TSpeedButton;
    SpeedButton601: TSpeedButton;
    Panel301: TPanel;
    Panel302: TPanel;
    SpeedButton01: TSpeedButton;
    SpeedButton02: TSpeedButton;
    SpeedButton202: TSpeedButton;
    Label1: TLabel;
    SpeedButton03: TSpeedButton;
    SpeedButton04: TSpeedButton;
    Panel304: TPanel;
    SpeedButton05: TSpeedButton;
    Panel305: TPanel;
    SpeedButton502: TSpeedButton;
    SpeedButton503: TSpeedButton;
    SpeedButton504: TSpeedButton;
    SpeedButton505: TSpeedButton;
    SpeedButton506: TSpeedButton;
    SpeedButton507: TSpeedButton;
    SpeedButton06: TSpeedButton;
    Panel306: TPanel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    StatusBar1: TStatusBar;
    SpeedButton602: TSpeedButton;
    Panel303: TPanel;
    SpeedButton301: TSpeedButton;
    SpeedButton302: TSpeedButton;
    SpeedButton303: TSpeedButton;
    SpeedButton402: TSpeedButton;
    Image1: TImage;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton101Click(Sender: TObject);
    procedure SpeedButton102Click(Sender: TObject);
    procedure SpeedButton103Click(Sender: TObject);
    procedure SpeedButton501Click(Sender: TObject);
    procedure SpeedButton104Click(Sender: TObject);
    procedure SpeedButton201Click(Sender: TObject);
    procedure SpeedButton401Click(Sender: TObject);

    procedure SpeedButton601Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton01Click(Sender: TObject);
    procedure SpeedButton02Click(Sender: TObject);
    procedure SpeedButton04Click(Sender: TObject);
    procedure SpeedButton05Click(Sender: TObject);
    procedure SpeedButton06Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure SpeedButton504Click(Sender: TObject);
    procedure SpeedButton602Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton301Click(Sender: TObject);
    procedure SpeedButton302Click(Sender: TObject);
    procedure SpeedButton03Click(Sender: TObject);
    procedure SpeedButton502Click(Sender: TObject);
    procedure SpeedButton503Click(Sender: TObject);
    procedure SpeedButton505Click(Sender: TObject);
    procedure SpeedButton506Click(Sender: TObject);
    procedure SpeedButton507Click(Sender: TObject);
    procedure SpeedButton303Click(Sender: TObject);
    procedure Panel301Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure SpeedButton402Click(Sender: TObject);
    procedure SpeedButton202Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
  private
    { Private declarations }
  public
    log:integer;
    { Public declarations }
  end;

var
  F_main: TF_main;
  oper:string;

implementation
 uses unit3,unit4,unit5,unit6,unit7,unit8,unit10,unit11,
  Unit15,Unit16,Unit17,Unit18,Unit19,Unit20,Unit21,Unit22,Unit23,
  Unit25, Unit26,unit27,Unit29,Unit34;
{$R *.dfm}

procedure TF_main.BitBtn3Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TF_main.BitBtn4Click(Sender: TObject);
begin
  f_about.ShowModal;

end;

procedure TF_main.FormShow(Sender: TObject);
begin
  F_login.ShowModal;
  f_main.panel301.Hide;
  f_main.panel302.Hide;
  f_main.Panel303.Hide;
  f_main.panel304.Hide;
  f_main.panel305.Hide;
  f_main.panel306.Hide;
end;

procedure TF_main.BitBtn2Click(Sender: TObject);
begin
  f_login.ShowModal;
end;

procedure TF_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if application.MessageBox('是否退出系统？','人寿保险',mb_yesno)=7 then
  begin
    CanClose := False;
  end;
end;

procedure TF_main.SpeedButton1Click(Sender: TObject);
begin
  log:=-1;

  f_login.ShowModal;
end;

procedure TF_main.SpeedButton4Click(Sender: TObject);
begin
  close;
end;

procedure TF_main.SpeedButton3Click(Sender: TObject);
begin
  f_about.ShowModal;
end;

procedure TF_main.SpeedButton1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (30<x) and (x<50) and (y<40) and (y>20) then
    Speedbutton1.Layout:=blglyphleft
  else
    speedbutton1.Layout:=blglyphtop;
end;

procedure TF_main.SpeedButton3MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (30<x) and (x<50) and (y<40) and (y>20) then
    Speedbutton3.Layout:=blglyphleft
  else
    speedbutton3.Layout:=blglyphtop;
end;

procedure TF_main.SpeedButton4MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (30<x) and (x<50) and (y<40) and (y>20) then
    Speedbutton4.Layout:=blglyphleft
  else
    speedbutton4.Layout:=blglyphtop;
end;

procedure TF_main.SpeedButton2MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (30<x) and (x<50) and (y<40) and (y>20) then
    Speedbutton2.Layout:=blglyphleft
  else
    speedbutton2.Layout:=blglyphtop;
end;

procedure TF_main.SpeedButton101Click(Sender: TObject);
begin
  F_customer.Show;

end;

procedure TF_main.SpeedButton102Click(Sender: TObject);
begin
  F_insurant.Button1.Enabled:=false;
  F_insurant.Button2.Enabled:=false;
  F_insurant.SpeedButton1.Enabled:=false;
  F_insurant.SpeedButton2.Enabled:=true;
  F_insurant.Show;
end;

procedure TF_main.SpeedButton103Click(Sender: TObject);
begin
  F_beneficiary.Button1.Enabled:=false;
  F_beneficiary.Button2.Enabled:=false;
  F_beneficiary.SpeedButton1.Enabled:=false;
  F_beneficiary.SpeedButton2.Enabled:=true;
  F_beneficiary.Show;
end;

procedure TF_main.SpeedButton501Click(Sender: TObject);
begin
  F_user.Show;
end;

procedure TF_main.SpeedButton104Click(Sender: TObject);
begin
  F_policy.Button4.Enabled:=false;
  F_policy.Button8.Enabled:=false;
  F_policy.Button1.Enabled:=False;
  F_policy.Button2.Enabled:=true;
  F_policy.Show;
end;

procedure TF_main.SpeedButton201Click(Sender: TObject);
begin
  F_bill.BitBtn1.Enabled:=false;
  F_bill.BitBtn2.Enabled:=False;
  F_bill.SpeedButton2.Enabled:=true;
  F_bill.Show;
end;

procedure TF_main.SpeedButton401Click(Sender: TObject);
begin
 F_baocha.ShowModal;
end;


procedure TF_main.SpeedButton601Click(Sender: TObject);
begin
  F_beifen.Edit1.Clear;
  F_beifen.ShowModal;
end;

procedure TF_main.SpeedButton2Click(Sender: TObject);
begin
  Application.HelpFile := 'help.hlp' ;
  Application.HelpCommand(HELP_FINDER,0);

end;

procedure TF_main.SpeedButton01Click(Sender: TObject);
begin
    panel301.Show;
    panel302.hide;
    panel303.hide;
    panel304.Hide;
    panel305.Hide;
    panel306.Hide;
end;
procedure TF_main.SpeedButton02Click(Sender:TObject);
begin
     panel302.Show;
     panel301.Hide;
     panel303.hide;
     panel304.Hide;
     panel305.Hide;
     panel306.Hide;
end;

procedure TF_main.SpeedButton03Click(Sender: TObject);
begin
     panel303.Show;
     panel301.Hide;
     panel302.hide;
     panel304.Hide;
     panel305.Hide;
     panel306.Hide;
end;




procedure TF_main.SpeedButton04Click(Sender: TObject);
begin
    panel304.show;
    panel301.Hide;
    panel302.Hide;
    panel303.hide;
    panel305.Hide;
    panel306.Hide;
end;

procedure TF_main.SpeedButton05Click(Sender: TObject);
begin
    panel305.show;
    panel301.Hide;
    panel302.Hide;
    panel303.hide;
    panel304.Hide;
    panel306.Hide;
end;

procedure TF_main.SpeedButton06Click(Sender: TObject);
begin
    panel306.show;
    panel301.Hide;
    panel302.Hide;
    panel303.hide;
    panel304.Hide;
    panel305.Hide;
end;

procedure TF_main.N2Click(Sender: TObject);
begin
   f_customer.Show;
end;

procedure TF_main.N3Click(Sender: TObject);
begin
   f_insurant.Show;
end;

procedure TF_main.N4Click(Sender: TObject);
begin
   f_beneficiary.Show;
end;

procedure TF_main.N7Click(Sender: TObject);
begin
    f_bill.Show;
end;

procedure TF_main.N14Click(Sender: TObject);
begin
    f_custcha.Show;
end;

procedure TF_main.N25Click(Sender: TObject);
begin
    F_beifen.Show;
end;

procedure TF_main.N18Click(Sender: TObject);
begin
   F_xianzhong.Show;
end;

procedure TF_main.SpeedButton504Click(Sender: TObject);
begin
   f_jiaofei.show;
end;

procedure TF_main.SpeedButton602Click(Sender: TObject);
begin
   F_huanyuan.show;
end;

procedure TF_main.Button1Click(Sender: TObject);
begin
   F_compres.show;
end;

procedure TF_main.Button2Click(Sender: TObject);
begin
     F_comp.show;
end;

procedure TF_main.SpeedButton301Click(Sender: TObject);
begin
    f_comp.Show;
end;

procedure TF_main.SpeedButton302Click(Sender: TObject);
begin
    f_compres.Show;
end;

 procedure TF_main.SpeedButton502Click(Sender: TObject);
begin
   f_xianzhong.Show;
end;

procedure TF_main.SpeedButton503Click(Sender: TObject);
begin
    f_baoper.Show;
end;

procedure TF_main.SpeedButton505Click(Sender: TObject);
begin
   f_jiaoper.Show;
end;

procedure TF_main.SpeedButton506Click(Sender: TObject);
begin
   f_relation.Show;
end;

procedure TF_main.SpeedButton507Click(Sender: TObject);
begin
    f_emp.Show;
end;

procedure TF_main.SpeedButton303Click(Sender: TObject);
begin
    F_comprep.show;
end;

procedure TF_main.Panel301Click(Sender: TObject);
begin
     //F_comp.Show;
end;

procedure TF_main.N26Click(Sender: TObject);
begin
     F_huanyuan.Show;
end;

procedure TF_main.N17Click(Sender: TObject);
begin
      F_user.Show;
end;

procedure TF_main.N19Click(Sender: TObject);
begin
     F_baoper.Show;
end;

procedure TF_main.N20Click(Sender: TObject);
begin
     F_jiaofei.Show;
end;

procedure TF_main.N21Click(Sender: TObject);
begin
    F_jiaoper.Show;
end;

procedure TF_main.N22Click(Sender: TObject);
begin
    F_relation.Show;
end;

procedure TF_main.N23Click(Sender: TObject);
begin
    F_emp.Show;
end;

procedure TF_main.N10Click(Sender: TObject);
begin
    F_comp.Show;
end;

procedure TF_main.N11Click(Sender: TObject);
begin
     F_compres.Show;
end;

procedure TF_main.N12Click(Sender: TObject);
begin
   F_comprep.Show;
end;

procedure TF_main.N5Click(Sender: TObject);
begin
    F_policy.Show;
end;

procedure TF_main.SpeedButton402Click(Sender: TObject);
begin
    F_custcha.Show;
end;

procedure TF_main.SpeedButton202Click(Sender: TObject);
begin
    F_billcha.Show;
end;

procedure TF_main.N8Click(Sender: TObject);
begin
   f_billcha.Show;
end;

procedure TF_main.N15Click(Sender: TObject);
begin
    f_baocha.Show;
end;

end.