frm_customerinfo.pas

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

unit Frm_CustomerInfo;

interface

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

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

var
  FrmCustomerInfo: TFrmCustomerInfo;

implementation

uses Frm_Main, Frm_CustomerEdit;

{$R *.dfm}

procedure TFrmCustomerInfo.FormCreate(Sender: TObject);
begin
  inherited;
  QryTemp.Close;
  QryTemp.sql.text := 'Select CusCode,CusName,CusCName,' +
    'CusType,CusCAddRess,CusTele,CusFax,CusRelation,CusEmail ' +
    ' from CustomerInfo';
  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, '电   话', 100);
  FrmMain.addcolumn(LV, '传   真', 100);
  FrmMain.addcolumn(LV, '联系人', 100);
  FrmMain.addcolumn(LV, '电子邮件', 100);
  FrmMain.AddData(LV, QryTemp);
end;

procedure TFrmCustomerInfo.BtnNewClick(Sender: TObject);
begin
  inherited;
  if FrmMain.IncludeValue('客户档案维护') then
  else
  begin
    ShowMessage('对不起，你不具有该操作的权限！');
    exit;
  end;
  FrmCustomerEdit := TFrmCustomerEdit.Create(Self);
  FrmCustomerEdit.IsEdit := False;
  FrmCustomerEdit.ShowModal;
end;

procedure TFrmCustomerInfo.BtnEditClick(Sender: TObject);
begin
  inherited;
  if LV.SelCount = 0 then
  begin
    ShowMessage('请选择一条记录进行编辑!');
    exit;
  end;

  FrmCustomerEdit := TFrmCustomerEdit.Create(Self);
  FrmCustomerEdit.IsEdit := True;
  FrmCustomerEdit.BtnAdd.Enabled := True;
  FrmCustomerEdit.CusCode := Lv.Selected.Caption;
  FrmCustomerEdit.ShowModal;
end;

procedure TFrmCustomerInfo.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
      if (FrmMain.CheckExistCount('ShipperCode', Lv.Selected.Caption,'FileTable')>0) or
      (FrmMain.CheckExistCount('ConsignCode', Lv.Selected.Caption,'FileTable')>0)
      or (FrmMain.CheckExistCount('CusCode', Lv.Selected.Caption,'FareInfo')>0)
      or (FrmMain.CheckExistCount('CusCode',Lv.Selected.Caption,'RealFareInfo')>0) then
        begin
           ShowMessage('对不起，该客户代码已经使用，不能够在此进行删除，操作取消！');
           Exit;
        end;

    FrmMain.UseDB.BeginTrans ;
    SqlStr := 'Delete From CustomerBillName where CusCode=''' + Lv.Selected.Caption + '''';
    if FrmMain.ExecSQL(SqlStr) then
    else
    begin
       ShowMessage('对不起，客户记录删除失败，请检查！');
       FrmMain.UseDB.RollbackTrans ;
       Exit;
     end;

    SqlStr := 'Delete From CustomerInfo where CusCode=''' + Lv.Selected.Caption + '''';
    if FrmMain.ExecSQL(SqlStr) then
    else
    begin
       ShowMessage('对不起，客户记录删除失败，请检查！');
       FrmMain.UseDB.RollbackTrans ;
       Exit;
     end;
     LV.Selected.Delete;
     FrmMain.UseDB.CommitTrans ;
  except
      ShowMessage('删除记录操作进行失败,请检查!',);
      FrmMain.UseDB.RollbackTrans ;
      Exit;
  end;

end;

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

procedure TFrmCustomerInfo.FormDestroy(Sender: TObject);
begin
  inherited;
  FrmCustomerInfo:=nil;
end;

procedure TFrmCustomerInfo.LVDblClick(Sender: TObject);
begin
  inherited;
  BtnEditClick(sender);
end;

end.