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

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

Delphi/CppBuilder

开发平台：

Delphi

U_bmlldgl.pas：源码内容
  1. unit U_bmlldgl;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, DBCtrls, Buttons, Mask, Grids, DBGrids, ExtCtrls, Db, DBClient,
  8.   ComCtrls, Menus, ImgList, Qrctrls, QuickRpt;
  10. type
  11.   TfrmBmlld = class(TForm)
  12.     ScrollBox3: TScrollBox;
  13.     Panel2: TPanel;
  14.     Panel8: TPanel;
  15.     btn_insert: TSpeedButton;
  16.     btn_find: TSpeedButton;
  17.     btn_print: TSpeedButton;
  18.     btn_post: TSpeedButton;
  19.     btn_cancel: TSpeedButton;
  20.     btn_refresh: TSpeedButton;
  21.     btn_delete: TSpeedButton;
  22.     btn_edit: TSpeedButton;
  23.     DBNavigator2: TDBNavigator;
  24.     Panel1: TPanel;
  25.     Label28: TLabel;
  26.     Label29: TLabel;
  27.     Label30: TLabel;
  28.     Label31: TLabel;
  29.     Label32: TLabel;
  30.     Label37: TLabel;
  31.     Label38: TLabel;
  32.     Label40: TLabel;
  33.     DBEdit30: TDBEdit;
  34.     DBEdit31: TDBEdit;
  35.     DBEdit32: TDBEdit;
  36.     DBEdit33: TDBEdit;
  37.     DBEdit34: TDBEdit;
  38.     DBEdit39: TDBEdit;
  39.     DBCheckBox3: TDBCheckBox;
  40.     DBComboBox2: TDBComboBox;
  41.     Panel3: TPanel;
  42.     Label33: TLabel;
  43.     Label34: TLabel;
  44.     Label35: TLabel;
  45.     Label36: TLabel;
  46.     DBEdit35: TDBEdit;
  47.     DBEdit36: TDBEdit;
  48.     DBEdit37: TDBEdit;
  49.     DBEdit38: TDBEdit;
  50.     DataSource5: TDataSource;
  51.     DataSource4: TDataSource;
  52.     BitBtn1: TBitBtn;
  53.     BitBtn2: TBitBtn;
  54.     BitBtn3: TBitBtn;
  55.     BitBtn4: TBitBtn;
  56.     BitBtn5: TBitBtn;
  57.     StatusBar1: TStatusBar;
  58.     Timer1: TTimer;
  59.     DBGrid1: TDBGrid;
  60.     ImageList1: TImageList;
  61.     PopupMenu1: TPopupMenu;
  62.     N1: TMenuItem;
  63.     N2: TMenuItem;
  64.     Label1: TLabel;
  65.     DBEdit1: TDBEdit;
  66.     BitBtn6: TBitBtn;
  67.     QuickRep1: TQuickRep;
  68.     PageHeaderBand1: TQRBand;
  69.     QRLabel1: TQRLabel;
  70.     QRLabel2: TQRLabel;
  71.     QRSysData1: TQRSysData;
  72.     QRSubDetail1: TQRSubDetail;
  73.     QRDBText10: TQRDBText;
  74.     QRDBText11: TQRDBText;
  75.     QRDBText12: TQRDBText;
  76.     QRDBText13: TQRDBText;
  77.     QRDBText14: TQRDBText;
  78.     QRDBText15: TQRDBText;
  79.     TitleBand1: TQRBand;
  80.     QRLabel3: TQRLabel;
  81.     QRLabel4: TQRLabel;
  82.     QRLabel5: TQRLabel;
  83.     QRLabel6: TQRLabel;
  84.     QRLabel7: TQRLabel;
  85.     QRLabel8: TQRLabel;
  86.     QRLabel9: TQRLabel;
  87.     QRLabel10: TQRLabel;
  88.     QRLabel11: TQRLabel;
  89.     QRDBText1: TQRDBText;
  90.     QRDBText2: TQRDBText;
  91.     QRDBText3: TQRDBText;
  92.     QRDBText4: TQRDBText;
  93.     QRDBText5: TQRDBText;
  94.     QRDBText6: TQRDBText;
  95.     QRDBText7: TQRDBText;
  96.     QRDBText8: TQRDBText;
  97.     QRDBText9: TQRDBText;
  98.     QRShape1: TQRShape;
  99.     QRShape2: TQRShape;
  100.     SummaryBand1: TQRBand;
  101.     QRLabel18: TQRLabel;
  102.     QRLabel19: TQRLabel;
  103.     QRLabel20: TQRLabel;
  104.     QRLabel21: TQRLabel;
  105.     QRDBText16: TQRDBText;
  106.     QRDBText17: TQRDBText;
  107.     QRDBText18: TQRDBText;
  108.     QRDBText19: TQRDBText;
  109.     PageFooterBand1: TQRBand;
  110.     QRLabel22: TQRLabel;
  111.     QRLabel23: TQRLabel;
  112.     QRSysData2: TQRSysData;
  113.     ColumnHeaderBand1: TQRBand;
  114.     QRLabel17: TQRLabel;
  115.     QRLabel39: TQRLabel;
  116.     QRLabel40: TQRLabel;
  117.     QRLabel41: TQRLabel;
  118.     QRLabel42: TQRLabel;
  119.     QRLabel43: TQRLabel;
  120.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  121.     procedure btn_insertClick(Sender: TObject);
  122.     procedure btn_editClick(Sender: TObject);
  123.     procedure btn_cancelClick(Sender: TObject);
  124.     procedure btn_postClick(Sender: TObject);
  125.     procedure BitBtn2Click(Sender: TObject);
  126.     procedure BitBtn3Click(Sender: TObject);
  127.     procedure BitBtn4Click(Sender: TObject);
  128.     procedure BitBtn5Click(Sender: TObject);
  129.     procedure btn_refreshClick(Sender: TObject);
  130.     procedure BitBtn1Click(Sender: TObject);
  131.     procedure btn_findClick(Sender: TObject);
  132.     procedure Timer1Timer(Sender: TObject);
  133.     procedure btn_deleteClick(Sender: TObject);
  134.     procedure N1Click(Sender: TObject);
  135.     procedure DBGrid1DblClick(Sender: TObject);
  136.     procedure N2Click(Sender: TObject);
  137.     procedure BitBtn6Click(Sender: TObject);
  138.     procedure btn_printClick(Sender: TObject);
  139.     procedure FormCreate(Sender: TObject);
  140.   private
  141.     procedure btn_valid;
  142.     { Private declarations }
  143.   public
  144.     { Public declarations }
  145.   end;
  147. var
  148.   frmBmlld: TfrmBmlld;
  150. implementation
  152. uses U_mainform, U_fzlr_zgxm, WzglDB, u_public, U_fzlr_clbm;
  154. {$R *.DFM}
  156. procedure TfrmBmlld.FormClose(Sender: TObject; var Action: TCloseAction);
  157. begin
  158.   action := cafree;
  159.   frmBmlld := nil;
  160. end;
  162. procedure TfrmBmlld.btn_insertClick(Sender: TObject);
  163. begin
  164.   DM.CDS_BMLLD.filter := '';
  165.   DM.CDS_BMLLD.filtered := true;
  166.   DM.CDS_BMLLD.Insert;
  167.   dbedit30.enabled := true;
  168.   btn_valid;
  169.   dbedit31.SetFocus;
  170. end;
  172. procedure TfrmBmlld.btn_valid;
  173. begin
  174.   DBNavigator2.enabled := not dbnavigator2.enabled;
  175.   btn_insert.enabled := not btn_insert.enabled;
  176.   btn_delete.enabled := not btn_delete.enabled;
  177.   btn_edit.enabled := not btn_edit.enabled;
  178.   btn_cancel.enabled := not btn_cancel.enabled;
  179.   btn_post.enabled := not btn_post.enabled;
  180.   btn_find.enabled := not btn_find.enabled;
  181.   btn_refresh.enabled := not btn_refresh.enabled;
  182.   btn_print.enabled := not btn_print.enabled;
  183.   panel3.enabled := not panel3.enabled;
  184.   panel1.enabled := not panel1.enabled;
  185.   dbgrid1.columns[2].readonly := not dbgrid1.columns[2].readonly;
  186.   dbgrid1.columns[3].readonly := not dbgrid1.columns[3].readonly;
  187.   bitbtn1.visible := not bitbtn1.visible;
  188.   bitbtn2.visible := not bitbtn2.visible;
  189.   bitbtn3.visible := not bitbtn3.visible;
  190.   bitbtn4.visible := not bitbtn4.visible;
  191.   bitbtn5.visible := not bitbtn5.visible;
  192.   bitbtn6.visible := not bitbtn6.visible;
  193. end;
  195. procedure TfrmBmlld.btn_editClick(Sender: TObject);
  196. begin
  197.   if DM.CDS_BMLLD.recordcount = 0 then
  198.   begin
  199.     application.MessageBox('没有记录不能编辑', '物资管理系统', mb_iconinformation + mb_defbutton1);
  200.     exit;
  201.   end;
  202.   if DM.CDS_BMLLD.FieldByName('是否审核').value = true then
  203.   begin
  204.     application.messagebox('此单据已审核，不能编辑', '', mb_iconinformation + mb_defbutton1);
  205.     exit;
  206.   end;
  207.   DM.CDS_BMLLD.edit;
  208.   dbedit30.enabled := false;
  209.   btn_valid;
  210.   dbedit31.setfocus;
  211. end;
  213. procedure TfrmBmlld.btn_cancelClick(Sender: TObject);
  214. begin
  215.   DM.CDS_BMLLD.CancelUpdates;
  216.   btn_valid;
  217. end;
  219. procedure TfrmBmlld.btn_postClick(Sender: TObject);
  220. var
  221.   v_date: Tdate;
  222.   s_llzh: string;
  223. begin
  224.   if trim(dbedit31.text) = '' then
  225.   begin
  226.     application.MessageBox('领料单位不能为空', '物资管理系统', mb_iconinformation + mb_defbutton1);
  227.     dbedit31.SetFocus;
  228.     exit;
  229.   end;
  230.   if length(trim(dbedit30.text)) <> 9 then
  231.   begin
  232.     application.MessageBox('领料字号应为九位', '物资管理系统', mb_iconinformation + mb_defbutton1);
  233.     dbedit30.SetFocus;
  234.     exit;
  235.   end;
  236.   if dbcombobox2.text = '' then
  237.   begin
  238.     application.MessageBox('仓库名称不能为空', '物资管理系统', mb_iconinformation + mb_defbutton1);
  239.     dbcombobox2.SetFocus;
  240.     abort;
  241.   end;
  243.   s_llzh := dbedit30.Text;
  244.   DM.CDS_BMLLD_INDEX.IndexFieldNames := '领料字号';
  245.   DM.CDS_BMLLD_INDEX.Refresh;
  246.   if DM.CDS_BMLLD.state = dsinsert then
  247.   begin
  248.     if DM.CDS_BMLLD_INDEX.FindKey([s_llzh]) then
  249.     begin
  250.       application.MessageBox('领料字号已重复', '物资管理系统', mb_iconinformation + mb_defbutton1);
  251.       dbedit30.SetFocus;
  252.       exit;
  253.     end;
  254.   end;
  256.   DM.CDS_BMLLD_DETAIL.First;
  258.   DM.CDS_BMLLD.Post;
  259.   DM.CDS_BMLLD.ApplyUpdates(0);
  260.   btn_valid;
  261. end;
  263. procedure TfrmBmlld.BitBtn2Click(Sender: TObject);
  264. begin
  265.   DM.CDS_BMLLD.FieldByName('材料主管').value := GetEmployeeName;
  266. end;
  268. procedure TfrmBmlld.BitBtn3Click(Sender: TObject);
  269. begin
  270.   DM.CDS_BMLLD.FieldByName('发料人').value := GetEmployeeName;
  271. end;
  273. procedure TfrmBmlld.BitBtn4Click(Sender: TObject);
  274. begin
  275.   DM.CDS_BMLLD.FieldByName('领料主管').value := GetEmployeeName;
  276. end;
  278. procedure TfrmBmlld.BitBtn5Click(Sender: TObject);
  279. begin
  280.   DM.CDS_BMLLD.FieldByName('领料人').value := GetEmployeeName;
  281. end;
  283. procedure TfrmBmlld.btn_refreshClick(Sender: TObject);
  284. begin
  285.   DM.CDS_BMLLD.disablecontrols;
  286.   DM.CDS_BMLLD.close;
  287.   DM.CDS_BMLLD.CommandText := 'select * from cl_bmlld_main order by 领料字号';
  288.   DM.CDS_BMLLD.open;
  289.   DM.CDS_BMLLD.enablecontrols;
  290.   DM.CDS_BMLLD.first;
  291. end;
  293. procedure TfrmBmlld.BitBtn1Click(Sender: TObject);
  294. begin
  295.   DM.CDS_BMLLD.FieldByName('领料单位').value := GetDeptName;
  296. end;
  298. procedure TfrmBmlld.btn_findClick(Sender: TObject);
  299. begin
  300. {  application.createform(Tform77, form77);
  301.   form77.combobox1.items.add('领料字号');
  302.   form77.combobox1.items.add('领料单位');
  303.   form77.combobox1.items.add('领料用途');
  304.   form77.combobox1.items.add('材料主管');
  305.   form77.combobox1.items.add('发料人');
  306.   form77.combobox1.items.add('领料主管');
  307.   form77.combobox1.items.add('领料人');
  308.   v_table := 'CL_BMLLD_MAIN';
  309.   try
  310.     form77.showmodal;
  311.   finally
  312.     form77.free;
  313.     if sf_qr = 'yes' then
  314.     begin
  315.       DM.CDS_BMLLD.filter := xx401;
  316.       DM.CDS_BMLLD.filtered := true;
  317.     end;
  318.   end;
  319. }
  320. end;
  322. procedure TfrmBmlld.Timer1Timer(Sender: TObject);
  323. begin
  324. {  statusbar1.panels[2].text := '共有: ' + inttostr(DM.CDS_BMLLD.recordcount) + ' 条记录';
  325.   if DM.CDS_BMLLD.fieldbyname('是否审核').value = true then
  326.   begin
  327.     statusbar1.panels[1].text := '此单据已审核';
  328.   end;
  329.   if (DM.CDS_BMLLD.fieldbyname('是否审核').value = null) or (DM.CDS_BMLLD.fieldbyname('是否审核').value = false) then
  330.   begin
  331.     statusbar1.panels[1].text := '此单据未审核';
  332.   end;
  333.   statusbar1.refresh;}
  334. end;
  336. procedure TfrmBmlld.btn_deleteClick(Sender: TObject);
  337. begin
  338.   if DM.CDS_BMLLD.recordcount = 0 then
  339.   begin
  340.     application.MessageBox('没有记录可删除', '物资管理系统', mb_iconinformation + mb_defbutton1);
  341.     exit;
  342.   end;
  343.   if application.messagebox('请确认是否要删除', '物资管理系统', mb_iconinformation + mb_yesno) = idyes then
  344.   begin
  345.     DM.CDS_BMLLD.delete;
  346.     DM.CDS_BMLLD.applyupdates(0);
  347.   end;
  349. end;
  351. procedure TfrmBmlld.N1Click(Sender: TObject);
  352. var
  353.   i: integer;
  354.   s_hint : string;
  355. begin
  356.   if dbgrid1.columns[2].readonly = true then
  357.   begin
  358.     application.MessageBox('请在添加或编辑状态下添加物资', '物资管理系统', mb_iconinformation + mb_defbutton1);
  359.     exit;
  360.   end;
  361.   application.createform(TfrmClbm_Fzlr, frmClbm_Fzlr);
  362.   try
  363.     frmClbm_Fzlr.showmodal;
  364.   finally
  365.     frmClbm_Fzlr.free;
  366.     for i := Low(ClbmRec) to High(clbmRec) do
  367.     begin
  368.       DM.CDS_BMLLD_DETAIL_INDEX.refresh;
  369.       DM.CDS_BMLLD_DETAIL_INDEX.Filter := '领料字号=' + '''' + DM.CDS_BMLLD.fieldbyname('领料字号').asstring + '''';
  370.       DM.CDS_BMLLD_DETAIL_INDEX.filtered := true;
  371.       DM.CDS_BMLLD_DETAIL_INDEX.IndexFieldNames := '材料编码';
  372.       if DM.CDS_BMLLD_DETAIL_INDEX.FindKey([clbmRec[i].clbm]) then
  373.       begin
  374.         s_hint := '已有材料编号为' + clbmRec[i].clbm + '的物资';
  375.         application.MessageBox(pchar(s_hint), '物资管理系统', mb_iconinformation + mb_defbutton1);
  376.         continue;
  377.       end;
  378.       DM.CDS_BMLLD_DETAIL.insert;
  379.       DM.CDS_BMLLD_DETAIL.fieldbyname('材料编码').value := clbmRec[i].clbm;
  380.       DM.CDS_BMLLD_DETAIL.fieldbyname('材料名称').value := clbmRec[i].clmc;
  381.       DM.CDS_BMLLD_DETAIL.fieldbyname('规格型号').value := clbmRec[i].ggxh;
  382.       DM.CDS_BMLLD_DETAIL.fieldbyname('计量单位').value := clbmRec[i].jldw;
  383.       DM.CDS_BMLLD_DETAIL.fieldbyname('计划单价').value := clbmRec[i].jhdj;
  384.       DM.CDS_BMLLD_DETAIL.fieldbyname('单价单位').value := clbmRec[i].djdw;
  385.       DM.CDS_BMLLD_DETAIL.fieldbyname('请领数量').value := 0.0;
  386.       DM.CDS_BMLLD_DETAIL.fieldbyname('实发数量').value := 0.0;
  387.       DM.CDS_BMLLD_DETAIL.post;
  388.     end;
  389.   end;
  390. end;
  392. procedure TfrmBmlld.DBGrid1DblClick(Sender: TObject);
  393. begin
  394.   n1.click;
  395. end;
  397. procedure TfrmBmlld.N2Click(Sender: TObject);
  398. begin
  399.   if DM.CDS_BMLLD_DETAIL.recordcount = 0 then
  400.   begin
  401.     application.MessageBox('没有记录可删除', '物资管理系统', mb_iconinformation + mb_defbutton1);
  402.     exit;
  403.   end;
  404.   if dbgrid1.columns[2].readonly = true then
  405.   begin
  406.     application.MessageBox('请在添加或编辑状态下删除物资', '物资管理系统', mb_iconinformation + mb_defbutton1);
  407.     exit;
  408.   end;
  409.   if application.messagebox('请确认是否要删除', '物资管理系统', mb_iconinformation + mb_yesno) = idyes then
  410.   begin
  411.     DM.CDS_BMLLD_DETAIL.delete;
  412.   end;
  413. end;
  415. procedure TfrmBmlld.BitBtn6Click(Sender: TObject);
  416. begin
  417.   DM.CDS_BMLLD.FieldByName('工程项目').value := GetProjectName;
  418. end;
  420. procedure TfrmBmlld.btn_printClick(Sender: TObject);
  421. begin
  422.   quickrep1.Preview;
  423. end;
  425. procedure TfrmBmlld.FormCreate(Sender: TObject);
  427. var
  428.   s_value: string;
  429. begin
  430.   with DM do
  431.   begin
  432.     CDS_CKXX_INDEX.Active := True;
  433.     CDS_BMLLD.Active := True;
  434.     CDS_BMLLD_DETAIL.Active := True;
  435.     CDS_BMLLD_INDEX.Active := True;
  436.     CDS_BMLLD_DETAIL_INDEX.Active := True;
  437.   end;
  439.   DM.CDS_CKXX_INDEX.First;
  440.   while not DM.CDS_CKXX_INDEX.eof do
  441.   begin
  442.     s_value := DM.CDS_CKXX_INDEX.fieldbyname('仓库名称').asstring;
  443.     dbcombobox2.Items.Add(s_value);
  444.     DM.CDS_CKXX_INDEX.next;
  445.   end;
  446. end;
  448. end.