unit U_clsldcx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, Grids, DBGrids, Db, DBClient, ImgList, ToolWin;

type
  TfrmClsld_CX = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    DBGrid: TDBGrid;
    Panel3: TPanel;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    btnLookUp: TToolButton;
    btnBrowseAll: TToolButton;
    btnOrder: TToolButton;
    btnPrint: TToolButton;
    DataSource: TDataSource;
    procedure btnBrowseAllClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnLookUpClick(Sender: TObject);
    procedure btnOrderClick(Sender: TObject);
    procedure btnPrintClick(Sender: TObject);
    procedure DBGridTitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmClsld_CX: TfrmClsld_CX;

implementation

uses U_mainform, U_szcx, U_general_print, WzglDB, GenQ3, u_public;

{$R *.DFM}

//==全部瀏覽按鈕實(shí)現(xiàn)

procedure TfrmClsld_CX.btnBrowseAllClick(Sender: TObject);
begin
  //將過(guò)濾條件置為空
  DM.CDS_CLSLD_CX.close;
  DM.CDS_CLSLD_CX.filter := '';
  DM.CDS_CLSLD_CX.filtered := false;
  DM.CDS_CLSLD_CX.open;
end;

//==當(dāng)窗體被關(guān)閉時(shí)

procedure TfrmClsld_CX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action := cafree;
  frmClsld_cx := nil; //將frmClsld_cx置為NIl。
end;

//==查找按鈕的實(shí)現(xiàn)，在此調(diào)用第七節(jié)，創(chuàng)建的TGenQ3控件
procedure TfrmClsld_CX.btnLookUpClick(Sender: TObject);
var
  GenQuery: TGenQ3;
begin
  GenQuery := TGenQ3.Create(self);
  GenQuery.v_TableName := 'WZ_View_CLSLD_CX'; //設(shè)置表名
  GenQuery.v_AppServName := frmMain.SocketConnection; //設(shè)置應(yīng)用服務(wù)器連接
  GenQuery.v_ProviderName := 'P_General'; //設(shè)置獲取數(shù)據(jù)集的提供者
  //==添加定位字段，“；”前表示實(shí)際字段名，‘；’后表示實(shí)際字段的別名
  GenQuery.v_fieldsstrings.Add('收料字號(hào);收料字號(hào)');
  GenQuery.v_fieldsstrings.Add('倉(cāng)庫(kù)名稱;倉(cāng)庫(kù)名稱');
  GenQuery.v_fieldsstrings.Add('制單日期;制單日期');
  GenQuery.v_fieldsstrings.Add('材料編號(hào);材料編號(hào)');
  GenQuery.v_fieldsstrings.Add('材料名稱;材料名稱');
  GenQuery.v_fieldsstrings.Add('存放位置;存放位置');
  GenQuery.v_fieldsstrings.Add('入庫(kù)單價(jià);入庫(kù)單價(jià)');
  GenQuery.v_fieldsstrings.Add('憑證數(shù)量;憑證數(shù)量');
  GenQuery.v_fieldsstrings.Add('實(shí)收數(shù)量;實(shí)收數(shù)量');
  GenQuery.v_fieldsstrings.Add('供應(yīng)廠家;供應(yīng)廠家');
  GenQuery.v_fieldsstrings.Add('采購(gòu)人;采購(gòu)人');
  GenQuery.v_fieldsstrings.Add('是否審核;是否審核');
  //打開(kāi)窗口
  if GenQuery.execute then
  begin
    //給CDS_CLSLD_CX的過(guò)濾條件賦值
    DM.CDS_CLSLD_CX.filter := GenQuery.V_filtervalue;
    DM.CDS_CLSLD_CX.filtered := true;
  end;
end;

//==排序按鈕的實(shí)現(xiàn)

procedure TfrmClsld_CX.btnOrderClick(Sender: TObject);
var
  vs_value: string;
  vi, i: integer;
begin
  //創(chuàng)建通用的排序的窗口
  application.createform(TfrmSzcx, frmSzcx);
  //添加排序的字段
  frmSzcx.SrcList.Items.add('收料字號(hào)');
  frmSzcx.srclist.items.add('倉(cāng)庫(kù)名稱');
  frmSzcx.srclist.items.add('制單日期');
  frmSzcx.srclist.items.add('材料編號(hào)');
  frmSzcx.srclist.items.add('存放位置');
  frmSzcx.srclist.items.add('入庫(kù)單價(jià)');
  frmSzcx.srclist.items.add('憑證數(shù)量');
  frmSzcx.srclist.items.add('實(shí)收數(shù)量');
  frmSzcx.srclist.items.add('材料名稱');
  frmSzcx.srclist.items.add('供應(yīng)廠家');
  frmSzcx.srclist.items.add('采購(gòu)人');
  try
    frmSzcx.showmodal;
  finally
    if Ordered then
    begin
      vi := frmSzcx.DstList.Items.Count;
      if vi > 0 then
      begin
        vs_value := frmSzcx.dstlist.items[0];
      end;
      for i := 2 to vi do
      begin
        vs_value := vs_value + ';' + frmSzcx.dstlist.items[i - 1];
      end;
      //給表索引賦值
      DM.CDS_CLSLD_CX.IndexFieldNames := vs_value;
    end;
    frmSzcx.free;
  end;
end;

//==打印按鈕的實(shí)現(xiàn)
procedure TfrmClsld_CX.btnPrintClick(Sender: TObject);
begin
//==創(chuàng)建通用打印窗口
  application.createform(TfrmPrint, frmPrint);
  with frmPrint do
  begin
    //添加可打印的字段
    srclist.items.add('收料字號(hào)');
    srclist.items.add('倉(cāng)庫(kù)名稱');
    srclist.items.add('制單日期');
    srclist.items.add('材料編號(hào)');
    srclist.items.add('存放位置');
    srclist.items.add('入庫(kù)單價(jià)');
    srclist.items.add('憑證數(shù)量');
    srclist.items.add('實(shí)收數(shù)量');
    srclist.items.add('材料名稱');
    srclist.items.add('供應(yīng)廠家');
    srclist.items.add('采購(gòu)人');
    srclist.items.add('是否審核');
    vps_tablename := 'WZ_View_Clsld_cx'; //設(shè)置表名
    vps_filter := DM.CDS_CLSLD_CX.Filter; //過(guò)濾條件
    vps_index := DM.CDS_CLSLD_CX.IndexFieldNames; //索引
    EdtPrintTitle.Text := '收料單據(jù)打印'; //報(bào)表標(biāo)題
    try
      showmodal;
    finally
      free;
    end;
  end;

end;

//==當(dāng)按下DBGrid的標(biāo)題列時(shí)，調(diào)用DBGridSort進(jìn)行對(duì)應(yīng)標(biāo)題的排序,DBGridSort在
//U_public單元實(shí)現(xiàn)

procedure TfrmClsld_CX.DBGridTitleClick(Column: TColumn);
begin
  DBGridsort(dbgrid, column);
end;

end.