pfm_viewkcsp.pas

POS收银系统

unit pfm_viewkcsp;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  pfm_viewwizard, Db, DBTables, StdCtrls, Buttons, ComCtrls, Grids, DBGrids,
  ExtCtrls;

type
  Tfm_viewkcsp = class(Tfm_viewwizard)
    TV1: TTreeView;
    Splitter1: TSplitter;
    QryTV: TQuery;
    QryName: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure TV1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_viewkcsp: Tfm_viewkcsp;

implementation

{$R *.DFM}
var
sptype:array[0..100] of string;
sptypeCnt:integer;

procedure Tfm_viewkcsp.FormCreate(Sender: TObject);
var
tvNodeRoot,tvNode:TTreeNode;
i:integer;

begin
  sViewName:='v_kcsp';

  sViewColName:=TStringlist.create;
  QryName.Active:=false;
  qryname.sql.clear;
  qryname.sql.add('select * from tab_chinesename where tablename=''t_spxx'' or tablename=''t_spstock''');
  qryname.active:=true;
  while not qryname.eof do
  begin
      sViewColName.add(qryname.fieldbyname('englishname').asstring+'='+
               qryname.fieldbyname('chinesename').asstring);
        qryname.next;
  end;
  qryname.active:=false;
  inherited;
  for i:=0 to dbgrid1.Columns.count-1 do
  begin
       if dbgrid1.Columns[i].fieldname='spnum' then
        dbgrid1.columns[i].Color:=clInfoBk;
  end;
        //取得商品类别
        QryTV.close;
        QryTV.SQL.Clear;
        QryTV.SQL.Add('select value from t_datadict where colcn=''商品类别'' group by value');
        QryTV.Open;
        i:=0;
        sptypecnt:=0;
        while not QryTV.Eof do
        begin
                sptype[i]:=QryTV.fieldbyname('value').asstring;
                i:=i+1;
                sptypecnt:=sptypecnt+1;
                QryTV.Next;
        end;
        //往treeview中加入仓库
        QryTV.close;
        QryTV.SQL.Clear;
        QryTV.SQL.Add('select * from t_ckxx');
        QryTV.Open;
       // setlength(i_fdbm,50);
        //i:=0;
        tvnoderoot:=TV1.Items.add(nil,'全部仓库');
        while not QryTV.Eof do
        begin
                tvnode:=TV1.Items.Addchild(tvnoderoot,QryTV.fieldbyname('ckmc').asstring);
                tvnode.HasChildren:=true;
                for i:=0 to sptypecnt-1 do
                begin
                  TV1.Items.Addchild(tvnode,sptype[i])
                end;

                QryTV.Next;

        end;
        //往treeview中加入分店信息
        QryTV.close;
        QryTV.SQL.Clear;
        QryTV.SQL.Add('select * from t_fendianxx');
        QryTV.Open;
        //setlength(i_fdbm,50);
       //i:=0;
        tvnoderoot:=TV1.Items.add(nil,'全部分店');
        while not QryTV.Eof do
        begin
                tvnode:=TV1.Items.Addchild(tvnoderoot,QryTV.fieldbyname('fdmc').asstring);
                tvnode.HasChildren:=true;
                for i:=0 to sptypecnt-1 do
                begin
                  TV1.Items.Addchild(tvnode,sptype[i])
                end;
                QryTV.Next;
        end;




end;

procedure Tfm_viewkcsp.TV1DblClick(Sender: TObject);
var
tvnode:TTreeNode;
querysql:string;
begin
  inherited;
  case  TV1.selected.Level of
     0:
        if tv1.selected.text='全部仓库' then
        begin
                querysql:='select * from v_kcsp where ckmc in (select ckmc from t_ckxx) ';
        end
        else
        begin
               querysql:='select * from v_kcsp where ckmc in (select fdmc from t_fendianxx) ';
        end;
     1:
        querysql:='select * from v_kcsp where ckmc=''' + tv1.selected.text +'''';
     2:

         querysql:='select * from v_kcsp where ckmc=''' + tv1.selected.parent.text +''''
         + ' and splb=''' + tv1.selected.text+'''';

  end;
query1.close;
query1.sql.clear;
query1.sql.add(querysql);
query1.open;
end;


end.