searchgzds.pas

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

unit SearchGZDs;

interface

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

type
  TFrmSearchGZDs = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    StatusBar1: TStatusBar;
    dbgGL: TDBGrid;
    ImageList1: TImageList;
    ImageList2: TImageList;
    DataSource1: TDataSource;
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    fURL: String;
    fDate: String;
    fPz: string;
    fQx:string;
    fGmye:string;
    procedure LoadGZLedger();
  end;

var
  FrmSearchGZDs: TFrmSearchGZDs;

implementation
uses uDMFunc, SearchGZDetailDs;
{$R *.dfm}
procedure TFrmSearchGZDs.LoadGZLedger();
var
  vData: Variant;
  nWidth: smallint;
begin
  //vData := CurrentCityRecordSet;
  SearchGZ(fURL,fDate,fPz,fQx,fGmye,dbgGL);
  if CurrentCityRecordCount()=0 then
  begin
    //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 TFrmSearchGZDs.ToolButton6Click(Sender: TObject);
begin
  close;
end;

procedure TFrmSearchGZDs.ToolButton4Click(Sender: TObject);
var
  vData: Variant;
  DetailLedger: TFrmSearchGZDetail;
begin
  vData := CurrentCityRecordSet;
  self.Hide;
  DetailLedger := TFrmSearchGZDetail.Create(application);
  DetailLedger.fURL := fURL;
  DetailLedger.LoadGZDetail(ReadGzpzh);
  DetailLedger.ShowModal;
  DetailLedger.Free;
  self.Show;
  CurrentCityRecordSet(vData);
end;

end.