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

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

Delphi控件源码

开发平台：

Delphi

am_jygls.pas：源码内容
  1. unit am_jygls;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Grids, DBGridEh, ComCtrls, ToolWin, DB, XPBarMenu, PrnDbgeh,
  8.   StdCtrls, ExtCtrls, DBClient;
  10. type
  11.   Tam_jygl = 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.     DBGridEh1: TDBGridEh;
  22.     v_jy: TDataSource;
  23.     XPBarMenu1: TXPBarMenu;
  24.     PrintDBGridEh1: TPrintDBGridEh;
  25.     RadioGroup1: TRadioGroup;
  26.     ClientDataSet1: TClientDataSet;
  27.     procedure ToolButton1Click(Sender: TObject);
  28.     procedure ToolButton2Click(Sender: TObject);
  29.     procedure ToolButton7Click(Sender: TObject);
  30.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure ToolButton3Click(Sender: TObject);
  33.     procedure ToolButton4Click(Sender: TObject);
  34.     procedure ToolButton6Click(Sender: TObject);
  35.     procedure RadioGroup1Click(Sender: TObject);
  36.     procedure DBGridEh1DblClick(Sender: TObject);
  37.     procedure ToolButton5Click(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   am_jygl: Tam_jygl;
  47. implementation
  48. uses dms, am_jygl_bjs, am_jygl_cxs, am_jygl_ps;
  49. {$R *.dfm}
  51. procedure Tam_jygl.ToolButton1Click(Sender: TObject);
  52. begin
  53.    dm.am_jygl.Close;
  54.    dm.am_jygl.CommandText:='select * from am_jygl where dz_dm='+''''+''''+'';
  55.    dm.am_jygl.Open;
  56.    //dm.am_jygl.Append;
  57.    dm.am_jygl.edit;
  58.    am_jygl_bj:=Tam_jygl_bj.create(application);
  59.    am_jygl_bj.showmodal;
  60. end;
  62. procedure Tam_jygl.ToolButton2Click(Sender: TObject);
  63. var s:string;
  64. begin
  65.   s:=Clientdataset1.fieldbyname('dz_dm').AsString;
  66.   dm.am_jygl.Close;
  67.   dm.am_jygl.CommandText:='select * from am_jygl where dz_dm='+''''+s+''''+'';
  68.   dm.am_jygl.Open;
  69.   am_jygl_bj:=Tam_jygl_bj.Create(application);
  70.   {am_jygl_bj.DBEditEh2.Text:=dm.Am_jygl.FieldByName('dz_dm').AsString;
  71.   am_jygl_bj.DbDateTimeEditEh1.Value:=dm.am_jygl.FieldByName('jy_jyrq').AsDateTime;
  72.   am_jygl_bj.dbediteh1.Text:=dm.am_jygl.FieldByName('jy_yhrq').AsString;}
  73.   am_jygl_bj.ShowModal;
  74. end;
  76. procedure Tam_jygl.ToolButton7Click(Sender: TObject);
  77. begin
  78.  close;
  79. end;
  81. procedure Tam_jygl.FormClose(Sender: TObject; var Action: TCloseAction);
  82. begin
  83.  action:=cafree;
  84.  am_jygl:=nil;
  85. end;
  87. procedure Tam_jygl.FormCreate(Sender: TObject);
  88. begin
  89.  dm.am_jygl.Active:=true;//借阅管理
  90.  Clientdataset1.Active:=true;//借阅视图
  91.  dm.sz_jyfs.Active:=true;//借阅方式
  92.  dm.sz_jymd.Active:=true;//借阅目的
  93.  Dm.am_dz.Active:=true;//读者表
  94.  dm.am_jygz.Active:=true;//借阅规则
  95.  DM.sz_zjlb.Active:=true;//证件类别
  96. end;
  98. procedure Tam_jygl.ToolButton3Click(Sender: TObject);
  99. var s:string;
  100. begin
  101.  dm.am_jygl.Close;
  102.  Dm.am_jygl.CommandText:='select * from am_jygl';
  103.  dm.am_jygl.Open;
  104.  s:=Clientdataset1.fieldbyname('jy_xh').AsString;
  105.  if Dm.am_jygl.RecordCount=0 then
  106.  begin
  107.     application.MessageBox('表中没有数据不能删除!','提示',mb_iconinformation+mb_defbutton1);
  108.     Abort;
  109.   end
  110.   else
  111.    if application.MessageBox('你确定删除吗？','警告',mb_okcancel+mb_iconinformation)=idok then
  112.    begin
  113.        dm.am_jygl.Close;
  114.        dm.am_jygl.CommandText:='delete am_jygl where jy_xh='+''''+s+''''+'';
  115.        dm.am_jygl.Execute;
  116.        dm.am_jygl.close;
  117.        dm.am_jygl.commandtext:='select * from am_jygl';
  118.        dm.am_jygl.open;//删除表中数据
  119.        toolbutton4.Click;
  120.     end; 
  121. end;
  123. procedure Tam_jygl.ToolButton4Click(Sender: TObject);
  124. begin
  125.  Clientdataset1.Close;
  126.  Clientdataset1.CommandText:='select * from v_jy';
  127.  Clientdataset1.Open;
  128. end;
  130. procedure Tam_jygl.ToolButton6Click(Sender: TObject);
  131. begin
  132.  //PrintDBGridEh1.Preview;
  133.  am_jygl_P:=Tam_jygl_P.create(self);
  134.  am_JYgl_P.QuickRep1.Preview;
  135. end;
  137. procedure Tam_jygl.RadioGroup1Click(Sender: TObject);
  138. begin
  139.   if radioGroup1.ItemIndex=0 then
  140.    begin
  141.      Clientdataset1.Close;
  142.      Clientdataset1.CommandText:='select * from v_Jy where jy_jyrq=getdate()';
  143.      Clientdataset1.Open;
  144.    end
  145.   else
  146.    begin
  147.      Clientdataset1.Close;
  148.      Clientdataset1.CommandText:='select * from v_Jy where jy_jyrq<>getdate()';
  149.      Clientdataset1.Open;
  150.    end;
  151. end;
  153. procedure Tam_jygl.DBGridEh1DblClick(Sender: TObject);
  154. begin
  155.  Toolbutton2.Click;
  156. end;
  158. procedure Tam_jygl.ToolButton5Click(Sender: TObject);
  159. begin
  160.  if am_jygl_cx= nil then
  161.   begin
  162.     am_jygl_cx:=Tam_jygl_cx.create(self);
  163.     am_jygl_cx.showmodal;
  164.   end;
  165. end;
  167. end.