form_datainputl.~pas

双色球分析软件

unit Form_DataInputL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DB, ADODB, ImgList, StdCtrls, ButtonExCtl, EasyGrid;

type
  TForm_DataInput = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    ImageList1: TImageList;
    ADOQuery1: TADOQuery;
    Bevel1: TBevel;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    Label5: TLabel;
    Edit4: TEdit;
    Label6: TLabel;
    Edit5: TEdit;
    Label7: TLabel;
    Edit6: TEdit;
    Label8: TLabel;
    Edit7: TEdit;
    Label9: TLabel;
    Edit8: TEdit;
    Label10: TLabel;
    Edit9: TEdit;
    Label11: TLabel;
    Edit10: TEdit;
    ButtonExCtl1: TButtonExCtl;
    Grid1: TEasyGrid;
    Button1: TButtonExCtl;
    Button2: TButtonExCtl;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Button7: TButtonExCtl;
    procedure FormCreate(Sender: TObject);
    procedure Image2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    procedure Edit9Enter(Sender: TObject);
    procedure ButtonExCtl1Click(Sender: TObject);
    procedure Grid1DblClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit7Enter(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_DataInput: TForm_DataInput;
  s_ID:string;
implementation

{$R *.dfm}
uses common;
procedure TForm_DataInput.FormCreate(Sender: TObject);
var
    i:integer;
    CurrentPath:string;
    sMax:string;
begin
     ShowPloyForm(image1.Picture.Bitmap,handle);
     /////////
     CurrentPath:=ExtractFilePath(paramstr(0));
     grid1.Cells[1,1].ForeText:='期号';
     grid1.Cells[2,1].ForeText:='红球1';
     grid1.Cells[3,1].ForeText:='红球2';
     grid1.Cells[4,1].ForeText:='红球3';
     grid1.Cells[5,1].ForeText:='红球4';
     grid1.Cells[6,1].ForeText:='红球5';
     grid1.Cells[7,1].ForeText:='红球6';
     grid1.Cells[8,1].ForeText:='蓝球1';
     grid1.Cells[9,1].ForeText:='蓝球2';
     edit9.text:='0';
     
     ////////////
     with AdoQuery1 do
     begin
         connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
         close;
         sql.Clear;
         sql.Add('Select * From  CPData order By sID');
         prepared;
         open;
         if recordcount<>0 then
         begin
            i:=0;
            while not eof do
            begin
                 grid1.RowCount:=i+3;
                 grid1.Cells[1,i+2].ForeText:=FieldByName('sID').AsString;
                 grid1.Cells[2,i+2].ForeText:=FieldByName('r1').AsString;
                 grid1.Cells[3,i+2].ForeText:=FieldByName('r2').AsString;
                 grid1.Cells[4,i+2].ForeText:=FieldByName('r3').AsString;
                 grid1.Cells[5,i+2].ForeText:=FieldByName('r4').AsString;
                 grid1.Cells[6,i+2].ForeText:=FieldByName('r5').AsString;
                 grid1.Cells[7,i+2].ForeText:=FieldByName('r6').AsString;
                 grid1.Cells[8,i+2].ForeText:=FieldByName('b1').AsString;
                 grid1.Cells[9,i+2].ForeText:=FieldByName('b2').AsString;
                 next;
                 inc(i);

            end;//while
         end;//if

     end;////with
     ////////////取最大的期号的双色球///////////
     with AdoQuery1 do
     begin
         connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
         close;
         sql.Clear;
         sql.Add('Select Top 1 * From  CPData  order by  sID desc');
         prepared;
         open;
         if recordcount<>0 then
         begin
            sMax:=FieldByName('sID').AsString;
         end;//if

     end;////with
     edit1.text:=formatFloat('##0',strToInt(trim(sMax))+1);
     ////////////取最大的期号的双色球///////////

     edit10.text:=formatFloat('##0',strtoint(sMax)-27);
     s_beginID:=formatFloat('##0',strtoint(sMax)-27);
     s_EndID:=sMax;
     grid1.Refresh; 
end;

procedure TForm_DataInput.Image2Click(Sender: TObject);
begin
     CloseForm(handle);
end;

procedure TForm_DataInput.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        edit3.SelectAll;
        edit3.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        edit2.SelectAll;
        edit2.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        edit4.SelectAll;
        edit4.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
     begin
        edit5.SelectAll;
        edit5.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        edit6.SelectAll;
        edit6.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        edit7.SelectAll;
        edit7.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
     begin
        edit8.SelectAll;
        edit8.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        edit9.SelectAll;
        edit9.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit9KeyPress(Sender: TObject; var Key: Char);
begin
     if key=#13 then
     begin
        edit10.SelectAll;
        edit10.SetFocus;
     end;
end;

procedure TForm_DataInput.Edit9Enter(Sender: TObject);
begin
     //if (edit1.text='') or (edit2.text='') or (edit3.text='') then
     //begin
     //   Showmessage('输入不能为空...');
     //   exit;
     //end
     //else
     //begin
     //   edit10.Text:=formatFloat('##0',strtoInt(edit1.text)-27);
     //   edit11.Text:=formatFloat('##0',strToInt(edit2.text)+strToInt(edit3.text)+strToInt(edit4.text)+strToInt(edit5.text)+strToInt(edit6.text)+strToInt(edit7.text));
     //end;
end;

procedure TForm_DataInput.ButtonExCtl1Click(Sender: TObject);
      Function isRecordExist:boolean;
      var
           CurrentPath:string;
      begin
            CurrentPath:=ExtractFilePath(paramstr(0));
            with AdoQuery1 do
            begin
                 connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
                 close;
                 sql.Clear;
                 sql.Add('Select * From  CPData Where sID=:sid');
                 parameters.ParamByName('sid').Value:=trim(edit1.text);
                 prepared;
                 open;
                 if recordcount<>0 then
                 begin
                    result:=true;
                 end
                 else
                    result:=false;
            end;
      end;
var
     strSql:string;
     CurrentPath:string;
     i:integer;
     j:integer;
begin
      CurrentPath:=ExtractFilePath(paramstr(0));
      if isRecordExist then
      begin
         showmessage('数据已经存在,请重新输入...');
         exit;
      end;
      if edit1.text='' then
      begin
         showmessage('数据不能为空...');
         exit;
      end;