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

布匹出口单管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](四) p; MDataForm.FreeFind_ADOQuery.Close;
  end;
end;

procedure TInputForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key=#13) and not(ActiveControl is TStringGrid) then
  begin
    if (ActiveControl is TEdit) then
    begin
      if ((ActiveControl as TEdit).Name <>'mcEdit')  then
        Perform(WM_NEXTDLGCTL,0,0);
    end else
      Perform(WM_NEXTDLGCTL,0,0);
  end;
end;

procedure TInputForm.InputSpeedButtonClick(Sender: TObject);
var qdbh:string;
    inno:integer;
    SaveBreed :boolean;
begin
  try
    with MDataForm.FreeFind_ADOQuery do
    begin
      close;
      SQL.Clear;
      SQL.Add('select max(清单编号) as 编号 from MasterData where 录入日期=:Today');
      Parameters.ParamByName('Today').Value := FormatDateTime('yyyy-mm-dd',date);
      Open;
      OrderNoEdit.Text := fieldbyname('编号').AsString;
      Close;
    end;

    if OrderNoEdit.text ='' then
      OrderNoEdit.text := FormatDateTime('yyyymmdd',date)+'001'
    else
    begin
      qdbh := IntToStr(StrToInt(copy(OrderNoEdit.text,9,3))+1);
      if Length(qdbh)=3 then OrderNoEdit.text :=copy(OrderNoEdit.text,1,8)+qdbh;
      if Length(qdbh)=2 then OrderNoEdit.text :=copy(OrderNoEdit.text,1,8)+'0'+qdbh;
      if Length(qdbh)=1 then OrderNoEdit.text :=copy(OrderNoEdit.text,1,8)+'00'+qdbh;
    end;
  except
    MainForm.PshowMessage('系统错误','产生清单编号时失败！',0);
  end;

  for inno:=1 to DataInputStringGrid.RowCount-1 do
  begin
    DataInputStringGrid.Cells[0,inno] := IntToStr(inno);
    DataInputStringGrid.Cells[1,inno] := '';
    DataInputStringGrid.Cells[2,inno] := '';
    DataInputStringGrid.Cells[3,inno] := '';
    DataInputStringGrid.Cells[4,inno] := '';
  end;
  mcEdit.ReadOnly := false;
  mcEdit.SetFocus;

  //检查客户名称及品种名称是否已有，保存数据
  try
    with MDataForm.FreeFind_ADOQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from ClientName where 客户名称=:cm');
      Parameters.ParamByName('cm').Value :=ClientNameComboBox.Text;
      Open;
      if RecordCount<1 then
      begin  //新客户
        if MainForm.PshowMessage('提示','该客户名称是新客户名称，是否保存？',1) then
     

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

布匹出口单管理系统[开题报告＋文档＋源代码＋答辩ppt＋外文翻译](四)由毕业论文网（www.huoyuandh.com）会员上传。