开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
U_clsldcx.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：5k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

U_clsldcx.pas：源码内容
  1. unit U_clsldcx;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, ComCtrls, Grids, DBGrids, Db, DBClient, ImgList, ToolWin;
  9. type
  10.   TfrmClsld_CX = class(TForm)
  11.     StatusBar1: TStatusBar;
  12.     Panel1: TPanel;
  13.     DBGrid: TDBGrid;
  14.     Panel3: TPanel;
  15.     ImageList1: TImageList;
  16.     ToolBar1: TToolBar;
  17.     btnLookUp: TToolButton;
  18.     btnBrowseAll: TToolButton;
  19.     btnOrder: TToolButton;
  20.     btnPrint: TToolButton;
  21.     DataSource: TDataSource;
  22.     procedure btnBrowseAllClick(Sender: TObject);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.     procedure btnLookUpClick(Sender: TObject);
  25.     procedure btnOrderClick(Sender: TObject);
  26.     procedure btnPrintClick(Sender: TObject);
  27.     procedure DBGridTitleClick(Column: TColumn);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  34. var
  35.   frmClsld_CX: TfrmClsld_CX;
  37. implementation
  39. uses U_mainform, U_szcx, U_general_print, WzglDB, GenQ3, u_public;
  41. {$R *.DFM}
  43. //==全部浏览按钮实现
  45. procedure TfrmClsld_CX.btnBrowseAllClick(Sender: TObject);
  46. begin
  47.   //将过滤条件置为空
  48.   DM.CDS_CLSLD_CX.close;
  49.   DM.CDS_CLSLD_CX.filter := '';
  50.   DM.CDS_CLSLD_CX.filtered := false;
  51.   DM.CDS_CLSLD_CX.open;
  52. end;
  54. //==当窗体被关闭时
  56. procedure TfrmClsld_CX.FormClose(Sender: TObject; var Action: TCloseAction);
  57. begin
  58.   action := cafree;
  59.   frmClsld_cx := nil; //将frmClsld_cx置为NIl。
  60. end;
  62. //==查找按钮的实现，在此调用第七节，创建的TGenQ3控件
  63. procedure TfrmClsld_CX.btnLookUpClick(Sender: TObject);
  64. var
  65.   GenQuery: TGenQ3;
  66. begin
  67.   GenQuery := TGenQ3.Create(self);
  68.   GenQuery.v_TableName := 'WZ_View_CLSLD_CX'; //设置表名
  69.   GenQuery.v_AppServName := frmMain.SocketConnection; //设置应用服务器连接
  70.   GenQuery.v_ProviderName := 'P_General'; //设置获取数据集的提供者
  71.   //==添加定位字段，“；”前表示实际字段名，‘；’后表示实际字段的别名
  72.   GenQuery.v_fieldsstrings.Add('收料字号;收料字号');
  73.   GenQuery.v_fieldsstrings.Add('仓库名称;仓库名称');
  74.   GenQuery.v_fieldsstrings.Add('制单日期;制单日期');
  75.   GenQuery.v_fieldsstrings.Add('材料编号;材料编号');
  76.   GenQuery.v_fieldsstrings.Add('材料名称;材料名称');
  77.   GenQuery.v_fieldsstrings.Add('存放位置;存放位置');
  78.   GenQuery.v_fieldsstrings.Add('入库单价;入库单价');
  79.   GenQuery.v_fieldsstrings.Add('凭证数量;凭证数量');
  80.   GenQuery.v_fieldsstrings.Add('实收数量;实收数量');
  81.   GenQuery.v_fieldsstrings.Add('供应厂家;供应厂家');
  82.   GenQuery.v_fieldsstrings.Add('采购人;采购人');
  83.   GenQuery.v_fieldsstrings.Add('是否审核;是否审核');
  84.   //打开窗口
  85.   if GenQuery.execute then
  86.   begin
  87.     //给CDS_CLSLD_CX的过滤条件赋值
  88.     DM.CDS_CLSLD_CX.filter := GenQuery.V_filtervalue;
  89.     DM.CDS_CLSLD_CX.filtered := true;
  90.   end;
  91. end;
  93. //==排序按钮的实现
  95. procedure TfrmClsld_CX.btnOrderClick(Sender: TObject);
  96. var
  97.   vs_value: string;
  98.   vi, i: integer;
  99. begin
  100.   //创建通用的排序的窗口
  101.   application.createform(TfrmSzcx, frmSzcx);
  102.   //添加排序的字段
  103.   frmSzcx.SrcList.Items.add('收料字号');
  104.   frmSzcx.srclist.items.add('仓库名称');
  105.   frmSzcx.srclist.items.add('制单日期');
  106.   frmSzcx.srclist.items.add('材料编号');
  107.   frmSzcx.srclist.items.add('存放位置');
  108.   frmSzcx.srclist.items.add('入库单价');
  109.   frmSzcx.srclist.items.add('凭证数量');
  110.   frmSzcx.srclist.items.add('实收数量');
  111.   frmSzcx.srclist.items.add('材料名称');
  112.   frmSzcx.srclist.items.add('供应厂家');
  113.   frmSzcx.srclist.items.add('采购人');
  114.   try
  115.     frmSzcx.showmodal;
  116.   finally
  117.     if Ordered then
  118.     begin
  119.       vi := frmSzcx.DstList.Items.Count;
  120.       if vi > 0 then
  121.       begin
  122.         vs_value := frmSzcx.dstlist.items[0];
  123.       end;
  124.       for i := 2 to vi do
  125.       begin
  126.         vs_value := vs_value + ';' + frmSzcx.dstlist.items[i - 1];
  127.       end;
  128.       //给表索引赋值
  129.       DM.CDS_CLSLD_CX.IndexFieldNames := vs_value;
  130.     end;
  131.     frmSzcx.free;
  132.   end;
  133. end;
  135. //==打印按钮的实现
  136. procedure TfrmClsld_CX.btnPrintClick(Sender: TObject);
  137. begin
  138. //==创建通用打印窗口
  139.   application.createform(TfrmPrint, frmPrint);
  140.   with frmPrint do
  141.   begin
  142.     //添加可打印的字段
  143.     srclist.items.add('收料字号');
  144.     srclist.items.add('仓库名称');
  145.     srclist.items.add('制单日期');
  146.     srclist.items.add('材料编号');
  147.     srclist.items.add('存放位置');
  148.     srclist.items.add('入库单价');
  149.     srclist.items.add('凭证数量');
  150.     srclist.items.add('实收数量');
  151.     srclist.items.add('材料名称');
  152.     srclist.items.add('供应厂家');
  153.     srclist.items.add('采购人');
  154.     srclist.items.add('是否审核');
  155.     vps_tablename := 'WZ_View_Clsld_cx'; //设置表名
  156.     vps_filter := DM.CDS_CLSLD_CX.Filter; //过滤条件
  157.     vps_index := DM.CDS_CLSLD_CX.IndexFieldNames; //索引
  158.     EdtPrintTitle.Text := '收料单据打印'; //报表标题
  159.     try
  160.       showmodal;
  161.     finally
  162.       free;
  163.     end;
  164.   end;
  166. end;
  168. //==当按下DBGrid的标题列时，调用DBGridSort进行对应标题的排序,DBGridSort在
  169. //U_public单元实现
  171. procedure TfrmClsld_CX.DBGridTitleClick(Column: TColumn);
  172. begin
  173.   DBGridsort(dbgrid, column);
  174. end;
  176. end.