?? usldsearch.pas
字號:
unit uSLDSearch;
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 uDB,main, uSld;
{$R *.DFM}
//==全部瀏覽按鈕實現
procedure TfrmClsld_CX.btnBrowseAllClick(Sender: TObject);
begin
//將過濾條件置為空
{ DMDB.CDS_CLSLD_CX.close;
DMDB.CDS_CLSLD_CX.filter := '';
DMDB.CDS_CLSLD_CX.filtered := false;
DMDB.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);
begin{
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -