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

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

Delphi/CppBuilder

开发平台：

Delphi

U_kcpd_child.pas：源码内容
  1. unit U_kcpd_child;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, ToolWin, Grids, DBGrids, ExtCtrls, Menus, ImgList, Db, DBClient;
  9. type
  10.   TForm65 = class(TForm)
  11.     Panel1: TPanel;
  12.     DBGrid1: TDBGrid;
  13.     ToolBar1: TToolBar;
  14.     ToolButton1: TToolButton;
  15.     ToolButton2: TToolButton;
  16.     ToolButton3: TToolButton;
  17.     ToolButton4: TToolButton;
  18.     ToolButton5: TToolButton;
  19.     ToolButton6: TToolButton;
  20.     ToolButton7: TToolButton;
  21.     StatusBar1: TStatusBar;
  22.     ClientDataSet1: TClientDataSet;
  23.     ClientDataSet1ID: TIntegerField;
  24.     ClientDataSet1CDSDesigner: TStringField;
  25.     ClientDataSet1CDSDesigner2: TStringField;
  26.     ClientDataSet1CDSDesigner3: TDateTimeField;
  27.     ClientDataSet1CDSDesigner4: TStringField;
  28.     ClientDataSet1CDSDesigner5: TStringField;
  29.     ClientDataSet1Q_KCPD_CHILD: TDataSetField;
  30.     DataSource1: TDataSource;
  31.     ImageList1: TImageList;
  32.     PopupMenu1: TPopupMenu;
  33.     N2: TMenuItem;
  34.     N1: TMenuItem;
  35.     N5: TMenuItem;
  36.     ClientDataSet1CDSDesigner6: TBooleanField;
  37.     ClientDataSet1CDSDesigner7: TStringField;
  38.     ClientDataSet1CDSDesigner8: TDateTimeField;
  39.     Timer1: TTimer;
  40.     ToolButton8: TToolButton;
  41.     procedure ToolButton1Click(Sender: TObject);
  42.     procedure ToolButton2Click(Sender: TObject);
  43.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  44.     procedure ToolButton6Click(Sender: TObject);
  45.     procedure N2Click(Sender: TObject);
  46.     procedure N1Click(Sender: TObject);
  47.     procedure N5Click(Sender: TObject);
  48.     procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  49.       DataCol: Integer; Column: TColumn; State: TGridDrawState);
  50.     procedure Timer1Timer(Sender: TObject);
  51.     procedure ToolButton3Click(Sender: TObject);
  52.     procedure ToolButton8Click(Sender: TObject);
  53.     procedure ToolButton4Click(Sender: TObject);
  54.     procedure ToolButton7Click(Sender: TObject);
  55.     procedure DBGrid1TitleClick(Column: TColumn);
  56.   private
  57.     { Private declarations }
  58.   public
  59.     { Public declarations }
  60.   end;
  62. var
  63.   Form65: TForm65;
  65. implementation
  67. uses U_mainform, U_kcpd, U_pdgl_djsh, U_dwck, U_general_print;
  69. {$R *.DFM}
  71. procedure TForm65.ToolButton1Click(Sender: TObject);
  72. begin
  73.   application.CreateForm(Tform5, form5);
  74.   try
  75.     form5.speedbutton1.click;
  76.     form5.showmodal;
  77.   finally
  78.     form5.free;
  79.   end;
  80. end;
  82. procedure TForm65.ToolButton2Click(Sender: TObject);
  83. begin
  84.   if clientdataset1.RecordCount = 0 then
  85.   begin
  86.     application.messagebox('没有记录可删除', '物资管理系统', mb_iconinformation + mb_defbutton1);
  87.     exit;
  88.   end;
  89.   if clientdataset1.fieldbyname('是否审核').value = true then
  90.   begin
  91.     application.messagebox('此盘点已审核，不能删除', '物资管理系统', mb_iconinformation + mb_defbutton1);
  92.     exit;
  93.   end;
  94.   if application.messagebox('请确认是否要删除', '物资管理系统', mb_iconinformation + mb_yesno) = id_yes then
  95.   begin
  96.     clientdataset1.delete;
  97.     clientdataset1.applyupdates(0);
  98.   end;
  99. end;
  101. procedure TForm65.FormClose(Sender: TObject; var Action: TCloseAction);
  102. begin
  103.   action := cafree;
  104.   form65 := nil;
  105. end;
  107. procedure TForm65.ToolButton6Click(Sender: TObject);
  108. begin
  109.   clientdataset1.refresh;
  110. end;
  112. procedure TForm65.N2Click(Sender: TObject);
  113. begin
  114.   clientdataset1.filter := '是否审核=0 or 是否审核=null';
  115.   clientdataset1.filtered := true;
  116.   statusbar1.panels[1].text := '未审核';
  117.   statusbar1.Refresh;
  118. end;
  120. procedure TForm65.N1Click(Sender: TObject);
  121. begin
  122.   clientdataset1.filter := '是否审核=1';
  123.   clientdataset1.filtered := true;
  124.   statusbar1.panels[1].text := '已审核';
  125.   statusbar1.Refresh;
  126. end;
  128. procedure TForm65.N5Click(Sender: TObject);
  129. begin
  130.   clientdataset1.filtered := false;
  131.   statusbar1.panels[1].text := '全部';
  132.   statusbar1.Refresh;
  133. end;
  135. procedure TForm65.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  136.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
  137. begin
  138.   if clientdataset1.FieldByName('是否审核').value = true then
  139.     dbgrid1.Canvas.Font.Color := clsilver;
  140.   dbgrid1.DefaultDrawDataCell(Rect, Column.field, state);
  142. end;
  144. procedure TForm65.Timer1Timer(Sender: TObject);
  145. begin
  146.   statusbar1.Panels[2].text := '共有：' + inttostr(clientdataset1.recordcount) + '条记录';
  147.   statusbar1.Refresh;
  148. end;
  150. procedure TForm65.ToolButton3Click(Sender: TObject);
  151. begin
  152.   if clientdataset1.recordcount = 0 then
  153.   begin
  154.     application.MessageBox('没有记录可编辑', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  155.     exit;
  156.   end;
  157.   if clientdataset1.FieldByName('是否审核').value = true then
  158.   begin
  159.     application.MessageBox('此单据已审核,不能编辑', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  160.     application.CreateForm(Tform5, form5);
  161.     try
  162.       form5.speedbutton1.enabled := false;
  163.       form5.speedbutton2.enabled := false;
  164.       form5.speedbutton4.enabled := false;
  165.       form5.speedbutton5.enabled := false;
  166.       form5.speedbutton6.enabled := false;
  167.       form5.speedbutton7.enabled := false;
  168.       form5.speedbutton8.enabled := false;
  169.       form5.showmodal;
  170.     finally
  171.       form5.free;
  172.     end;
  173.     exit;
  174.   end;
  175.   application.CreateForm(Tform5, form5);
  176.   try
  177.     form5.speedbutton6.click;
  178.     form5.showmodal;
  179.   finally
  180.     form5.free;
  181.   end;
  183. end;
  185. procedure TForm65.ToolButton8Click(Sender: TObject);
  186. begin
  187.   if clientdataset1.FieldByName('是否审核').value = true then
  188.   begin
  189.     application.MessageBox('此单据已审核', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  190.     exit;
  191.   end;
  192.   if application.MessageBox('请确认是否审核通过', '材料与计划管理系统', mb_iconinformation + mb_yesno) = idyes then
  193.   begin
  194.     application.createform(Tform54, form54);
  195.     try
  196.       form54.showmodal;
  197.     finally
  198.       form54.free;
  199.     end;
  200.   end;
  202. end;
  204. procedure TForm65.ToolButton4Click(Sender: TObject);
  205. begin
  206.   application.createform(Tform77, form77);
  207.   form77.combobox1.items.add('仓库名称');
  208.   form77.combobox1.items.add('盘点编号');
  209.   form77.combobox1.items.add('盘点日期');
  210.   form77.combobox1.items.add('盘点人');
  211.   form77.combobox1.items.add('备注');
  212.   v_table := 'CL_KCPD';
  213.   try
  214.     form77.showmodal;
  215.   finally
  216.     form77.free;
  217.     if sf_qr = 'yes' then
  218.     begin
  219.       clientdataset1.filter := xx401;
  220.       clientdataset1.filtered := true;
  221.     end;
  222.   end;
  223. end;
  225. procedure TForm65.ToolButton7Click(Sender: TObject);
  226. begin
  227.   application.createform(Tform80, form80);
  228.   form80.srclist.items.add('仓库名称');
  229.   form80.srclist.items.add('盘点编号');
  230.   form80.srclist.items.add('盘点日期');
  231.   form80.srclist.items.add('盘点人');
  232.   form80.srclist.items.add('备注');
  233.   vps_tablename := 'CL_kcpd';
  234.   vps_filter := clientdataset1.Filter;
  235.   vps_index := clientdataset1.IndexFieldNames;
  236.   Form80.Edit1.Text := '库存盘点单据';
  237.   try
  238.     form80.showmodal;
  239.   finally
  240.     form80.free;
  241.   end;
  243. end;
  245. procedure TForm65.DBGrid1TitleClick(Column: TColumn);
  246. begin
  247.   Form1.MySort(dbgrid1, column);
  248. end;
  250. end.