unit24.pas

人寿保险的管理信息系统

unit Unit24;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids;

type
  TF_baoshow = class(TForm)
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Button1: TButton;
    Button2: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_baoshow: TF_baoshow;

implementation
 uses unit11,unit23,unit8;
{$R *.dfm}

procedure TF_baoshow.FormShow(Sender: TObject);
begin
     with mydm.adoquery1 do
   begin
     Close;
     with SQL do
     begin
       Clear;
       Add('select a.*,cust_name,bene_name');
       Add('from policy as a,customer,beneficiary' );
       Add('where a.cust_id=customer.cust_id and a.bene_id=beneficiary.bene_id');
     end;
      Open;
   end;
end;

procedure TF_baoshow.Button1Click(Sender: TObject);
begin
   F_comp.Edit2.Enabled:=true;
   F_comp.DateTimePicker1.Enabled:=true;
   begin
     F_comp.Edit2.Text:=mydm.datasource2.DataSet.Fields[0].AsString;
     F_comp.DateTimePicker1.Date:=mydm.datasource2.DataSet.Fields[7].AsDateTime;
     F_comp.Edit3.Text:=mydm.datasource2.DataSet.Fields[14].AsString;
     F_comp.Edit4.Text:=mydm.datasource2.DataSet.Fields[15].AsString;

     {  with mydm.cust1query,mydm.policyquery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select cust_name from customer,policy');
      Add('where customer.cust_id=policy.cust_id and policy.policy_id=:p');
      //Add('select cust_name from customer,policy where customer.cust_id=policy.cust_id and policy.policy_id=:p0');
    end;
    Parameters[0].Value:=Trim(F_comp.Edit2.Text);//Trim()为去空格函数
    Prepared;
    Open;
        //F_comp.Edit3.Text:=mydm.cust1src.DataSet.Fields[6].AsString;
  end;


       with mydm.benequery,mydm.policyquery do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add('select bene_name from beneficiary,policy where beneficiary.bene_id=policy.bene_id and policy.policy_id=:p0');
    end;
    Parameters[0].Value:=Trim(F_comp.Edit2.Text);//Trim()为去空格函数
    Prepared;
    Open;
   //F_comp.Edit4.Text:=mydm.benesrc.DataSet.Fields[1].AsString;
  end; }

      F_bill.Edit2.Text:=mydm.DataSource2.DataSet.Fields[0].AsString;
   end;
   close;
end;

procedure TF_baoshow.Button2Click(Sender: TObject);
begin
   close;
end;

end.