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

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

Delphi/CppBuilder

开发平台：

Delphi

U_bmlldcx.pas：源码内容
  1. unit U_bmlldcx;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, ExtCtrls, Grids, DBGrids, Db, DBClient, ImgList, ToolWin;
  9. type
  10.   TForm74 = class(TForm)
  11.     Panel1: TPanel;
  12.     StatusBar1: TStatusBar;
  13.     ClientDataSet1: TClientDataSet;
  14.     DataSource1: TDataSource;
  15.     DBGrid1: TDBGrid;
  16.     ImageList1: TImageList;
  17.     Timer1: TTimer;
  18.     Panel2: TPanel;
  19.     ToolBar1: TToolBar;
  20.     ToolButton1: TToolButton;
  21.     ToolButton3: TToolButton;
  22.     ToolButton2: TToolButton;
  23.     ToolButton4: TToolButton;
  24.     procedure ToolButton1Click(Sender: TObject);
  25.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  26.     procedure ToolButton2Click(Sender: TObject);
  27.     procedure Timer1Timer(Sender: TObject);
  28.     procedure ToolButton4Click(Sender: TObject);
  29.     procedure ToolButton3Click(Sender: TObject);
  30.     procedure DBGrid1TitleClick(Column: TColumn);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  37. var
  38.   Form74: TForm74;
  40. implementation
  42. uses U_mainform, U_dwck, U_szcx, U_general_print;
  44. {$R *.DFM}
  46. procedure TForm74.ToolButton1Click(Sender: TObject);
  47. begin
  48.   application.createform(Tform77, form77);
  49.   form77.combobox1.items.add('领料字号');
  50.   form77.combobox1.items.add('材料编码');
  51.   form77.combobox1.items.add('请领数量');
  52.   form77.combobox1.items.add('实发数量');
  53.   form77.combobox1.items.add('材料名称');
  54.   form77.combobox1.items.add('规格型号');
  55.   form77.combobox1.items.add('领料单位');
  56.   form77.combobox1.items.add('工程项目');
  57.   form77.combobox1.items.add('领料用途');
  58.   form77.combobox1.items.add('制单日期');
  59.   form77.combobox1.items.add('发料人');
  60.   form77.combobox1.items.add('收料人');
  61.   form77.combobox1.items.add('是否审核');
  62.   v_table := 'VIEW_CL_BMLLD';
  63.   try
  64.     form77.showmodal;
  65.   finally
  66.     form77.free;
  67.     if sf_qr = 'yes' then
  68.     begin
  69.       clientdataset1.filter := xx401;
  70.       clientdataset1.filtered := true;
  71.     end;
  72.   end;
  74. end;
  76. procedure TForm74.FormClose(Sender: TObject; var Action: TCloseAction);
  77. begin
  78.   ACTION := CAFREE;
  79.   form74 := nil;
  80. end;
  82. procedure TForm74.ToolButton2Click(Sender: TObject);
  83. var
  84.   vs_value: string;
  85.   vi, i: integer;
  86. begin
  87.   application.createform(Tform78, form78);
  88.   form78.srclist.items.add('领料字号');
  89.   form78.srclist.items.add('材料编码');
  90.   form78.srclist.items.add('请领数量');
  91.   form78.srclist.items.add('实发数量');
  92.   form78.srclist.items.add('材料名称');
  93.   form78.srclist.items.add('规格型号');
  94.   form78.srclist.items.add('领料单位');
  95.   form78.srclist.items.add('工程项目');
  96.   form78.srclist.items.add('领料用途');
  97.   form78.srclist.items.add('制单日期');
  98.   form78.srclist.items.add('发料人');
  99.   form78.srclist.items.add('收料人');
  100.   form78.srclist.items.add('是否审核');
  101.   try
  102.     form78.showmodal;
  103.   finally
  104.     if sf_qd1 = 'yes' then
  105.     begin
  106.       vi := form78.DstList.Items.Count;
  107.       if vi > 0 then
  108.       begin
  109.         vs_value := form78.dstlist.items[0];
  110.       end;
  111.       for i := 2 to vi do
  112.       begin
  113.         vs_value := vs_value + ';' + form78.dstlist.items[i - 1];
  114.       end;
  115.       clientdataset1.IndexFieldNames := vs_value;
  116.     end;
  117.     form78.free;
  118.   end;
  119. end;
  121. procedure TForm74.Timer1Timer(Sender: TObject);
  122. begin
  123.   statusbar1.Panels[2].text := '共有：' + inttostr(clientdataset1.recordcount) + '条记录';
  124.   statusbar1.refresh;
  126. end;
  128. procedure TForm74.ToolButton4Click(Sender: TObject);
  129. begin
  130.   application.createform(Tform80, form80);
  131.   form80.srclist.items.add('领料字号');
  132.   form80.srclist.items.add('材料编码');
  133.   form80.srclist.items.add('请领数量');
  134.   form80.srclist.items.add('实发数量');
  135.   form80.srclist.items.add('材料名称');
  136.   form80.srclist.items.add('规格型号');
  137.   form80.srclist.items.add('领料单位');
  138.   form80.srclist.items.add('工程项目');
  139.   form80.srclist.items.add('领料用途');
  140.   form80.srclist.items.add('制单日期');
  141.   form80.srclist.items.add('发料人');
  142.   form80.srclist.items.add('领料人');
  143.   form80.srclist.items.add('是否审核');
  144.   vps_tablename := 'view_cl_bmlld';
  145.   vps_filter := clientdataset1.Filter;
  146.   vps_index := clientdataset1.IndexFieldNames;
  147.   Form80.Edit1.Text := '部门领料单据打印';
  148.   try
  149.     form80.showmodal;
  150.   finally
  151.     form80.free;
  152.   end;
  153. end;
  155. procedure TForm74.ToolButton3Click(Sender: TObject);
  156. begin
  157.   clientdataset1.close;
  158.   clientdataset1.filter:='';
  159.   clientdataset1.Filtered := false;
  160.   clientdataset1.open;
  161. end;
  163. procedure TForm74.DBGrid1TitleClick(Column: TColumn);
  164. begin
  165.   Form1.MySort(dbgrid1, column);
  166. end;
  168. end.