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}

//==全部瀏覽按鈕實現

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

//==當窗體被關閉時

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

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

//==排序按鈕的實現

procedure TfrmClsld_CX.btnOrderClick(Sender: TObject);
var
  vs_value: string;
  vi, i: integer;
begin
  //創建通用的排序的窗口
  application.createform(TfrmSzcx, frmSzcx);
  //添加排序的字段
  frmSzcx.SrcList.Items.add('收料字號');
  frmSzcx.srclist.items.add('倉庫名稱');
  frmSzcx.srclist.items.add('制單日期');
  frmSzcx.srclist.items.add('材料編號');
  frmSzcx.srclist.items.add('存放位置');
  frmSzcx.srclist.items.add('入庫單價');
  frmSzcx.srclist.items.add('憑證數量');
  frmSzcx.srclist.items.add('實收數量');
  frmSzcx.srclist.items.add('材料名稱');
  frmSzcx.srclist.items.add('供應廠家');
  frmSzcx.srclist.items.add('采購人');
  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;

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

end;

//==當按下DBGrid的標題列時，調用DBGridSort進行對應標題的排序,DBGridSort在
//U_public單元實現

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

end.