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

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

Delphi控件源码

开发平台：

Delphi

am_ajyjs.~pas：源码内容
  1. unit am_ajyjs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, ImgList, DBCtrlsEh, StdCtrls, DBCtrls, DBLookupEh, Mask,
  8.   Buttons, ExtCtrls;
  10. type
  11.   Tam_ajyj = class(TForm)
  12.     Panel2: TPanel;
  13.     Panel1: TPanel;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     Label5: TLabel;
  19.     Label6: TLabel;
  20.     Label7: TLabel;
  21.     Label8: TLabel;
  22.     Label9: TLabel;
  23.     Label10: TLabel;
  24.     Label11: TLabel;
  25.     Label12: TLabel;
  26.     Label13: TLabel;
  27.     Label14: TLabel;
  28.     Label15: TLabel;
  29.     Label16: TLabel;
  30.     Label17: TLabel;
  31.     Label18: TLabel;
  32.     Label19: TLabel;
  33.     Label20: TLabel;
  34.     Label21: TLabel;
  35.     Label22: TLabel;
  36.     Label23: TLabel;
  37.     Label24: TLabel;
  38.     Label25: TLabel;
  39.     DBEdit3: TDBEdit;
  40.     DBEdit4: TDBEdit;
  41.     DBEdit5: TDBEdit;
  42.     DBEdit6: TDBEdit;
  43.     DBEdit9: TDBEdit;
  44.     DBEdit11: TDBEdit;
  45.     DBEdit14: TDBEdit;
  46.     DBEdit16: TDBEdit;
  47.     DBEdit17: TDBEdit;
  48.     DBLookupComboboxEh1: TDBLookupComboboxEh;
  49.     DBLookupComboboxEh2: TDBLookupComboboxEh;
  50.     DBLookupComboboxEh3: TDBLookupComboboxEh;
  51.     DBMemo1: TDBMemo;
  52.     DBMemo2: TDBMemo;
  53.     DBMemo3: TDBMemo;
  54.     DBEditEh1: TDBEditEh;
  55.     DBEditEh3: TDBEditEh;
  56.     DBEditEh4: TDBEditEh;
  57.     DBEditEh5: TDBEditEh;
  58.     DBEditEh6: TDBEditEh;
  59.     DBLookupComboboxEh4: TDBLookupComboboxEh;
  60.     DBLookupComboboxEh5: TDBLookupComboboxEh;
  61.     ImageList1: TImageList;
  62.     ds_ajgl: TDataSource;
  63.     Panel3: TPanel;
  64.     Label27: TLabel;
  65.     Label29: TLabel;
  66.     Label28: TLabel;
  67.     DBEdit8: TDBEdit;
  68.     Label30: TLabel;
  69.     DBEdit10: TDBEdit;
  70.     Label31: TLabel;
  71.     DBEdit12: TDBEdit;
  72.     DBMemo4: TDBMemo;
  73.     Ds_Ajyj: TDataSource;
  74.     Label26: TLabel;
  75.     Label32: TLabel;
  76.     Label33: TLabel;
  77.     DBEditEh2: TDBEditEh;
  78.     SpeedButton1: TSpeedButton;
  79.     SpeedButton4: TSpeedButton;
  80.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  81.     procedure FormCreate(Sender: TObject);
  82.     procedure SpeedButton4Click(Sender: TObject);
  83.     procedure SpeedButton1Click(Sender: TObject);
  84.   private
  85.     { Private declarations }
  86.   public
  87.     { Public declarations }
  88.   end;
  90. var
  91.   am_ajyj: Tam_ajyj;
  93. implementation
  94. uses dms,u_public,am_gdajs;
  95. {$R *.dfm}
  96. procedure Tam_ajyj.FormClose(Sender: TObject; var Action: TCloseAction);
  97. begin
  98.   action:=cafree;
  99.   am_ajyj:=Nil;
  100. end;
  101. //******************************************************************************
  102. procedure Tam_ajyj.FormCreate(Sender: TObject);
  103. begin
  104.   dbediteh2.Text:=formatdatetime('yyyy-mm-dd',now);
  105. end;
  107. procedure Tam_ajyj.SpeedButton4Click(Sender: TObject);
  108. begin
  109.  Close;
  110. end;
  112. procedure Tam_ajyj.SpeedButton1Click(Sender: TObject);
  113. var i,j:integer;
  114.     s:string;
  115. begin
  116.   if dbedit8.Text='' then
  117.    begin
  118.      application.MessageBox('接收单位不能为空','提示',mb_ok+mb_iconinformation);
  119.    end;
  120.     if dbedit10.Text='' then
  121.    begin
  122.      application.MessageBox('移交单位不能为空','提示',mb_ok+mb_iconinformation);
  123.    end;
  124.    if dbedit12.Text='' then
  125.    begin
  126.      application.MessageBox('移交人不能为空','提示',mb_ok+mb_iconinformation);
  127.    end;
  128.    dm.Am_Ajyj.FieldByName('ajyj_yjrq').AsString:=dbediteh2.Text;
  129.    dm.Am_Ajyj.FieldByName('aj_xh').AsString:=dm.V_ajgd.fieldbyname('aj_xh').AsString;
  130.    i:=dm.Am_Ajyj.ApplyUpdates(0);
  131.   if i=0 then
  132.    begin
  133.      application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  134.      close;
  135.    end
  136.    else
  137.    begin
  138.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  139.      exit;
  140.    end;
  141.  //----------将案卷状态改变
  142.   s:=dm.v_ajgd.fieldbyname('aj_xh').AsString;
  143.   dm.V_ajgd.Close;
  144.   dm.V_ajgd.CommandText:='update v_ajgd set ajzt_mc=''移出案卷'',kw_dm=Null where aj_xh='+''''+s+''''+'';
  145.   dm.V_ajgd.Execute;
  146.   dm.V_AJGD.Close;
  147.   dm.v_ajgd.CommandText:='select * from v_Ajgd where ajlb_dm='+''''+gdaj_s2+''''+'';
  148.   dm.v_ajgd.Open;//案卷归档管理  
  149. end;
  151. end.