jm_kcdetail.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                        库存量一览表                   }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在地市pub库存量一览表模块,省级集邮票，省级集邮品，省级市场购入票里面调用。

*)
unit JM_KCDetail;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Grids, DBGrids, StdCtrls, RXCtrls, Db, DBTables;

type
  TFrm_KCDetail = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Rgp_ppfl: TRadioGroup;
    btn_find: TButton;
    btn_print: TButton;
    btn_exit: TButton;
    DBGrid1: TDBGrid;
    XttxTitle: TRxLabel;
    Qry_htkc: TQuery;
    DataSource1: TDataSource;
    Qry_yyykc: TQuery;
    Qry_hz: TQuery;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Qry_htkcJJ: TFloatField;
    Qry_htkcTMC: TStringField;
    Qry_htkcPPDM: TStringField;
    Qry_htkcZH: TStringField;
    Qry_htkcTS: TFloatField;
    Qry_htkcTYPE: TStringField;
    Qry_hzJJ: TFloatField;
    Qry_hzTMC: TStringField;
    Qry_hzPPDM: TStringField;
    Qry_hzZH: TStringField;
    Qry_hzTS: TFloatField;
    Qry_hzTYPE: TStringField;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    dwmc: TLabel;
    Qry_yyykcYGMC: TStringField;
    Qry_yyykcJJ: TFloatField;
    Qry_yyykcLB: TStringField;
    Qry_yyykcZH: TStringField;
    Qry_yyykcPPMC: TStringField;
    Qry_yyykcDJ: TFloatField;
    Qry_yyykcSL: TFloatField;
    Qry_yyykcYSSL: TFloatField;
    Qry_yyykcLSSL: TFloatField;
    Qry_htkcKFMC: TStringField;
    procedure Rgp_ppflClick(Sender: TObject);
    procedure btn_printClick(Sender: TObject);
    procedure btn_exitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Qry_yyykcJJGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure Qry_yyykcJJSetText(Sender: TField; const Text: String);
  private

  public
    lb_type:string;
  end;

var
  Frm_KCDetail: TFrm_KCDetail;

function Show_KCDetail:Boolean;

implementation

{$R *.DFM}
uses datas,pub,JM_KCDetail_RPT,JM_HTKC_RPT;

function Show_KCDetail:Boolean;
begin
  with TFrm_KCDetail.Create(application) do
  try
    Caption:=Application.Title;
    ShowModal;
    Lb_type:='0';
  finally
    Destroy;
  end;
  Result:=True;
end;

procedure TFrm_KCDetail.Rgp_ppflClick(Sender: TObject);
var
  i:Integer;
begin
  case Rgp_ppfl.ItemIndex of
  0: begin
       Qry_yyykc.Active :=False;
       Qry_yyykc.Active :=True;
       DBGrid3.BringToFront;
       for i:=1 to 5 do
       begin
         if (DBGrid3.Columns[i]<>nil) and (DBGrid2.Columns[i-1]<>nil)  then
         DBGrid3.Columns[i].Width :=DBGrid2.Columns[i-1].Width;
       end;
     end;
  1: begin
       Qry_htkc.Active :=False;
       Qry_htkc.Active :=True;
       DBGrid1.BringToFront;
       for i:=0 to 4 do
       begin
         if (DBGrid1.Columns[i]<>nil) and (DBGrid2.Columns[i]<>nil) then
         DBGrid1.Columns[i].Width :=DBGrid2.Columns[i].Width;
       end;
     end;
  2: begin
       Qry_hz.Active :=False;
       Qry_hz.Active :=True;
       DBGrid2.BringToFront;
       for i:=0 to 4 do
       begin
         if (DBGrid1.Columns[i]<>nil) and (DBGrid2.Columns[i]<>nil) then
         DBGrid2.Columns[i].Width :=DBGrid1.Columns[i].Width;
       end;
     end;
  end;

end;

procedure TFrm_KCDetail.btn_printClick(Sender: TObject);
begin
  case Rgp_ppfl.ItemIndex of
  0:begin
      with TQuickReport1.Create(application) do
      try
        Qry_temp.Active :=False;
        Qry_temp.Active :=True;
        Qry_yyykc.Active :=False;
        Qry_yyykc.Active :=True;
        QRLabel1.Left :=Round((PageHeaderBand1.Width -QRlabel1.Width ) div 2);
        Preview;
      finally
        free;
      end;
    end;
  1:begin
      with TQuickrep_htkc.Create(application) do
      try
        Qry_print.SQL.Assign(Qry_htkc.Sql);
        Qry_Print.Active:=False;
        Qry_Print.Active:=True;
        Qry_Print.First;
        QRLabel1.Caption:='库存总量一览表(不包括营业员库存)';
        Preview;
      finally
        Free;
      end;
    end;
  2:begin
      with TQuickrep_htkc.Create(application) do
      try
        Qry_print.SQL.Assign(Qry_hz.Sql);
        Qry_Print.Active:=False;
        Qry_Print.Active:=True;
        Qry_Print.First;
        QRLabel1.Caption:='库存总量一览表(包括营业员库存)';
        Preview;
      finally
        Free;
      end;
    end;
  end;
end;

procedure TFrm_KCDetail.btn_exitClick(Sender: TObject);
begin
  Close;
end;

procedure TFrm_KCDetail.FormShow(Sender: TObject);
begin
  Dwmc.Caption :='使用单位：'+VG_UnitName;
  Rgp_ppflClick(nil);
end;

procedure TFrm_KCDetail.Qry_yyykcJJGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  CurrGetText(Sender,Text,DisplayText);
end;

procedure TFrm_KCDetail.Qry_yyykcJJSetText(Sender: TField;
  const Text: String);
begin
  CurrSetText(Sender,Text);
end;

end.