frm_portinfo.~pas

站长您好

unit Frm_PortInfo;

interface

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

type
  TFrmPortInfo = 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 FormCreate(Sender: TObject);
    procedure LVDblClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPortInfo: TFrmPortInfo;

implementation

uses Frm_PortEdit, Frm_Main;

{$R *.dfm}

procedure TFrmPortInfo.BtnNewClick(Sender: TObject);
begin
  inherited;
  FrmPortEdit := TFrmPortEdit.Create(Self);
  FrmPortEdit.IsEdit := False;
  FrmPortEdit.PortCode := '';
  FrmPortEdit.ShowModal;
end;

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

procedure TFrmPortInfo.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
    SqlStr := 'Delete From PortInfo Where PortCode=''' + LV.Selected.Caption +
      '''';
    if FrmMain.ExecSQL(SqlStr) then
    else
    begin
      ShowMessage('记录删除失败,请检查!');
      exit;
    end;

    LV.Selected.Delete;

  except
    ShowMessage('删除操作进行失败,请检查!');
    Exit;
  end;
end;

procedure TFrmPortInfo.FormCreate(Sender: TObject);
begin
  inherited;
  QryTemp.Close;
  QryTemp.sql.text :=
    'Select a.PortCode,a.PortName,a.PortCName,a.CountryCode,b.CName,' +
    'a.Area,a.PortStation,C.Name as LaneCName,a.Remark' +
    ' from PortInfo a,CountryInfo b,LaneCode c where a.CountryCode=b.Code and C.Code=*a.PortStation';
  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, '航线代码', 100);
  FrmMain.addcolumn(LV, '航线名称', 160);
  FrmMain.AddColumn(LV, '备注', 120);
  FrmMain.AddData(LV, QryTemp);
end;

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

procedure TFrmPortInfo.FormDestroy(Sender: TObject);
begin
  inherited;
  FrmPortInfo:=nil;
end;

end.