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

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

Delphi控件源码

开发平台：

Delphi

am_ajxh_xhs.pas：源码内容
  1. unit am_ajxh_xhs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, DBCtrlsEh, StdCtrls, DBCtrls, Mask, ExtCtrls, Buttons;
  9. type
  10.   Tam_ajxh_xh = class(TForm)
  11.     btn_save: TSpeedButton;
  12.     btn_quit: TSpeedButton;
  13.     Panel1: TPanel;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     DBEdit4: TDBEdit;
  19.     DBMemo1: TDBMemo;
  20.     DBMemo2: TDBMemo;
  21.     DBEditEh1: TDBEditEh;
  22.     DataSource1: TDataSource;
  23.     procedure btn_quitClick(Sender: TObject);
  24.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure btn_saveClick(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  33. var
  34.   am_ajxh_xh: Tam_ajxh_xh;
  36. implementation
  37. uses dms,u_public, mainfrms;
  38. {$R *.dfm}
  40. procedure Tam_ajxh_xh.btn_quitClick(Sender: TObject);
  41. begin
  42.  close;
  43. end;
  45. procedure Tam_ajxh_xh.FormClose(Sender: TObject; var Action: TCloseAction);
  46. begin
  47.  action:=cafree;
  48.  am_ajxh_xh:=nil;
  49. end;
  51. procedure Tam_ajxh_xh.FormCreate(Sender: TObject);
  52. //var s:string;
  53. begin
  54.   //s:=dm.V_ajgl_dxh.fieldbyname('aj_xh').AsString;
  55.   //dm.am_ajxh.Close;
  56.   //dm.am_ajxh.CommandText:='select * from am_ajxh where aj_xh='+''''+s+''''+'';
  57.   //dm.am_ajxh.Open;
  58.   //dbedit4.Text:=dm.am_ajxh.fieldbyname('ajxh_jdr').AsString;
  59.   //鉴定人是否和销毁人一样
  60.   dbediteh1.Text:=formatdatetime('yyyy-mm-dd',now);
  61. end;
  63. procedure Tam_ajxh_xh.btn_saveClick(Sender: TObject);
  64. var i:integer;
  65.     s:string;
  66. begin
  67.    s:=dm.V_ajgl_dxh.fieldbyname('aj_xh').AsString;
  68.    dm.am_ajxh.ApplyUpdates(0);
  69.    i:=dm.am_ajxh.ApplyUpdates(0);
  70.    if i=0 then
  71.     begin
  72.       application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  73.       dm.V_ajgl_gd.Close;
  74.       dm.V_ajgl_gd.CommandText:='update v_ajgl_gd set ajzt_mc=''已销毁案卷'' where aj_xh='+''''+s+''''+'';
  75.       dm.V_ajgl_gd.Execute;
  76.       //dm.V_ajgl_gd.Close;
  77.       //dm.V_ajgl_gd.CommandText:='P_ajgl_dxh';//查找待销毁案卷
  78.       //dm.V_ajgl_gd.Open;
  79.       dm.V_ajgl_Dxh.Close;
  80.       dm.V_ajgl_Dxh.CommandText:='P_ajgl_dxh';
  81.       dm.v_ajgl_dxh.Open;
  82.       dm.V_ajgl_yxh.Close;
  83.       dm.V_ajgl_yxh.CommandText:='P_ajgl_yxh';//查找待销毁案卷
  84.       dm.V_ajgl_yxh.Open;
  85.       close;
  86.     end
  87.    else
  88.     begin
  89.       application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  90.       exit;
  91.     end;
  92. end;
  94. end.