frm_bussinessbilledit.pas

这是一个基于delphi平台的物流空运管理系统！

unit Frm_BussinessBillEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, XPMenu, CoolCtrls, ComCtrls, StdCtrls, DB, ADODB;

type
  TFrmBussinessBillEdit = class(TFrmCargo)
    Label11: TLabel;
    Label30: TLabel;
    Label12: TLabel;
    Label5: TLabel;
    Label8: TLabel;
    Label33: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label18: TLabel;
    Label23: TLabel;
    Label10: TLabel;
    Label9: TLabel;
    Label17: TLabel;
    Label1: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label2: TLabel;
    Label15: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label16: TLabel;
    EdtOperator: TEdit;
    EdtRemark: TEdit;
    CmbUnloadPort: TComboBox;
    EdtGoodsName: TEdit;
    EdtTotalWeight: TEdit;
    EdtTotalNumber: TEdit;
    CmbBussinessMan: TComboBox;
    CmbAgent: TComboBox;
    CmbTrustType: TComboBox;
    CmbPlaneComCode: TComboBox;
    MemTruckRequest: TMemo;
    MemFileRequest: TMemo;
    CmbLoadPort: TComboBox;
    DtpGoDate: TDateTimePicker;
    EdtCargoVolume: TEdit;
    EdtTotalSize: TEdit;
    MemFareRequest: TMemo;
    DtpQuoteDate: TDateTimePicker;
    EdtCustQuoteCode: TEdit;
    EdtConsignCodeTele: TEdit;
    EdtConsignCodeRela: TEdit;
    EdtConsignCodeAddr: TEdit;
    EdtFreight: TEdit;
    EdtBtnCusCode: TCoolEditBtn;
    EdtCusCodeTele: TEdit;
    EdtCusCodeRela: TEdit;
    EdtCusCodeAddr: TEdit;
    EdtBtnConsignCode: TCoolEditBtn;
    EdtOperatorName: TEdit;
    RadOut: TCoolCheckRadioBox;
    RadIn: TCoolCheckRadioBox;
    BtnAdd: TButton;
    BtnSave: TButton;
    BtnClose: TButton;
    QryTemp: TADOQuery;
    procedure BtnAddClick(Sender: TObject);
    procedure BtnSaveClick(Sender: TObject);
    procedure BtnCloseClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CmbTrustTypeExit(Sender: TObject);
    procedure CmbAgentExit(Sender: TObject);
    procedure CmbPlaneComCodeExit(Sender: TObject);
    procedure CmbLoadPortExit(Sender: TObject);
    procedure CmbUnloadPortExit(Sender: TObject);
    procedure EdtTotalSizeExit(Sender: TObject);
  private
    { Private declarations }
  public
    IsEdit: Boolean;
    QuoteCode: string;
    { Public declarations }
  end;

var
  FrmBussinessBillEdit: TFrmBussinessBillEdit;

implementation

uses Frm_Main, Frm_BussinessBillInfo;

{$R *.dfm}

procedure TFrmBussinessBillEdit.BtnAddClick(Sender: TObject);
begin
  inherited;
  EdtCustQuoteCode.Text := '';
  EdtCustQuoteCode.SetFocus;
  EdtBtnCusCode.Text := '';
  EdtCusCodeTele.Text := '';
  CmbTrustType.Text := '';
  EdtCusCodeRela.Text := '';
  EdtCusCodeAddr.Text := '';
  EdtBtnConsignCode.Text := '';
  EdtConsignCodeTele.Text := '';
  EdtConsignCodeRela.Text := '';
  EdtConsignCodeAddr.Text := '';
  CmbAgent.Text := '';
  CmbPlaneComCode.Text := '';
  EdtFreight.Text := '';
  CmbLoadPort.Text := '';
  CmbUnloadPort.Text := '';
  DtpGoDate.DateTime := Now;
  EdtGoodsName.Text := '';
  EdtCargoVolume.Text := '';
  EdtTotalNumber.Text := '';
  EdtTotalWeight.Text := '';
  EdtTotalSize.Text := '';
  MemTruckRequest.Text := '';
  MemFileRequest.Text := '';
  MemFareRequest.Text := '';
  DtpQuoteDate.DateTime := Now;
  CmbBussinessMan.Text := '';
  EdtRemark.Text := '';
  QuoteCode := '';
  BtnAdd.Enabled := False;
  IsEdit := False;
end;

procedure TFrmBussinessBillEdit.BtnSaveClick(Sender: TObject);
var
  Sqlstr: string;
  TempRowCount: Integer;
begin
  inherited;
  if FrmMain.IncludeValue('交接单维护') then
  else
  begin
    ShowMessage('对不起，你不具有该操作的权限！');
    exit;
  end;

  if IsEdit then
  begin
    try
      sqlstr := '';
      FrmMain.UpStr(sqlstr, 'BussessBillQuote');
      FrmMain.UpStr(sqlstr, 'CustQuoteCode', Trim(EdtCustQuoteCode.text), ',');
      FrmMain.UpStr(sqlstr, 'CusCode', trim(EdtBtnCusCode.Text), ',');
      FrmMain.UpStr(sqlstr, 'CusCodeTele', Trim(EdtCusCodeTele.Text), ',');
      FrmMain.UpStr(sqlStr, 'CusCodeAddr', Trim(EdtCusCodeAddr.Text), ',');
      FrmMain.UpStr(sqlStr, 'CusCodeRela', Trim(EdtCusCodeRela.Text), ',');
      FrmMain.UpStr(sqlStr, 'ConsignCode', Trim(EdtBtnConsignCode.Text), ',');
      FrmMain.UpStr(sqlStr, 'ConsignCodeTele', Trim(EdtConsignCodeTele.Text), ',');
      FrmMain.UpStr(sqlStr, 'ConsignCodeAddr', Trim(EdtConsignCodeAddr.Text), ',');
      FrmMain.UpStr(sqlStr, 'ConsignCodeRela', Trim(EdtConsignCodeRela.Text), ',');
      FrmMain.UpStr(sqlStr, 'TrustType', Trim(FrmMain.GetFieldText(CmbTrustType.Text)), ',');
      FrmMain.UpStr(sqlStr, 'Agent', Trim(FrmMain.GetFieldText(CmbAgent.Text, 2)), ',');
      FrmMain.UpStr(sqlStr, 'PlaneComCode', Trim(FrmMain.GetFieldText(CmbPlaneComCOde.Text)), ',');
      FrmMain.UpStr(sqlStr, 'LoadPort', Trim(FrmMain.GetFieldText(CmbLoadPort.Text)), ',');
      FrmMain.UpStr(sqlStr, 'UnLoadPort', Trim(FrmMain.GetFieldText(CmbUnLoadPort.Text)), ',');
      FrmMain.UpStr(sqlStr, 'Freight', Trim(EdtFreight.Text), ',');
      FrmMain.UpStr(sqlStr, 'GoDate', Trim(DateTOStr(int(DtpGoDate.Date))), ',');
      FrmMain.UpStr(sqlStr, 'CargoVolume', Trim(EdtCargoVolume.Text), ',');
      FrmMain.UpStr(sqlStr, 'GoodsName', Trim(EdtGoodsName.Text), ',');
      FrmMain.UpStr(sqlStr, 'TotalWeight', Trim(EdtTotalWeight.Text), ',');
      FrmMain.UpStr(sqlStr, 'TotalNumber', Trim(EdtTotalNumber.Text), ',');
      FrmMain.UpStr(sqlStr, 'TotalSize', Trim(EdtTotalSize.Text), ',');
      FrmMain.UpStr(sqlStr, 'Operator', Trim(EdtOperator.Text), ',');
      FrmMain.UpStr(sqlStr, 'OperatorName', Trim(EdtOperatorName.Text), ',');
      FrmMain.UpStr(sqlStr, 'BussinessMan', Trim(FrmMain.GetFieldText(CmbBussinessMan.Text)), ',');
      FrmMain.UpStr(sqlStr, 'QuoteDate', Trim(DateTOStr(int(DtpQuoteDate.Date))), ',');
      FrmMain.UpStr(sqlStr, 'TruckRequest', Trim(MemTruckRequest.Lines.Text), ',');
      FrmMain.UpStr(sqlStr, 'FareRequest', Trim(MemFareRequest.Lines.Text), ',');
      FrmMain.UpStr(sqlStr, 'FileRequest', Trim(MemFileRequest.Lines.Text), ',');
      if RadOut.Checked then
        FrmMain.UpStr(sqlstr, 'outin', 0, ',')
      else
        FrmMain.UpStr(sqlstr, 'outin', 1, ',');
      FrmMain.UpStr(SqlStr, 'Remark', Trim(EdtRemark.Text), '');
      FrmMain.UpStr(sqlstr, 'quotecode =', QuoteCode, 'w');
      if FrmMain.ExecSQL(SqlStr) then
      else
      begin
        ShowMessage('更新代码记录失败,请检查!');
        exit;
      end;

      with FrmBussinessBillInfo do
      begin
        GridBillQuote.Cells[0, CurrentRow] := EdtCustQuoteCode.Text;
        GridBillQuote.Cells[1, CurrentRow] := EdtBtnCusCode.Text;
        GridBillQuote.Cells[2, CurrentRow] := EdtBtnConsignCode.Text;
        GridBillQuote.Cells[3, CurrentRow] := FrmMain.GetFieldText(CmbAgent.Text, 2);
        GridBillQuote.Cells[4, CurrentRow] := FrmMain.GetFieldText(CmbTrustType.Text, 2);
        GridBillQuote.Cells[5, CurrentRow] := FrmMain.GetFieldText(CmbPlaneComCode.Text, 2);
        GridBillQuote.Cells[6, CurrentRow] := EdtFreight.Text;
        GridBillQuote.Cells[7, CurrentRow] := FrmMain.GetFieldText(CmbLoadPort.Text, 2);
        GridBillQuote.Cells[8, CurrentRow] := FrmMain.GetFieldText(CmbUnLoadPort.Text, 2);
        GridBillQuote.Cells[9, CurrentRow] := DateTOStr(DtpGoDate.Date);
        GridBillQuote.Cells[10, CurrentRow] := EdtGoodsName.Text;
        GridBillQuote.Cells[11, CurrentRow] := EdtTotalNumber.Text;
        GridBillQuote.Cells[12, CurrentRow] := EdtTotalWeight.Text;
        GridBillQuote.Cells[13, CurrentRow] := EdtTotalSize.Text;
      end;
    except
      ShowMessage('更新代码记录失败,请检查!');
      exit;
    end;
  end