frm_farewh.pas

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

unit Frm_FareWh;

interface

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

type
  TFrmFareWh = class(TFrmCargo)
    EnterAsTab1: TEnterAsTab;
    Panel3: TPanel;
    Label2: TLabel;
    Panel1: TPanel;
    Panel2: TPanel;
    BitBtn4: TBitBtn;
    BtnHide: TBitBtn;
    Panel4: TPanel;
    Page: TPageControl;
    TabMx: TTabSheet;
    LV: TListView;
    TabHZ: TTabSheet;
    LV2: TListView;
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    KMDM: TMenuItem;
    QryFare: TADOQuery;
    procedure BtnHideClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure KMDMClick(Sender: TObject);
  private
    { Private declarations }
  public
  VarCode:String;
    isfirstopen:boolean;
    { Public declarations }
  end;

var
  FrmFareWh: TFrmFareWh;

implementation

uses Frm_Main, Frm_farewhseek;

{$R *.dfm}

procedure TFrmFareWh.BtnHideClick(Sender: TObject);
begin
  inherited;
Frmfarewhseek:=tFrmfarewhseek.create(self);
  Frmfarewhseek.showmodal;
end;

procedure TFrmFareWh.FormCreate(Sender: TObject);
begin
  inherited;
FrmMain.AddColumn(LV,'自动编号',1);
  FrmMain.AddColumn(LV,'工作单号',100);
  FrmMain.AddColumn(LV,'分运单号',100);
  FrmMain.AddColumn(LV,'主运单号',100);
  FrmMain.AddColumn(LV,'费用对象',100);
  FrmMain.AddColumn(LV,'会计科目',100);
  FrmMain.AddColumn(LV,'费用名称',80);
  FrmMain.AddColumn(LV,':应收',80);
  FrmMain.AddColumn(LV,':应付',80);
  FrmMain.AddColumn(LV,'报销号',100);
  FrmMain.AddColumn(LV,'账单号',100);
  FrmMain.AddColumn(LV,'录入日期',100);
  FrmMain.AddColumn(LV,'操作者',100);  

  {自动编号,工作单号,分运单号,主运单号,费用对象,应收,应付,金额,会计科目,录入日期}


  FrmMain.AddColumn(LV2,'工作单号',100);
  FrmMain.AddColumn(LV2,'分运单号',100);  
  FrmMain.AddColumn(LV2,'主运单号',100);
  FrmMain.AddColumn(LV2,'费用对象',100);
  FrmMain.AddColumn(LV2,'会计科目',100);
  FrmMain.AddColumn(LV2,':应收',80);
  FrmMain.AddColumn(LV2,':应付',80);
  FrmMain.AddColumn(LV2,'账单号',100);

  isfirstopen:=true;
end;

procedure TFrmFareWh.KMDMClick(Sender: TObject);
var
  i:integer;  {}
  Kmdm,KmdmDesc:String;   {会计科目}
  SqlStr:String;
  FareCode:String;
begin
  inherited;
try
 

  if lv.SelCount=0 then
    Begin
       ShowMessage('请选择要修改的费用记录');
       exit;
    end;

  Kmdm:=inputbox('科目代码录入','请输入正确的科目代码','');

  if kmdm='' then
    exit;


  if FrmMain.CheckExistCount('Farecode',Kmdm,'Faretype')>0 then
    begin
        kmdmdesc:=kmdm+FrmMain.GetCustomerValue('farecode',kmdm,'cname','faretype');
    end
  else
    begin
       ShowMessage('不存在该科目代码,请重试!');
       exit;
    end;

  farecode:='';
  for i:=0 to lv.Items.Count-1 do
    begin
        if lv.Items.Item[i].Selected then
          begin
             lv.Items.Item[i].SubItems.Strings[4]:=kmdmdesc;
             if farecode='' then
                farecode:=''''+lv.Items.Item[i].Caption+''''
             else
                farecode:=farecode+','''+lv.Items.Item[i].Caption+'''';
          end;
    end;

  SqlStr:='Update FareInfo Set FareType='''+kmdm+''' where Fareno in ('+FareCode+')';
  
  if FrmMain.ExecSQL(Sqlstr) then
  else
    begin
       ShowMessage('更新科目代码失败,请重试!');
       exit;
    end;

 ShowMessage('更新科目代码成功,谢谢使用!');
except
   raise;
end;
end;

end.