djjcom.~pas

用delphi串口技术写成的土工试验自动衡量模块

    else if pos('*',table1.FieldByName('环刀号5').asstring)>0
      then table1.FieldByName('环刀号5').value:=copy(table1.FieldByName('环刀号5').asstring,0,strlen(Pchar(table1.FieldByName('环刀号5').asstring))-1);
  if checkBox51.checked=true then table1.FieldByName('环刀号6').value:=table1.FieldByName('环刀号6').value+'*'
    else if pos('*',table1.FieldByName('环刀号6').asstring)>0
      then table1.FieldByName('环刀号6').value:=copy(table1.FieldByName('环刀号6').asstring,0,strlen(Pchar(table1.FieldByName('环刀号6').asstring))-1);
  if checkBox52.checked=true then table1.FieldByName('环刀号7').value:=table1.FieldByName('环刀号7').value+'*'
    else if pos('*',table1.FieldByName('环刀号7').asstring)>0
      then table1.FieldByName('环刀号7').value:=copy(table1.FieldByName('环刀号7').asstring,0,strlen(Pchar(table1.FieldByName('环刀号7').asstring))-1);
  if checkBox53.checked=true then table1.FieldByName('环刀号8').value:=table1.FieldByName('环刀号8').value+'*'
    else if pos('*',table1.FieldByName('环刀号8').asstring)>0
      then table1.FieldByName('环刀号8').value:=copy(table1.FieldByName('环刀号8').asstring,0,strlen(Pchar(table1.FieldByName('环刀号8').asstring))-1);
  if checkBox54.checked=true then table1.FieldByName('环刀号9').value:=table1.FieldByName('环刀号9').value+'*'
    else if pos('*',table1.FieldByName('环刀号9').asstring)>0
      then table1.FieldByName('环刀号9').value:=copy(table1.FieldByName('环刀号9').asstring,0,strlen(Pchar(table1.FieldByName('环刀号9').asstring))-1);
  table1.post;
  with table2 do
  begin
    table2.Edit;
    if table1.FieldByName('环刀号3').value<>null then
    begin
      table2.Insert;
      table2.FieldByName('室编号').value:=table1.FieldByName('室编号').value;
      table2.FieldByName('原编号').value:=table1.FieldByName('原编号').value;
      table2.FieldByName('环刀号1').value:=table1.FieldByName('环刀号1').value;
      table2.FieldByName('密度1').value:=table1.FieldByName('密度1').value;
      table2.FieldByName('环刀号2').value:=table1.FieldByName('环刀号2').value;
      table2.FieldByName('密度2').value:=table1.FieldByName('密度2').value;
      table2.FieldByName('环刀号3').value:=table1.FieldByName('环刀号3').value;
      table2.FieldByName('密度3').value:=table1.FieldByName('密度3').value;
      table2.FieldByName('环刀号4').value:=table1.FieldByName('环刀号4').value;
      table2.FieldByName('密度4').value:=table1.FieldByName('密度4').value;
      table2.FieldByName('环刀号5').value:=table1.FieldByName('环刀号5').value;
      table2.FieldByName('密度5').value:=table1.FieldByName('密度5').value;
      table2.FieldByName('环刀号6').value:=table1.FieldByName('环刀号6').value;
      table2.FieldByName('密度6').value:=table1.FieldByName('密度6').value;
      table2.FieldByName('环刀号7').value:=table1.FieldByName('环刀号7').value;
      table2.FieldByName('密度7').value:=table1.FieldByName('密度7').value;
      table2.FieldByName('环刀号8').value:=table1.FieldByName('环刀号8').value;
      table2.FieldByName('密度8').value:=table1.FieldByName('密度8').value;
      table2.FieldByName('环刀号9').value:=table1.FieldByName('环刀号9').value;
      table2.FieldByName('密度9').value:=table1.FieldByName('密度9').value;
      table2.FieldByName('试验项目').value:=table1.FieldByName('试验项目').value;
    end;
    table2.Post;
  end;
  memo1.Text:='';
  checkBox1.Checked:=false;
  checkBox2.Checked:=false;
  checkBox3.Checked:=false;
  checkBox4.Checked:=false;
  checkBox5.Checked:=false;
  checkBox6.Checked:=false;
  checkBox7.Checked:=false;
  checkBox8.Checked:=false;
  checkBox9.Checked:=false;
  checkBox10.Checked:=false;
  checkBox11.Checked:=false;
  checkBox12.Checked:=false;
  checkBox13.Checked:=false;
  checkBox14.Checked:=false;
  checkBox15.Checked:=false;
  checkBox16.Checked:=false;
  checkBox17.Checked:=false;
  checkBox18.Checked:=false;
  checkBox19.Checked:=false;
  checkBox20.Checked:=false;
  checkBox21.Checked:=false;
  checkBox22.Checked:=false;
  checkBox23.Checked:=false;
  checkBox24.Checked:=false;
  checkBox25.Checked:=false;
  checkBox26.Checked:=false;
  checkBox27.Checked:=false;
  //checkBox28.Checked:=false;
  //checkBox29.Checked:=false;
  checkBox30.Checked:=false;
  checkBox31.Checked:=false;
  checkBox32.Checked:=false;
  checkBox33.Checked:=false;
  checkBox34.Checked:=false;
  checkBox35.Checked:=false;
  checkBox36.Checked:=false;
  checkBox37.Checked:=false;
  checkBox38.Checked:=false;
  checkBox39.Checked:=false;
  checkBox40.Checked:=false;
  checkBox41.Checked:=false;
  checkBox42.Checked:=false;
  checkBox43.Checked:=false;
  checkBox44.Checked:=false;
  checkBox45.Checked:=false;
  edit1.Text:='';
  //comboBox16.Text:='';
  //comboBox17.Text:='';
  edit4.Text:='';
  comboBox5.Text:='';
  comboBox6.Text:='';
  comboBox7.Text:='';
  comboBox8.Text:='';
  comboBox9.Text:='无';
  comboBox10.Text:='';
  comboBox11.Text:='';
  comboBox12.Text:='';
  comboBox13.Text:='';
  BitBtn2.Enabled:=false;
  checkBox46.checked:=false;
  checkBox47.checked:=false;
  checkBox48.checked:=false;
  checkBox49.checked:=false;
  checkBox50.checked:=false;
  checkBox51.checked:=false;
  checkBox52.checked:=false;
  checkBox53.checked:=false;
  checkBox54.checked:=false;
  checkBox46.visible:=false;
  checkBox47.visible:=false;
  checkBox48.visible:=false;
  checkBox49.visible:=false;
  checkBox50.visible:=false;
  checkBox51.visible:=false;
  checkBox52.visible:=false;
  checkBox53.visible:=false;
  checkBox54.visible:=false;
  table1.close;
  table1.open;
  table2.close;
  table2.open;
  table1.Locate('室编号;原编号',varArrayof([comboBox16.text,comboBox17.text]),[]);
  table1.next;
  combobox16.Text:=table1.fieldbyname('室编号').asstring;
  combobox17.Text:=table1.fieldbyname('原编号').asstring;
  edit4.setfocus;
end;

procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  panel1.Visible:=true;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  panel1.Visible:=false;
end;

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

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (BitBtn2.enabled=true) then BitBtn2click(Sender);
end;

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
  label34.Visible:=false;
  label35.Visible:=false;
  label36.Visible:=false;
  label37.Visible:=false;
  label38.Visible:=false;
  label39.Visible:=false;
  label40.Visible:=false;
  label41.Visible:=false;
  label42.Visible:=false;
  checkBox46.Visible:=false;
  checkBox47.Visible:=false;
  checkBox48.Visible:=false;
  checkBox49.Visible:=false;
  checkBox50.Visible:=false;
  checkBox51.Visible:=false;
  checkBox52.Visible:=false;
  checkBox53.Visible:=false;
  checkBox54.Visible:=false;


  comboBox16.Text:=table1.fieldbyname('室编号').asstring;
  comboBox17.Text:=table1.fieldbyname('原编号').asstring;
  groupBox3.Enabled:=true;
  groupBox4.Enabled:=true;
  groupBox5.Enabled:=true;
  edit4.Enabled:=true;
  if checkBox55.checked=false then BitBtn8.Enabled:=true;
  edit4.SetFocus;
  if pos('完好',table1.fieldbyname('样品状况').asstring)>0 then checkBox1.Checked:=true
    else checkBox1.Checked:=false;
  if pos('局部扰动',table1.fieldbyname('样品状况').asstring)>0 then checkBox2.Checked:=true
    else checkBox2.Checked:=false;
  if pos('严重扰动',table1.fieldbyname('样品状况').asstring)>0 then checkBox3.Checked:=true
    else checkBox3.Checked:=false;
  if pos('假样',table1.fieldbyname('样品状况').asstring)>0 then checkBox4.Checked:=true
    else checkBox4.Checked:=false;
  if pos('样品不足',table1.fieldbyname('样品状况').asstring)>0 then checkBox5.Checked:=true
    else checkBox5.Checked:=false;
  if pos('失水',table1.fieldbyname('样品状况').asstring)>0 then checkBox6.Checked:=true
    else checkBox6.Checked:=false;
  if pos('芯样',table1.fieldbyname('样品状况').asstring)>0 then checkBox22.Checked:=true
    else checkBox22.Checked:=false;
  if pos('松散',table1.fieldbyname('样品状况').asstring)>0 then checkBox23.Checked:=true
    else checkBox23.Checked:=false;
  if pos('受冻',table1.fieldbyname('样品状况').asstring)>0 then checkBox24.Checked:=true
    else checkBox24.Checked:=false;
  if pos('曝晒',table1.fieldbyname('样品状况').asstring)>0 then checkBox25.Checked:=true
    else checkBox25.Checked:=false;
  if pos('开裂',table1.fieldbyname('样品状况').asstring)>0 then checkBox26.Checked:=true
    else checkBox26.Checked:=false;
  if pos('孔洞',table1.fieldbyname('样品状况').asstring)>0 then checkBox27.Checked:=true
    else checkBox27.Checked:=false;
  if pos('碎石',table1.fieldbyname('包含物').asstring)>0 then checkBox7.Checked:=true
    else checkBox7.Checked:=false;
  if pos('植物根系',table1.fieldbyname('包含物').asstring)>0 then checkBox8.Checked:=true
    else checkBox8.Checked:=false;
  if pos('腐殖质',table1.fieldbyname('包含物').asstring)>0 then checkBox9.Checked:=true
    else checkBox9.Checked:=false;
  if pos('砂礓',table1.fieldbyname('包含物').asstring)>0 then checkBox10.Checked:=true
    else checkBox10.Checked:=false;
  if pos('结核',table1.fieldbyname('包含物').asstring)>0 then checkBox11.Checked:=true
    else checkBox11.Checked:=false;
  if pos('贝壳',table1.fieldbyname('包含物').asstring)>0 then checkBox12.Checked:=true
    else checkBox12.Checked:=false;
  if pos('黑',table1.fieldbyname('颜色').asstring)>0 then checkBox13.Checked:=true
    else checkBox13.Checked:=false;
  if pos('灰',table1.fieldbyname('颜色').asstring)>0 then checkBox14.Checked:=true
    else checkBox14.Checked:=false;
  if pos('棕',table1.fieldbyname('颜色').asstring)>0 then checkBox15.Checked:=true
    else checkBox15.Checked:=false;
  if pos('黄',table1.fieldbyname('颜色').asstring)>0 then checkBox16.Checked:=true
    else checkBox16.Checked:=false;
  if pos('褐',table1.fieldbyname('颜色').asstring)>0 then checkBox17.Checked:=true
    else checkBox17.Checked:=false;
  if pos('青',table1.fieldbyname('颜色').asstring)>0 then checkBox18.Checked:=true
    else checkBox18.Checked:=false;
  if pos('绿',table1.fieldbyname('颜色').asstring)>0 then checkBox19.Checked:=true
    else checkBox19.Checked:=false;
  if pos('白',table1.fieldbyname('颜色').asstring)>0 then checkBox20.Checked:=true
    else checkBox20.Checked:=false;
  if pos('红',table1.fieldbyname('颜色').asstring)>0 then checkBox21.Checked:=true
    else checkBox21.Checked:=false;
  if pos('物指',table1.fieldbyname('试验项目').asstring)>0 then checkBox28.Checked:=true
    else checkBox28.Checked:=false;
  if pos('常规',table1.fieldbyname('试验项目').asstring)>0 then checkBox29.Checked:=true
    else checkBox29.Checked:=false;
  if pos('固快',table1.fieldbyname('试验项目').asstring)>0 then checkBox30.Checked:=true
    else checkBox30.Checked:=false;
  if pos('Cv',table1.fieldbyname('试验项目').asstring)>0 then checkBox31.Checked:=true
    else checkBox31.Checked:=false;
  if pos('Pc',table1.fieldbyname('试验项目').asstring)>0 then checkBox32.Checked:=true
    else checkBox32.Checked:=false;
  if pos('UU',table1.fieldbyname('试验项目').asstring)>0 then checkBox33.Checked:=true
    else checkBox33.Checked:=false;
  if pos('CU',table1.fieldbyname('试验项目').asstring)>0 then checkBox34.Checked:=true
    else checkBox34.Checked:=false;
  if pos('qu',table1.fieldbyname('试验项目').asstring)>0 then checkBox35.Checked:=true
    else checkBox35.Checked:=false;
  if pos('K20',table1.fieldbyname('试验项目').asstring)>0 then checkBox36.Checked:=true
    else checkBox36.Checked:=false;
  if pos('K20_',table1.fieldbyname('试验项目').asstring)>0 then checkBox37.Checked:=true
    else checkBox37.Checked:=false;
  if pos('Ch',table1.fieldbyname('试验项目').asstring)>0 then checkBox38.Checked:=true
    else checkBox38.Checked:=false;
  if pos('d',table1.fieldbyname('试验项目').asstring)>0 then checkBox39.Checked:=true
    else checkBox39.Checked:=false;
  if pos('自由膨胀率',table1.fieldbyname('试验项目').asstring)>0 then checkBox40.Checked:=true
    else checkBox40.Checked:=false;
  if pos('膨胀力',table1.fieldbyname('试验项目').asstring)>0 then checkBox41.Checked:=true
    else checkBox41.Checked:=false;
  if pos('无荷载膨胀率',table1.fieldbyname('试验项目').asstring)>0 then checkBox42.Checked:=true
    else checkBox42.Checked:=false;
  if pos('胀缩总率',table1.fieldbyname('试验项目').asstring)>0 then checkBox43.Checked:=true
    else checkBox43.Checked:=false;
  if pos('有机质',table1.fieldbyname('试验项目').asstring)>0 then checkBox44.Checked:=true
    else checkBox44.Checked:=false;
  if pos('PH',table1.fieldbyname('试验项目').asstring)>0 then checkBox45.Checked:=true
    else checkBox45.Checked:=false;
  edit1.Text:=table1.fieldbyname('补充说明').asstring;
  comboBox9.Text:=table1.fieldbyname('气味').asstring;
  comboBox10.Text:=table1.fieldbyname('湿感').asstring;
  comboBox11.Text:=table1.fieldbyname('稠度').asstring;
  comboBox12.Text:=table1.fieldbyname('切削难度').asstring;
  comboBox13.Text:=table1.fieldbyname('均一性').asstring;
  comboBox5.Text:=table1.fieldbyname('土性描述').asstring;
  memo1.Text:='';
  if table1.fieldbyname('铝合号1').value<>null then
    memo1.Lines.add('盒号:'+table1.fieldbyname('铝合号1').asstring+'  土重:  '+table1.fieldbyname('W_湿土1').asstring);
  if table1.fieldbyname('铝合号2').value<>null then
    memo1.Lines.add('盒号:'+table1.fieldbyname('铝合号2').asstring+'  土重:  '+table1.fieldbyname('W_湿土2').asstring);
  if table1.fieldbyname('铝合号3').value<>null then
    memo1.Lines.add('盒号:'+table1.fieldbyname('铝合号3').asstring+'  土重:  '+table1.fieldbyname('W_湿土3').asstring);
  if table1.fieldbyname('环刀号1').value<>null then