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

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

Delphi/CppBuilder

开发平台：

Delphi

U_kcpdcx.pas：源码内容
  1. unit U_kcpdcx;
  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.   TForm75 = class(TForm)
  11.     Panel1: TPanel;
  12.     StatusBar1: TStatusBar;
  13.     ClientDataSet1: TClientDataSet;
  14.     DataSource1: TDataSource;
  15.     DBGrid1: TDBGrid;
  16.     Panel3: TPanel;
  17.     ImageList1: TImageList;
  18.     Timer1: TTimer;
  19.     ToolBar1: TToolBar;
  20.     ToolButton1: TToolButton;
  21.     ToolButton3: TToolButton;
  22.     ToolButton2: TToolButton;
  23.     ToolButton4: TToolButton;
  24.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  25.     procedure ToolButton1Click(Sender: TObject);
  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.   Form75: TForm75;
  40. implementation
  42. uses U_mainform, U_dwck, U_szcx, U_general_print;
  44. {$R *.DFM}
  46. procedure TForm75.FormClose(Sender: TObject; var Action: TCloseAction);
  47. begin
  48.   ACTION := CAFREE;
  49.   form75 := nil;
  50. end;
  52. procedure TForm75.ToolButton1Click(Sender: TObject);
  53. begin
  54.   application.createform(Tform77, form77);
  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.   form77.combobox1.items.add('盘点日期');
  63.   form77.combobox1.items.add('盘点人');
  64.   form77.combobox1.items.add('是否审核');
  65.   v_table := 'VIEW_CL_KCPD';
  66.   try
  67.     form77.showmodal;
  68.   finally
  69.     form77.free;
  70.     if sf_qr = 'yes' then
  71.     begin
  72.       clientdataset1.filter := xx401;
  73.       clientdataset1.filtered := true;
  74.     end;
  75.   end;
  77. end;
  79. procedure TForm75.ToolButton2Click(Sender: TObject);
  80. var
  81.   vs_value: string;
  82.   vi, i: integer;
  83. begin
  84.   application.createform(Tform78, form78);
  85.   form78.srclist.items.add('仓库名称');
  86.   form78.srclist.items.add('盘点编号');
  87.   form78.srclist.items.add('材料编码');
  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.   try
  96.     form78.showmodal;
  97.   finally
  98.     if sf_qd1 = 'yes' then
  99.     begin
  100.       vi := form78.DstList.Items.Count;
  101.       if vi > 0 then
  102.       begin
  103.         vs_value := form78.dstlist.items[0];
  104.       end;
  105.       for i := 2 to vi do
  106.       begin
  107.         vs_value := vs_value + ';' + form78.dstlist.items[i - 1];
  108.       end;
  109.       clientdataset1.IndexFieldNames := vs_value;
  110.     end;
  111.     form78.free;
  112.   end;
  113. end;
  115. procedure TForm75.Timer1Timer(Sender: TObject);
  116. begin
  117.   statusbar1.Panels[2].text := '共有：' + inttostr(clientdataset1.recordcount) + '条记录';
  118.   statusbar1.refresh;
  120. end;
  122. procedure TForm75.ToolButton4Click(Sender: TObject);
  123. begin
  124.   application.createform(Tform80, form80);
  125.   form80.srclist.items.add('仓库名称');
  126.   form80.srclist.items.add('盘点编号');
  127.   form80.srclist.items.add('材料编码');
  128.   form80.srclist.items.add('实存数量');
  129.   form80.srclist.items.add('盘点数量');
  130.   form80.srclist.items.add('材料名称');
  131.   form80.srclist.items.add('规格型号');
  132.   form80.srclist.items.add('盘点日期');
  133.   form80.srclist.items.add('盘点人');
  134.   form80.srclist.items.add('是否审核');
  135.   vps_tablename := 'view_cl_kcpd';
  136.   vps_filter := clientdataset1.Filter;
  137.   vps_index := clientdataset1.IndexFieldNames;
  138.   Form80.Edit1.Text := '库存盘点单据打印';
  139.   try
  140.     form80.showmodal;
  141.   finally
  142.     form80.free;
  143.   end;
  144. end;
  146. procedure TForm75.ToolButton3Click(Sender: TObject);
  147. begin
  148.   clientdataset1.close;
  149.     clientdataset1.filter:='';
  150.   clientdataset1.filtered := false;
  151.   clientdataset1.open;
  152. end;
  154. procedure TForm75.DBGrid1TitleClick(Column: TColumn);
  155. begin
  156.   Form1.MySort(dbgrid1, column);
  157. end;
  159. end.