show_tppp.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                          调配票品                     }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块地市集邮票管理，地市集邮品管理，地市市场购入票里面调用。

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

interface

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

type
  PTao = ^TTao;
  TTao = Record
    TDM:String;
    zh:string;
    tmc:string;
    lb:string;
    dj:string;
    jj:string;
  end;
  TFrm_Showtppp = class(TFFormBase)
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    DataSource1: TDataSource;
    Query1: TQuery;
    Label4: TLabel;
    Panel2: TPanel;
    RxDBGrid1: TRxDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    ListBox1: TListBox;
    Panel3: TPanel;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RxDBGrid1DblClick(Sender: TObject);
  private
    { Private declarations }
    FDtState: TDataState;

  public
    { Public declarations }
  end;

function ExeSY_SCGRP: Boolean;
var
  Frm_Showtppp: TFrm_Showtppp;

implementation

uses datas,JM_data, JM_YYYPPTP;

{$R *.DFM}


function ExeSY_SCGRP: Boolean;
begin
  Application.CreateForm(Tfrm_ShowtPPP,frm_ShowTpPP); {TFFormBase1, FFormBase1}
  with frm_ShowTPPP do  {FFormBase1}
  begin
    Caption:=Application.Title;
    result := ShowModal = MB_OK;
    Free;
    Frm_yyypptp.ComboBox1.Enabled :=True;
    Frm_yyypptp.ComboBox2.Enabled :=True;
  end;
end;

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

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

procedure TFrm_Showtppp.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_Showtppp.FormCreate(Sender: TObject);
var
  StrSQL:string;
begin
  StrSQL:=pygxm(Frm_yyypptp.combobox1.Items.Objects[Frm_yyypptp.combobox1.Items.IndexOf(Frm_yyypptp.combobox1.text)])^.ygdm;
  with query1 do
  begin
    Close;
    Parambyname('ygdm').AsString:=StrSQL;
    Parambyname('lb').AsString:=Frm_yyypptp.LB_type;
    Open;
  end;
  TNumericField(Query1.FieldByName('sl')).DisplayFormat := '#,##';
end;

procedure TFrm_Showtppp.BitBtn1Click(Sender: TObject);
var
  i:integer;
begin
  inherited;
  Frm_YYYPPTP.recordcount:=listbox1.Items.Count;
  setlength(Frm_YYYPPTP.zh,Frm_YYYPPTP.recordcount);
  setlength(Frm_YYYPPTP.mc,Frm_YYYPPTP.recordcount);
  setlength(Frm_YYYPPTP.tdm,Frm_YYYPPTP.recordcount);
  setlength(Frm_YYYPPTP.lb,Frm_YYYPPTP.recordcount);
  setlength(Frm_YYYPPTP.dj,Frm_YYYPPTP.recordcount);
  setlength(Frm_yyypptp.jj,Frm_yyypptp.recordcount);
  for i:=0 to listbox1.items.count-1 do
  begin
    Frm_YYYPPTP.tdm[i]:=ptao(listbox1.Items.Objects[i])^.TDM;
    Frm_YYYPPTP.mc[i]:=ptao(listbox1.Items.Objects[i])^.tmc;
    Frm_YYYPPTP.zh[i]:=ptao(listbox1.Items.Objects[i])^.zh;
    Frm_YYYPPTP.lb[i]:=ptao(listbox1.Items.Objects[i])^.lb;
    Frm_YYYPPTP.dj[i]:=ptao(listbox1.Items.Objects[i])^.dj;
    Frm_YYYPPTP.jj[i]:=ptao(listbox1.Items.Objects[i])^.jj;
  end;
  Frm_YYYPPTP.queding:=true;
  close;
end;

procedure TFrm_Showtppp.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('ppmc').asstring+',(进价：'+query1.fieldbyname('jj').AsString+'分)' then
     begin
      selected:=true;
      break;
     end;
  if not selected then
  begin
    New(Tao);
    Tao^.TDM:=query1.fieldbyname('ppdm').asstring;
    Tao^.tmc:=query1.fieldbyname('ppmc').asstring;
    Tao^.zh:=query1.fieldbyname('zh').asstring;
    Tao^.lb :=Query1.FieldByName('lb').AsString;
    Tao^.dj :=Query1.FieldByName('dj').AsString;
    Tao^.jj :=Query1.FieldByName('jj').AsString;
    listbox1.Items.AddObject(query1.fieldbyname('zh').asstring+','+query1.fieldbyname('ppmc').asstring+',(进价：'+query1.fieldbyname('jj').AsString+'分)',TObject(Tao));
  end;

end;

end.