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

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

Delphi/CppBuilder

开发平台：

Delphi

U_kcpd.pas：源码内容
  1. unit U_kcpd;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, Mask, ComCtrls, Db, DBClient, Grids, DBGrids, Buttons,
  8.   DBCtrls, QuickRpt, Qrctrls, Menus;
  10. type
  11.   TForm5 = class(TForm)
  12.     Panel1: TPanel;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     Panel2: TPanel;
  16.     StatusBar1: TStatusBar;
  17.     DBGrid1: TDBGrid;
  18.     Panel3: TPanel;
  19.     SpeedButton1: TSpeedButton;
  20.     SpeedButton2: TSpeedButton;
  21.     SpeedButton4: TSpeedButton;
  22.     SpeedButton7: TSpeedButton;
  23.     Label3: TLabel;
  24.     ClientDataSet3: TClientDataSet;
  25.     SpeedButton8: TSpeedButton;
  26.     ClientDataSet2: TClientDataSet;
  27.     DataSource2: TDataSource;
  28.     Label4: TLabel;
  29.     DBEdit1: TDBEdit;
  30.     Label5: TLabel;
  31.     DBEdit2: TDBEdit;
  32.     DBComboBox1: TDBComboBox;
  33.     DBEdit3: TDBEdit;
  34.     DBEdit4: TDBEdit;
  35.     SpeedButton5: TSpeedButton;
  36.     SpeedButton6: TSpeedButton;
  37.     ClientDataSet_index: TClientDataSet;
  38.     SpeedButton3: TSpeedButton;
  39.     QuickRep1: TQuickRep;
  40.     PageHeaderBand1: TQRBand;
  41.     QRLabel1: TQRLabel;
  42.     QRLabel2: TQRLabel;
  43.     QRSysData1: TQRSysData;
  44.     PageFooterBand1: TQRBand;
  45.     QRLabel8: TQRLabel;
  46.     QRLabel9: TQRLabel;
  47.     QRSysData2: TQRSysData;
  48.     ColumnHeaderBand1: TQRBand;
  49.     QRLabel3: TQRLabel;
  50.     QRLabel4: TQRLabel;
  51.     QRLabel5: TQRLabel;
  52.     QRLabel6: TQRLabel;
  53.     QRLabel7: TQRLabel;
  54.     QRLabel15: TQRLabel;
  55.     TitleBand1: TQRBand;
  56.     QRLabel10: TQRLabel;
  57.     QRLabel11: TQRLabel;
  58.     QRLabel12: TQRLabel;
  59.     QRLabel13: TQRLabel;
  60.     QRLabel14: TQRLabel;
  61.     QRDBText6: TQRDBText;
  62.     QRDBText7: TQRDBText;
  63.     QRDBText8: TQRDBText;
  64.     QRDBText9: TQRDBText;
  65.     QRDBText10: TQRDBText;
  66.     QRShape1: TQRShape;
  67.     QRShape2: TQRShape;
  68.     QRSubDetail1: TQRSubDetail;
  69.     QRDBText1: TQRDBText;
  70.     QRDBText2: TQRDBText;
  71.     QRDBText3: TQRDBText;
  72.     QRDBText4: TQRDBText;
  73.     QRDBText5: TQRDBText;
  74.     QRDBText11: TQRDBText;
  75.     BitBtn3: TBitBtn;
  76.     PopupMenu1: TPopupMenu;
  77.     N1: TMenuItem;
  78.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  79.     procedure SpeedButton1Click(Sender: TObject);
  80.     procedure SpeedButton2Click(Sender: TObject);
  81.     procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
  82.       Shift: TShiftState);
  83.     procedure SpeedButton8Click(Sender: TObject);
  84.     procedure SpeedButton4Click(Sender: TObject);
  85.     procedure SpeedButton7Click(Sender: TObject);
  86.     procedure SpeedButton5Click(Sender: TObject);
  87.     procedure SpeedButton6Click(Sender: TObject);
  88.     procedure SpeedButton3Click(Sender: TObject);
  89.     procedure FormCreate(Sender: TObject);
  90.     procedure FormActivate(Sender: TObject);
  91.     procedure BitBtn3Click(Sender: TObject);
  92.     procedure N1Click(Sender: TObject);
  93.   private
  94.     { Private declarations }
  95.   public
  96.     { Public declarations }
  97.   end;
  99. var
  100.   Form5: TForm5;
  102. implementation
  104. uses U_mainform, U_clkcqk, U_fzlr_clbm, U_kcpd_child, U_fzlr_zgxm;
  106. {$R *.DFM}
  108. procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);
  109. begin
  110.   action := cafree;
  111.   form65.clientdataset1.Cancel;
  112.   form65.clientdataset1.CancelUpdates;
  113. end;
  115. procedure TForm5.SpeedButton1Click(Sender: TObject);
  116. begin
  117.   speedbutton1.enabled := not speedbutton1.Enabled;
  118.   speedbutton2.enabled := not speedbutton2.enabled;
  119.   speedbutton3.enabled := not speedbutton3.enabled;
  120.   speedbutton4.enabled := not speedbutton4.enabled;
  121.   speedbutton5.enabled := not speedbutton5.enabled;
  122.   speedbutton6.enabled := not speedbutton6.enabled;
  123.   speedbutton7.enabled := not speedbutton7.enabled;
  124.   speedbutton8.enabled := not speedbutton8.enabled;
  125.   dbedit4.enabled := true;
  126.   bitbtn3.visible := not bitbtn3.visible;
  127.   dbgrid1.columns[3].readonly := not dbgrid1.columns[3].readonly;
  128.   panel1.enabled := not panel1.enabled;
  129.   form65.clientdataset1.Insert;
  130.   dbgrid1.PopupMenu := popupMenu1;
  131. end;
  133. procedure TForm5.SpeedButton2Click(Sender: TObject);
  134. var
  135.   i: integer;
  136.   d_date: Tdatetime;
  137.   vs_pdbh: string;
  138. begin
  139.   if dbcombobox1.text = '' then
  140.   begin
  141.     application.MessageBox('请先选择仓库', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  142.     dbcombobox1.setfocus;
  143.     exit;
  144.   end;
  145. {  try
  146.     d_date := strtodate(dbedit3.text);
  147.   except
  148.     application.MessageBox('盘点日期输入是否正确', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  149.     dbedit3.setfocus;
  150.     exit;
  151.   end; }
  152.   if length(trim(dbedit4.text)) <> 9 then
  153.   begin
  154.     application.MessageBox('当前盘店号应为九位', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  155.     dbedit4.setfocus;
  156.     exit;
  157.   end;
  158.   vs_pdbh := dbedit4.Text;
  159.   clientdataset_index.IndexFieldNames := '盘点编号';
  160.   clientdataset_index.Refresh;
  161.   if form65.clientdataset1.state = dsinsert then
  162.   begin
  163.     if clientdataset_index.FindKey([vs_pdbh]) then
  164.     begin
  165.       application.MessageBox('盘点编号已重复', '物资管理系统', mb_iconinformation + mb_defbutton1);
  166.       dbedit4.SetFocus;
  167.       exit;
  168.     end;
  169.   end;
  170.   application.createform(tform64, form64);
  171.   try
  172.     form64.showmodal;
  173.   finally
  174.     form64.free;
  175.     for i := 0 to gi_count1 - 1 do
  176.     begin
  177.       clientdataset2.insert;
  178.       clientdataset2.fieldbyname('材料编码').value := gs_clbm1[i];
  179.       clientdataset2.fieldbyname('材料名称').value := gs_clmc1[i];
  180.       clientdataset2.fieldbyname('规格型号').value := gs_ggxh1[i];
  181.       clientdataset2.fieldbyname('计量单位').value := gs_jldw1[i];
  182.       clientdataset2.fieldbyname('计划单价').value := gs_jhdj1[i];
  183.       clientdataset2.fieldbyname('单价单位').value := gs_djdw1[i];
  184.       clientdataset2.fieldbyname('实存数量').value := gs_xykcl1[i];
  185.       clientdataset2.fieldbyname('盘点数量').value := 0.00;
  186.       clientdataset2.post;
  187.     end;
  188.   end;
  189. end;
  191. procedure TForm5.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  192.   Shift: TShiftState);
  193. begin
  194.   if key = 46 then //当按下Delete键
  195.   begin
  196.     form65.clientdataset1.delete;
  197.   end;
  198. end;
  200. procedure TForm5.SpeedButton8Click(Sender: TObject);
  201. var
  202.   i: integer;
  203.   d_date: Tdate;
  204.   vs_pdbh: string;
  205. begin
  206.   if dbcombobox1.text = '' then
  207.   begin
  208.     application.MessageBox('请先选择仓库', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  209.     dbcombobox1.setfocus;
  210.     exit;
  211.   end;
  212.  { try
  213.     d_date := strtodate(dbedit3.text);
  214.   except
  215.     application.MessageBox('盘点日期输入是否正确', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  216.     dbedit3.setfocus;
  217.     exit;
  218.   end;   }
  219.   if length(trim(dbedit4.text)) <> 9 then
  220.   begin
  221.     application.MessageBox('当前盘店号应为九位', '材料与计划管理系统', mb_iconinformation + mb_defbutton1);
  222.     dbedit4.setfocus;
  223.     exit;
  224.   end;
  225.   vs_pdbh := dbedit4.Text;
  226.   clientdataset_index.IndexFieldNames := '盘点编号';
  227.   clientdataset_index.Refresh;
  228.   if form65.clientdataset1.state = dsinsert then
  229.   begin
  230.     if clientdataset_index.FindKey([vs_pdbh]) then
  231.     begin
  232.       application.MessageBox('盘点编号已重复', '物资管理系统', mb_iconinformation + mb_defbutton1);
  233.       dbedit4.SetFocus;
  234.       exit;
  235.     end;
  236.   end;
  238.   application.createform(tform27, form27);
  239.   try
  240.     form27.showmodal;
  241.   finally
  242.     form27.free;
  243.     for i := 0 to gi_count - 1 do
  244.     begin
  245. {      clientdataset2.IndexFieldNames := '材料编码';
  246.       if clientdataset2.FindKey([gs_clbm[i]]) then
  247.       begin
  248.         application.MessageBox('已有此物资', '物资管理系统', mb_iconinformation + mb_defbutton1);
  249.         continue;
  250.       end; }
  251.       clientdataset2.insert;
  252.       clientdataset2.fieldbyname('材料编码').value := gs_clbm[i];
  253.       clientdataset2.fieldbyname('材料名称').value := gs_clmc[i];
  254.       clientdataset2.fieldbyname('规格型号').value := gs_ggxh[i];
  255.       clientdataset2.fieldbyname('计量单位').value := gs_jldw[i];
  256.       clientdataset2.fieldbyname('计划单价').value := gs_jhdj[i];
  257.       clientdataset2.fieldbyname('单价单位').value := gs_djdw[i];
  258.       clientdataset2.fieldbyname('实存数量').value := 0.0;
  259.       clientdataset2.fieldbyname('盘点数量').value := 0.0;
  260.       clientdataset2.post;
  261.     end;
  262.   end;
  263. end;
  265. procedure TForm5.SpeedButton4Click(Sender: TObject);
  266. var
  267.   i: integer;
  268.   vi_count: integer;
  269. begin
  270.   vi_count := clientdataset2.recordcount;
  271.   clientdataset2.DisableControls;
  272.   clientdataset2.First;
  273.   for i := 0 to vi_count - 1 do
  274.   begin
  275.     if clientdataset2.fieldbyname('实存数量').asfloat = clientdataset2.fieldbyname('盘点数量').asfloat then
  276.       clientdataset2.Delete;
  277.   end;
  278.   clientdataset2.EnableControls;
  279.   dbgrid1.Refresh;
  280. end;
  282. procedure TForm5.SpeedButton7Click(Sender: TObject);
  283. var
  284.   i: integer;
  285.   vi_count: integer;
  286. begin
  287.   vi_count := clientdataset2.recordcount;
  288.   clientdataset2.DisableControls;
  289.   clientdataset2.First;
  290.   if clientdataset2.recordcount = 0 then
  291.   begin
  292.     application.messagebox('请添加物资', '物资管理系统', mb_iconinformation + mb_defbutton1);
  293.     exit;
  294.   end;
  295.   for i := 0 to vi_count - 1 do
  296.   begin
  297.     if clientdataset2.fieldbyname('实存数量').asfloat = clientdataset2.fieldbyname('盘点数量').asfloat then
  298.     begin
  299.       application.messagebox('有实存数量同盘店数量一致', '物资管理系统', mb_iconinformation + mb_defbutton1);
  300.       clientdataset2.enablecontrols;
  301.       exit;
  302.     end;
  303.   end;
  304.   clientdataset2.EnableControls;
  305.   form65.clientdataset1.Post;
  306.   form65.clientdataset1.ApplyUpdates(0);
  307.   speedbutton1.enabled := not speedbutton1.Enabled;
  308.   speedbutton2.enabled := not speedbutton2.enabled;
  309.   speedbutton3.enabled := not speedbutton3.enabled;
  310.   speedbutton4.enabled := not speedbutton4.enabled;
  311.   speedbutton5.enabled := not speedbutton5.enabled;
  312.   speedbutton6.enabled := not speedbutton6.enabled;
  313.   speedbutton7.enabled := not speedbutton7.enabled;
  314.   speedbutton8.enabled := not speedbutton8.enabled;
  315.   bitbtn3.visible := not bitbtn3.visible;
  316.   panel1.enabled := not panel1.enabled;
  317.   dbgrid1.columns[3].readonly := not dbgrid1.columns[3].readonly;
  318.   dbgrid1.PopupMenu := nil;
  319. end;
  321. procedure TForm5.SpeedButton5Click(Sender: TObject);
  322. begin
  323.   form65.clientdataset1.CancelUpdates;
  324.   speedbutton1.enabled := not speedbutton1.Enabled;
  325.   speedbutton2.enabled := not speedbutton2.enabled;
  326.   speedbutton3.enabled := not speedbutton3.enabled;
  327.   speedbutton4.enabled := not speedbutton4.enabled;
  328.   speedbutton5.enabled := not speedbutton5.enabled;
  329.   speedbutton6.enabled := not speedbutton6.enabled;
  330.   speedbutton7.enabled := not speedbutton7.enabled;
  331.   speedbutton8.enabled := not speedbutton8.enabled;
  332.   bitbtn3.visible := not bitbtn3.visible;
  333.   panel1.enabled := not panel1.enabled;
  334.   dbgrid1.columns[3].readonly := not dbgrid1.columns[3].readonly;
  335.   dbgrid1.PopupMenu := nil;
  336. end;
  338. procedure TForm5.SpeedButton6Click(Sender: TObject);
  339. begin
  340.   speedbutton1.enabled := not speedbutton1.Enabled;
  341.   speedbutton2.enabled := not speedbutton2.enabled;
  342.   speedbutton3.enabled := not speedbutton3.enabled;
  343.   speedbutton4.enabled := not speedbutton4.enabled;
  344.   speedbutton5.enabled := not speedbutton5.enabled;
  345.   speedbutton6.enabled := not speedbutton6.enabled;
  346.   speedbutton7.enabled := not speedbutton7.enabled;
  347.   speedbutton8.enabled := not speedbutton8.enabled;
  348.   dbedit4.Enabled := false;
  349.   bitbtn3.visible := not bitbtn3.visible;
  350.   dbgrid1.columns[3].readonly := not dbgrid1.columns[3].readonly;
  351.   panel1.enabled := not panel1.enabled;
  352.   form65.clientdataset1.edit;
  353.   dbgrid1.PopupMenu := popupmenu1;
  354. end;
  356. procedure TForm5.SpeedButton3Click(Sender: TObject);
  357. begin
  358.   quickrep1.Preview;
  359. end;
  361. procedure TForm5.FormCreate(Sender: TObject);
  362. begin
  363.   clientdataset3.first;
  364.   while not clientdataset3.Eof do
  365.   begin
  366.     dbcombobox1.Items.add(clientdataset3.fieldbyname('仓库名称').asstring);
  367.     clientdataset3.Next;
  368.   end;
  369. end;
  371. procedure TForm5.FormActivate(Sender: TObject);
  372. begin
  373. //  dbcombobox1.SetFocus;
  374. end;
  376. procedure TForm5.BitBtn3Click(Sender: TObject);
  377. begin
  378.   application.createform(Tform31, form31);
  379.   try
  380.     form31.showmodal;
  381.   finally
  382.     form65.clientdataset1.FieldByName('盘点人').value := gs_zgxm;
  383.     form31.free;
  384.   end;
  387. end;
  389. procedure TForm5.N1Click(Sender: TObject);
  390. begin
  391.   if clientdataset2.recordcount <> 0 then
  392.     clientdataset2.Delete;
  393. end;
  395. end.