uselectlevel.~pas

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

unit Uselectlevel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids;

type
  Tfm_selectLevel = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Ed_levelname: TEdit;
    Ed_LID: TEdit;
    DBGrid1: TDBGrid;
    But_query: TButton;
    But_select: TButton;
    But_creat: TButton;
    procedure But_queryClick(Sender: TObject);
    procedure But_creatClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure But_selectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_selectLevel: Tfm_selectLevel;

implementation
uses udm1,uunitlevel, Umain;
{$R *.dfm}

procedure Tfm_selectLevel.But_queryClick(Sender: TObject);
begin
with dm1.levelquery do
 begin
  sql.Clear;
  sql.Add('select * from unit_level where level_name like ''%'+ed_levelname.Text+'%'' ');
  if ed_LID.Text <>'' then
   begin
    sql.Add(' and LID='+ed_lid.Text); 
   end;
  open;
 end;
end;

procedure Tfm_selectLevel.But_creatClick(Sender: TObject);
begin
 if dm1.levelquery.Active then
 dm1.levelquery.Append;
 if not assigned(Fm_Level) then
  begin
    Fm_Level:=TFm_Level.Create(nil);
    fm_level.Show;
  end
  else
    begin
     Fm_Level.WindowState :=wsNormal;
     Fm_Level.BringToFront;
    end;
end;

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

procedure Tfm_selectLevel.DBGrid1CellClick(Column: TColumn);
begin
ed_lid.Text :=dbgrid1.Fields[0].AsString;
ed_levelname.Text :=dbgrid1.Fields[1].AsString ;
end;

procedure Tfm_selectLevel.DBGrid1DblClick(Sender: TObject);
begin
 if dm1.levelquery.Active then
    dm1.levelquery.Edit;
 if not assigned(Fm_Level) then
  begin
    Fm_Level:=TFm_Level.Create(nil);
    fm_level.Show;
  end
  else
    begin
     Fm_Level.WindowState :=wsNormal;
     Fm_Level.BringToFront;
    end;
end;

procedure Tfm_selectLevel.But_selectClick(Sender: TObject);
begin
levelno:=ed_lID.text;
postmessage(mainfm.Handle,CM_MYSHOW,0,0);
close;
end;

end.