📄 frm_bussinessbilledit.pas

📁 这是一个基于delphi平台的物流空运管理系统！
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
  else
  begin
    try
      QuoteCode := FrmMain.GetCode('BQ');
      SqlStr := 'Insert into BussessBillQuote(quotecode,CustQuoteCode,CusCode,'
        + 'CusCodeTele,CusCodeAddr,CusCodeRela,ConsignCode,ConsignCodeTele,'
        + 'ConsignCodeAddr,ConsignCodeRela,TrustType,Agent,PlaneComCode,LoadPort,'
        + 'UnLoadPort,Freight,GoDate,CargoVolume,GoodsName,TotalWeight,TotalNumber,'
        + 'TotalSize,Operator,OperatorName,BussinessMan,QuoteDate,TruckRequest,FareRequest,FileRequest,'
        + 'outin,Remark) Values(';
      FrmMain.InsStr(sqlstr, Trim(QuoteCode), ',');
      FrmMain.InsStr(sqlstr, Trim(EdtCustQuoteCode.text), ',');
      FrmMain.InsStr(sqlstr, trim(EdtBtnCusCode.Text), ',');
      FrmMain.InsStr(sqlstr, Trim(EdtCusCodeTele.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtCusCodeAddr.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtCusCodeRela.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtBtnConsignCode.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtConsignCodeTele.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtConsignCodeAddr.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtConsignCodeRela.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbTrustType.Text)), ',');
      FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbAgent.Text, 2)), ',');
      FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbPlaneComCOde.Text)), ',');
      FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbLoadPort.Text)), ',');
      FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbUnLoadPort.Text)), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtFreight.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(DateTOStr(int(DtpGoDate.Date))), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtCargoVolume.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtGoodsName.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtTotalWeight.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtTotalNumber.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtTotalSize.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtOperator.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(EdtOperatorName.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(FrmMain.GetFieldText(CmbBussinessMan.Text)), ',');
      FrmMain.InsStr(sqlStr, Trim(DatetoStr(int(DtpQuoteDate.Date))), ',');
      FrmMain.InsStr(sqlStr, Trim(MemTruckRequest.Lines.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(MemFareRequest.Lines.Text), ',');
      FrmMain.InsStr(sqlStr, Trim(MemFileRequest.Lines.Text), ',');
      if RadOut.Checked then
        FrmMain.InsStr(sqlstr, 0, ',')
      else
        FrmMain.InsStr(sqlstr, 1, ',');
      FrmMain.InsStr(SqlStr, Trim(EdtRemark.Text), '');
      if FrmMain.ExecSQL(SqlStr) then
      else
      begin
        ShowMessage('插入记录失败,请检查!');
        exit;
      end;
      IsEdit := True;
      BtnAdd.Enabled := True;
      with FrmBussinessBillInfo do
      begin

        TempRowCount := GridBillQuote.RowCount;
        if GridBillQuote.Cells[14, 1] = '' then
        begin

          GridBillQuote.Cells[0, 1] := EdtCustQuoteCode.Text;
          GridBillQuote.Cells[1, 1] := EdtBtnCusCode.Text;
          GridBillQuote.Cells[2, 1] := EdtBtnConsignCode.Text;
          GridBillQuote.Cells[3, 1] := FrmMain.GetFieldText(CmbAgent.Text, 2);
          GridBillQuote.Cells[4, 1] := FrmMain.GetFieldText(CmbTrustType.Text, 2);
          GridBillQuote.Cells[5, 1] := FrmMain.GetFieldText(CmbPlaneComCode.Text, 2);
          GridBillQuote.Cells[6, 1] := EdtFreight.Text;
          GridBillQuote.Cells[7, 1] := FrmMain.GetFieldText(CmbLoadPort.Text, 2);
          GridBillQuote.Cells[8, 1] := FrmMain.GetFieldText(CmbUnLoadPort.Text, 2);
          GridBillQuote.Cells[9, 1] := DateTOStr(DtpGoDate.Date);
          GridBillQuote.Cells[10, 1] := EdtGoodsName.Text;
          GridBillQuote.Cells[11, 1] := EdtTotalNumber.Text;
          GridBillQuote.Cells[12, 1] := EdtTotalWeight.Text;
          GridBillQuote.Cells[13, 1] := EdtTotalSize.Text;
          GridBillQuote.Cells[14, 1] := QuoteCode;
          GridBillQuote.SelectRows(1, 1);
          CurrentRow := 1;
        end
        else
        begin
          GridBillQuote.AddRow;

          GridBillQuote.Cells[0, TempRowCount] := EdtCustQuoteCode.Text;
          GridBillQuote.Cells[1, TempRowCount] := EdtBtnCusCode.Text;
          GridBillQuote.Cells[2, TempRowCount] := EdtBtnConsignCode.Text;
          GridBillQuote.Cells[3, TempRowCount] := FrmMain.GetFieldText(CmbAgent.Text, 2);
          GridBillQuote.Cells[4, TempRowCount] := FrmMain.GetFieldText(CmbTrustType.Text, 2);
          GridBillQuote.Cells[5, TempRowCount] := FrmMain.GetFieldText(CmbPlaneComCode.Text, 2);
          GridBillQuote.Cells[6, TempRowCount] := EdtFreight.Text;
          GridBillQuote.Cells[7, TempRowCount] := FrmMain.GetFieldText(CmbLoadPort.Text, 2);
          GridBillQuote.Cells[8, TempRowCount] := FrmMain.GetFieldText(CmbUnLoadPort.Text, 2);
          GridBillQuote.Cells[9, TempRowCount] := DateTOStr(DtpGoDate.Date);
          GridBillQuote.Cells[10, TempRowCount] := EdtGoodsName.Text;
          GridBillQuote.Cells[11, TempRowCount] := EdtTotalNumber.Text;
          GridBillQuote.Cells[12, TempRowCount] := EdtTotalWeight.Text;
          GridBillQuote.Cells[13, TempRowCount] := EdtTotalSize.Text;
          GridBillQuote.Cells[14, TempRowCount] := QuoteCode;
          GridBillQuote.SelectRows(TempRowCount, 1);
          CurrentRow := TempRowCount;
        end;
      end;

    except
     ShowMessage('插入记录失败,请检查!');
      exit;
    end;
  end;
end;

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

procedure TFrmBussinessBillEdit.FormActivate(Sender: TObject);
begin
  inherited;
if IsEdit then
  else
    Exit;
  QryTemp.Close;
  QryTemp.SQL.Text := 'select * From BussessBillQuote where QuoteCode=''' + QuoteCode + '''';
  QryTemp.Open;
  EdtCustQuoteCode.Text := QryTemp.fieldByName('CustQuoteCode').AsString;
  CmbTrustType.Text := Frmmain.setcomboboxtext(QryTemp.fieldByName('TrustType').AsString, CmbTrustType);
  EdtBtnCusCode.Text := QryTemp.fieldByName('CusCode').asString;
  EdtCusCodeTele.Text := QryTemp.fieldByName('CusCodeTele').asString;
  EdtCusCodeRela.Text := QryTemp.fieldByName('CusCodeRela').AsString;
  EdtCusCodeAddr.Text := QryTemp.fieldByName('CusCodeAddr').AsString;
  EdtBtnConsignCode.Text := QryTemp.fieldByName('ConsignCode').AsString;
  EdtConsignCodeTele.Text := QryTemp.fieldByName('ConsignCodeTele').AsString;
  EdtConsignCodeRela.Text := QryTemp.fieldByName('ConsignCodeRela').AsString;
  EdtConsignCodeAddr.Text := QryTemp.fieldByName('ConsignCodeAddr').AsString;
  CmbAgent.Text := Frmmain.setcomboboxtext(QryTemp.fieldByName('Agent').AsString, CmbAgent);
  CmbPlaneComCode.Text := Frmmain.setcomboboxtext(QryTemp.fieldByName('PlaneComCode').AsString, CmbPlaneComCode);
  EdtFreight.Text := QryTemp.fieldByName('Freight').AsString;
  CmbLoadPort.Text := QryTemp.fieldByName('LoadPort').AsString;
  CmbUnloadPort.Text := QryTemp.fieldByName('UnLoadPort').AsString;
  if QryTemp.fieldBYName('GoDate').AsString <> '' then
    DtpGoDate.Date := StrTODate(QryTemp.fieldBYName('GoDate').AsString);
  EdtGoodsName.Text := QryTemp.fieldByName('GoodsName').AsString;
  EdtCargoVolume.Text := QryTemp.fieldByName('CargoVolume').AsString;
  EdtTotalNumber.Text := QryTemp.fieldByName('TotalNumber').AsString;
  EdtTotalWeight.Text := QryTemp.fieldByName('TotalWeight').AsString;
  EdtTotalSize.Text := QryTemp.fieldbyName('TotalSize').AsString;
  MemTruckRequest.Lines.Text := QryTemp.fieldByName('TruckRequest').AsString;
  MemFileRequest.Lines.Text := QryTemp.fieldByName('FileRequest').AsString;
  MemFareRequest.Lines.Text := Qrytemp.fieldByName('FareRequest').AsString;
  if QryTemp.fieldByName('QuoteDate').AsString <> '' then
    DtpQuotedate.Date := StrTODate(QryTemp.fieldByName('QuoteDate').AsString);
  CmbBussinessMan.Text := Frmmain.setcomboboxtext(QryTemp.fieldByName('BussinessMan').AsString, CmbBussinessMan);
  EdtRemark.Text := QryTemp.fieldByName('Remark').AsString;
  if QryTemp.FieldByName('OutIn').AsInteger = 0 then
    RadOut.Checked := True
  else
    RadIn.Checked := True;
end;

procedure TFrmBussinessBillEdit.FormCreate(Sender: TObject);
var
  Sqlstr: string;
begin
  inherited;
  DtpGoDate.DateTime := Now;
  DtpQuoteDate.DateTime := Now;
  SqlStr := 'Select Code,CName From TrustTypeInfo';
  FrmMain.Full_FilterCombobox(CmbTrustType, Sqlstr, 'Code', 'CName');
  Sqlstr := 'Select CusCode,CusCName from CustomerInfo where CusType=''代理''';
  FrmMain.Full_FilterCombobox(CmbAgent, Sqlstr, 'CusCode', 'CusCname');
  SqlStr := 'Select PlaneCompanyCode,PlaneCompanyCName from PlaneCompanyInfo ';
  FrmMain.Full_FilterCombobox(CmbPlaneComCode, SqlStr, 'PlaneCompanyCode', 'PlaneCompanyCName');
  SqlStr := 'Select PortCode,PortCName from PortInfo';
  FrmMain.Full_FilterCombobox(CmbLoadPort, Sqlstr, 'PortCode', 'PortCName');
  FrmMain.Full_FilterCombobox(CmbUnloadPort, SqlStr, 'PortCode', 'PortCName');
  SqlStr := 'Select Code,Name From BussinessMan where Type=''业务员''';
  FrmMain.Full_FilterCombobox(CmbBussinessMan, SqlStr, 'Code', 'Name');
  EdtOperator.Text := FrmMain.LoginId;
  EdtOperatorName.Text := FrmMain.LoginName;
end;

procedure TFrmBussinessBillEdit.CmbTrustTypeExit(Sender: TObject);
begin
  inherited;
CmbTrustType.Text := FrmMain.CheckComboBox(CmbTrustType);
end;

procedure TFrmBussinessBillEdit.CmbAgentExit(Sender: TObject);
begin
  inherited;
 CmbAgent.Text := FrmMain.CheckComboBox(CmbAgent);
end;

procedure TFrmBussinessBillEdit.CmbPlaneComCodeExit(Sender: TObject);
begin
  inherited;
CmbPlaneComCode.Text := FrmMain.CheckComboBox(CmbPlaneComCode)
end;

procedure TFrmBussinessBillEdit.CmbLoadPortExit(Sender: TObject);
begin
  inherited;
CmbLoadPort.Text := FrmMain.CheckComboBox(CmbLoadPort);
end;

procedure TFrmBussinessBillEdit.CmbUnloadPortExit(Sender: TObject);
begin
  inherited;
  CmbUnloadPort.Text := FrmMain.CheckComboBox(CmbUnloadPort);
end;

procedure TFrmBussinessBillEdit.EdtTotalSizeExit(Sender: TObject);
begin
  inherited;
CmbBussinessMan.Text := FrmMain.CheckComboBox(CmbBussinessMan);
end;

end.
上一页 12
⌨️ 快捷键说明

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