procedure Tfrm_YQ_Lab.DataSource1DataChange(Sender: TObject;
Field: TField);
begin
FormActivate(Sender);
end;
procedure Tfrm_YQ_Lab.FormActivate(Sender: TObject);
begin
MainForm.StatusBar.Panels[1].Text:='仪器库纪录导航信息：第'+inttostr(DataSource1.DataSet.RecNo)+'笔纪录-总共'+inttostr(DataSource1.DataSet.RecordCount)+'笔纪录';
end;
procedure Tfrm_YQ_Lab.Table1CalcFields(DataSet: TDataSet);
begin
Table1Field_BeOut.Value:=false;
Table4.First;
while not Table4.Eof do
begin
if (Table4_YQBH.Value=Table1_YQBH.Value)and(Table4_GHRQ.Value='') then
begin
Table1Field_BeOut.Value:=True;
Table1Field_OutUserName.Value:=Table4_UserName.Value;
end;
Table4.Next;
end;
end;
procedure Tfrm_YQ_Lab.Query1CalcFields(DataSet: TDataSet);
begin
Query1Field_BeOut.Value:='否';
Table4.First;
while not Table4.Eof do
begin
if (Table4_YQBH.Value=Query1_YQBH.Value)and(Table4_GHRQ.Value='') then
begin
Query1Field_BeOut.AsString :='是';
Query1Field_OutUserName.Value:=Table4_UserName.Value;
end;
Table4.Next;
end;
end;
