布匹出口单管理系统[开题报告＋论文＋源代码＋(3)

    with MDataForm.FreeFind_ADOQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from BreedName where 品种名称=:pm');
      Parameters.ParamByName('pm').Value :=CpmcComboBox.Text;
      Open;  //新品种
      if RecordCount<1 then
      begin
        if MainForm.PshowMessage('提示','该品种名称是新名称，是否保存？',1) then
        begin
          SaveBreed := true;
          if (WidthEdit.Text='') or (MzEdit.Text='') or (KcEdit.Text='') or (CfnrEdit.Text='') then
          begin
            SaveBreed := false;
            MainForm.PshowMessage('提示','请将幅宽、码重、扣除及成份内容输入完整！',0);
          end;
          if SaveBreed then
            if not DataManagerForm.SaveBreedName(CpmcComboBox.Text,WidthEdit.Text,MzEdit.Text,
                                                 KcEdit.Text,CfnrEdit.Text) then （科教作文网 zw.nseac.com整理）
               MainForm.PshowMessage('提示','你所输入的数据无法通过有效性检查，请检查！',0);
        end;
      end;
      Close;
    end;
  except
    MainForm.PshowMessage('系统错误','保存新数据至数据库时失败！',0);
  end;
end;

procedure TInputForm.FormCreate(Sender: TObject);
begin
  DataInputStringGrid.Cells[1,0] := '码长';
  DataInputStringGrid.Cells[2,0] := '净重';
  DataInputStringGrid.Cells[3,0] := '毛重';

  SelectPrintStringGrid.Cells[1,0] := '码长';
  SelectPrintStringGrid.Cells[2,0] := '净重';
  SelectPrintStringGrid.Cells[3,0] := '毛重';
end;

procedure TInputForm.mcEditKeyPress(Sender: TObject; var Key: Char);
var i:integer;
    DataCheck :boolean;
begin
  if Key=#13 then
  begin
    DataCheck := true;
    for i:=1 to DataInputStringGrid.RowCount-1 do
    begin
      if DataInputStringGrid.Cells[1,i]='' then
        break;
  &