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

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

Delphi控件源码

开发平台：

Delphi

am_jygzs.~pas：源码内容
  1. unit am_jygzs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, StdCtrls, Buttons, ExtCtrls, DBCtrlsEh, Mask, DBCtrls;
  9. type
  10.   Tam_jygz = class(TForm)
  11.     Panel1: TPanel;
  12.     SpeedButton1: TSpeedButton;
  13.     SpeedButton2: TSpeedButton;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     Label5: TLabel;
  19.     Label6: TLabel;
  20.     DataSource1: TDataSource;
  21.     DBComboBoxEh1: TDBComboBoxEh;
  22.     DBEditEh3: TDBEditEh;
  23.     SpeedButton3: TSpeedButton;
  24.     SpeedButton4: TSpeedButton;
  25.     DBNavigator1: TDBNavigator;
  26.     Label7: TLabel;
  27.     DBNumberEditEh1: TDBNumberEditEh;
  28.     DBNumberEditEh2: TDBNumberEditEh;
  29.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure SpeedButton1Click(Sender: TObject);
  32.     procedure SpeedButton3Click(Sender: TObject);
  33.     procedure SpeedButton4Click(Sender: TObject);
  34.     procedure SpeedButton2Click(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  41. var
  42.   am_jygz: Tam_jygz;
  44. implementation
  45. uses dms, xt_yhz_ms;
  46. {$R *.dfm}
  48. procedure Tam_jygz.FormClose(Sender: TObject; var Action: TCloseAction);
  49. begin
  50.   action:=cafree;
  51.   am_jygz:=nil;
  52. end;
  54. procedure Tam_jygz.FormCreate(Sender: TObject);
  55. begin
  56.  dm.am_jygl.Active:=false;
  57.  dm.am_jygz.Active:=true;
  58. end;
  60. procedure Tam_jygz.SpeedButton1Click(Sender: TObject);
  61. var i:integer;
  62. begin
  63.    if dbediteh3.Text='' then
  64.     begin
  65.       application.MessageBox('借阅级别不能为空','提示',mb_ok+mb_iconinformation);
  66.     end;
  67.    Dm.am_jygz.ApplyUpdates(0);
  68.    i:=Dm.am_jygz.ApplyUpdates(0);
  69.    if i=0 then
  70.    begin
  71.       application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  72.       dm.am_jygz.Close;
  73.       dm.am_jygz.CommandText:='select * from am_jygz';
  74.       dm.am_jygz.Open;
  75.    end
  76.    else
  77.    begin
  78.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  79.      exit;
  80.    end;
  81. end;
  83. procedure Tam_jygz.SpeedButton3Click(Sender: TObject);
  84. begin
  85.  dm.am_jygz.Append;
  86. end;
  88. procedure Tam_jygz.SpeedButton4Click(Sender: TObject);
  89. begin
  90.  dm.am_jygz.edit;
  91. end;
  93. procedure Tam_jygz.SpeedButton2Click(Sender: TObject);
  94. begin
  95.   close;
  96. end;
  98. end.