frm_farewh.~pas

来自「站长您好」· ~PAS 代码 · 共 89 行

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;
    SpeedButton3: TSpeedButton;
    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);
  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;

end.