form_datainputl.~pas

双色球分析软件

      if edit2.text='' then
      begin
         showmessage('数据不能为空...');
         exit;
      end;
      if edit3.text='' then
      begin
         showmessage('数据不能为空...');
         exit;
      end;
      if edit4.text='' then
      begin
         showmessage('数据不能为空...');
         exit;
      end;
      if edit5.text='' then
      begin
         showmessage('数据不能为空...');
         exit;
      end;
      if edit7.text='' then
      begin
         showmessage('数据不能为空...');
         exit;
      end;
      if edit8.text='' then
      begin
         showmessage('数据不能为空...');
         exit;
      end;
      if edit9.text='' then
      begin
         showmessage('数据不能为空...');
         exit;
      end;
      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('Insert into CPdata(sID,r1,r2,r3,r4,r5,r6,b1,b2) Values(:sID,:r1,:r2,:r3,:r4,:r5,:r6,:b1,:b2)');
           parameters.ParamByName('sID').Value:=trim(edit1.text);
           parameters.ParamByName('r1').Value:=trim(edit2.text);
           parameters.ParamByName('r2').Value:=trim(edit3.text);
           parameters.ParamByName('r3').Value:=trim(edit4.text);
           parameters.ParamByName('r4').Value:=trim(edit5.text);
           parameters.ParamByName('r5').Value:=trim(edit6.text);
           parameters.ParamByName('r6').Value:=trim(edit7.text);
           parameters.ParamByName('b1').Value:=trim(edit8.text);
           parameters.ParamByName('b2').Value:=trim(edit9.text);
           prepared;
           ExecSql;
      end;
      s_BeginID:=trim(edit10.text);
      s_endID:=trim(edit1.text);
      /////清空表格///////////////////
      for i:=2 to grid1.RowCount-1 do
      begin
          for j:=1 to grid1.ColCount-1 do
          begin
               grid1.Cells[j,i].ForeText:='';
          end;
      end;
      /////////////////////////////////////
      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;
         end;

     end;
     grid1.Refresh;
     


end;

procedure TForm_DataInput.Grid1DblClick(Sender: TObject);
begin
      edit1.Text:=trim(grid1.cells[1,grid1.row].ForeText);
      s_ID:=trim(grid1.cells[1,grid1.row].ForeText);
      edit2.Text:=trim(grid1.cells[2,grid1.row].ForeText);
      edit3.Text:=trim(grid1.cells[3,grid1.row].ForeText);
      edit4.Text:=trim(grid1.cells[4,grid1.row].ForeText);
      edit5.Text:=trim(grid1.cells[5,grid1.row].ForeText);
      edit6.Text:=trim(grid1.cells[6,grid1.row].ForeText);
      edit7.Text:=trim(grid1.cells[7,grid1.row].ForeText);
      edit8.Text:=trim(grid1.cells[8,grid1.row].ForeText);
      edit9.Text:=trim(grid1.cells[9,grid1.row].ForeText);
      //edit1.Text:=trim(grid1.cells[1,grid1.row].ForeText);
end;

procedure TForm_DataInput.Button1Click(Sender: TObject);
var
   strSql:string;
   CurrentPath:string;
   i,j:integer;
begin
      Currentpath:=ExtractFilePath(paramstr(0));
      if messageDlg('确认要修改数据？',mtconfirmation,[mbyes,mbno],0)=mryes then
      begin
         if edit1.text='' then
         begin
            showmessage('不能修改....');
            exit;
         end;///
         with AdoQuery1 do
         begin
              connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
              close;
              sql.Clear;
              strSql:='UPDate CPData  Set sID=:sID,r1=:r1,r2=:r2,r3=:r3,r4=:r4,r5=:r5,r6=:r6,b1=:b1,b2=:b2 Where sID=:rID';
              sql.Add(strSql);
              parameters.ParamByName('sID').Value:=trim(edit1.text);
              parameters.ParamByName('r1').Value:=trim(edit2.text);
              parameters.ParamByName('r2').Value:=trim(edit3.text);
              parameters.ParamByName('r3').Value:=trim(edit4.text);
              parameters.ParamByName('r4').Value:=trim(edit5.text);
              parameters.ParamByName('r5').Value:=trim(edit6.text);
              parameters.ParamByName('r6').Value:=trim(edit7.text);
              parameters.ParamByName('b1').Value:=trim(edit8.text);
              parameters.ParamByName('b2').Value:=trim(edit9.text);
              parameters.ParamByName('rID').Value:=trim(s_ID);
              prepared;
              ExecSql;
         end;//with
         ////重新显示//////////////
         /////清空表格///////////////////
      for i:=2 to grid1.RowCount-1 do
      begin
          for j:=1 to grid1.ColCount-1 do
          begin
               grid1.Cells[j,i].ForeText:='';
          end;
      end;
      /////////////////////////////////////
      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;
         end;

     end;
     grid1.Refresh;
         ////////////////////////////
      end;////if
end;

procedure TForm_DataInput.Button2Click(Sender: TObject);
var
   strSql:string;
   CurrentPath:string;
   i,j:integer;
begin
    Currentpath:=ExtractFilePath(paramstr(0));
      if messageDlg('确认要删除数据？',mtconfirmation,[mbyes,mbno],0)=mryes then
      begin
         if edit1.text='' then
         begin
            showmessage('不能删除....');
            exit;
         end;///
         with AdoQuery1 do
         begin
              connectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+CurrentPath+'\sale.mdb;Persist Security Info=False';
              close;
              sql.Clear;
              strSql:='Delete *  From  CPData  where sID=:rID';

              sql.Add(strSql);

              parameters.ParamByName('rID').Value:=trim(s_ID);
              prepared;
              ExecSql;
         end;//with
         ////重新显示//////////////
         /////清空表格///////////////////
      for i:=2 to grid1.RowCount-1 do
      begin
          for j:=1 to grid1.ColCount-1 do
          begin
               grid1.Cells[j,i].ForeText:='';
          end;
      end;
      /////////////////////////////////////
      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;
         end;

     end;
     grid1.Refresh;
     end;
end;

procedure TForm_DataInput.Edit7Enter(Sender: TObject);
begin
     {if (edit2.text='') or (edit3.text='') then
     begin
         Showmessage('输入不能为空...');
         exit;
     end
     else
        ////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;

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

procedure TForm_DataInput.FormShow(Sender: TObject);
var
   i,j:integer;
begin
    
end;

end.