uinfounit.pas

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

unit Uinfounit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, RzCmboBx,uconst;

type
  TFm_unit = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Ed_no: TEdit;
    Ed_name: TEdit;
    Ed_level: TEdit;
    Ed_principal: TEdit;
    Ed_addr: TEdit;
    Ed_post: TEdit;
    Ed_phone: TEdit;
    Ed_fax: TEdit;
    Ed_http: TEdit;
    Ed_bank: TEdit;
    Ed_accountname: TEdit;
    Ed_account: TEdit;
    Button1: TButton;
    Label14: TLabel;
    Memo_remark: TMemo;
    But_exit: TButton;
    But_create: TButton;
    But_save: TButton;
    RzComboBox1: TRzComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure But_exitClick(Sender: TObject);
    procedure But_saveClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure But_createClick(Sender: TObject);
    procedure Ed_nameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    createed:boolean;
  end;

var
  Fm_unit: TFm_unit;

implementation
uses udm1,ufunction,uselectlevel;
{$R *.dfm}

procedure TFm_unit.FormCreate(Sender: TObject);
begin
 with dm1.unitquery do
 begin
  sql.Clear ;
  sql.Add('select u_NO,U_name from info_unit order by u_NO');
  open;
  while not eof do
  begin
  rzcombobox1.Items.Add(fieldbyname('U_NO').AsString +BOXSIGN+fieldbyname('U_NAME').AsString);
  next;
  end;
 end;
 createed:=true;
 but_save.Enabled :=false;
end;

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

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

procedure TFm_unit.But_saveClick(Sender: TObject);
var
left,rigth:string;
begin
  if ed_no.Text='' then
  begin
   application.MessageBox('编号不能为空!','提示',64);
   exit;
  end;
  if  cleftstr(rzcombobox1.text,BOXSIGN,left,rigth) =0 then
      left:='0';
  if ed_no.Text =left then
  begin
   application.MessageBox('上级不能是自已!','提示',64);
   exit;
  end;
if createed then
begin
   with dm1.tempquery  do
   begin
    sql.clear;
    sql.add('select u_no from info_unit where u_no='''+ed_no.Text+'''');
    open;
    if recordcount>0 then
    begin
     application.MessageBox('编号有重复!','提示',64);
     exit;
    end;
    close;
   end;
  with dm1.ADOQuery1 do
  begin
    sql.clear;
    sql.add('select * from info_unit where u_no=''0''');
    open;
    append;
    fieldbyname('higherUp_No').AsString :=left;
    fieldbyname('u_no').AsString :=ed_no.Text;
    fieldbyname('u_name').AsString:=ed_name.Text ;
    fieldbyname('u_level').AsString:=ed_level.Text ;
    fieldbyname('u_principal').AsString:= ed_principal.Text;
    fieldbyname('U_addr').AsString:= ed_addr.Text ;
    fieldbyname('u_post').AsString :=ed_post.Text ;
    fieldbyname('U_phone').AsString:=ed_phone.Text ;
    fieldbyname('u_fax').AsString :=ed_fax.Text;
    fieldbyname('U_http').AsString:= ed_http.Text;
    fieldbyname('u_bankname').AsString:= ed_bank.Text;
    fieldbyname('U_accountname').AsString :=ed_accountname.Text;
    fieldbyname('u_bankaccount').AsString:= ed_account.Text ;
    fieldbyname('u_remark').asstring:=memo_remark.Text ;
   post;
  end;
end
else
 with dm1.ADOQuery1 do
 begin
  edit;
    fieldbyname('higherUp_No').AsString :=left;
    fieldbyname('u_name').AsString:=ed_name.Text ;
    fieldbyname('u_level').AsString:=ed_level.Text ;
    fieldbyname('u_principal').AsString:= ed_principal.Text;
    fieldbyname('U_addr').AsString:= ed_addr.Text ;
    fieldbyname('u_post').AsString :=ed_post.Text ;
    fieldbyname('U_phone').AsString:=ed_phone.Text ;
    fieldbyname('u_fax').AsString :=ed_fax.Text;
    fieldbyname('U_http').AsString:= ed_http.Text;
    fieldbyname('u_bankname').AsString:= ed_bank.Text;
    fieldbyname('U_accountname').AsString :=ed_accountname.Text;
   fieldbyname('u_bankaccount').AsString:= ed_account.Text ;
   fieldbyname('u_remark').asstring:=memo_remark.Text ;
  post;
 end;
createed:=false;
but_save.Enabled :=false;
end;

procedure TFm_unit.Button1Click(Sender: TObject);
begin
 if not assigned(fm_selectLevel) then
  begin
    fm_selectLevel:=Tfm_selectLevel.Create(nil);
  end
  else
    begin
     fm_selectLevel.WindowState :=wsNormal;
     fm_selectLevel.BringToFront;
    end;
end;

procedure TFm_unit.But_createClick(Sender: TObject);
begin
close;
   if not assigned(Fm_unit) then
  begin
    Fm_unit:=TFm_unit.Create(nil);
    fm_unit.Show ;
  end
  else
    begin
     Fm_unit.WindowState :=wsNormal;
     Fm_unit.BringToFront;
    end;
end;

procedure TFm_unit.Ed_nameChange(Sender: TObject);
begin
but_save.Enabled :=true;
end;

end.