unit1.~pas

来自「最新社会保险数据分析」· ~PAS 代码 · 共 96 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls;

type
  TForm1 = class(TForm)
    Query1: TQuery;
    Query2: TQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from book1.dbf');
query1.Open;


while not query1.eof do
begin
  query2.Close;
  query2.SQL.Clear;
  query2.SQL.Add('select * from book2.dbf where 身份证号="'+query1.Fieldbyname('身份证号').asstring+'"');
  query2.Open;
  query1.Edit;
  if query2.Fieldbyname('险种').asstring='a'  then
  begin
     query1.Fieldbyname('count1').asstring:='1';
  end;
  if query2.Fieldbyname('险种').asstring='b'  then
  begin
     query1.Fieldbyname('count2').asstring:='2';
  end;
  if query2.Fieldbyname('险种').asstring='c'  then
  begin
     query1.Fieldbyname('count3').asstring:='3';
  end;
  if query2.Fieldbyname('险种').asstring='d'  then
  begin
     query1.Fieldbyname('count4').asstring:='4';
  end;
  if query2.Fieldbyname('险种').asstring='e'  then
  begin
     query1.Fieldbyname('count5').asstring:='5';
  end;
  if query2.Fieldbyname('险种').asstring='f'  then
  begin
     query1.Fieldbyname('count6').asstring:='6';
  end;
  if query2.Fieldbyname('险种').asstring='g'  then
  begin
     query1.Fieldbyname('count7').asstring:='7';
  end;
  if query2.Fieldbyname('险种').asstring='h'  then
  begin
     query1.Fieldbyname('count8').asstring:='8';
  end;
  if query2.Fieldbyname('险种').asstring='j'  then
  begin
     query1.Fieldbyname('count9').asstring:='9';
  end;
  if query2.Fieldbyname('险种').asstring='k'  then
  begin
     query1.Fieldbyname('count10').asstring:='10';
  end;
  if query2.Fieldbyname('险种').asstring='l'  then
  begin
     query1.Fieldbyname('count11').asstring:='11';
  end;
  query1.Post;
  query1.Next;


end;

end;

end.