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

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

Delphi控件源码

开发平台：

Delphi

am_jygl_bjs.pas：源码内容
  1. unit am_jygl_bjs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, DB, Mask, DBCtrls, Buttons, DBCtrlsEh,
  8.   DBLookupEh;
  10. type
  11.   Tam_jygl_bj = class(TForm)
  12.     Image1: TImage;
  13.     Label1: TLabel;
  14.     Panel1: TPanel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     DBEdit2: TDBEdit;
  18.     Label5: TLabel;
  19.     Label6: TLabel;
  20.     Label7: TLabel;
  21.     Label9: TLabel;
  22.     Label10: TLabel;
  23.     Label11: TLabel;
  24.     SpeedButton1: TSpeedButton;
  25.     SpeedButton2: TSpeedButton;
  26.     Label4: TLabel;
  27.     Label8: TLabel;
  28.     Label12: TLabel;
  29.     SpeedButton3: TSpeedButton;
  30.     SpeedButton4: TSpeedButton;
  31.     DBLookupComboboxEh1: TDBLookupComboboxEh;
  32.     DBLookupComboboxEh2: TDBLookupComboboxEh;
  33.     DBEditEh1: TDBEditEh;
  34.     DBEditEh2: TDBEditEh;
  35.     Ds_Jygl: TDataSource;
  36.     Ds_Jyfs: TDataSource;
  37.     Ds_Jymd: TDataSource;
  38.     DBEditEh3: TDBEditEh;
  39.     DBEditEh4: TDBEditEh;
  40.     Label13: TLabel;
  41.     DBEditEh5: TDBEditEh;
  42.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  43.     procedure SpeedButton2Click(Sender: TObject);
  44.     procedure SpeedButton1Click(Sender: TObject);
  45.     procedure FormKeyPress(Sender: TObject; var Key: Char);
  46.     procedure SpeedButton3Click(Sender: TObject);
  47.     procedure SpeedButton4Click(Sender: TObject);
  48.     procedure DBEditEh2Change(Sender: TObject);
  49.   private
  50.     { Private declarations }
  51.   public
  52.     { Public declarations }
  53.   end;
  55. var
  56.   am_jygl_bj: Tam_jygl_bj;
  58. implementation
  60. uses DMs,am_jygls, am_dz_xzs, am_dzbjs, am_dz_ajxzs;
  62. {$R *.dfm}
  64. procedure Tam_jygl_bj.FormClose(Sender: TObject; var Action: TCloseAction);
  65. begin
  66.  dm.am_jygl.Close;
  67.  dm.am_jygl.CommandText:='select * from am_jygl';
  68.  dm.am_jygl.Open;
  69.  am_jygl.ToolButton4.Click;
  70.  action:=cafree;
  71.  am_jygl_bj:=nil;
  72. end;
  74. procedure Tam_jygl_bj.SpeedButton2Click(Sender: TObject);
  75. begin
  76.  close;
  77. end;
  79. procedure Tam_jygl_bj.SpeedButton1Click(Sender: TObject);
  80. var i:integer;
  81. begin
  82.   if DBEditEh2.Text='' then
  83.   begin
  84.       application.MessageBox('读者代码不能为空!','提示',mb_ok+mb_iconinformation);
  85.       exit;
  86.   end;
  87.   if dbedit2.Text='' then
  88.   begin
  89.       application.MessageBox('案卷序号不能为空!','提示',mb_ok+mb_iconinformation);
  90.       exit;
  91.   end;
  92.     if DBLookupComboboxEh1.Text='' then
  93.   begin
  94.       application.MessageBox('借阅方式代码不能为空!','提示',mb_ok+mb_iconinformation);
  95.       exit;
  96.   end;
  97.   if DBLookupComboboxEh2.Text='' then
  98.   begin
  99.       application.MessageBox('借阅目的不能为空!','提示',mb_ok+mb_iconinformation);
  100.       exit;
  101.   end;
  102.    dm.am_jygl.edit;
  103.    {dm.Am_jygl.FieldByName('dz_dm').AsString:=DBEditEh2.Text;
  104.    dm.am_jygl.FieldByName('jy_jyrq').AsDateTime:=DbDateTimeEditEh1.Value;
  105.    dm.am_jygl.FieldByName('jy_yhrq').AsDateTime:=StrToDatetime(dbediteh1.Text);}
  106.    //showmessage(datetimeTostr(Dbediteh));
  107.    dm.am_jygl.FieldByName('jy_jyzt').AsString:='借阅中';
  108.    i:=Dm.am_jygl.ApplyUpdates(0);
  109.    if i=0 then
  110.    begin
  111.       application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  112.       am_jygl.ToolButton4.Click;
  113.       close;
  114.    end
  115.    else
  116.    begin
  117.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  118.      exit;
  119.    end;
  120. end;
  122. procedure Tam_jygl_bj.FormKeyPress(Sender: TObject; var Key: Char);
  123. begin
  124.  if key=#13 then
  125.   begin
  126.      key:=#0;
  127.      perform(WM_NEXTDLGCTL,0,0);
  128.   end;
  129. end;
  131. procedure Tam_jygl_bj.SpeedButton3Click(Sender: TObject);
  132. begin
  133.   if am_dz_xz=nil then
  134.   begin
  135.      am_dz_xz:=Tam_dz_xz.Create(self);
  136.      am_dz_xz.ShowModal;
  137.   end;
  138. end;
  140. procedure Tam_jygl_bj.SpeedButton4Click(Sender: TObject);
  141. begin
  142.  if am_dz_ajxz=nil then
  143.   begin
  144.     am_dz_ajxz:=Tam_dz_ajxz.create(self);
  145.     am_dz_ajxz.showmodal;
  146.   end;
  147. end;
  149. procedure Tam_jygl_bj.DBEditEh2Change(Sender: TObject);
  150. var S_jyts:integer;//借阅天数
  151.     S_Dzdm:String;//分别是读者代码，借阅规则序号
  152. begin
  153.   if trim(DBEditEh2.Text)<>'' then
  154.   begin
  155.     DBEditEh5.Text:=formatdatetime('yyyy-mm-dd',now);
  156.     S_Dzdm:=DBEditEh2.Text;
  157.     dm.V_DZ.Close;
  158.     dm.V_DZ.CommandText:='select Jygz_Xjts from v_dz where dz_dm='+''''+S_Dzdm+''''+'';
  159.     dm.v_dz.Open;
  160.     S_jyts:=dm.V_DZ.fieldbyname('jygz_Xjts').AsInteger;
  161.     dbediteh1.Text:=datetostr(StrToDate(DBEditEh5.Text)+S_jyts);
  162.   end; 
  163. end;
  165. end.