unit_lstatics.pas

航空人身保险信息管理系统使用SQL和DELHPI开发

unit Unit_Lstatics;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Grids, DBGrids, DB, ADODB;

type
  TFrmLstatics = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    DataSource2: TDataSource;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    DataSource3: TDataSource;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label11: TLabel;
    Edit8: TEdit;
    Edit7: TEdit;
    Label12: TLabel;
    Edit6: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit5: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLstatics: TFrmLstatics;

implementation

uses Unit_Sstatics, Unit_Common, unit_DataM;

{$R *.dfm}

procedure TFrmLstatics.Button2Click(Sender: TObject);
begin
FrmLstatics.Close;
end;


procedure TFrmLstatics.PageControl1Change(Sender: TObject);
   var
 iii,jjj:integer;
 ii,jj:integer;
begin
iii:=0;
jjj:=0;
ii:=0;
jj:=0;
 adoquery2.Active:=false;
 adoquery2.SQL.Text:='select Department.DepartmentNo as 机构代码, CONVERT(char(11),InsuranceForm.SignDate,112) as 签单日期 ,case  status  when 1  then '
 +''''
 +'有效件数'
 +''''
 +'when 0 then  '+''''+'退保件数'+''''+
      'end as 投保状态, count(*) as 投保数量, count(*)*20*status as 保费 from department,InsuranceForm,InsuranceCustomer'+
      ' where InsuranceForm.currentno=InsuranceCustomer.currentno and Department.DepartmentNo='
      +''''+gorg+''''+'and signdate>='+''''+gQueryID0+''''+'and signdate<='
      +''''+gQueryID1+''''+'and InsuranceCustomer.DepartmentNo=Department.DepartmentNo and InsuranceCustomer.LoginName='
      +''''+goper+''''+' group by Department.DepartmentNo,CONVERT(char(11),InsuranceForm.SignDate,112),status order by CONVERT(char(11),InsuranceForm.SignDate,112)';
adoquery2.Active:=true;
adoquery2.First;
while not adoquery2.Eof do
begin
   if adoquery2.Fieldbyname('投保状态').asstring='退保件数' then
    begin
  iii:=iii+adoquery2.Fieldbyname('投保数量').Value;
   adoquery2.Next;
    end;
   if adoquery2.Fieldbyname('投保状态').asstring='有效件数' then
   begin
   jjj:=jjj+adoquery2.Fieldbyname('投保数量').Value;
  adoquery2.Next;
  end;
end;
  Edit7.text:=inttostr(iii);
   Edit8.text:=inttostr(iii*20);
   Edit5.text:=inttostr(jjj);
   Edit6.text:=inttostr(jjj*20);



adoquery3.Active:=false;
 adoquery3.SQL.Text:='select year(InsuranceForm.SignDate) as 保单年度,Department.DepartmentNo as 机构代码,InsuranceForm.InsuranceNo as 保单序号,InsuranceCustomer.Name as 被保险人姓名, InsuranceCustomer.IdNo as 身份证号,'+
 'InsuranceCustomer.AirLineNo as 航班号,InsuranceForm.InsuraceFee as 保险金额,InsuranceForm.Compensate as 保费,'+
 'InsuranceForm.Status as 状态,CONVERT(char(11),InsuranceForm.SignDate,112) as 签单日期,InsuranceForm.ModifyDate as 修改退保日期,Department.DepartmentNo as 操作员机构, InsuranceCustomer.LoginName as 操作员代码'+
 ' from InsuranceCustomer,InsuranceForm,Department'+
' where InsuranceForm.currentno=InsuranceCustomer.currentno and Department.DepartmentNo='
      +''''+gorg+''''+'and signdate>='+''''+gQueryID0+''''+'and signdate<='
      +''''+gQueryID1+''''+'and InsuranceCustomer.DepartmentNo=Department.DepartmentNo and InsuranceCustomer.LoginName='
      +''''+goper+'''';
adoquery3.Active:=true;
adoquery3.First;
while not adoquery3.Eof do
begin
   if adoquery3.Fieldbyname('状态').asstring='1' then
    begin
   ii:=ii+1;
   adoquery3.Next;
    end
   else
   begin
   jj:=jj+1;
   adoquery3.Next;
   end;
end;
  Edit9.text:=inttostr(ii);
   Edit10.text:=inttostr(ii*20);
   Edit11.text:=inttostr(jj);
   Edit12.text:=inttostr(jj*20);
end;



procedure TFrmLstatics.FormActivate(Sender: TObject);
 var
 i,j:integer;
begin
i:=0;
j:=0;
 adoquery1.Active:=false;
 adoquery1.SQL.Text:='select Department.DepartmentNo as 机构代码, case  status  when 1  then '
 +''''
 +'有效件数'
 +''''
 +'when 0 then  '+''''+'退保件数'+''''+
      '  end as 投保状态, count(*) as 投保数量, count(*)*20*status as 保费 from department,InsuranceForm,InsuranceCustomer where InsuranceForm.currentno=InsuranceCustomer.currentno and Department.DepartmentNo='
      +''''+gorg+''''+'and signdate>='+''''+gQueryID0+''''+'and signdate<='
      +''''+gQueryID1+''''+'and InsuranceCustomer.DepartmentNo=Department.DepartmentNo and InsuranceCustomer.LoginName='
      +''''+goper+''''+' group by Department.DepartmentNo,status';
adoquery1.Active:=true;
adoquery1.First;
while not  adoquery1.Eof do
begin
   if adoquery1.Fieldbyname('投保状态').asstring='退保件数' then
    begin
  i:=i+adoquery1.Fieldbyname('投保数量').Value;
   adoquery1.Next;
    end;
   if adoquery1.Fieldbyname('投保状态').asstring='有效件数' then
   begin
   j:=j+adoquery1.Fieldbyname('投保数量').Value;
  adoquery1.Next;
  end;
end;
   Edit3.text:=inttostr(i);
   Edit4.text:=inttostr(i*20);
   Edit1.text:=inttostr(j);
   Edit2.text:=inttostr(j*20);
   end;
procedure TFrmLstatics.Button1Click(Sender: TObject);
begin

 if(PageControl1.ActivePageIndex=0) then
PrintForQuery(DataSource1,DBGrid1);

 if(PageControl1.ActivePageIndex=1) then
PrintForQuery(DataSource2,DBGrid2);
 if(PageControl1.ActivePageIndex=2) then
PrintForQuery(DataSource3,DBGrid3);

end;

end.