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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
AM_dzs.~pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：4k
源码类别：

Delphi控件源码

开发平台：

Delphi

AM_dzs.~pas：源码内容
  1. unit AM_dzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, Grids, DBGridEh, XPBarMenu, ComCtrls, ToolWin, DBClient,
  8.   FR_Class, PrnDbgeh;
  10. type
  11.   Tam_dz = class(TForm)
  12.     CoolBar1: TCoolBar;
  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.     XPBarMenu1: TXPBarMenu;
  22.     DBGridEh1: TDBGridEh;
  23.     DS_V_DZ: TDataSource;
  24.     PrintDBGridEh1: TPrintDBGridEh;
  25.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  26.     procedure ToolButton7Click(Sender: TObject);
  27.     procedure ToolButton2Click(Sender: TObject);
  28.     procedure ToolButton3Click(Sender: TObject);
  29.     procedure ToolButton4Click(Sender: TObject);
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure DBGridEh1DblClick(Sender: TObject);
  32.     procedure ToolButton1Click(Sender: TObject);
  33.     procedure ToolButton6Click(Sender: TObject);
  34.     procedure ToolButton5Click(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  41. var
  42.   am_dz: Tam_dz;
  44. implementation
  45. uses dms, am_dzbjs, am_dz_cxs, Am_dz_Ps;
  46. {$R *.dfm}
  48. procedure Tam_dz.FormClose(Sender: TObject; var Action: TCloseAction);
  49. begin
  50.   Dm.am_dz.Active:=false;
  51.   dm.am_jygz.Active:=false;
  52.   DM.sz_zjlb.Active:=false;
  53.   dm.V_DZ.Active:=false;
  54.   action:=cafree;
  55.   Am_dz:=nil;
  56. end;
  58. procedure Tam_dz.ToolButton7Click(Sender: TObject);
  59. begin
  60.  close;
  61. end;
  65. procedure Tam_dz.ToolButton2Click(Sender: TObject);
  66. var s:string;
  67. begin
  68.   s:=dm.V_DZ.fieldbyname('dz_dm').AsString;
  69.   am_dzbj:=Tam_dzbj.create(self);
  70.   am_dzbj.Label1.Caption:='修改读者';
  71.   Dm.am_dz.Close;
  72.   dm.am_dz.CommandText:='select * from Am_dz where DZ_dm='+''''+s+''''+'';
  73.   dm.am_dz.Open;
  74.   DM.am_dz.Edit;
  75.   am_dzbj.MaskEdit1.Text:=dm.am_dz.fieldbyname('dz_lxdh').AsString;
  76.   am_dzbj.ShowModal;
  77. end;
  79. procedure Tam_dz.ToolButton3Click(Sender: TObject);
  80. var s:string;
  81. begin
  82.  s:=dm.V_DZ.fieldbyname('dz_dm').AsString;
  83.  if Dm.am_dz.RecordCount=0 then
  84.  begin
  85.     application.MessageBox('表中没有数据不能删除!','提示',mb_iconinformation+mb_defbutton1);
  86.     Abort;
  87.   end
  88.   else
  89.    if application.MessageBox('您确定要删除当前纪录吗?','警告',mb_okcancel+mb_iconquestion)=idok then
  90.    begin
  91.        dm.am_dz.Close;
  92.        dm.am_dz.CommandText:='select * from am_dz where dz_dm='+''''+s+''''+'';
  93.        dm.am_dz.Open;
  94.        Dm.am_dz.Delete;
  95.        Dm.am_dz.ApplyUpdates(0);
  96.        toolbutton4.Click;
  97.     end; 
  98. end;
  100. procedure Tam_dz.ToolButton4Click(Sender: TObject);
  101. begin
  102.  dm.am_dz.Close;
  103.  dm.am_dz.CommandText:='select * from am_dz';
  104.  dm.am_dz.Open;
  105.  //刷新视图
  106.  dm.V_DZ.Close;
  107.  dm.V_DZ.CommandText:='select * from V_DZ';
  108.  dm.V_DZ.Open;
  109. end;
  111. procedure Tam_dz.FormCreate(Sender: TObject);
  112. begin
  113.  Dm.am_dz.Active:=true;
  114.  dm.am_jygz.Active:=true;
  115.  DM.sz_zjlb.Active:=true;
  116.  dm.V_DZ.Active:=true;
  117. end;
  119. procedure Tam_dz.DBGridEh1DblClick(Sender: TObject);
  120. begin
  121.   Toolbutton4.Click;
  122.   Toolbutton2.Click;
  123. end;
  125. procedure Tam_dz.ToolButton1Click(Sender: TObject);
  126. begin
  127.   am_dzbj:=Tam_dzbj.create(application);
  128.   dm.am_dz.Close;
  129.   dm.am_dz.CommandText:='select * from am_dz where dz_dm='+''''+''''+'';
  130.   dm.am_dz.Open;
  131.   am_dzbj.Label1.Caption:='增加读者';
  132.   am_dzbj.showmodal;
  133. end;
  135. procedure Tam_dz.ToolButton6Click(Sender: TObject);
  136. begin
  137. { DbGrideh1.Columns[0].Width:=60;
  138.  DBgrideh1.columns[1].Width:=60;
  139.  printDbGrideh1.Title.Text:='读者管理';
  140.  printdbgrideh1.BeforeGridText.Text:='生产通知单汇总打印';
  141.  printDBGrideh1.AfterGridText.Text:=datetostr(date);
  142.  PrintDBGridEh1.Preview;}
  143.  am_dz_p:=Tam_dz_P.create(application);
  144.  //am_dz_P.QuickRep1.Preview;
  145.  am_dz_p.QuickRep1.Preview;
  146. end;
  148. procedure Tam_dz.ToolButton5Click(Sender: TObject);
  149. begin
  150.  if am_dz_cx=Nil then
  151.   begin
  152.     am_dz_cx:=Tam_dz_cx.create(self);
  153.     am_dz_cx.showmodal;
  154.   end;
  155. end;
  157. end.