show_jyp.pas

省级集邮品管理ERP

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

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

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;
    mz: double;
    sj: double;

  end;
  TfrmSY_SCGRP = 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;
    Panel2: TPanel;
    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 }

  public
    { Public declarations }
  end;

function ExeSY_RKDBL_XZPP: Boolean;
var
  frmSY_SCGRP: TfrmSY_SCGRP;

implementation

{$R *.DFM}

uses datas,pub,  SY_JYPRKDBL;
function ExeSY_RKDBL_XZPP: Boolean;
begin
  Application.CreateForm(TfrmSY_SCGRP, frmSY_SCGRP); {TFFormBase1, FFormBase1}
  with frmSY_SCGRP do {FFormBase1}
  begin
    result := ShowModal = MB_OK;
    Free;
  end;
end;

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

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

procedure TfrmSY_SCGRP.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 TfrmSY_SCGRP.FormCreate(Sender: TObject);
begin
  inherited;
  query1.Open;

end;

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

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

procedure TfrmSY_SCGRP.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^.tmc := query1.fieldbyname('tmc').asstring;
    Tao^.zh := query1.fieldbyname('zh').asstring;
    Tao^.mz := query1.fieldbyname('tpmz').AsFloat;
    Tao^.sj := query1.fieldbyname('tpsj').AsFloat;
    listbox1.Items.AddObject(query1.fieldbyname('zh').asstring + '#' + query1.fieldbyname('tmc').asstring, TObject(Tao));
  end;

end;

end.