unit2.pas

数据库人寿保险通用系统 本系统主要负责保险资料的管理

unit Unit2;

interface

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

type
  TF_main = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    StatusBar1: TStatusBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    Image1: TImage;
    Label1: TLabel;
    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 SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton9MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton10MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure SpeedButton11MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure SpeedButton12MouseMove(Sender: TObject; Shift: TShiftState;
      X, Y: Integer);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton2Click(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,unit9,unit10,unit11,unit13,
  Unit14;
{$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;
  
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.SpeedButton5Click(Sender: TObject);
begin
  F_customer.Show;
  If  (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)<>'0') and (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)<>'5') then
  begin
    if Application.MessageBox('你上一次操作没有完成。'+#13+'是否删除不完整信息。','提示！',mb_yesno)=mryes then
    begin
      mydm.custquery.Last;
      if F_customer.SpeedButton3.Enabled=true then
        F_customer.SpeedButton3.Click;
    end
    else
    begin
      F_customer.SpeedButton1.Enabled:=False;
      F_customer.SpeedButton2.Enabled:=false;
    end;
    F_customer.punum:=Trim(MYdm.guosrc.DataSet.Fields[1].asstring);//将中断时的编号付回去
    if (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)='1') then
    begin
      F_insurant.SpeedButton1.Click;
      F_insurant.Edit1.Text:=F_customer.punum;
      F_insurant.Show;
    end;
    if (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)='2') then
    begin
      F_beneficiary.SpeedButton1.Click;
      F_beneficiary.Edit1.Text:=F_customer.punum;
      F_beneficiary.Show;
    end;
    if (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)='3') then
    begin
      F_bill.SpeedButton1.Click;
      F_bill.Edit1.Text:=F_customer.punum;
      F_bill.Show;
    end;
    if (Trim(MYdm.guosrc.DataSet.Fields[0].asstring)='4') then
    begin
      F_policy.Button1.Click;
      F_policy.Edit1.Text:=F_customer.punum;
      F_policy.Show;
    end;
    F_customer.Hide;
  end; 
end;

procedure TF_main.SpeedButton6Click(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.SpeedButton7Click(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.SpeedButton8Click(Sender: TObject);
begin
  F_base.ShowModal;
end;

procedure TF_main.SpeedButton9Click(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.SpeedButton10Click(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.SpeedButton11Click(Sender: TObject);
begin
 F_user.ShowModal;
end;

procedure TF_main.SpeedButton5MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<130) and (x>40) and (y>15) and (y<30) then
    Speedbutton5.Spacing:=10
  else
    Speedbutton5.Spacing:=4;
end;

procedure TF_main.SpeedButton6MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<130) and (x>40) and (y>15) and (y<30) then
    Speedbutton6.Spacing:=10
  else
    Speedbutton6.Spacing:=4;
end;

procedure TF_main.SpeedButton7MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<130) and (x>40) and (y>15) and (y<30) then
    Speedbutton7.Spacing:=10
  else
    Speedbutton7.Spacing:=4;
end;

procedure TF_main.SpeedButton8MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<130) and (x>40) and (y>15) and (y<30) then
    Speedbutton8.Spacing:=10
  else
    Speedbutton8.Spacing:=4;
end;

procedure TF_main.SpeedButton9MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<130) and (x>40) and (y>15) and (y<30) then
    Speedbutton9.Spacing:=10
  else
    Speedbutton9.Spacing:=4;
end;

procedure TF_main.SpeedButton10MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<130) and (x>40) and (y>15) and (y<30) then
    Speedbutton10.Spacing:=10
  else
    Speedbutton10.Spacing:=4;
end;

procedure TF_main.SpeedButton11MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<130) and (x>40) and (y>15) and (y<30) then
    Speedbutton11.Spacing:=10
  else
    Speedbutton11.Spacing:=4;
end;

procedure TF_main.SpeedButton12MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if (x<130) and (x>40) and (y>15) and (y<30) then
    Speedbutton12.Spacing:=10
  else
    Speedbutton12.Spacing:=4;
end;

procedure TF_main.SpeedButton12Click(Sender: TObject);
begin
  Form14.ShowModal;
end;

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

end;

end.