unit2.pas

双色球分析软件

unit Unit2;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   ss:array[1..1000] of string;
   i:integer;
   sAge:integer;
begin
      with AdoQuery1 do
      begin
           connectionstring:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=HRManage;Data Source=ntserver';
           close;
           sql.Add('select *  from  HRresumebak1 order by r_id');
           prepared;
           open;
           if recordcount<>0 then
           begin
              i:=1;
              while not eof do
              begin
                   ss[i]:=copy(trim(FieldByName('r_borndate').AsString),1,4);
                   next;
                   inc(i);
              end;
           end;
      end;
      sAge:=0;
      for i:=1 to 600 do
      begin
          //showmessage(ss[i]);
          sAge:=sAge+(2007-strtoint(ss[i]));
          //showmessage(inttostr(sAge));
      end;
      showmessage(formatFloat('##0',sAge/600));
end;

end.