jgyhwldwgl.pas

ProviceSystem-公积金监管系统中心端

unit JGYhWldwGL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ImgList, ToolWin, ExtCtrls, Db, ADODB, Grids, DBGrids, StdCtrls,
  Buttons;

type
  TFormYhWldwGL = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ImageList1: TImageList;
    StatusBar1: TStatusBar;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    ImageList2: TImageList;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Panel1: TPanel;
    Panel4: TPanel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox2: TComboBox;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    ToolButton1: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure ToolButton9Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
  private
    { Private declarations }
    isAdd: Boolean;
    dwmc,dwzh:string;
    gzcd:smallint;
    function RDcount:string;
  public
    { Public declarations }
  end;

var
  FormYhWldwGL: TFormYhWldwGL;

implementation

{$R *.dfm}
uses uDMFunc, uUserFunc, uConstUtils;

function TFormYhWldwGL.RDcount:string;
var
  str1:string;
  iCount: Integer;
begin
  iCount := 0;
  str1 := '';
  iCount := CommonQuery('select count(*) ct from bm_ywdwb where gzcd=0');
  str1:= ' 不关注: '+inttostr(iCount)+' 个, ';
  iCount := CommonQuery('select count(*) ct from bm_ywdwb where gzcd=1');
  str1:=str1 + ' 一般关注: '+inttostr(iCount)+' 个, ';
  iCount := CommonQuery('select count(*) ct from bm_ywdwb where gzcd=2');
  str1:=str1 + ' 高度关注: '+inttostr(iCount)+' 个, ';
  iCount := CommonQuery('select count(*) ct from bm_ywdwb where gzcd=3');
  str1:=str1 + ' 严重关注: '+inttostr(iCount)+' 个 ';
  Result := str1;
end;

procedure TFormYhWldwGL.ToolButton3Click(Sender: TObject);
begin
  close;
end;

procedure TFormYhWldwGL.ToolButton5Click(Sender: TObject);
var
  sDwmc,sDwzh :string;
  nGzcd:smallint;
begin
  if Application.MessageBox('是否要删除当前记录？',PMsgCaption,36)=7 then
    exit;
  FillOneYwdwRec(sDwmc,sDwzh,nGzcd);
  if DelYwdw(sDwmc,sDwzh)=0 then
  begin
    OpenYwdw('','',-1,DBGrid1);
    Application.MessageBox('删除成功',PMsgCaption,64);
  end
  else
    Application.MessageBox('删除失败！',PMsgCaption,48);
//  StatusBar1.Panels[0].Text:='业务往来单位关注信息： '+ RDcount;
end;

procedure TFormYhWldwGL.ToolButton6Click(Sender: TObject);
var
  sDwmc,sDwzh :string;
  nGzcd:smallint;
begin
  isAdd:= False;
  toolbutton7.Enabled:=true;
  toolbutton10.Enabled:=true;
  FillOneYwdwRec(sDwmc,sDwzh,nGzcd);
  edit1.Enabled := false;
  edit2.Enabled := false;
  edit1.Text:= sDwmc;
  edit2.Text:= sDwzh;
  ComboBox2.ItemIndex:= nGzcd;
//  StatusBar1.Panels[0].Text:='业务往来单位关注信息： '+ RDcount;
end;

procedure TFormYhWldwGL.ToolButton7Click(Sender: TObject);
var
  sDwmc,sDwzh :string;
  nGzcd:smallint;
begin
  if trim(edit1.Text)='' then
  begin
    showmessage('单位名称不能为空，请输入！');
    exit;
  end;
  if trim(edit2.Text)='' then
  begin
    showmessage('单位帐号不能为空，请输入！');
    exit;
  end;
  if ComboBox2.ItemIndex < 0 then
  begin
    showmessage('关注程度不能为空，请选择！');
    exit;
  end;
  sDwmc:= trim(edit1.Text);
  sDwzh:= trim(edit2.Text);
  nGzcd:= combobox2.ItemIndex;
  if isAdd then
    if IsExistYwdw(sDwmc,sDwzh) then
    begin
      Application.MessageBox('此记录已经存在，请更换！',PMsgCaption,64);
      Edit1.SetFocus;
      exit;
    end;
  if SaveYwdw(sDwmc,sDwzh,nGzcd)=0 then
    begin
      OpenYwdw('','',-1,DBGrid1);
      edit1.Text:='';
      edit2.Text:='';
      combobox2.ItemIndex:=-1;
      ToolButton10.Click;
      Application.MessageBox('存盘成功',PMsgCaption,64);
    end
  else
      Application.MessageBox('存盘失败！',PMsgCaption,48);

//  StatusBar1.Panels[0].Text:='业务往来单位关注信息： '+ RDcount;
end;

procedure TFormYhWldwGL.ToolButton1Click(Sender: TObject);
begin
  isAdd := True;
  edit1.Enabled:=true;
  edit2.Enabled:=true;
  DBGrid1.Enabled := False;
  edit1.SetFocus;
  toolbutton7.Enabled:=true;
  toolbutton10.Enabled:=true;
end;

procedure TFormYhWldwGL.ToolButton2Click(Sender: TObject);
var
  nGzcd: smallint;
begin
  nGzcd:= combobox2.ItemIndex;
  DrYwdw();
  OpenYwdw('','',nGzcd,DBGrid1);
end;

procedure TFormYhWldwGL.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not(key in ['0'..'9']) and (key <> #8) then
    key:= char(0);
end;

procedure TFormYhWldwGL.ToolButton9Click(Sender: TObject);
var
  nGzcd: smallint;
begin
  nGzcd:= combobox2.ItemIndex;
  OpenYwdw('','',nGzcd,DBGrid1);
end;

procedure TFormYhWldwGL.FormCreate(Sender: TObject);
begin
  OpenYwdw('','',-1,DBGrid1);
//  StatusBar1.Panels[0].Text:='业务往来单位关注信息： '+ RDcount;
end;

procedure TFormYhWldwGL.ToolButton10Click(Sender: TObject);
begin
  ToolButton7.Enabled:=false;
  ToolButton10.Enabled:=false;
  edit1.Enabled:=false;
  edit2.Enabled:=false;
  DBGrid1.Enabled := True;
end;

end.