Category

Development Platform
Home > SourceCode/Document > Delphi VCL > View Code
Am_AJJDs.~pas
Package: 挡案管理系统.rar　[view]
Upload User: szruida
Upload Date: 2007-06-01
Package Size: 6518k
Code Size: 3k
Category:

Delphi VCL

Development Platform:

Delphi

Am_AJJDs.~pas：Code Content
  1. unit Am_AJJDs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, DB, StdCtrls, Mask, DBCtrls, Buttons, DBCtrlsEh;
  9. type
  10.   TAm_AJJD = class(TForm)
  11.     Panel1: TPanel;
  12.     Label1: TLabel;
  13.     DataSource1: TDataSource;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     Label4: TLabel;
  17.     DBEdit4: TDBEdit;
  18.     DBMemo1: TDBMemo;
  19.     DBMemo2: TDBMemo;
  20.     btn_save: TSpeedButton;
  21.     btn_quit: TSpeedButton;
  22.     DBEditEh1: TDBEditEh;
  23.     procedure btn_quitClick(Sender: TObject);
  24.     procedure btn_saveClick(Sender: TObject);
  25.     procedure FormCreate(Sender: TObject);
  26.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  27.     procedure DBMemo1KeyDown(Sender: TObject; var Key: Word;
  28.       Shift: TShiftState);
  29.     procedure DBMemo1KeyPress(Sender: TObject; var Key: Char);
  30.     procedure DBMemo2KeyDown(Sender: TObject; var Key: Word;
  31.       Shift: TShiftState);
  32.     procedure DBMemo2KeyPress(Sender: TObject; var Key: Char);
  33.   private
  34.     { Private declarations }
  35.   public
  36.     { Public declarations }
  37.   end;
  39. var
  40.   Am_AJJD: TAm_AJJD;
  42. implementation
  44. uses DMs, Am_Ajxhs, mainfrms;
  46. {$R *.dfm}
  48. procedure TAm_AJJD.btn_quitClick(Sender: TObject);
  49. begin
  50.   close;
  51. end;
  53. procedure TAm_AJJD.btn_saveClick(Sender: TObject);
  54. var i:integer;
  55. begin
  56.    dm.am_ajxh.Edit;
  57.    dm.am_ajxh.FieldByName('ajxh_jdrq').AsString:=dbediteh1.Text;
  58.    dm.am_ajxh.FieldByName('aj_xh').AsString:=dm.V_ajgl_dxh.fieldbyname('aj_xh').AsString;
  59.    dm.am_ajxh.ApplyUpdates(0);
  60.    i:=dm.am_ajxh.ApplyUpdates(0);
  61.    if i=0 then
  62.     begin
  63.        application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  64.        am_ajxh.toolbutton2.enabled:=true;
  65.        close;
  66.     end
  67.    else
  68.     begin
  69.       application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  70.       close;
  71.     end
  72. end;
  74. procedure TAm_AJJD.FormCreate(Sender: TObject);
  75. begin
  76.   dbediteh1.Text:=formatdatetime('yyyy-mm-dd',now);
  77. end;
  79. procedure TAm_AJJD.FormClose(Sender: TObject; var Action: TCloseAction);
  80. begin
  81.   action:=cafree;
  82.   am_ajjd:=nil;
  83. end;
  85. procedure TAm_AJJD.DBMemo1KeyDown(Sender: TObject; var Key: Word;
  86.   Shift: TShiftState);
  87. begin
  88.   mainfrm.keydown(dbMemo1);
  89. end;
  91. procedure TAm_AJJD.DBMemo1KeyPress(Sender: TObject; var Key: Char);
  92. begin
  93.  mainfrm.KeyPress(DbMemo1);
  94. end;
  96. procedure TAm_AJJD.DBMemo2KeyDown(Sender: TObject; var Key: Word;
  97.   Shift: TShiftState);
  98. begin
  99.  mainfrm.keydown(dbMemo2);
  100. end;
  102. procedure TAm_AJJD.DBMemo2KeyPress(Sender: TObject; var Key: Char);
  103. begin
  104.  mainfrm.KeyPress(DbMemo2);
  105. end;
  107. end.