sz_jypplx.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                 集邮品流量信息查询                    }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
省级综合查询

*)
unit sz_jypplx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RXCtrls, ExtCtrls, StdCtrls, Mask, ToolEdit, Grids, DBGrids, Buttons, Db,
  DBTables, Clipbrd, SqlStrings, RxQuery;

type
  TFrmz_JYPPLXCX = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    RB_PP: TRadioButton;
    RB_DW: TRadioButton;
    DE_Start: TDateEdit;
    DE_End: TDateEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edt_Zh: TEdit;
    Panel3: TPanel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Splitter1: TSplitter;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    BBt_Find: TBitBtn;
    BBt_Quit: TBitBtn;
    Query1: TRxQuery;
    Query2: TRxQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    RxLabel_Title: TRxLabel;
    SqlStrings1: TSqlStrings;
    SqlStrings2: TSqlStrings;
    SqlStrings3: TSqlStrings;
    SqlStrings4: TSqlStrings;
    Bevel1: TBevel;
    DBGrid3: TDBGrid;
    procedure BBt_FindClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edt_ZhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure RB_PPClick(Sender: TObject);
    procedure RB_DWClick(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    l_typ: TIO_TYPE;
  public
    { Public declarations }
  end;

procedure ShowPPLXForm(p_typ: TIO_TYPE);

var
  Frmz_JYPPLXCX: TFrmz_JYPPLXCX;

implementation
uses datas,pub;

{$R *.DFM}

procedure ShowPPLXForm(p_typ: TIO_TYPE);
begin
  with TFrmz_JYPPLXCX.Create(application) do
  try
    l_typ := p_typ;
    RxLabel_Title.Caption := pCaption[integer(l_typ)] + '流向信息查询';
    ShowModal;
  finally
    Release;
  end;
end;


procedure TFrmz_JYPPLXCX.BBt_FindClick(Sender: TObject);
begin
  if RB_PP.Checked then
  begin
    Query2.Close;
    with Query1 do
    begin
      Close;
      SQL.Clear;
      SQL := SqlStrings1.FSqlText[l_typ]; 
      Open;
    end;
    with Query2 do
    begin
      Close;
      SQL.Clear;
      SQL := SqlStrings2.FSqlText[l_typ];
      Macros[0].AsString := '''' + FormatDateTime('YYYYMMDD', DE_Start.Date) + '''';
      Macros[1].AsString := '''' + FormatDateTime('YYYYMMDD', DE_End.Date) + '''';
      Open;
    end;
  end
  else
  begin
    Query2.Close;
    with Query1 do
    begin
      Close;
      SQL.Clear;
      SQL := SqlStrings3.FSqlText[l_typ];
      Open;
      Fields[0].Visible := false;
    end;
    with Query2 do
    begin
      Close;
      SQL.Clear;
      SQL := SqlStrings4.FSqlText[l_typ];
      Macros[0].AsString := '''' + FormatDateTime('YYYYMMDD', DE_Start.Date) + '''';
      Macros[1].AsString := '''' + FormatDateTime('YYYYMMDD', DE_End.Date) + '''';
      Open;
    end;
  end;
end;

procedure TFrmz_JYPPLXCX.FormCreate(Sender: TObject);
begin
  DE_Start.Date := EncodeDate(VG_Year, 1, 1);
  DE_End.Date := GetSysDate;
  GetAllColWidth(self);
end;

procedure TFrmz_JYPPLXCX.Edt_ZhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
    if RB_PP.Checked then
      Query1.Locate('志号', Edt_Zh.Text, [])
    else
      Query2.Locate('志号', Edt_Zh.Text, []);
end;

procedure TFrmz_JYPPLXCX.RB_PPClick(Sender: TObject);
begin
  GroupBox2.Caption := '票品信息';
  DBGrid1.BringToFront;
  Query1.Close;
  Query2.Close;
end;

procedure TFrmz_JYPPLXCX.RB_DWClick(Sender: TObject);
begin
  GroupBox2.Caption := '单位信息';
  DBGrid3.BringToFront;
  Query1.Close;
  Query2.Close;

end;

procedure TFrmz_JYPPLXCX.Query1AfterOpen(DataSet: TDataSet);
begin
  if DBGrid1.Columns[0].FieldName = 'TDM' then
    DBGrid1.Columns[0].Visible := false;
end;

procedure TFrmz_JYPPLXCX.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SaveAllColWidth(self);
end;

end.