frm_bussinessman.pas

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

unit Frm_BussinessMan;

interface

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

type
  TFrmBussinessMan = class(TFrmCargo)
    LV: TListView;
    Panel1: TPanel;
    Panel2: TPanel;
    BtnCancel: TBitBtn;
    BtnNew: TBitBtn;
    BtnDelete: TBitBtn;
    BtnEdit: TBitBtn;
    QryTemp: TADOQuery;
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBussinessMan: TFrmBussinessMan;

implementation

uses Frm_BussinessManEdit, Frm_Main;

{$R *.dfm}

procedure TFrmBussinessMan.BtnNewClick(Sender: TObject);
begin
  inherited;
  FrmBussinessManEdit := TFrmBussinessManEdit.Create(Self);
  FrmBussinessManEdit.IsEdit := False;
  FrmBussinessManEdit.BussinessManCode := '';
  FrmBussinessManEdit.BtnAdd.Enabled := False;
  FrmBussinessManEdit.ShowModal;
end;

procedure TFrmBussinessMan.BtnEditClick(Sender: TObject);
begin
  inherited;
  if LV.SelCount = 0 then
  begin
    ShowMessage('请选择一条记录进行编辑!');
    exit;
  end;
  FrmBussinessManEdit := TFrmBussinessManEdit.Create(Self);
  FrmBussinessManEdit.IsEdit := True;
  FrmBussinessManEdit.BtnAdd.Enabled := True;
  FrmBussinessManEdit.BussinessManCode := LV.Selected.Caption;
  FrmBussinessManEdit.ShowModal;
end;

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

  if lv.Items.Count = 0 then
  begin
    ShowMessage('记录集为空,不能够删除');
    exit;
  end;
  if LV.SelCount = 0 then
  begin
    ShowMessage('请选取窗体中的一行!');
    exit; //如果没有选取行
  end;

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

  try
    FrmMain.UseDB.BeginTrans;
    if (FrmMain.CheckExistCount('BussinessCode', LV.Selected.Caption,
      'CustomerInfo') > 0) then
    begin
      if MessageDlg('对不起,该代码存在与港口信息的关联中' + chr(13) +
        '执行删除操作,将同时把港口信息中与之关联的港口信息删除掉,是否继续执行,请确定！',
        mtConfirmation, [mbYes, mbNo], 0) = mrno then
      begin
        FrmMain.UseDB.RollbackTrans;
        exit;
      end;
      SqlStr := 'Delete From CustomerInfo Where BussinessCode=''' +
        LV.Selected.Caption + '''';
      if FrmMain.ExecSQL(SqlStr) then
      else
      begin
        Showmessage('记录删除失败,请检查!');
        exit;
      end;
    end;

    SqlStr := 'Delete From BussinessMan Where Code=''' +
      LV.Selected.Caption + '''';
    if FrmMain.ExecSQL(SqlStr) then
    else
    begin
      ShowMessage('记录删除失败,请检查!');
      exit;
    end;
    LV.Selected.Delete;
    FrmMain.UseDB.CommitTrans;
  except
    ShowMessage('删除记录操作进行失败,请检查!', );
    FrmMain.UseDB.RollbackTrans;
    Exit;
  end;

end;

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

procedure TFrmBussinessMan.FormCreate(Sender: TObject);
begin
  inherited;
  QryTemp.Close;
  QryTemp.sql.text := 'Select a.Code,a.Name,a.Area,a.Dept,b.CName,a.Type,a.Remark from BussinessMan a,DeptmentInfo b where b.Code=*a.Dept';;
  QryTemp.open;
  
  FrmMain.addcolumn(LV, '业务员代码', 100);
  FrmMain.AddColumn(LV, '业务员名称', 160);
  FrmMain.addcolumn(LV, '业务员地区', 160);
  FrmMain.addcolumn(LV, '部门代码', 100);
  FrmMain.addcolumn(LV, '部门名称', 160);
  FrmMain.addcolumn(LV, '类   别', 160);
  FrmMain.addcolumn(LV, '备   注', 160);
  FrmMain.AddData(LV, QryTemp);
end;

procedure TFrmBussinessMan.FormDestroy(Sender: TObject);
begin
  inherited;
  FrmBussinessMan:=nil;
end;

end.