uunitlevel.pas

专项拨款逐级下发系统的主要功能：对专项拨款申请系统审批通过的专项拨款进行资金下发和签收

unit UunitLevel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask;

type
  TFm_Level = class(TForm)
    GroupBox1: TGroupBox;
    Label2: TLabel;
    But_save: TButton;
    But_create: TButton;
    But_exit: TButton;
    Label1: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBMemo1: TDBMemo;
    procedure But_createClick(Sender: TObject);
    procedure But_exitClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure But_saveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit2Change(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
    edited:boolean;
    added:boolean;
    deled:boolean;
  end;

var
  Fm_Level: TFm_Level;

implementation
uses udm1;
{$R *.dfm}

procedure TFm_Level.But_createClick(Sender: TObject);
begin
  if not dm1.levelquery.Active  then
   begin
    application.MessageBox('数据集已关闭,不能删除!','确认',64);
    exit;
   end;
    if application.MessageBox('请慎重!是否确认删除当前记录!','确认',MB_YESNO+MB_ICONQUESTION)=IDYES then
     if not deled then
      begin
       dm1.levelquery.Delete;
       deled:=true;
       edited:=false;
       self.Close ;
      end;
end;

procedure TFm_Level.But_exitClick(Sender: TObject);
begin
close;
end;

procedure TFm_Level.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:= caFree;
 Fm_Level:=nil;
end;

procedure TFm_Level.But_saveClick(Sender: TObject);
begin
 if dbedit2.Text ='' then
  begin
   application.MessageBox('名称不能为空!','提示',64);
   exit;
  end;
     if edited then
     begin
       if added then
       added:=false;
       edited:=false;
       but_save.Enabled :=false;
       self.Close;
    end;
end;

procedure TFm_Level.FormCreate(Sender: TObject);
begin
    if dm1.levelquery.Active   then
   begin
     edited:=false;
     added:=true;
     deled :=false;
   end;
   but_save.Enabled :=false;
end;

procedure TFm_Level.DBEdit2Change(Sender: TObject);
begin
  edited:=true;
  but_save.Enabled:=true;
end;

procedure TFm_Level.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if (dm1.levelquery.Active) and (not deled) then
begin
  if edited then
  begin
   if application.MessageBox('是否保存资料!','确认',MB_YESNO+MB_ICONQUESTION)=IDYES then
     begin
        with dm1.levelquery do
        begin
         post;
        end;
     end
     else
     dm1.levelquery.Cancel;
  end
  else
  begin
    if not added then
      with dm1.levelquery do
      begin
       post;
      end;
   end;
end;
end;

end.