uorderbrowser.pas

来自「简单易用的按件按时计工资管理系统」· PAS 代码 · 共 105 行

unit uOrderBrowser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBaseBrowser, dxExEdtr, DB, DBClient, ActnList, ImgList,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, StdCtrls, ExtCtrls, ComCtrls, ToolWin,
  Provider;

type
  TOrderBrowser = class(TBaseBrowser)
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
  private
    { Private declarations }
  protected
    procedure InitVars; override;
    procedure Detail; override;
    procedure Add; override;
    procedure Query; override;
    procedure Del; override;
  public
    { Public declarations }
  end;

var
  OrderBrowser: TOrderBrowser;

implementation

uses uOrderDetail, uGlobal, uOrderBrowserQryDlg, uDM;

{$R *.dfm}

{ TOrderBrowser }

procedure TOrderBrowser.Add;
begin
  inherited;
  Pub_KeyFieldValue:='';
  OrderDetail:= TOrderDetail.Create (self);
  OrderDetail.OrderState :=osAppend;
  OrderDetail.KeyFieldValue:= Pub_KeyFieldValue;
  OrderDetail.ShowModal ;
end;

procedure TOrderBrowser.Del;
var
  sID:string;
begin
  inherited;
  sID:=GetID;
  if sID='' then exit;
  try
    DM.DelMasterDatailData(CS_Table_PayMaster, CS_Table_PayDetail, sID);
    cdsMast.Delete ;
  except
    Raise;
  end;

end;

procedure TOrderBrowser.Detail;
begin
  inherited;
  if Pub_KeyFieldValue='' then exit;
  OrderDetail:= TOrderDetail.Create (self);
  OrderDetail.OrderState :=osEdit;
  OrderDetail.KeyFieldValue:= Pub_KeyFieldValue;
  OrderDetail.ShowModal ;
end;

procedure TOrderBrowser.InitVars;
begin
  inherited;
  TableName:=CS_View_PayMaster;
  Caption :='工资计算单一览表';
  lblCaption.Caption :=Caption;

end;

procedure TOrderBrowser.Query;
begin
  inherited;
  if QryDLg=nil then
     QryDLg:= TOrderBrowserQryDlg.Create (self);

  if QryDLg.ShowModal =mrOK then
  begin
    Condition:= QryDLg.GetCondition ;
    GetList;

  end;
end;

end.