frm_bussinessbillinfo.pas

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

unit Frm_BussinessBillInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Frm_Cargo, XPMenu, StdCtrls, Buttons, Grids, BaseGrid, AdvGrid,
  ExtCtrls, DB, ADODB;

type
  TFrmBussinessBillInfo = class(TFrmCargo)
    Panel1: TPanel;
    GridBillQuote: TAdvStringGrid;
    Panel2: TPanel;
    BtnCancel: TBitBtn;
    BtnNew: TBitBtn;
    BtnDelete: TBitBtn;
    BtnEdit: TBitBtn;
    QryTemp: TADOQuery;
    procedure BtnNewClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure GridBillQuoteRowChanging(Sender: TObject; OldRow,
      NewRow: Integer; var Allow: Boolean);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure GridBillQuoteDblClickCell(Sender: TObject; ARow,
      ACol: Integer);
  private
    { Private declarations }
  public
     CurrentRow: Integer;
    { Public declarations }
  end;

var
  FrmBussinessBillInfo: TFrmBussinessBillInfo;

implementation

uses Frm_Main, Frm_BussinessBillEdit;

{$R *.dfm}

procedure TFrmBussinessBillInfo.BtnNewClick(Sender: TObject);
begin
  inherited;
if FrmMain.IncludeValue('交接单维护') then
  else
  begin
    ShowMessage('对不起，你不具有该操作的权限！');
    exit;
  end;
  FrmBussinessBillEdit := TFrmBussinessBillEdit.Create(self);
  FrmBussinessBillEdit.IsEdit := False;
  FrmBussinessBillEdit.QuoteCode := '';
  FrmBussinessBillEdit.Showmodal;
end;

procedure TFrmBussinessBillInfo.FormCreate(Sender: TObject);
var
  SqlStr: string;
begin
  inherited;
  SqlStr := 'Select a.CustQuoteCode,a.cuscode,a.consigncode,a.Agent,'
    + 'b.CName,c.PlaneCompanyCName,a.Freight,d.PortCName,e.PortCName,a.GoDate,'
    + 'a.GoodsName,a.TotalWeight,a.TotalNumber,a.TotalSize,a.QuoteCode from BussessBillQuote a'
    + ',TrustTypeInfo b,PlaneCompanyInfo c,PortInfo d,PortInfo e where b.code=*a.TrustType'
    + ' and c.PlaneCompanyCode=*a.PlaneComCode'
    + ' and d.PortCode=*a.LoadPort and e.PortCode=*a.UnloadPort';
  FrmMain.SetQuerySql(SqlStr, 'a.Operator', 'a.QuoteDate');
  FrmMain.AddGridData(GridBillQuote, SqlStr);
  CurrentRow := 1;
end;

procedure TFrmBussinessBillInfo.GridBillQuoteRowChanging(Sender: TObject;
  OldRow, NewRow: Integer; var Allow: Boolean);
begin
  inherited;
 CurrentRow := NewRow;
end;

procedure TFrmBussinessBillInfo.BtnEditClick(Sender: TObject);
begin
  inherited;

  if (CurrentRow = 1) and (GridBillQuote.Cells[14, 1] = '') then
  begin
    ShowMessage('数据为空，不可修改，请点增加!');
    exit;
  end;
  FrmBussinessBillEdit := TFrmBussinessBillEdit.Create(self);
  with FrmBussinessBillEdit do
  begin
    IsEdit := True;
    BtnAdd.Enabled := True;
    QuoteCode := GridBillQuote.Cells[14, CurrentRow];
    ShowModal;
  end;
end;

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


  if (CurrentRow = 1) and (GridBillQuote.Cells[14, 1] = '') then
    Exit;

  if MessageDlg('是否删除所选中的记录,请确定', mtConfirmation,[mbYes,mbNo], 1) = mrNO then
    exit;

  try
    SqlStr := 'Delete From BussessBillQuote Where QuoteCode=''' + GridBillQuote.Cells[14, CurrentRow] + '''';
    if FrmMain.ExecSQL(SqlStr) then
    else
    begin
      ShowMessage('记录删除失败,请检查!');
      exit;
    end;
  except
    ShowMessage('删除操作进行失败,请检查!');
    Exit;
  end;
  FrmMain.DeleteGridRow(GridBillQuote, 15, CurrentRow);
end;

procedure TFrmBussinessBillInfo.BtnCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TFrmBussinessBillInfo.FormDestroy(Sender: TObject);
begin
  inherited;
  FrmBussinessBillInfo:=nil;
end;

procedure TFrmBussinessBillInfo.GridBillQuoteDblClickCell(Sender: TObject;
  ARow, ACol: Integer);
begin
  inherited;
  BtnEditClick(Self);
end;

end.