show_pp.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                      选择票品                         }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
省级集邮品，省级市场购入票
地市集邮品，地市市场购入票

*)

{
有关表：
  集邮票品库存、集邮票调价表
数据来源：
  列表：集邮票品库存（按志号排序）
功能:
  查找：根据志号快速定位
算法：
  保存数据时，遍历已更新的数据，UPDATE集邮票品库存，同时插入一条数据到集邮票调价表中
更新有关表：
  集邮票品库存（UPDATE 原价、销价）、集邮票调价表
备注：
}
unit SHOW_PP;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FORMBASE, ExtCtrls, ModiPanel, Grids, DBGrids, RXDBCtrl, StdCtrls, Db,
  DBTables, RxQuery, Buttons, SqlStrings;

type
  PTao = ^TTao;
  TTao = record
    TDM: string;
    TMC: string;
    zh: string;
    sj: double;
    xj: double;
  end;

  Tfrm_SHOWPP = class(TFFormBase)
    RxDBGrid1: TRxDBGrid;
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    DataSource1: TDataSource;
    ListBox1: TListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Query1: TQuery;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Bevel1: TBevel;
    Panel2: TPanel;
    SqlS_pp: TSqlStrings;
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RxDBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

function ExeSY_SCGRP(io_typ: TIO_TYPE): Boolean;
var
  frm_SHOWPP: Tfrm_SHOWPP;

implementation

{$R *.DFM}

uses datas, pub, SY_GRYPRKDSC;

function ExeSY_SCGRP(io_typ: TIO_TYPE): Boolean;
begin
  Application.CreateForm(Tfrm_SHOWPP, frm_SHOWPP);
  with frm_SHOWPP do
  begin
    query1.SQL := SqlS_pp.FSqlText[io_typ];
    query1.open;
    result := ShowModal = MB_OK;
    Free;
  end;
end;

procedure Tfrm_SHOWPP.Edit1Change(Sender: TObject);
begin
//  inherited;
  if Edit1.Text <> '' then
    query1.Locate('ZH', Edit1.Text, [loCaseInsensitive, loPartialKey]);
end;

procedure Tfrm_SHOWPP.BitBtn2Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrm_SHOWPP.BitBtn3Click(Sender: TObject);
var
  i: integer;
begin
  inherited;
  for i := listbox1.Items.Count - 1 downto 0 do
  begin
    if listbox1.Selected[i] then listbox1.Items.Delete(i);
  end;
end;

procedure Tfrm_SHOWPP.BitBtn1Click(Sender: TObject);
var
  i: integer;
begin
  inherited;
  if listbox1.Items.Count = 0 then
  begin
    BitBtn2Click(nil);
    exit;
  end;

  frm_GRYPRKDSC.recordcount := listbox1.Items.Count;
  setlength(frm_GRYPRKDSC.sj, frm_GRYPRKDSC.recordcount);
  setlength(frm_GRYPRKDSC.xj, frm_GRYPRKDSC.recordcount);
  setlength(frm_GRYPRKDSC.tdm, frm_GRYPRKDSC.recordcount);
  setlength(frm_GRYPRKDSC.tmc, frm_GRYPRKDSC.recordcount);
  setlength(frm_GRYPRKDSC.zh, frm_GRYPRKDSC.recordcount);
  for i := 0 to listbox1.items.count - 1 do
  begin
    frm_GRYPRKDSC.tdm[i] := ptao(listbox1.Items.Objects[i])^.TDM;
    frm_GRYPRKDSC.sj[i] := ptao(listbox1.Items.Objects[i])^.sj;
    frm_GRYPRKDSC.xj[i] := ptao(listbox1.Items.Objects[i])^.xj;
    frm_GRYPRKDSC.tmc[i] := ptao(listbox1.Items.Objects[i])^.tmc;
    frm_GRYPRKDSC.zh[i] := ptao(listbox1.Items.Objects[i])^.zh;
  end;
  frm_GRYPRKDSC.queding := true;
  close;
end;

procedure Tfrm_SHOWPP.RxDBGrid1DblClick(Sender: TObject);
var
  i: integer;
  selected: boolean;
  Tao: PTao;
begin
  inherited;
  selected := false;
  for i := listbox1.Items.Count - 1 downto 0 do
    if listbox1.Items.Strings[i] = query1.fieldbyname('zh').asstring + '#' + query1.fieldbyname('tmc').asstring then
    begin
      selected := true;
      break;
    end;
  if not selected then
  begin
    New(Tao);
    Tao^.TDM := query1.fieldbyname('tdm').AsString;
    Tao^.sj := query1.fieldbyname('tpsj').AsFloat;
    Tao^.xj := query1.fieldbyname('xj').AsFloat;
    Tao^.tmc := query1.fieldbyname('tmc').AsString;
    Tao^.zh := query1.fieldbyname('zh').AsString;
    listbox1.Items.AddObject(query1.fieldbyname('zh').asstring + '#' + query1.fieldbyname('tmc').asstring, TObject(Tao));
  end;

end;

end.