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

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

Delphi/CppBuilder

开发平台：

Delphi

U_clsld.pas：源码内容
  1. unit U_clsld;
  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, QuickRpt, Qrctrls, variants;
  10. type
  11.   TfrmClsld = class(TForm)
  12.     ScrollBox2: TScrollBox;
  13.     pnl_detail: TPanel;
  14.     DBGrid: TDBGrid;
  15.     pnl_operate: TPanel;
  16.     btn_insert: TSpeedButton;
  17.     btn_find: TSpeedButton;
  18.     btn_save: TSpeedButton;
  19.     btn_cancel: TSpeedButton;
  20.     btn_delete: TSpeedButton;
  21.     btn_edit: TSpeedButton;
  22.     btn_refresh: TSpeedButton;
  23.     DBNavigator: TDBNavigator;
  24.     pnl_Main: TPanel;
  25.     Label1: TLabel;
  26.     Label2: TLabel;
  27.     Label3: TLabel;
  28.     Label4: TLabel;
  29.     Label5: TLabel;
  30.     Label6: TLabel;
  31.     Label7: TLabel;
  32.     Label8: TLabel;
  33.     Label9: TLabel;
  34.     Label10: TLabel;
  35.     Label14: TLabel;
  36.     Label15: TLabel;
  37.     Label39: TLabel;
  38.     edtSlzh: TDBEdit;
  39.     edtZdrq: TDBEdit;
  40.     edtGycj: TDBEdit;
  41.     edtWzly: TDBEdit;
  42.     edtCgr: TDBEdit;
  43.     edtHtbh: TDBEdit;
  44.     edtFpje: TDBEdit;
  45.     edtQzyzf: TDBEdit;
  46.     edtFph: TDBEdit;
  47.     edtShr: TDBEdit;
  48.     edtDjbz: TDBEdit;
  49.     cbSfsh: TDBCheckBox;
  50.     cmbCkmc: TDBComboBox;
  51.     pnl_Main1: TPanel;
  52.     Label11: TLabel;
  53.     Label12: TLabel;
  54.     Label13: TLabel;
  55.     edtZg: TDBEdit;
  56.     edtZdr: TDBEdit;
  57.     edtYsr: TDBEdit;
  58.     DataSource_Main: TDataSource;
  59.     DataSource_Detail: TDataSource;
  60.     StatusBar1: TStatusBar;
  61.     btn_cgr: TBitBtn;
  62.     btn_zg: TBitBtn;
  63.     btn_zdr: TBitBtn;
  64.     btn_ysr: TBitBtn;
  65.     Timer1: TTimer;
  66.     pm_Detail: TPopupMenu;
  67.     ImageList1: TImageList;
  68.     pmi_Insert: TMenuItem;
  69.     pmi_Delete: TMenuItem;
  70.     btn_print: TSpeedButton;
  71.     PopupMenu2: TPopupMenu;
  72.     N_Passed: TMenuItem;
  73.     N_NotPassed: TMenuItem;
  74.     N_All: TMenuItem;
  75.     QuickRep: TQuickRep;
  76.     QRBand1: TQRBand;
  77.     QRLabel1: TQRLabel;
  78.     QRLabel2: TQRLabel;
  79.     QRLabel3: TQRLabel;
  80.     QRDBText1: TQRDBText;
  81.     QRDBText2: TQRDBText;
  82.     QRDBText3: TQRDBText;
  83.     QRLabel7: TQRLabel;
  84.     QRLabel8: TQRLabel;
  85.     QRLabel9: TQRLabel;
  86.     QRDBText7: TQRDBText;
  87.     QRDBText8: TQRDBText;
  88.     QRDBText9: TQRDBText;
  89.     QRLabel10: TQRLabel;
  90.     QRDBText10: TQRDBText;
  91.     QRLabel4: TQRLabel;
  92.     QRLabel5: TQRLabel;
  93.     QRLabel6: TQRLabel;
  94.     QRDBText4: TQRDBText;
  95.     QRDBText5: TQRDBText;
  96.     QRDBText6: TQRDBText;
  97.     QRLabel11: TQRLabel;
  98.     QRLabel12: TQRLabel;
  99.     QRLabel13: TQRLabel;
  100.     QRDBText11: TQRDBText;
  101.     QRDBText12: TQRDBText;
  102.     QRDBText13: TQRDBText;
  103.     PageHeaderBand1: TQRBand;
  104.     QRLabel14: TQRLabel;
  105.     QRLabel22: TQRLabel;
  106.     QRSysData1: TQRSysData;
  107.     QRShape1: TQRShape;
  108.     QRSubDetail1: TQRSubDetail;
  109.     QRDBText14: TQRDBText;
  110.     QRDBText15: TQRDBText;
  111.     QRDBText16: TQRDBText;
  112.     QRDBText17: TQRDBText;
  113.     QRDBText18: TQRDBText;
  114.     QRDBText19: TQRDBText;
  115.     QRShape2: TQRShape;
  116.     SummaryBand1: TQRBand;
  117.     QRDBText22: TQRDBText;
  118.     QRDBText24: TQRDBText;
  119.     QRLabel21: TQRLabel;
  120.     QRLabel23: TQRLabel;
  121.     QRLabel24: TQRLabel;
  122.     QRDBText25: TQRDBText;
  123.     QRDBText26: TQRDBText;
  124.     QRDBText27: TQRDBText;
  125.     QRDBText28: TQRDBText;
  126.     QRLabel25: TQRLabel;
  127.     QRLabel26: TQRLabel;
  128.     QRLabel27: TQRLabel;
  129.     PageFooterBand1: TQRBand;
  130.     QRLabel28: TQRLabel;
  131.     QRLabel29: TQRLabel;
  132.     QRSysData2: TQRSysData;
  133.     ColumnHeaderBand1: TQRBand;
  134.     QRLabel15: TQRLabel;
  135.     QRLabel16: TQRLabel;
  136.     QRLabel17: TQRLabel;
  137.     QRLabel18: TQRLabel;
  138.     QRLabel19: TQRLabel;
  139.     QRLabel20: TQRLabel;
  140.     btn_gycj: TBitBtn;
  141.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  142.     procedure btn_insertClick(Sender: TObject);
  143.     procedure btn_editClick(Sender: TObject);
  144.     procedure btn_cancelClick(Sender: TObject);
  145.     procedure btn_saveClick(Sender: TObject);
  146.     procedure btn_cgrClick(Sender: TObject);
  147.     procedure btn_zgClick(Sender: TObject);
  148.     procedure btn_zdrClick(Sender: TObject);
  149.     procedure btn_ysrClick(Sender: TObject);
  150.     procedure btn_refreshClick(Sender: TObject);
  151.     procedure btn_findClick(Sender: TObject);
  152.     procedure btn_deleteClick(Sender: TObject);
  153.     procedure DBGridDblClick(Sender: TObject);
  154.     procedure Timer1Timer(Sender: TObject);
  155.     procedure pmi_InsertClick(Sender: TObject);
  156.     procedure pmi_DeleteClick(Sender: TObject);
  157.     procedure btn_printClick(Sender: TObject);
  158.     procedure FormShow(Sender: TObject);
  159.     procedure N_PassedClick(Sender: TObject);
  160.     procedure N_NotPassedClick(Sender: TObject);
  161.     procedure N_AllClick(Sender: TObject);
  162.   private
  163.     procedure btn_valid;
  164.     { Private declarations }
  165.   public
  166.     { Public declarations }
  167.   end;
  169. var
  170.   frmClsld: TfrmClsld;
  172. implementation
  174. uses U_mainform, WzglDB, u_public, U_fzlr_clbm, GenQ3;
  176. {$R *.DFM}
  178. procedure TfrmClsld.FormClose(Sender: TObject; var Action: TCloseAction);
  179. begin
  180.   action := cafree;
  181.   frmClsld := nil;
  182. end;
  184. procedure TfrmClsld.btn_insertClick(Sender: TObject);
  185. begin
  186.   //取消过滤
  187.   DM.CDS_CLSLD.filter := '';
  188.   DM.CDS_CLSLD.filtered := true;
  189.   //数据集处于添加状态
  190.   DM.CDS_CLSLD.Insert;
  191.   edtSlzh.enabled := true;
  192.   //改变组件的有效性
  193.   btn_valid;
  194.   cmbCkmc.SetFocus;
  195. end;
  197. procedure TfrmClsld.btn_valid;
  198. begin
  199.   DBNavigator.enabled := not dbnavigator.enabled;
  200.   btn_insert.enabled := not btn_insert.enabled;
  201.   btn_delete.enabled := not btn_delete.enabled;
  202.   btn_edit.enabled := not btn_edit.enabled;
  203.   btn_cancel.enabled := not btn_cancel.enabled;
  204.   btn_Save.enabled := not btn_Save.enabled;
  205.   btn_find.enabled := not btn_find.enabled;
  206.   btn_refresh.enabled := not btn_refresh.enabled;
  207.   btn_print.enabled := not btn_print.enabled;
  208.   //显示区的切换
  209.   pnl_Main.enabled := not pnl_Main.enabled;
  210.   pnl_Main1.enabled := not pnl_Main1.enabled;
  211.   //DBGrid中2、3、4、5字段状态切换，其他字段仍是只读
  212.   dbgrid.Columns[2].readonly := not dbgrid.Columns[2].readonly;
  213.   dbgrid.Columns[3].readonly := not dbgrid.Columns[3].readonly;
  214.   dbgrid.Columns[4].readonly := not dbgrid.Columns[4].readonly;
  215.   dbgrid.Columns[5].readonly := not dbgrid.Columns[5].readonly;
  216.   //辅助录入按钮的可见性切换
  217.   btn_gycj.visible := not btn_gycj.visible;
  218.   btn_cgr.visible := not btn_cgr.visible;
  219.   btn_zg.visible := not btn_zg.visible;
  220.   btn_zdr.visible := not btn_zdr.visible;
  221.   btn_ysr.visible := not btn_ysr.visible;
  222. end;
  224. procedure TfrmClsld.btn_editClick(Sender: TObject);
  225. begin
  226.   //先判断是否有记录可编辑
  227.   if DM.CDS_CLSLD.recordcount = 0 then
  228.   begin
  229.     application.MessageBox('没有记录不能编辑', '物资管理系统', mb_iconinformation + mb_defbutton1);
  230.     exit;
  231.   end;
  232.   //判断此单据是否已审核过了，如已审核，就不能修改
  233.   if DM.CDS_CLSLD.FieldByName('是否审核').value = true then
  234.   begin
  235.     application.messagebox('此单据已审核，不能编辑', '物资管理系统', mb_iconinformation + mb_defbutton1);
  236.     exit;
  237.   end;
  238.   //使数据集处于编辑状态
  239.   DM.CDS_CLSLD.edit;
  240.   edtSlzh.enabled := false;
  241.   //设置组件有效性
  242.   btn_valid;
  243.   cmbckmc.setfocus;
  244. end;
  246. procedure TfrmClsld.btn_cancelClick(Sender: TObject);
  247. begin
  248.   //撤消刚才的操作
  249.   DM.CDS_CLSLD.CancelUpdates;
  250.   //设置数据显示组件为不可用状态
  251.   btn_valid;
  252. end;
  254. procedure TfrmClsld.btn_saveClick(Sender: TObject);
  255. var
  256.   s_slzh: string;
  257. begin
  258.   //检查数据的有效性
  259.   if cmbCkmc.text = '' then
  260.   begin
  261.     application.MessageBox('仓库名称不能为空', '物资管理系统', mb_iconinformation + mb_defbutton1);
  262.     cmbCkmc.SetFocus;
  263.     exit;
  264.   end;
  265.   if length(trim(edtSlzh.text)) <> 9 then
  266.   begin
  267.     application.MessageBox('收料字号应为九位', '物资管理系统', mb_iconinformation + mb_defbutton1);
  268.     edtSlzh.SetFocus;
  269.     exit;
  270.   end;
  271.   //判断关键字是否重复
  272.   s_slzh := edtSlzh.Text;
  273.   DM.CDS_CLSLD_INDEX.IndexFieldNames := '收料字号';
  274.   DM.CDS_CLSLD_INDEX.Refresh;
  275.   if DM.CDS_CLSLD.state = dsinsert then
  276.   begin
  277.     if DM.CDS_CLSLD_INDEX.FindKey([s_slzh]) then
  278.     begin
  279.       application.MessageBox('收料字号已重复', '物资管理系统', mb_iconinformation + mb_defbutton1);
  280.       edtSlzh.SetFocus;
  281.       exit;
  282.     end;
  283.   end;
  284.   //提交、保存数据库
  285.   DM.CDS_CLSLD.Post;
  286.   DM.CDS_CLSLD.ApplyUpdates(0);
  287.   //设置数据显示组件为不可用状态
  288.   btn_valid;
  289. end;
  291. procedure TfrmClsld.btn_cgrClick(Sender: TObject);
  292. begin
  293.   DM.CDS_CLSLD.FieldByName('采购人').value := GetEmployeeName;
  294. end;
  296. procedure TfrmClsld.btn_zgClick(Sender: TObject);
  297. begin
  298.   DM.CDS_CLSLD.FieldByName('主管').value := GetEmployeeName;
  299. end;
  301. procedure TfrmClsld.btn_zdrClick(Sender: TObject);
  302. begin
  303.   DM.CDS_CLSLD.FieldByName('制单人').value := GetEmployeeName;
  304. end;
  306. procedure TfrmClsld.btn_ysrClick(Sender: TObject);
  307. begin
  308.   DM.CDS_CLSLD.FieldByName('验收人').value := GetEmployeeName;
  309. end;
  311. procedure TfrmClsld.btn_refreshClick(Sender: TObject);
  312. begin
  313.   DM.CDS_CLSLD.Refresh;
  314. end;
  316. procedure TfrmClsld.btn_findClick(Sender: TObject);
  317. var
  318.   GenQuery: TGenQ3;
  319. begin
  320.   GenQuery := TGenQ3.Create(self);
  321.   GenQuery.v_TableName := 'WZ_CLSLD_MAIN'; //设置表名
  322.   GenQuery.v_AppServName := frmMain.SocketConnection; //设置应用服务器连接
  323.   GenQuery.v_ProviderName := 'P_General'; //设置获取数据集的提供者
  324.   //==添加定位字段，“；”前表示实际字段名，‘；’后表示实际字段的别名
  325.   GenQuery.v_fieldsstrings.Add('收料字号;收料字号');
  326.   GenQuery.v_fieldsstrings.Add('仓库名称;仓库名称');
  327.   GenQuery.v_fieldsstrings.Add('制单日期;制单日期');
  328.   GenQuery.v_fieldsstrings.Add('供应厂家;供应厂家');
  329.   GenQuery.v_fieldsstrings.Add('物资来源;物资来源');
  330.   GenQuery.v_fieldsstrings.Add('采购人;采购人');
  331.   GenQuery.v_fieldsstrings.Add('合同编号;合同编号');
  332.   GenQuery.v_fieldsstrings.Add('发票金额;发票金额');
  333.   GenQuery.v_fieldsstrings.Add('主管;主管');
  334.   GenQuery.v_fieldsstrings.Add('制单人;制单人');
  335.   GenQuery.v_fieldsstrings.Add('验收人;验收人');
  336.   GenQuery.v_fieldsstrings.Add('审核人;审核人');
  337.   //打开窗口
  338.   if GenQuery.execute then
  339.   begin
  340.     //给CDS_CLSLD_CX的过滤条件赋值
  341.     DM.CDS_CLSLD.filter := GenQuery.V_filtervalue;
  342.     DM.CDS_CLSLD.filtered := true;
  343.   end;
  344. end;
  348. procedure TfrmClsld.btn_deleteClick(Sender: TObject);
  349. begin
  350.   //判断是否有记录可删除
  351.   if DM.CDS_CLSLD.recordcount = 0 then
  352.   begin
  353.     application.MessageBox('没有记录可删除', '物资管理系统', mb_iconinformation + mb_defbutton1);
  354.     exit;
  355.   end;
  356.   //确认删除
  357.   if application.messagebox('请确认是否要删除', '物资管理系统', mb_iconinformation + mb_yesno) = idyes then
  358.   begin
  359.     DM.CDS_CLSLD.delete;
  360.     DM.CDS_CLSLD.applyupdates(0);
  361.   end;
  362. end;
  364. procedure TfrmClsld.DBGridDblClick(Sender: TObject);
  365. begin
  366.   pmi_Insert.click;
  367. end;
  369. procedure TfrmClsld.Timer1Timer(Sender: TObject);
  370. begin
  371.   statusbar1.Panels[2].text := '共有：' + inttostr(DM.CDS_CLSLD.recordcount) + '条记录';
  372.   if DM.CDS_CLSLD.recordcount = 0 then
  373.     statusbar1.panels[1].text := ''
  374.   else if DM.CDS_CLSLD.fieldbyname('是否审核').value = true then
  375.     statusbar1.panels[1].text := '此单据已审核'
  376.   else if (DM.CDS_CLSLD.fieldbyname('是否审核').value = null) or (DM.CDS_CLSLD.fieldbyname('是否审核').value = false) then
  377.     statusbar1.panels[1].text := '此单据未审核';
  378.   statusbar1.refresh;
  379. end;
  382. procedure TfrmClsld.pmi_InsertClick(Sender: TObject);
  383. var
  384.   i: integer;
  385.   s_hint: string;
  386. begin
  387.   //判断是否在编辑状态下
  388.   if btn_edit.Enabled = true then
  389.   begin
  390.     application.MessageBox('请在编辑或添加状态下添加物资', '物资管理系统', mb_iconinformation + mb_defbutton1);
  391.     exit;
  392.   end;
  393.   //创建辅助录入窗口
  394.   application.createform(TfrmClbm_Fzlr, frmClbm_Fzlr);
  395.   try
  396.     frmClbm_Fzlr.showmodal;
  397.   finally
  398.     frmClbm_Fzlr.free;
  399.   //将选中的材料加到DBGrid中
  400.     for i := Low(ClbmRec) to High(clbmRec) do
  401.     begin
  402.       DM.CDS_CLSLD_DETAIL_INDEX.Active := True;
  403.       DM.CDS_CLSLD_DETAIL_INDEX.refresh;
  404.       DM.CDS_CLSLD_DETAIL_INDEX.Filter := '收料字号=' + '''' + DM.CDS_CLSLD.fieldbyname('收料字号').asstring + '''';
  405.       DM.CDS_CLSLD_DETAIL_INDEX.filtered := true;
  406.       DM.CDS_CLSLD_DETAIL_INDEX.IndexFieldNames := '材料编号';
  407.       //判断是否有重复的物资
  408.       if DM.CDS_CLSLD_DETAIL_INDEX.FindKey([clbmRec[i].clbm]) then
  409.       begin
  410.         s_hint := '已有材料编号为' + clbmRec[i].clbm + '的物资';
  411.         application.MessageBox(Pchar(s_hint), '物资管理系统', mb_iconinformation + mb_defbutton1);
  412.         continue;
  413.       end;
  414.       //添加进DM.CDS_CLSLD_DETAIL
  415.       DM.CDS_CLSLD_DETAIL.insert;
  416.       DM.CDS_CLSLD_DETAIL.fieldbyname('材料编号').value := ClbmRec[i].clbm;
  417.       DM.CDS_CLSLD_DETAIL.fieldbyname('材料名称').value := ClbmRec[i].clmc;
  418.       DM.CDS_CLSLD_DETAIL.fieldbyname('规格型号').value := ClbmRec[i].ggxh;
  419.       DM.CDS_CLSLD_DETAIL.fieldbyname('计量单位').value := ClbmRec[i].jldw;
  420.       DM.CDS_CLSLD_DETAIL.fieldbyname('计划单价').value := ClbmRec[i].jhdj;
  421.       DM.CDS_CLSLD_DETAIL.fieldbyname('单价单位').value := ClbmRec[i].djdw;
  422.       DM.CDS_CLSLD_DETAIL.fieldbyname('凭证数量').value := 0.0;
  423.       DM.CDS_CLSLD_DETAIL.fieldbyname('实收数量').value := 0.0;
  424.       DM.CDS_CLSLD_DETAIL.post;
  425.     end;
  426.   end;
  427.   dbgrid.Refresh;
  428. end;
  430. procedure TfrmClsld.pmi_DeleteClick(Sender: TObject);
  431. begin
  432.   //判断是否有记录可删除
  433.   if DM.CDS_CLSLD_DETAIL.recordcount = 0 then
  434.   begin
  435.     application.MessageBox('没有记录可删除', '物资管理系统', mb_iconinformation + mb_defbutton1);
  436.     exit;
  437.   end;
  438.   //判断是否在浏览状态下
  439.   if (btn_edit.enabled = false) then
  440.   begin
  441.     application.MessageBox('请在浏览状态下删除物资', '物资管理系统', mb_iconinformation + mb_defbutton1);
  442.     exit;
  443.   end;
  444.   if application.messagebox('请确认是否要删除', '物资管理系统', mb_iconinformation + mb_yesno) = idyes then
  445.   begin
  446.     DM.CDS_CLSLD_DETAIL.delete;
  447.   end;
  448.   DM.CDS_CLSLD.applyupdates(0);
  449. end;
  451. procedure TfrmClsld.btn_printClick(Sender: TObject);
  452. var
  453.   s_filter: string;
  454.   my_bookmark: Tbookmark;
  455. begin
  456.   s_filter := DM.CDS_CLSLD.Filter;
  457.   my_bookmark := DM.CDS_CLSLD.GetBookmark;
  458.   DM.CDS_CLSLD.Filter := '收料字号=' + '''' + DM.CDS_CLSLD.fieldbyname('收料字号').asstring + '''';
  459.   DM.CDS_CLSLD.Filtered := true;
  460.   quickrep.Preview;
  461.   DM.CDS_CLSLD.Filter := s_filter;
  462.   DM.CDS_CLSLD.Filtered := true;
  463.   DM.CDS_CLSLD.GotoBookmark(my_bookmark);
  464. end;
  468. procedure TfrmClsld.FormShow(Sender: TObject);
  469. var
  470.   s_value: string;
  471. begin
  472.   //激活仓库信息表
  473.   DM.CDS_CKXX_INDEX.Active := True;
  474.   DM.CDS_CKXX_INDEX.First;
  475.   cmbCkmc.Items.Clear ;
  476.   //循环向下拉框写入仓库名称
  477.   while not DM.CDS_CKXX_INDEX.eof do
  478.   begin
  479.     s_value := DM.CDS_CKXX_INDEX.fieldbyname('仓库名称').asstring;
  480.     cmbCkmc.Items.Add(s_value);
  481.     DM.CDS_CKXX_INDEX.next;
  482.   end;
  484.   with DM do
  485.   begin
  486.     CDS_CLSLD_DETAIL.Close;
  487.     CDS_CLSLD.Close;
  488.     CDS_CLSLD_INDEX.Close;
  489.     CDS_CLSLD_DETAIL_INDEX.Close;
  491.     CDS_CLSLD.Open;
  492.     CDS_CLSLD_DETAIL.Open;
  493.     CDS_CLSLD_INDEX.Open;
  494.     CDS_CLSLD_DETAIL.Open;
  495.   end;
  496. end;
  498. procedure TfrmClsld.N_PassedClick(Sender: TObject);
  499. begin
  500.   DM.CDS_CLSLD.DisableControls;
  501.   DM.CDS_CLSLD.Filtered := False;
  502.   DM.CDS_CLSLD.Filter := '是否审核=True';
  503.   DM.CDS_CLSLD.Filtered := True;
  504.   DM.CDS_CLSLD.EnableControls;
  505. end;
  507. procedure TfrmClsld.N_NotPassedClick(Sender: TObject);
  508. begin
  509.   DM.CDS_CLSLD.DisableControls;
  510.   DM.CDS_CLSLD.Filtered := False;
  511.   DM.CDS_CLSLD.Filter := '是否审核=False';
  512.   DM.CDS_CLSLD.Filtered := True;
  513.   DM.CDS_CLSLD.EnableControls;
  515. end;
  517. procedure TfrmClsld.N_AllClick(Sender: TObject);
  518. begin
  519.   DM.CDS_CLSLD.Filtered := False;
  520. end;
  522. end.