⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frm_planequoteedit.pas

📁 这是一个基于delphi平台的物流空运管理系统！
💻 PAS
📖 第 1 页 / 共 2 页
字号:
🔍
12 
    if FrmMain.TestTextNumber(trim(EdtN.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      EdtN.SetFocus;
      exit;
    end;
  end;

  if trim(Edt45.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt45.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt45.SetFocus;
      exit;
    end;
  end;

  if trim(Edt100.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt100.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt100.SetFocus;
      exit;
    end;
  end;

  if trim(Edt300.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt300.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt300.SetFocus;
      exit;
    end;
  end;

  if trim(Edt500.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt500.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt500.SetFocus;
      exit;
    end;
  end;

  if trim(Edt1000.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt1000.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt1000.SetFocus;
      exit;
    end;
  end;

  if trim(Edt1500.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt1500.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt1500.SetFocus;
      exit;
    end;
  end;

  if trim(Edt2000.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt2000.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt2000.SetFocus;
      exit;
    end;
  end;

  if trim(Edt2500.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt2500.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt2500.SetFocus;
      exit;
    end;
  end;

  if trim(Edt3000.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(Edt3000.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      Edt3000.SetFocus;
      exit;
    end;
  end;

  if trim(EdtS300.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(EdtS300.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      EdtS300.SetFocus;
      exit;
    end;
  end;

  if trim(EdtS500.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(EdtS500.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      EdtS500.SetFocus;
      exit;
    end;
  end;

  if trim(EdtS1000.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(EdtS1000.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      EdtS1000.SetFocus;
      exit;
    end;
  end;

  if trim(EdtS1500.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(EdtS1500.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      EdtS1500.SetFocus;
      exit;
    end;
  end;

  if trim(EdtD500.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(EdtD500.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      EdtD500.SetFocus;
      exit;
    end;
  end;

  if trim(EdtD1000.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(EdtD1000.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      EdtD1000.SetFocus;
      exit;
    end;
  end;

  if trim(EdtQT.Text) <> '' then
  begin
    if FrmMain.TestTextNumber(trim(EdtQT.Text), 'real') then
    else
    begin
      ShowMessage('请输入数值类型的信息!');
      EdtQT.SetFocus;
      exit;
    end;
  end;
  if IsEdit then
  begin
    try
      sqlstr := '';
      FrmMain.UpStr(sqlstr, 'AirBaseQuote');
      FrmMain.UpStr(sqlstr, 'PlaneCompany',
        Trim(FrmMain.GetFieldText(CmbPlaneCompany.Text)), ',');
      FrmMain.UpStr(sqlstr, 'Area', trim(CmbArea.Text), ',');
      FrmMain.UpStr(sqlstr, 'LoadPort',
        Trim(FrmMain.GetFieldText(CmbLoadPort.Text)), ',');
      FrmMain.UpStr(sqlStr, 'UnLoadPort', Trim(EdtUnLoadPort.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteM', Trim(EdtM.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteN', Trim(Edtn.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote45', Trim(Edt45.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote100', Trim(Edt100.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote300', Trim(Edt300.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote500', Trim(Edt500.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote1000', Trim(Edt1000.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote1500', Trim(Edt1500.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote2000', Trim(Edt2000.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote2500', Trim(Edt2500.Text), ',');
      FrmMain.UpStr(sqlStr, 'Quote3000', Trim(Edt3000.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteS300', Trim(EdtS300.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteS500', Trim(EdtS500.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteS1000', Trim(EdtS1000.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteS1500', Trim(EdtS1500.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteD500', Trim(EdtD500.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteD1000', Trim(EdtD1000.Text), ',');
      FrmMain.UpStr(sqlStr, 'QuoteQT', Trim(EdtQT.Text), ',');
      FrmMain.Upstr(Sqlstr, 'Relation', Trim(EdtRelation.Text), ',');
      FrmMain.UpStr(Sqlstr, 'CurrencyType',
        FrmMain.GetFieldText(CmbCurrencyType.Text), ',');
      FrmMain.UpStr(sqlStr, 'EffecDate', Trim(DatetoStr(dtpEffectDate.Date)),
        ',');
      if (CHkOut.Checked) and (ChkIn.Checked = False) then
        FrmMain.UpStr(sqlstr, 'outin', 0, ',');
      if (ChkIn.Checked) and (ChkOut.Checked = False) then
        FrmMain.UpStr(sqlstr, 'outin', 1, ',');
      if (ChkOut.Checked) and (ChkIn.Checked) then
        FrmMain.UpStr(sqlstr, 'outin', 2, ',');
      FrmMain.UpStr(SqlStr, 'Remark', Trim(EdtRemark.Text), '');
      FrmMain.UpStr(sqlstr, 'quotecode =', QuoteCode, 'w');
      if FrmMain.ExecSQL(SqlStr) then
      else
      begin
        ShowMessage('更新代码记录失败,请检查!');
        exit;
      end;

      with FrmPlaneQuoteInfo do
      begin
        GridAirBaseQuote.Cells[0, AirBaseCurrentRow] :=
          FrmMain.GetFieldText(CmbPlaneCompany.Text, 0);
        GridAirBaseQuote.Cells[1, AirBaseCurrentRow] := CmbArea.Text;
        GridAirBaseQuote.Cells[2, AirBaseCurrentRow] :=
          FrmMain.GetFieldText(CmbLoadPort.Text);
        GridAirBaseQuote.Cells[3, AirBaseCurrentRow] := EdtUnLoadPort.Text;
        GridAirBaseQuote.Cells[4, AirBaseCurrentRow] := EdtM.Text;
        GridAirBaseQuote.Cells[5, AirBaseCurrentRow] := EdtN.Text;
        GridAirBaseQuote.Cells[6, AirBaseCurrentRow] := Edt45.Text;
        GridAirBaseQuote.Cells[7, AirBaseCurrentRow] := Edt100.Text;
        GridAirBaseQuote.Cells[8, AirBaseCurrentRow] := Edt300.Text;
        GridAirBaseQuote.Cells[9, AirBaseCurrentRow] := Edt500.Text;
        GridAirBaseQuote.Cells[10, AirBaseCurrentRow] := Edt1000.Text;
        GridAirBaseQuote.Cells[11, AirBaseCurrentRow] := Edt1500.Text;
        GridAirBaseQuote.Cells[12, AirBaseCurrentRow] := Edt2000.Text;
        GridAirBaseQuote.Cells[13, AirBaseCurrentRow] := Edt2500.Text;
        GridAirBaseQuote.Cells[14, AirBaseCurrentRow] := Edt3000.Text;
        GridAirBaseQuote.Cells[15, AirBaseCurrentRow] := EdtS300.Text;
        GridAirBaseQuote.Cells[16, AirBaseCurrentRow] := EdtS500.Text;
        GridAirBaseQuote.Cells[17, AirBaseCurrentRow] := EdtS1000.Text;
        GridAirBaseQuote.Cells[18, AirBaseCurrentRow] := EdtS1500.Text;
        GridAirBaseQuote.Cells[19, AirBaseCurrentRow] := EdtD500.Text;
        GridAirBaseQuote.Cells[20, AirBaseCurrentRow] := EdtD1000.Text;
        GridAirBaseQuote.Cells[21, AirBaseCurrentRow] := EdtQt.Text;
      end;
    except
      ShowMessage('更新代码记录失败,请检查!');
      exit;
    end;
  end
  else
  begin
    try
      QuoteCode := FrmMain.GetCode('PQ');
      SqlStr := 'Insert into AirbaseQuote(QuoteCode,PlaneCompany,Area,LoadPort,'
        + 'UnLoadPort,QuoteM,QuoteN,Quote45,Quote100,Quote300,Quote500,Quote1000,'
        + 'Quote1500,Quote2000,Quote2500,Quote3000,QuoteS300,QuoteS500,'
        + 'QuoteS1000,QuoteS1500,QuoteD500,QuoteD1000,QuoteQt,EffecDate,Relation,currencyType,'
        + 'outin,Remark) Values(';
      FrmMain.InsStr(Sqlstr, Trim(QuoteCode), ',');
      FrmMain.InsStr(sqlstr, Trim(FrmMain.GetFieldText(CmbPlaneCompany.Text)),
        ',');
      FrmMain.InsStr(sqlstr, trim(CmbArea.Text), ',');
      FrmMain.InsStr(sqlstr, Trim(FrmMain.GetFieldText(CmbLoadPort.Text)), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtUnLoadPort.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtM.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edtn.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt45.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt100.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt300.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt500.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt1000.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt1500.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt2000.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt2500.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(Edt3000.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtS300.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtS500.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtS1000.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtS1500.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtD500.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtD1000.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtQT.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(DateTOStr(int(dtpEffectDate.Date))), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtRelation.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbCurrencyType.Text)),
        ',');
      if (CHkOut.Checked) and (ChkIn.Checked = False) then
        FrmMain.InsStr(sqlstr, 0, ',');
      if (ChkIn.Checked) and (ChkOut.Checked = False) then
        FrmMain.InsStr(sqlstr, 1, ',');
      if (ChkOut.Checked) and (ChkIn.Checked) then
        FrmMain.InsStr(sqlstr, 2, ',');
      FrmMain.InsStr(SqlStr, Trim(EdtRemark.Text), '');
      if FrmMain.ExecSQL(SqlStr) then
      else
      begin
        ShowMessage('插入记录失败,请检查!');
        exit;
      end;
      IsEdit := True;
      BtnAdd.Enabled := True;
      with FrmPlaneQuoteInfo do
      begin

        TempRowCount := GridAirBaseQuote.RowCount;
        if GridAirBaseQuote.Cells[22, 1] = '' then
        begin

          GridAirBaseQuote.Cells[0, 1] :=
            FrmMain.GetFieldText(CmbPlaneCompany.Text, 0);
          GridAirBaseQuote.Cells[1, 1] := CmbArea.Text;
          GridAirBaseQuote.Cells[2, 1] :=
            FrmMain.GetFieldText(CmbLoadPort.Text);
          GridAirBaseQuote.Cells[3, 1] := EdtUnLoadPort.Text;
          GridAirBaseQuote.Cells[4, 1] := EdtM.Text;
          GridAirBaseQuote.Cells[5, 1] := EdtN.Text;
          GridAirBaseQuote.Cells[6, 1] := Edt45.Text;
          GridAirBaseQuote.Cells[7, 1] := Edt100.Text;
          GridAirBaseQuote.Cells[8, 1] := Edt300.Text;
          GridAirBaseQuote.Cells[9, 1] := Edt500.Text;
          GridAirBaseQuote.Cells[10, 1] := Edt1000.Text;
          GridAirBaseQuote.Cells[11, 1] := Edt1500.Text;
          GridAirBaseQuote.Cells[12, 1] := Edt2000.Text;
          GridAirBaseQuote.Cells[13, 1] := Edt2500.Text;
          GridAirBaseQuote.Cells[14, 1] := Edt3000.Text;
          GridAirBaseQuote.Cells[15, 1] := EdtS300.Text;
          GridAirBaseQuote.Cells[16, 1] := EdtS500.Text;
          GridAirBaseQuote.Cells[17, 1] := EdtS1000.Text;
          GridAirBaseQuote.Cells[18, 1] := EdtS1500.Text;
          GridAirBaseQuote.Cells[19, 1] := EdtD500.Text;
          GridAirBaseQuote.Cells[20, 1] := EdtD1000.Text;
          GridAirBaseQuote.Cells[21, 1] := EdtQt.Text;
          GridAirBaseQuote.Cells[22, 1] := QuoteCode;
          GridAirBaseQuote.SelectRows(1, 1);
          AirBaseCurrentRow := 1;
        end
        else
        begin
          GridAirBaseQuote.AddRow;

          GridAirBaseQuote.Cells[0, TempRowCount] :=
            FrmMain.GetFieldText(CmbPlaneCompany.Text, 0);
          GridAirBaseQuote.Cells[1, TempRowCount] := CmbArea.Text;
          GridAirBaseQuote.Cells[2, TempRowCount] :=
            FrmMain.GetFieldText(CmbLoadPort.Text);
          GridAirBaseQuote.Cells[3, TempRowCount] := EdtUnLoadPort.Text;
          GridAirBaseQuote.Cells[4, TempRowCount] := EdtM.Text;
          GridAirBaseQuote.Cells[5, TempRowCount] := EdtN.Text;
          GridAirBaseQuote.Cells[6, TempRowCount] := Edt45.Text;
          GridAirBaseQuote.Cells[7, TempRowCount] := Edt100.Text;
          GridAirBaseQuote.Cells[8, TempRowCount] := Edt300.Text;
          GridAirBaseQuote.Cells[9, TempRowCount] := Edt500.Text;
          GridAirBaseQuote.Cells[10, TempRowCount] := Edt1000.Text;
          GridAirBaseQuote.Cells[11, TempRowCount] := Edt1500.Text;
          GridAirBaseQuote.Cells[12, TempRowCount] := Edt2000.Text;
          GridAirBaseQuote.Cells[13, TempRowCount] := Edt2500.Text;
          GridAirBaseQuote.Cells[14, TempRowCount] := Edt3000.Text;
          GridAirBaseQuote.Cells[15, TempRowCount] := EdtS300.Text;
          GridAirBaseQuote.Cells[16, TempRowCount] := EdtS500.Text;
          GridAirBaseQuote.Cells[17, TempRowCount] := EdtS1000.Text;
          GridAirBaseQuote.Cells[18, TempRowCount] := EdtS1500.Text;
          GridAirBaseQuote.Cells[19, TempRowCount] := EdtD500.Text;
          GridAirBaseQuote.Cells[20, TempRowCount] := EdtD1000.Text;
          GridAirBaseQuote.Cells[21, TempRowCount] := EdtQt.Text;
          GridAirBaseQuote.Cells[22, TempRowCount] := QuoteCode;
          GridAirBaseQuote.SelectRows(TempRowCount, 1);
          AirBaseCurrentRow := TempRowCount;
        end;
      end;
    except
      ShowMessage('插入记录失败,请检查!');
      exit;
    end;
  end;
  if CmbArea.Text <> '' then
  begin
    for i := 0 to CmbArea.Items.Count - 1 do
    begin
      if CmbArea.Text = CmbArea.Items[i] then
        Exit;
    end;
    CmbArea.Items.Add(CmbArea.Text);
    CmbArea.Refresh;
  end;
end;

procedure TFrmPlaneQuoteEdit.BtnCloseClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrmPlaneQuoteEdit.FormDestroy(Sender: TObject);
begin
  inherited;
  FrmPlaneQuoteEdit:=nil;
end;

end.
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -