布匹出口单管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译]

     DataManagerForm.SaveClientName(ClientNameComboBox.Text);
      end;
      Close;
    end;

    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
               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;
  &

首页上一页 1 2 3 4 5 6 7 下一页尾页 3/9/9

布匹出口单管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](三)