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

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

Delphi/CppBuilder

开发平台：

Delphi

U_qxgl_yhsz.pas：源码内容
  1. unit U_qxgl_yhsz;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ComCtrls, DBCtrls, Buttons, ExtCtrls, StdCtrls, Mask, Db, DBClient,
  8.   Grids, DBGrids;
  10. type
  11.   TfrmQXGL_YHSZ = class(TForm)
  12.     Panel1: TPanel;
  13.     Panel2: TPanel;
  14.     SpeedButton1: TSpeedButton;
  15.     SpeedButton2: TSpeedButton;
  16.     SpeedButton3: TSpeedButton;
  17.     SpeedButton4: TSpeedButton;
  18.     SpeedButton5: TSpeedButton;
  19.     SpeedButton6: TSpeedButton;
  20.     DBNavigator1: TDBNavigator;
  21.     StatusBar1: TStatusBar;
  22.     DS_QXGL_YHSZ: TDataSource;
  23.     Label1: TLabel;
  24.     DBEdit1: TDBEdit;
  25.     Label2: TLabel;
  26.     DBedtUserAlias: TDBEdit;
  27.     Label3: TLabel;
  28.     DBLookupComboBox1: TDBLookupComboBox;
  29.     DS_QXGL_ZHSZ: TDataSource;
  30.     BitBtn1: TBitBtn;
  31.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  32.     procedure SpeedButton1Click(Sender: TObject);
  33.     procedure SpeedButton2Click(Sender: TObject);
  34.     procedure SpeedButton3Click(Sender: TObject);
  35.     procedure SpeedButton4Click(Sender: TObject);
  36.     procedure SpeedButton5Click(Sender: TObject);
  37.     procedure SpeedButton6Click(Sender: TObject);
  38.     procedure BitBtn1Click(Sender: TObject);
  39.     procedure FormCreate(Sender: TObject);
  40.   private
  41.     procedure btn_valid;
  42.     { Private declarations }
  43.   public
  45.     { Public declarations }
  46.   end;
  48. var
  49.   frmQXGL_YHSZ: TfrmQXGL_YHSZ;
  51. implementation
  53. uses U_mainform, U_fzlr_zgxm, WzglDB;
  55. {$R *.DFM}
  57. procedure TfrmQXGL_YHSZ.FormClose(Sender: TObject; var Action: TCloseAction);
  58. begin
  59.   action := cafree;
  60.   frmQxgl_Yhsz := nil;
  61. end;
  63. procedure TfrmQXGL_YHSZ.btn_valid;
  64. begin
  65.   dbnavigator1.Enabled := not dbnavigator1.Enabled;
  66.   speedbutton1.enabled := not speedbutton1.enabled;
  67.   speedbutton2.enabled := not speedbutton2.enabled;
  68.   speedbutton3.enabled := not speedbutton3.enabled;
  69.   speedbutton4.enabled := not speedbutton4.enabled;
  70.   speedbutton5.enabled := not speedbutton5.enabled;
  71.   speedbutton6.enabled := not speedbutton6.enabled;
  72.   panel1.Enabled := not panel1.Enabled;
  73. end;
  75. procedure TfrmQXGL_YHSZ.SpeedButton1Click(Sender: TObject);
  76. begin
  77.   DM.CDS_QXGL_YHSZ.Insert;
  78.   btn_valid;
  79.   dbedit1.SetFocus;
  80. end;
  82. procedure TfrmQXGL_YHSZ.SpeedButton2Click(Sender: TObject);
  83. begin
  84.   if DM.CDS_QXGL_YHSZ.recordcount = 0 then
  85.   begin
  86.     application.messagebox('没有记录可删除', '物资管理系统', mb_iconinformation + mb_defbutton1);
  87.     exit;
  88.   end;
  89.   if DM.CDS_QXGL_YHSZ.fieldbyname('用户别名').asstring = 'system' then
  90.   begin
  91.     application.messagebox('系统用户不可删除', '物资管理系统', mb_iconinformation + mb_defbutton1);
  92.     exit;
  93.   end;
  94.   if application.messagebox('请确认是否删除', '物资管理系统', mb_iconinformation + mb_yesno) = idyes then
  95.   begin
  96.     DM.CDS_QXGL_YHSZ.delete;
  97.     DM.CDS_QXGL_YHSZ.ApplyUpdates(0);
  98.   end;
  99. end;
  101. procedure TfrmQXGL_YHSZ.SpeedButton3Click(Sender: TObject);
  102. begin
  103.   if DM.CDS_QXGL_YHSZ.recordcount = 0 then
  104.   begin
  105.     application.messagebox('没有记录可编辑', '物资管理系统', mb_iconinformation + mb_defbutton1);
  106.     exit;
  107.   end;
  108.   if DM.CDS_QXGL_YHSZ.fieldbyname('用户别名').asstring = 'system' then
  109.     DBedtUserAlias.ReadOnly := true
  110.   else
  111.     DBedtUserAlias.ReadOnly := False;
  113.   DM.CDS_QXGL_YHSZ.edit;
  114.   btn_valid;
  115.   dbedit1.setfocus;
  116. end;
  118. procedure TfrmQXGL_YHSZ.SpeedButton4Click(Sender: TObject);
  119. begin
  120.   DM.CDS_QXGL_YHSZ.Cancel;
  121.   DM.CDS_QXGL_YHSZ.cancelupdates;
  122.   btn_valid;
  123. end;
  125. procedure TfrmQXGL_YHSZ.SpeedButton5Click(Sender: TObject);
  126. var
  127.   vs_yhbh: string;
  128. begin
  129.   if dbedit1.text = '' then
  130.   begin
  131.     application.MessageBox('用户编号还未输入', '物资管理系统', mb_iconinformation + mb_defbutton1);
  132.     dbedit1.setfocus;
  133.     exit;
  134.   end;
  135.   vs_yhbh := dbedit1.Text;
  136.   DM.CDS_QXGL_YHSZ_INDEX.IndexFieldNames := '用户编号';
  137.   DM.CDS_QXGL_YHSZ_INDEX.Refresh;
  138.   if DM.CDS_QXGL_YHSZ.state = dsinsert then
  139.   begin
  140.     if DM.CDS_QXGL_YHSZ_INDEX.FindKey([vs_yhbh]) then
  141.     begin
  142.       application.MessageBox('用户编号已重复', '物资管理系统', mb_iconinformation + mb_defbutton1);
  143.       dbedit1.SetFocus;
  144.       exit;
  145.     end;
  146.   end;
  147.   if dblookupcombobox1.text = '' then
  148.   begin
  149.     application.MessageBox('用户组号还未选择', '物资管理系统', mb_iconinformation + mb_defbutton1);
  150.     dblookupcombobox1.setfocus;
  151.     exit;
  152.   end;
  153.   DM.CDS_QXGL_YHSZ.FieldByName('用户密码').value := '000';
  154.   DM.CDS_QXGL_YHSZ.Post;
  155.   DM.CDS_QXGL_YHSZ.applyupdates(0);
  156.   btn_valid;
  157. end;
  159. procedure TfrmQXGL_YHSZ.SpeedButton6Click(Sender: TObject);
  160. begin
  161.   DM.CDS_QXGL_YHSZ.Refresh;
  162. end;
  165. procedure TfrmQXGL_YHSZ.BitBtn1Click(Sender: TObject);
  166. begin
  167.   application.createform(TfrmZgda_fzlr, frmZgda_fzlr);
  168.   try
  169.     frmZgda_fzlr.showmodal;
  170.   finally
  171.     dbedit1.text := pub_zgxm;
  172.     frmZgda_fzlr.free;
  173.   end;
  174. end;
  176. procedure TfrmQXGL_YHSZ.FormCreate(Sender: TObject);
  177. begin
  178.   with DM do
  179.   begin
  180.     CDS_QXGL_YHSZ.Active := True;
  181.     CDS_QXGL_YHSZ_INDEX.Active := True;
  182.     CDS_QXGL_ZHSZ.Active := True;
  183.   end;
  184. end;
  186. end.