financegenerlledger.pas

ProviceSystem-公积金监管系统中心端

unit FinanceGenerlLedger;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ImgList, ComCtrls, ToolWin;

type
  TfrmFinanceGenerlLedger = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton2: TToolButton;
    ToolButton9: TToolButton;
    ToolButton5: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton6: TToolButton;
    ToolButton1: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    dbgGL: TDBGrid;
    StatusBar1: TStatusBar;
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    fURL: String;
    fDate: String;
    procedure LoadFinanceGenerLedger(const sSubject: String;
      const nOrientation: Smallint; const RestoreOldRec: Boolean= True);
  end;

var
  frmFinanceGenerlLedger: TfrmFinanceGenerlLedger;

implementation

{$R *.dfm}
uses uDMFunc, FinanceDetailedLedger;
{ TfrmFinanceGenerlLedger }

procedure TfrmFinanceGenerlLedger.LoadFinanceGenerLedger( const sSubject: String;
  const nOrientation: Smallint; const RestoreOldRec: Boolean= True);
var
  vData: Variant;
  nWidth: smallint;
begin
//  vData := SearchCityRecord;
  vData := CurrentCityRecordSet;
  //  dbgGL.DataSource := nil;
  SearchFinanceGenerlLedger(fURL,copy(fDate,1,6),sSubject,nOrientation,dbgGL);
//  if SearchCityRecordCount()=0 then
  if CurrentCityRecordCount()=0 then
  begin
//    dbgGL.DataSource := nil;
//    SearchCityRecord(vData,dbgGL);
//    SearchCityRecord(vData);
    if RestoreOldRec then
      CurrentCityRecordSet(vData);
  end;
  with dbgGL.Columns do
  begin
    Items[0].Width := 70;
    Items[2].Width := 50;
    Items[3].Width := 100;
    Items[4].Width := 100;
    Items[5].Width := 100;
    Items[6].Width := 25;
    Items[7].Width := 100;
    nWidth := dbgGL.Width -Items[0].Width -Items[2].Width -
      Items[3].Width -Items[4].Width -Items[5].Width -Items[6].Width -
      Items[7].Width - 23;
    if nWidth <210 then
      Items[1].Width := 210
    else
      Items[1].Width := nWidth;
  end;
end;

procedure TfrmFinanceGenerlLedger.ToolButton1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmFinanceGenerlLedger.ToolButton7Click(Sender: TObject);
begin
  LoadFinanceGenerLedger(ReadGenerlLedgerSubject(),1);
end;

procedure TfrmFinanceGenerlLedger.ToolButton5Click(Sender: TObject);
begin
  if length(ReadGenerlLedgerSubject())>3 then
    LoadFinanceGenerLedger(ReadGenerlLedgerSubject(),-1);
end;

procedure TfrmFinanceGenerlLedger.ToolButton9Click(Sender: TObject);
begin
  LoadFinanceGenerLedger(ReadGenerlLedgerSubject(),0);
end;

procedure TfrmFinanceGenerlLedger.FormResize(Sender: TObject);
var
  nWidth: Smallint;
begin
  with dbgGL.Columns do
  begin
    nWidth := dbgGL.Width -Items[0].Width -Items[2].Width -
      Items[3].Width -Items[4].Width -Items[5].Width -Items[6].Width -
      Items[7].Width - 20;
    if nWidth <210 then
      Items[1].Width := 210
    else
      Items[1].Width := nWidth;
  end;
end;

procedure TfrmFinanceGenerlLedger.ToolButton8Click(Sender: TObject);
var
  vData: Variant;
  DetailLedger: TFrmFinanceDetailedLedger;
begin
//  vData := SearchCityRecord;
  vData := CurrentCityRecordSet;
  self.Hide;
  DetailLedger := TFrmFinanceDetailedLedger.Create(application);
  DetailLedger.fURL := fURL;
  DetailLedger.fDate := fDate;
  DetailLedger.LoadFinanceDetailedLedger(ReadGenerlLedgerSubject);
  DetailLedger.ShowModal;
  DetailLedger.Free;
  self.Show;
//  SearchCityRecord(vData);
  CurrentCityRecordSet(vData);
end;

end.