gusucode.com > 精典源码Delphi013：维修管理工具源码程序 > 精典源码Delphi013：维修管理工具源码程序/精典源码Delphi013：维修管理工具/维修管理工具/Company_EVENT.txt

    var
 SQL_str:string;
begin
if Key=VK_RETURN then
begin
 if trim(edit2.Text)<>'' then
 begin
  SQL_str:='Select *,X_sell-X_buy as X_result from Xsrz Where id='+quotedstr(edit2.Text);
  dm.query18.Close;
  dm.query18.SQL.Clear;
  dm.query18.SQL.Add(SQL_str);
  dm.Query18.Open;
  if dm.Query18.RecordCount >0 then
   begin
   if Not assigned(frmXSRZ) then
   begin
   frmXSRZ:=TfrmXSRZ.Create(application);
   frmXSRZ.FlatButton4.Enabled:=True;
   frmXSRZ.FlatButton5.Enabled:=True;
     frmXSRZ.ShowModal;
   end
   else
   begin
   frmXSRZ.FlatButton4.Enabled:=True;
   frmXSRZ.FlatButton5.Enabled:=True;
   frmXSRZ.ShowModal;
   end;
   end
   else
   begin
    if  MessageDlg('对不起，你要查找的公司名称不存在!要新建立吗? ',mtinformation,[mbYes,mbNo],0)=mrYes then
     begin
     if Not assigned(frmXSRZ) then
   begin
   frmXSRZ:=TfrmXSRZ.Create(application);
   dm.Query18.Append;
   frmXSRZ.FlatButton4.Enabled:=False;
   frmXSRZ.FlatButton5.Enabled:=False;
   frmXSRZ.DBEdit1.Text:=frmMain.Edit2.Text;
   frmXSRZ.DBEdit2.Text:=datetimetostr(now());
   frmXSRZ.ShowModal;
   end
   else
   begin
   frmXSRZ.ShowModal;
   end;
     end;
   end;
  end
  else
  begin
    showMessage('建立新纪录!');
  end;
end;
end;