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

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

Delphi控件源码

开发平台：

Delphi

am_ajbj_rks.pas：源码内容
  1. unit am_ajbj_rks;
  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_ajgl_rk = 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.     DBEditEh2: TDBEditEh;
  59.     DBEditEh6: TDBEditEh;
  60.     DBLookupComboboxEh4: TDBLookupComboboxEh;
  61.     ImageList1: TImageList;
  62.     ds_ajgl: TDataSource;
  63.     Save: TSpeedButton;
  64.     Dele: TSpeedButton;
  65.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  66.     procedure SaveClick(Sender: TObject);
  67.     procedure DeleClick(Sender: TObject);
  68.   private
  69.     { Private declarations }
  70.   public
  71.     { Public declarations }
  72.   end;
  74. var
  75.   am_ajgl_rk: Tam_ajgl_rk;
  77. implementation
  79. uses DMs, Am_gdajs;
  81. {$R *.dfm}
  83. procedure Tam_ajgl_rk.FormClose(Sender: TObject; var Action: TCloseAction);
  84. begin
  85.   action:=cafree;
  86.   am_ajgl_rk:=nil;
  87. end;
  88. procedure Tam_ajgl_rk.SaveClick(Sender: TObject);
  89. var s_kwdm,s_kwmc,s2,zcg_s:string;
  90. begin
  91.  zcg_s:=dm.Am_ajgl.fieldbyname('aj_xh').AsString;//取当前序号
  92.  s2:=dm.Am_ajgl.fieldbyname('ajlb_dm').AsString;//当前树节点的案卷类别代码
  93.   if dblookupcomboboxeh4.Text='' then
  94.     begin
  95.       application.MessageBox('请选择库位','提示',mb_ok+mb_iconinformation);
  96.       exit;
  97.     end;
  98.   s_kwdm:=dblookupcomboboxeh4.Value;//库位代码
  99.   s_kwmc:=dbLookUPComboboxeh4.text;//库位名称
  100.   dm.am_ajgl.Close;
  101.   dm.am_ajgl.CommandText:='update am_ajgl set ajzt_mc=''入库案卷'',aj_bzjsrq=getdate(),kw_dm='+''''+s_kwdm+''''+',aj_kwmc='+''''+s_kwmc+''''+' where aj_xh='+''''+zcg_s+''''+'';
  102.   dm.Am_ajgl.Execute;
  103.   dm.Am_ajgl.Close;
  104.   dm.am_ajgl.CommandText:='select * from am_ajgl';
  105.   dm.am_ajgl.Open;
  106.   application.MessageBox('入库成功','提示',mb_ok+mb_iconinformation);
  107.   dm.V_AJGD.Close;
  108.   dm.V_AJGD.CommandText:='select * from v_Ajgd where ajlb_dm='+''''+s2+''''+'';
  109.   dm.v_ajgd.Open;
  110.   close;
  111. end;
  113. procedure Tam_ajgl_rk.DeleClick(Sender: TObject);
  114. begin
  115.  Close;
  116. end;
  118. end.