djjcom.~pas

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

    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号1').asstring+'  容重:  '+table1.fieldbyname('密度1').asstring);
  if table1.fieldbyname('环刀号2').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号2').asstring+'  容重:  '+table1.fieldbyname('密度2').asstring);
  if table1.fieldbyname('环刀号3').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号3').asstring+'  容重:  '+table1.fieldbyname('密度3').asstring);
  if table1.fieldbyname('环刀号4').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号4').asstring+'  容重:  '+table1.fieldbyname('密度4').asstring);
  if table1.fieldbyname('环刀号5').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号5').asstring+'  容重:  '+table1.fieldbyname('密度5').asstring);
  if table1.fieldbyname('环刀号6').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号6').asstring+'  容重:  '+table1.fieldbyname('密度6').asstring);
  if table1.fieldbyname('环刀号7').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号7').asstring+'  容重:  '+table1.fieldbyname('密度7').asstring);
  if table1.fieldbyname('环刀号8').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号8').asstring+'  容重:  '+table1.fieldbyname('密度8').asstring);
  if table1.fieldbyname('环刀号9').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号9').asstring+'  容重:  '+table1.fieldbyname('密度9').asstring);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Table1.open;
  ComboBox16.Items.Clear;
  Table1.first;
  while not Table1.EOF do
  begin
    ComboBox16.Items.Add(Table1.FieldByName('室编号').AsString);
    ComboBox17.Items.Add(Table1.FieldByName('原编号').AsString);
    Table1.next;
  end;
end;

procedure TForm1.ComboBox17Change(Sender: TObject);
begin
  if Table1.Locate('原编号',ComboBox17.text,[]) then
    comboBox16.Text:=table1.FieldByName('室编号').AsString
  else
    comboBox16.Text:='';
  checkBox55.Enabled:=true;
  groupBox3.Enabled:=true;
  groupBox4.Enabled:=true;
  groupBox5.Enabled:=true;
  edit4.Enabled:=true;
  BitBtn8.Enabled:=true;
  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
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号1').asstring+'  容重:  '+table1.fieldbyname('密度1').asstring);
  if table1.fieldbyname('环刀号2').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号2').asstring+'  容重:  '+table1.fieldbyname('密度2').asstring);
  if table1.fieldbyname('环刀号3').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号3').asstring+'  容重:  '+table1.fieldbyname('密度3').asstring);
  if table1.fieldbyname('环刀号4').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号4').asstring+'  容重:  '+table1.fieldbyname('密度4').asstring);
  if table1.fieldbyname('环刀号5').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号5').asstring+'  容重:  '+table1.fieldbyname('密度5').asstring);
  if table1.fieldbyname('环刀号6').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号6').asstring+'  容重:  '+table1.fieldbyname('密度6').asstring);
  if table1.fieldbyname('环刀号7').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号7').asstring+'  容重:  '+table1.fieldbyname('密度7').asstring);
  if table1.fieldbyname('环刀号8').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号8').asstring+'  容重:  '+table1.fieldbyname('密度8').asstring);
  if table1.fieldbyname('环刀号9').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号9').asstring+'  容重:  '+table1.fieldbyname('密度9').asstring);
  
end;

procedure TForm1.ComboBox16Change(Sender: TObject);
begin
  if Table1.Locate('室编号',ComboBox16.text,[]) then
    comboBox17.Text:=table1.FieldByName('原编号').AsString
  else
    comboBox17.Text:='';
  checkBox55.Enabled:=true;
  groupBox3.Enabled:=true;
  groupBox4.Enabled:=true;
  groupBox5.Enabled:=true;
  edit4.Enabled:=true;
  BitBtn8.Enabled:=true;
  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
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号1').asstring+'  容重:  '+table1.fieldbyname('密度1').asstring);
  if table1.fieldbyname('环刀号2').value<>null then
    memo1.Lines.add('环号:'+table1.fieldbyname('环刀号2').asstring+'  容重:  '+table1.fi