unit27.pas

人寿保险的管理信息系统

unit Unit27;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Buttons, ExtCtrls, StdCtrls, RpCon, RpConDS,
  RpDefine, RpRave;

type
  TF_baocha = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton3: TSpeedButton;
    DBGrid1: TDBGrid;
    Button3: TButton;
    SpeedButton1: TSpeedButton;
    Label2: TLabel;
    RvProject5: TRvProject;
    RvDataSetConnection5: TRvDataSetConnection;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_baocha: TF_baocha;

implementation
     uses Unit11,Unit33;
{$R *.dfm}

procedure TF_baocha.Button1Click(Sender: TObject);
begin
     with mydm.baochaquery do
  begin
    Close;
      with SQL do
      begin
        Clear;
        Add('select policy_Id,Class_ID,Policy_Mode,Policy_Money,Policy_Date,Poli_valityDate,Policy_Period,Poli_jiaoper,Poli_status,Poli_operater,Cust_name,Inst_Name,Bene_Name');
        Add('from policy as a,customer as b,insurant as c,beneficiary as d');
        Add('where a.cust_id=b.cust_id and a.Inst_id=c.Inst_id and a.Bene_id=d.Bene_id and Policy_id=:p');
      end;
    Parameters[0].Value:=trim(edit1.Text);
    Prepared;
    Open;
  end;
 Edit1.clear;
end;

procedure TF_baocha.Button2Click(Sender: TObject);
begin
      with mydm.baochaquery do
  begin
    Close;
      with SQL do
      begin
        Clear;
        Add('select policy_Id,Class_ID,Policy_Mode,Policy_Money,Policy_Date,Poli_valityDate,Policy_Period,Poli_jiaoper,Poli_status,Poli_operater,Cust_name,Inst_Name,Bene_Name');
        Add('from policy as a,customer as b,insurant as c,beneficiary as d');
        Add('where a.cust_id=b.cust_id and a.Inst_id=c.Inst_id and a.Bene_id=d.Bene_id and cust_name=:p');
      end;
    Parameters[0].Value:=trim(edit2.Text);
    Prepared;
    Open;
  end;
   edit2.Clear;
end;

procedure TF_baocha.SpeedButton1Click(Sender: TObject);
begin
   { with mydm.baochaQuery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select policy_Id,Class_ID,Policy_Mode,Policy_Money,Policy_Date,Poli_valityDate,Policy_Period,Poli_jiaoper,Poli_status,Poli_operater,Cust_name,Inst_Name,Bene_Name');
        Add('from policy as a,customer as b,insurant as c,beneficiary as d');
        Add('where a.cust_id=b.cust_id and a.Inst_id=c.Inst_id and a.Bene_id=d.Bene_id and Policy_id=:p');
      Prepared;
    end;
    Parameters[0].Value:=trim(edit1.Text);
    Active:=true;
    open;
  end;  }  
  Rvproject5.Execute;
end;

{procedure TF_baocha.FormShow(Sender: TObject);
 begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select policy_Id,Class_ID,Policy_Mode,Policy_Money,Policy_Date,Poli_valityDate,Policy_Period,Poli_jiaoper,Poli_status,Poli_operater,Cust_name,Inst_Name,Bene_Name');
        Add('from policy as a,customer as b,insurant as c,beneficiary as d');
        Add('where a.cust_id=b.cust_id and a.Inst_id=c.Inst_id and a.Bene_id=d.Bene_id');
      Prepared;
    end;
    Active:=true;
    open;
  end;
end; }


procedure TF_baocha.FormShow(Sender: TObject);
begin
    with mydm.baochaQuery do
    begin
     close;
      with SQL do
      begin
      Clear;
        Add('select policy_Id,Class_ID,Policy_Mode,Policy_Money,Policy_Date,Poli_valityDate,Policy_Period,Poli_jiaoper,Poli_status,Poli_operater,Cust_name,Inst_Name,Bene_Name');
        Add('from policy as a,customer as b,insurant as c,beneficiary as d');
        Add('where a.cust_id=b.cust_id and a.Inst_id=c.Inst_id and a.Bene_id=d.Bene_id');
      Prepared;
      end;
    Active:=true;
    open;
    end;
    edit1.Clear;
    edit2.Clear;
end;

procedure TF_baocha.Button3Click(Sender: TObject);
begin
    begin
      with mydm.query do
      begin
        close;
        with SQL do
        begin
          clear;
          //添加的sql语句为多表连接查询
          Add('select a.*,b.*,c.*,d.*');
          Add('from Policy as a,Customer as b,Insurant as c,beneficiary as d');
          Add('where a.Policy_ID=:p and');
          Add('b.Cust_ID=a.Cust_ID and');
          Add('a.Inst_id=c.Inst_id and ');
          Add('a.Bene_id=d.Bene_id');
        end;
        parameters[0].value:=edit1.text;
        prepared;
        open;
      end;
      //保单信息
      F_Polixiang.Edit1.Text:=MyDm.query.Fields[0].AsString;
      F_Polixiang.Edit2.Text:=MyDm.query.Fields[4].AsString;
      F_Polixiang.Edit3.Text:=MyDm.query.Fields[6].AsString;
      F_Polixiang.Edit4.Text:=MyDm.query.Fields[7].AsString;
      F_Polixiang.Edit5.Text:=MyDm.query.Fields[9].AsString;
      F_Polixiang.Edit6.Text:=MyDm.query.Fields[10].AsString;
      F_Polixiang.Edit7.Text:=MyDm.query.Fields[8].AsString;
      F_Polixiang.Edit8.Text:=MyDm.query.Fields[5].AsString;
      F_Polixiang.Edit9.Text:=MyDm.query.Fields[11].AsString;
      F_Polixiang.Edit10.Text:=MyDm.query.Fields[12].AsString;
      F_Polixiang.Edit11.Text:=MyDm.query.Fields[13].AsString;
      //投保人资料
      F_Polixiang.Edit13.Text:=MyDm.query.Fields[14].AsString;
      F_Polixiang.Edit14.Text:=MyDm.query.Fields[20].AsString;
      F_Polixiang.Edit15.Text:=MyDm.query.Fields[15].AsString;
      F_Polixiang.Edit16.Text:=MyDm.query.Fields[16].AsString;
      F_Polixiang.Edit17.Text:=MyDm.query.Fields[21].AsString;
      F_Polixiang.Edit18.Text:=MyDm.query.Fields[17].AsString;
      F_Polixiang.Edit19.Text:=MyDm.query.Fields[18].AsString;
      F_Polixiang.Edit20.Text:=MyDm.query.Fields[19].AsString;
      F_Polixiang.Edit21.Text:=MyDm.query.Fields[22].AsString;
      F_Polixiang.Edit22.Text:=MyDm.query.Fields[23].AsString;
      F_Polixiang.Edit23.Text:=MyDm.query.Fields[26].AsString;
      F_Polixiang.Edit24.Text:=MyDm.query.Fields[27].AsString;
      F_Polixiang.memo3.Text:=MyDm.query.Fields[24].AsString;
      F_Polixiang.memo4.Text:=MyDm.query.Fields[25].AsString;
      //被保人资料
      F_Polixiang.Edit12.Text:=MyDm.query.Fields[28].AsString;
      F_Polixiang.Edit25.Text:=MyDm.query.Fields[34].AsString;
      F_Polixiang.Edit26.Text:=MyDm.query.Fields[29].AsString;
      F_Polixiang.Edit27.Text:=MyDm.query.Fields[30].AsString;
      F_Polixiang.Edit28.Text:=MyDm.query.Fields[31].AsString;
      F_Polixiang.Edit29.Text:=MyDm.query.Fields[32].AsString;
      F_Polixiang.Edit30.Text:=MyDm.query.Fields[33].AsString;
      F_Polixiang.Edit31.Text:=MyDm.query.Fields[35].AsString;
      F_Polixiang.Edit32.Text:=MyDm.query.Fields[40].AsString;
      F_Polixiang.Edit33.Text:=MyDm.query.Fields[36].AsString;
      F_Polixiang.Edit34.Text:=MyDm.query.Fields[39].AsString;

      F_Polixiang.memo1.Text:=MyDm.query.Fields[37].AsString;
      F_Polixiang.memo2.Text:=MyDm.query.Fields[38].AsString;
      //受益人资料
      F_Polixiang.Edit35.Text:=MyDm.query.Fields[41].AsString;
      F_Polixiang.Edit36.Text:=MyDm.query.Fields[42].AsString;
      F_Polixiang.Edit37.Text:=MyDm.query.Fields[43].AsString;
      F_Polixiang.Edit38.Text:=MyDm.query.Fields[46].AsString;
      F_Polixiang.Edit39.Text:=MyDm.query.Fields[44].AsString;
      F_Polixiang.Edit40.Text:=MyDm.query.Fields[45].AsString;
      F_Polixiang.Edit41.Text:=MyDm.query.Fields[47].AsString;
      F_Polixiang.Edit42.Text:=MyDm.query.Fields[48].AsString;
      F_Polixiang.Edit43.Text:=MyDm.query.Fields[49].AsString;
      F_Polixiang.memo5.Text:=MyDm.query.Fields[50].AsString;
      F_Polixiang.memo6.Text:=MyDm.query.Fields[51].AsString;
      //详细信息窗体显示
      F_Polixiang.ShowModal;
   end;
end;

procedure TF_baocha.SpeedButton3Click(Sender: TObject);
begin
   close;
end;

procedure TF_baocha.SpeedButton2Click(Sender: TObject);
begin
    if Application.MessageBox('是否删除？','提示',mb_yesno)=6 then
  begin
    try
      mydm.baochasrc.DataSet.Delete;
    except//如果删除不成功将弹出以下对会框
      Application.MessageBox('删除不成功!','提示',mb_ok);
    end;
  end;
end;

end.