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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 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 FormClose(Sender: TObject; var Action: TCloseAction);
  68.     procedure SpeedButton1Click(Sender: TObject);
  69.     procedure SpeedButton2Click(Sender: TObject);
  70.     procedure SpeedButton3Click(Sender: TObject);
  71.   private
  72.     { Private declarations }
  73.   public
  74.     { Public declarations }
  75.   end;
  77. var
  78.   Am_Ajtz: TAm_Ajtz;
  80. implementation
  82. uses DMs, am_ajlb_xzs;
  84. {$R *.dfm}
  85. procedure TAm_Ajtz.FormClose(Sender: TObject; var Action: TCloseAction);
  86. begin
  87.   action:=cafree;
  88.   am_ajtz:=nil;
  89. end;
  91. procedure TAm_Ajtz.SpeedButton1Click(Sender: TObject);
  92. begin
  93.  if am_ajlb_xz=Nil then
  94.   begin
  95.     am_ajlb_xz:=Tam_ajlb_xz.create(application);
  96.     am_ajlb_xz.showmodal;
  97.   end;
  98. end;
  100. procedure TAm_Ajtz.SpeedButton2Click(Sender: TObject);
  101. var s_kwdm,s2,zcg_s:string;
  102. begin
  103.  zcg_s:=dm.Am_ajgl.fieldbyname('aj_xh').AsString;//取当前序号
  104.  s2:=dm.Am_ajgl.fieldbyname('ajlb_dm').AsString;//当前树节点的案卷类别代码
  105.  dm.am_ajgl.Edit;
  106.  if dm.Am_ajgl.ApplyUpdates(0)=0 then
  107.   begin
  108.     application.MessageBox('案卷调整成功','提示',mb_ok+mb_iconinformation);
  109.     dm.Am_ajgl.Close;
  110.     dm.am_ajgl.CommandText:='select * from am_ajgl';
  111.     dm.am_ajgl.Open;
  112.     dm.V_AJGD.Close;
  113.     dm.V_AJGD.CommandText:='select * from v_Ajgd where ajlb_dm='+''''+s2+''''+'';
  114.     dm.v_ajgd.Open;
  115.     close;
  116.   end
  117.  else
  118.   begin
  119.    application.MessageBox('案卷调整失败','提示',mb_ok+mb_iconinformation);
  120.    exit;
  121.   end;
  122. end;
  124. procedure TAm_Ajtz.SpeedButton3Click(Sender: TObject);
  125. begin
  126. Close; 
  127. end;
  129. end.