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

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

Delphi控件源码

开发平台：

Delphi

Am_Ajtzs.~pas：源码内容
  1. unit Am_Ajtzs;
  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_Ajtz = 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.     ImageList1: TImageList;
  61.     ds_ajgl: TDataSource;
  62.     DBLookupComboboxEh4: TDBLookupComboboxEh;
  63.     SpeedButton1: TSpeedButton;
  64.     DBEditEh7: TDBEditEh;
  65.     SpeedButton2: TSpeedButton;
  66.     SpeedButton3: TSpeedButton;
  67.     procedure QuitClick(Sender: TObject);
  68.     procedure SaveClick(Sender: TObject);
  69.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  70.     procedure SpeedButton1Click(Sender: TObject);
  71.     procedure SpeedButton2Click(Sender: TObject);
  72.     procedure SpeedButton3Click(Sender: TObject);
  73.   private
  74.     { Private declarations }
  75.   public
  76.     { Public declarations }
  77.   end;
  79. var
  80.   Am_Ajtz: TAm_Ajtz;
  82. implementation
  84. uses DMs, am_ajlb_xzs;
  86. {$R *.dfm}
  87. procedure TAm_Ajtz.FormClose(Sender: TObject; var Action: TCloseAction);
  88. begin
  89.   action:=cafree;
  90.   am_ajtz:=nil;
  91. end;
  93. procedure TAm_Ajtz.SpeedButton1Click(Sender: TObject);
  94. begin
  95.  if am_ajlb_xz=Nil then
  96.   begin
  97.     am_ajlb_xz:=Tam_ajlb_xz.create(application);
  98.     am_ajlb_xz.showmodal;
  99.   end;
  100. end;
  102. procedure TAm_Ajtz.SpeedButton2Click(Sender: TObject);
  103. var s_kwdm,s2,zcg_s:string;
  104. begin
  105.  zcg_s:=dm.Am_ajgl.fieldbyname('aj_xh').AsString;//取当前序号
  106.  s2:=dm.Am_ajgl.fieldbyname('ajlb_dm').AsString;//当前树节点的案卷类别代码
  107.  dm.am_ajgl.Edit;
  108.  if dm.Am_ajgl.ApplyUpdates(0)=0 then
  109.   begin
  110.     application.MessageBox('案卷调整成功','提示',mb_ok+mb_iconinformation);
  111.     dm.Am_ajgl.Close;
  112.     dm.am_ajgl.CommandText:='select * from am_ajgl';
  113.     dm.am_ajgl.Open;
  114.     dm.V_AJGD.Close;
  115.     dm.V_AJGD.CommandText:='select * from v_Ajgd where ajlb_dm='+''''+s2+''''+'';
  116.     dm.v_ajgd.Open;
  117.     close;
  118.   end
  119.  else
  120.   begin
  121.    application.MessageBox('案卷调整失败','提示',mb_ok+mb_iconinformation);
  122.    exit;
  123.   end;
  124. end;
  126. procedure TAm_Ajtz.SpeedButton3Click(Sender: TObject);
  127. begin
  128. Close; 
  129. end;
  131. end.