{*******************************************************}
{                                                       }
{                     分類帳校對                        }
{                                                       }
{            中軟金馬公司版權(quán)所有。2002.12前            }
{                                                       }
{               編制：中軟金馬項目開發(fā)組                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級零枚票管理模塊 單據(jù)管理部分 的入庫依據(jù)單補錄模塊調(diào)用。
*)

{
有關(guān)表：
  集郵票品庫存、集郵票調(diào)價表
數(shù)據(jù)來源：
  列表：集郵票品庫存（按志號排序）
功能:
  查找：根據(jù)志號快速定位
算法：
  保存數(shù)據(jù)時，遍歷已更新的數(shù)據(jù)，UPDATE集郵票品庫存，同時插入一條數(shù)據(jù)到集郵票調(diào)價表中
更新有關(guān)表：
  集郵票品庫存（UPDATE 原價、銷價）、集郵票調(diào)價表
備注：
}
unit SHOW_TYP;

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;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Panel2: TPanel;
    ComboBox1: TComboBox;
    Label5: TLabel;
    Query1: TRxQuery;
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RxDBGrid1DblClick(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
  private
    { Private declarations }
    FDtState: TDataState;

  public
    { Public declarations }
  end;

function ExeSY_RKDBL_XZTXPP: Boolean;
var
  frmSY_SCGRP: TfrmSY_SCGRP;

implementation

{$R *.DFM}

uses datas,pub, SY_TXPRKDBL;

function ExeSY_RKDBL_XZTXPP: 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;
  ComboBox1.ItemIndex := 2;
  ComboBox1Click(nil);

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_TXPRKDBL 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;

procedure TfrmSY_SCGRP.ComboBox1Click(Sender: TObject);
begin
  inherited;
  Query1.Close;
  case ComboBox1.ItemIndex of
    0:
      Query1.Macros[0].AsString := '''jtlm'',''ptyp'',''fpj''';
    1:
      Query1.Macros[0].AsString := '''jtlm''';
    2:
      Query1.Macros[0].AsString := '''ptyp''';
    3:
      Query1.Macros[0].AsString := '''fpj''';
  end;
  Query1.Open;
end;

end.