frm_goodsstat.pas

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

unit frm_goodsstat;

interface

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

type
  Tfrmgoodsstat = class(TFrmCargo)
    Panel3: TPanel;
    ComVoyage: TComboBox;
    LV: TListView;
    Panel5: TPanel;
    Label3: TLabel;
    Panel7: TPanel;
    Panel8: TPanel;
    BtnDetails: TBitBtn;
    Panel4: TPanel;
    LV2: TListView;
    Panel6: TPanel;
    Panel2: TPanel;
    Panel1: TPanel;
    BitBtn4: TBitBtn;
    BtnNew: TBitBtn;
    BtnEdit: TBitBtn;
    BtnDelete: TBitBtn;
    QryStat: TADOQuery;
    procedure BtnDetailsClick(Sender: TObject);
    procedure LVClick(Sender: TObject);
    procedure LVColumnClick(Sender: TObject; Column: TListColumn);
    procedure LV2ColumnClick(Sender: TObject; Column: TListColumn);
    procedure BtnNewClick(Sender: TObject);
    procedure BtnEditClick(Sender: TObject);
    procedure BtnDeleteClick(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    VarCode:String;
     IsFirstOpen:Boolean;
     TrustGroup:TStringList;
     Multi:Boolean;
    { Public declarations }
  end;

var
  frmgoodsstat: Tfrmgoodsstat;

implementation

uses frm_goodsstatseek, Frm_Main, Frm_GoodsStatEdit;

{$R *.dfm}

procedure Tfrmgoodsstat.BtnDetailsClick(Sender: TObject);
begin
  inherited;
  lv.Items.Clear;
  lv2.Items.Clear;
  FrmGoodsstatseek:=tfrmgoodsstatseek.create(self);
  frmgoodsstatseek.showmodal;
end;

procedure Tfrmgoodsstat.LVClick(Sender: TObject);
begin
  inherited;
if lv.SelCount <>1 then
    begin
       lv2.Items.Clear;
       exit;
    end;

 with Qrystat do
     begin
     {状态编号  航程信息,航班,航班日期,状态描述,运输情况 记录日期}
        close;
        sql.text:='select goodsstat,hcinfo,voyage,voyagedate,synsign,transstate,statedate '+
        ' from truststate '+
        ' where filecode ='''+lv.Selected.caption+'''';
        open;
     end;
     lv2.Items.Clear;
     FrmMain.AddData(lv2,qrystat);
end;

procedure Tfrmgoodsstat.LVColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  inherited;
FrmMain.SortLvData (LV,Column.Index);
end;

procedure Tfrmgoodsstat.LV2ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  inherited;
FrmMain.SortLvData (LV2,Column.Index);
end;

procedure Tfrmgoodsstat.BtnNewClick(Sender: TObject);
var
  i:integer;
begin
  inherited;
  if lv.SelCount =0 then
    begin
       ShowMessage('请先选中相应的FileNO');
    end
  else
    begin
      multi:=false;
      if lv.SelCount >1 then
        begin
            TrustGroup.Clear;
            Multi:=True;
            for i:=0 to lv.Items.Count-1 do
              begin
                 If lv.Items.Item[i].Selected then
                    TrustGroup.Add(lv.Items.Item[i].Caption);
              end;
        end;
      FrmGoodsStatEdit:=tFrmGoodsStatEdit.Create(self);
      FrmGoodsStatEdit.IsEdit:=False;
      FrmGoodsStatEdit.showmodal;
    end;
end;

procedure Tfrmgoodsstat.BtnEditClick(Sender: TObject);
begin
  inherited;
    if lv2.SelCount =0 then
        ShowMessage('请选中一条记录进行编辑')
      else
        begin
          VarCode:=lv2.Selected.caption;
          FrmGoodsStatEdit:=tFrmGoodsStatEdit.Create(self);
          FrmGoodsStatEdit.IsEdit:=True;
          FrmGoodsStatEdit.showmodal;
        end;
end;

procedure Tfrmgoodsstat.BtnDeleteClick(Sender: TObject);
var
  SearchCode:String;
begin
  inherited;
  if lv2.Items.Count =0 then
    begin
       ShowMessage('记录集为空,不能够删除');
       exit;
    end;
  IF LV2.SelCount<>1 then
    begin
       ShowMessage('请选中一条要删除的记录');
       exit;
    end;
  if MessageDlg('是否删除所选中的记录,请确定',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
       SearchCode:=lv2.Selected.Caption;
       if FrmMain.ExecSQL('delete from truststate where goodsstat='''+searchcode+'''') then
       else
           begin
            ShowMessage('操作失误,记录未删除,请检查');
            exit;
         end;
       lv2.Selected.Delete ;
    end;
end;

procedure Tfrmgoodsstat.BitBtn4Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure Tfrmgoodsstat.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
 trustgroup.Free;
  frmgoodsstat:=nil;
end;

procedure Tfrmgoodsstat.FormCreate(Sender: TObject);
begin
  inherited;

  FrmMain.AddColumn(LV,'编号',1);
  FrmMain.AddColumn(LV,'工作单号',120);
  FrmMain.AddColumn(LV,'分运单号',120);
  FrmMain.AddColumn(LV,'主运单号',120);
  FrmMain.AddColumn(LV,'航次',120);
  FrmMain.AddColumn(LV,'装货港',120);
  FrmMain.AddColumn(LV,'卸货港',120);
  FrmMain.AddColumn(LV,'货主',200);
  FrmMain.AddColumn(LV,'货物件数',100);
  FrmMain.AddColumn(LV,'货物重量',100);
  FrmMain.AddColumn(LV,'计费重量',100);

{编号  FileNO  分单号 主单号  航次  装货港  卸货港  货主  件数  重量}
  FrmMain.AddColumn(LV2,'状态编号',1);
  FrmMain.AddColumn(LV2,'航程信息',120);
  FrmMain.AddColumn(LV2,'航班',120);
  FrmMain.AddColumn(LV2,'航班日期',120);
  FrmMain.AddColumn(LV2,'状态描述',100);
  FrmMain.AddColumn(LV2,'运输情况',120);
  FrmMain.AddColumn(LV2,'记录日期',100);
{状态编号  航程信息,航班,航班日期,状态描述,运输情况 记录日期}
  IsFirstOpen:=true;
  shortDateFormat := 'yyyy-mm-dd';

  TrustGroup:=TStringList.Create; {创建一个stringlist类,用来存储trustcode}
end;

end.