unityarnlslook.~pas

纺织类 纤维强力测试中蠕变性能测试源码

  ss:string;
begin
dgls.Clear;
if ADOQuery2['Data']<>null then
 begin
 ss:=ADOQuery2['Data'];
 if ss<>''  then
    begin
  assignfile(f,ss);
    reset(f);
    while not eof(F) do
      begin
      read(f,df);
      dgls.AddXY(df.x,df.y);
     end;
    closefile(f);
  end;
 end;
end;

procedure TFormyarnLSlook.DataSource2DataChange(Sender: TObject;
  Field: TField);
var
  df:dd;
  f:file of dd;
  ss:string;
begin
dgls.Clear;
if ADOQuery2['Data']<>null then
 begin
 ss:=ADOQuery2['Data'];
 if ss<>''  then
    begin
  assignfile(f,ss);
    reset(f);
    while not eof(F) do
      begin
      read(f,df);
      dgls.AddXY(df.x,df.y);
     end;
    closefile(f);
  end;
 end;
end;

procedure TFormyarnLSlook.FormShow(Sender: TObject);
var
  df:dd;
  f:file of dd;
  ss:string;
  i,n:integer;
  series:array of TChartSeries;
begin

if FormyarnLSlook.Showing=true then
begin
  combobox1.ItemIndex:=0;
  adoquery1.Close;
  adoquery1.Parameters[0].Value:=combobox1.Text;
  adoquery1.Open;
  chart2.RemoveAllSeries;
  n:=ADOQuery2.RecordCount;
  SetLength(Series,n);
  //建立多个曲线在chart2上
   for i:=0 to n-1 do
    begin
  series[i]:=Tfastlineseries.Create(chart2);
  series[i].ParentChart:=chart2;
    end;
//添加曲线图象
for i:=0 to n-1  do
  begin
 // testp.AddXY(adoquery2['lmm'],adoquery2['fn']);
  ///bar1.AddBar(adoquery2['fn'],adoquery2['serial'],clred);
 // bar2.AddBar(adoquery2['lmm'],adoquery2['serial'],clblue);
  ss:=ADOQuery2['Data'];
  if ss<>''  then
     begin
  assignfile(f,ss);
    reset(f);
    while not eof(F) do
      begin
      read(f,df);
      Series[i].AddXY(df.x,df.y);
      end;
     closefile(f);
    end;
  if  not ADOQuery2.Eof then
  ADOQuery2.Next
  else
  exit;
  end;
  ADOQuery2.First;
 end;

 //下面的工作是生成一个数据表
 adotable3.First;
 adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fmean'];
 adotable3['L']:=ADOQuery1['Lmean'];
 adotable3['P']:=ADOQuery1['Pmean'];
 adotable3['E']:=ADOQuery1['Emean'];
 adotable3['W']:=ADOQuery1['Wmean'];
 adotable3['pf']:=ADOQuery1['pfmean'];
 adotable3['pe']:=ADOQuery1['pemean'];
  adotable3['bF']:=ADOQuery1['bFmean'];
 adotable3['bL']:=ADOQuery1['bLmean'];
 adotable3['bP']:=ADOQuery1['bPmean'];
 adotable3['bE']:=ADOQuery1['bEmean'];
 adotable3['bW']:=ADOQuery1['bWmean'];
 adotable3.Next;
 adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fmax'];
 adotable3['L']:=ADOQuery1['Lmax'];
 adotable3['P']:=ADOQuery1['Pmax'];
 adotable3['E']:=ADOQuery1['Emax'];
 adotable3['W']:=ADOQuery1['Wmax'];
 adotable3['pf']:=ADOQuery1['pfmax'];
 adotable3['pe']:=ADOQuery1['pemax'];
  adotable3['bF']:=ADOQuery1['bFmax'];
 adotable3['bL']:=ADOQuery1['bLmax'];
 adotable3['bP']:=ADOQuery1['bPmax'];
 adotable3['bE']:=ADOQuery1['bEmax'];
 adotable3['bW']:=ADOQuery1['bWmax'];
  adotable3.Next;
  adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fmin'];
 adotable3['L']:=ADOQuery1['Lmin'];
 adotable3['P']:=ADOQuery1['Pmin'];
 adotable3['E']:=ADOQuery1['Emin'];
 adotable3['W']:=ADOQuery1['Wmin'];
 adotable3['pf']:=ADOQuery1['pfmin'];
 adotable3['pe']:=ADOQuery1['pemin'];
  adotable3['bF']:=ADOQuery1['bFmin'];
 adotable3['bL']:=ADOQuery1['bLmin'];
 adotable3['bP']:=ADOQuery1['bPmin'];
 adotable3['bE']:=ADOQuery1['bEmin'];
 adotable3['bW']:=ADOQuery1['bWmin'];
  adotable3.Next;
  adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fdc'];
 adotable3['L']:=ADOQuery1['Ldc'];
 adotable3['P']:=ADOQuery1['Pdc'];
 adotable3['E']:=ADOQuery1['Edc'];
 adotable3['W']:=ADOQuery1['Wdc'];
 adotable3['pf']:=ADOQuery1['pfdc'];
 adotable3['pe']:=ADOQuery1['pedc'];
  adotable3['bF']:=ADOQuery1['bFdc'];
 adotable3['bL']:=ADOQuery1['bLdc'];
 adotable3['bP']:=ADOQuery1['bPdc'];
 adotable3['bE']:=ADOQuery1['bEdc'];
 adotable3['bW']:=ADOQuery1['bWdc'];
   adotable3.Next;
   adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fcv'];
 adotable3['L']:=ADOQuery1['Lcv'];
 adotable3['P']:=ADOQuery1['Pcv'];
 adotable3['E']:=ADOQuery1['Ecv'];
 adotable3['W']:=ADOQuery1['Wcv'];
 adotable3['pf']:=ADOQuery1['pfcv'];
 adotable3['pe']:=ADOQuery1['pecv'];
  adotable3['bF']:=ADOQuery1['bFcv'];
 adotable3['bL']:=ADOQuery1['bLcv'];
 adotable3['bP']:=ADOQuery1['bPcv'];
 adotable3['bE']:=ADOQuery1['bEcv'];
 adotable3['bW']:=ADOQuery1['bWcv'];
  adotable3.Post;
  adotable3.Close;
  adotable3.Open;


end;

procedure TFormyarnLSlook.ADOQuery1AfterScroll(DataSet: TDataSet);
var
  df:dd;
  f:file of dd;
  ss:string;
  i,n:integer;
  series:array of TChartSeries;
begin
if FormyarnLSlook.Showing=true then
begin
  chart2.RemoveAllSeries;
  testP.Clear;
  bar1.Clear;
  bar2.Clear;
  n:=ADOQuery2.RecordCount;
  //showmessage(inttostr(n));
  SetLength(Series,n);
   for i:=0 to n-1 do
    begin
  series[i]:=Tfastlineseries.Create(chart2);
  series[i].ParentChart:=chart2;
    end;

for i:=0 to n-1  do
  begin
  testp.AddXY(adoquery2['lmm'],adoquery2['fn']);
  bar1.AddBar(adoquery2['fn'],adoquery2['serial'],clred);
  bar2.AddBar(adoquery2['lmm'],adoquery2['serial'],clblue);
  ss:=ADOQuery2['Data'];
  if ss<>''  then
     begin
  assignfile(f,ss);
    reset(f);
    while not eof(F) do
      begin
      read(f,df);
      Series[i].AddXY(df.x,df.y);
      end;
     closefile(f);
    end;
  if  not ADOQuery2.Eof then
  ADOQuery2.Next
  else
  exit;
  end;
ADOQuery2.First;
 end;

 adotable3.First;
 adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fmean'];
 adotable3['L']:=ADOQuery1['Lmean'];
 adotable3['P']:=ADOQuery1['Pmean'];
 adotable3['E']:=ADOQuery1['Emean'];
 adotable3['W']:=ADOQuery1['Wmean'];
 adotable3['pf']:=ADOQuery1['pfmean'];
 adotable3['pe']:=ADOQuery1['pemean'];
  adotable3['bF']:=ADOQuery1['bFmean'];
 adotable3['bL']:=ADOQuery1['bLmean'];
 adotable3['bP']:=ADOQuery1['bPmean'];
 adotable3['bE']:=ADOQuery1['bEmean'];
 adotable3['bW']:=ADOQuery1['bWmean'];
 adotable3.Next;
 adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fmax'];
 adotable3['L']:=ADOQuery1['Lmax'];
 adotable3['P']:=ADOQuery1['Pmax'];
 adotable3['E']:=ADOQuery1['Emax'];
 adotable3['W']:=ADOQuery1['Wmax'];
 adotable3['pf']:=ADOQuery1['pfmax'];
 adotable3['pe']:=ADOQuery1['pemax'];
  adotable3['bF']:=ADOQuery1['bFmax'];
 adotable3['bL']:=ADOQuery1['bLmax'];
 adotable3['bP']:=ADOQuery1['bPmax'];
 adotable3['bE']:=ADOQuery1['bEmax'];
 adotable3['bW']:=ADOQuery1['bWmax'];
  adotable3.Next;
  adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fmin'];
 adotable3['L']:=ADOQuery1['Lmin'];
 adotable3['P']:=ADOQuery1['Pmin'];
 adotable3['E']:=ADOQuery1['Emin'];
 adotable3['W']:=ADOQuery1['Wmin'];
 adotable3['pf']:=ADOQuery1['pfmin'];
 adotable3['pe']:=ADOQuery1['pemin'];
  adotable3['bF']:=ADOQuery1['bFmin'];
 adotable3['bL']:=ADOQuery1['bLmin'];
 adotable3['bP']:=ADOQuery1['bPmin'];
 adotable3['bE']:=ADOQuery1['bEmin'];
 adotable3['bW']:=ADOQuery1['bWmin'];
  adotable3.Next;
  adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fdc'];
 adotable3['L']:=ADOQuery1['Ldc'];
 adotable3['P']:=ADOQuery1['Pdc'];
 adotable3['E']:=ADOQuery1['Edc'];
 adotable3['W']:=ADOQuery1['Wdc'];
 adotable3['pf']:=ADOQuery1['pfdc'];
 adotable3['pe']:=ADOQuery1['pedc'];
  adotable3['bF']:=ADOQuery1['bFdc'];
 adotable3['bL']:=ADOQuery1['bLdc'];
 adotable3['bP']:=ADOQuery1['bPdc'];
 adotable3['bE']:=ADOQuery1['bEdc'];
 adotable3['bW']:=ADOQuery1['bWdc'];
   adotable3.Next;
   adotable3.Edit;
 adotable3['F']:=ADOQuery1['Fcv'];
 adotable3['L']:=ADOQuery1['Lcv'];
 adotable3['P']:=ADOQuery1['Pcv'];
 adotable3['E']:=ADOQuery1['Ecv'];
 adotable3['W']:=ADOQuery1['Wcv'];
 adotable3['pf']:=ADOQuery1['pfcv'];
 adotable3['pe']:=ADOQuery1['pecv'];
  adotable3['bF']:=ADOQuery1['bFcv'];
 adotable3['bL']:=ADOQuery1['bLcv'];
 adotable3['bP']:=ADOQuery1['bPcv'];
 adotable3['bE']:=ADOQuery1['bEcv'];
 adotable3['bW']:=ADOQuery1['bWcv'];
  adotable3.Post;
  adotable3.Close;
  adotable3.Open;
end;

procedure TFormyarnLSlook.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TFormyarnLSlook.RadioGroup1Click(Sender: TObject);
begin
case radiogroup1.ItemIndex of
0: begin
   ComboBox1.Clear;
   DataMDYarn.ADOTableFSTOP.First;
  while not  DataMDYarn.ADOTableFSTOP.Eof do
 begin
ComboBox1.Items.Add(DataMDYarn.ADOTableFSTOP['SampleName']);
DataMDYarn.ADOTableFSTOP.Next;
 end;
DataMDYarn.ADOTableFSTOP.First;
  adoquery1.Active:=false;
 //指定动态参数
  adoquery1.Parameters[0].Value:=ComboBox1.Text;
  adoquery1.Active:=true;
 end;
1: begin
  ComboBox1.Clear;
  DataMDYarn.ADOTableFopindex.First;
   while not  DataMDYarn.ADOTableFopindex.Eof do
 begin
  ComboBox1.Items.Add(DataMDYarn.ADOTableFopindex['Foptioner']);
   DataMDYarn.ADOTableFopindex.Next;
  //DataMDYarn.ADOTableFSTOP.Next;
  ComboBox1.ItemIndex:=0;
 end;
   DataMDYarn.ADOTableFopindex.First;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('select * from fstop where optioner=:deep2');
   adoquery1.Parameters[0].Value:= ComboBox1.Text;
   adoquery1.Open;
   end;
2: begin
  ComboBox1.Clear;
 DataMDYarn.ADOTableFSTOP.First;
   while not  DataMDYarn.ADOTableFSTOP.Eof do
 begin
  ComboBox1.Items.Add(datetostr(DataMDYarn.ADOTableFSTOP['testdate']));
   DataMDYarn.ADOTableFSTOP.Next;
  //DataMDYarn.ADOTableFSTOP.Next;
  ComboBox1.ItemIndex:=0;
 end;
   DataMDYarn.ADOTableFSTOP.First;
   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.Add('select * from fstop where testdate=:deep2');
   adoquery1.Parameters[0].Value:= ComboBox1.Text;
   adoquery1.Open;
   end;
 end;
end;

procedure TFormyarnLSlook.FormCreate(Sender: TObject);
begin
 DataMDYarn.ADOTableFSTOP.First;
  while not  DataMDYarn.ADOTableFSTOP.Eof do
 begin
ComboBox1.Items.Add(DataMDYarn.ADOTableFSTOP['SampleName']);
DataMDYarn.ADOTableFSTOP.Next;
 end;
DataMDYarn.ADOTableFSTOP.First;
end;

procedure TFormyarnLSlook.ComboBox1Change(Sender: TObject);
begin
case radiogroup1.ItemIndex of
 0: begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from fstop where testdate=:deep2');
  adoquery1.Parameters[0].Value:= ComboBox1.Text;
  adoquery1.Open;
  end;
 1:  begin
   adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from fstop where optioner=:deep2');
  adoquery1.Parameters[0].Value:= ComboBox1.Text;
  adoquery1.Open;
    end;
 2:   begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from fstop where testdate=:deep2');
  adoquery1.Parameters[0].Value:= ComboBox1.Text;
  adoquery1.Open;
  end;
 3: begin
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from fstop where testtime=:deep2');
  adoquery1.Parameters[0].Value:= ComboBox1.Text;
  adoquery1.Open;
  end;
 end;
end;

procedure TFormyarnLSlook.Chart2DblClick(Sender: TObject);
var
 i:integer;
begin
FormLarge.Chart1.FreeAllSeries;
for i:=0 to  Chart2.SeriesCount-1 do
Chart2.Series[0].ParentChart:=FormLarge.Chart1;
FormLarge.CheckBox1.Visible:=true;
FormLarge.Label1.Visible:=true;
FormLarge.ShowModal;
for i:=0 to  FormLarge.Chart1.SeriesCount-1 do
FormLarge.Chart1.Series[0].ParentChart:=Chart2;
FormLarge.CheckBox1.Visible:=false;
FormLarge.CheckBox1.Checked:=false;
FormLarge.Label1.Visible:=false;
end;

procedure TFormyarnLSlook.Chart3DblClick(Sender: TObject);
begin
 FormLarge.Chart1.FreeAllSeries;
 FormLarge.Chart1.Assign(chart3);
 CopySeries(FormLarge.Chart1,Chart3, self);
 FormLarge.ShowModal;
end;

procedure TFormyarnLSlook.Chart4DblClick(Sender: TObject);
begin
 FormLarge.Chart1.FreeAllSeries;
 FormLarge.Chart1.Assign(chart4);
 CopySeries(FormLarge.Chart1,Chart4, self);
 FormLarge.ShowModal;
end;

procedure TFormyarnLSlook.Chart5DblClick(Sender: TObject);
begin
 FormLarge.Chart1.FreeAllSeries;
 FormLarge.Chart1.Assign(chart5);
 CopySeries(FormLarge.Chart1,Chart5, self);
 FormLarge.ShowModal;
end;

procedure TFormyarnLSlook.Chart1DblClick(Sender: TObject);
begin
 FormLarge.Chart1.FreeAllSeries;
 FormLarge.Chart1.Assign(chart1);
 CopySeries(FormLarge.Chart1,Chart1, self);
 FormLarge.CheckBox1.Visible:=true;
 FormLarge.Label1.Visible:=true;
 FormLarge.ShowModal;
  FormLarge.CheckBox1.Visible:=false;
  FormLarge.CheckBox1.Checked:=false;
 FormLarge.Label1.Visible:=false;
end;

procedure TFormyarnLSlook.Chart1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
 {label3.caption:=inttostr(x);
 label5.caption:=';  '+floattostr(Chart1.LeftAxis.CalcPosPoint( y ));
  label3.left:=x;
  label3.top:=y;
  label5.left:=x+20;
  label5.top:=y; }
end;

end.