financedetailedledger.pas

来自「ProviceSystem-公积金监管系统中心端」· PAS 代码 · 共 119 行

unit FinanceDetailedLedger;

interface

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

type
  TFrmFinanceDetailedLedger = class(TForm)
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton7: TToolButton;
    ToolButton4: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    dbgLedger: TDBGrid;
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
  private
    { Private declarations }
    fbDate: Boolean;
    fbNum: Boolean;
    fbDebit: Boolean;
    fbCredit: Boolean;
    fsDate: String;
    fsNum: String;
    fdDebit: Double;
    fdCredit: Double;
  public
    { Public declarations }
    fURL: String;
    fDate: String;
    procedure LoadFinanceDetailedLedger(const sSubject: String);
  end;

var
  FrmFinanceDetailedLedger: TFrmFinanceDetailedLedger;

implementation

{$R *.dfm}
uses uDMFunc,FinanceWarrant, FinanceLocate, uConstUtils;

procedure TFrmFinanceDetailedLedger.LoadFinanceDetailedLedger(
  const sSubject: String);
begin
  SearchFinanceDetailedLedger(fURL,copy(fDate,1,6),sSubject,dbgLedger);
  with dbgLedger.Columns do
  begin
    Items[0].Width := 50;
    Items[1].Width := 50;
    Items[2].Width := 300;
    Items[3].Width := 100;
    Items[4].Width := 100;
    Items[5].Width := 100;
    Items[6].Width := 70;
    Items[7].Width := 400;
  end;
end;

procedure TFrmFinanceDetailedLedger.ToolButton4Click(Sender: TObject);
begin
  close;
end;

procedure TFrmFinanceDetailedLedger.ToolButton5Click(Sender: TObject);
var
  FinWarrant: TFrmFinanceWarrant;
  vData: Variant;
  sDate,sNum,sSummary: string;
begin
//  vData := SearchCityRecord;
  vData := CurrentCityRecordSet;
  SearchFinanceWarrantInfo(sDate,sNum,sSummary);
  if trim(sNum)='' then
  begin
    application.MessageBox('没有凭证号，不能查询凭证！',PMsgCaption,48);
    exit;
  end;
  self.Hide;
  FinWarrant := TFrmFinanceWarrant.Create(application);
  FinWarrant.fURL := fURL;
  FinWarrant.LoadFinanceWarrant(sDate,sNum,sSummary);
  FinWarrant.ShowModal;
  FinWarrant.Free;
  self.Show;
//  SearchCityRecord(vData);
  CurrentCityRecordSet(vData);
end;

procedure TFrmFinanceDetailedLedger.ToolButton8Click(Sender: TObject);
var
  FinLocate: TFrmFinanceLocate;
  i: integer;
begin
  FinLocate := TFrmFinanceLocate.Create(application);
  if FinLocate.ShowModal=mrOK then
  begin
    FinLocate.ReadLocatequalification(fbDate,fbNum,fbDebit,fbCredit,
      fsDate,fsNum,fdDebit,fdCredit);
    i := LocateDetailedLedger(fbDate,fbNum,fbDebit,fbCredit,
      fsDate,fsNum,fdDebit,fdCredit);
    RecordNoCity(i);
  end;
  FinLocate.Free;
end;

end.