frm_set.pas

一个地方税务征收管理系统

unit frm_set;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, Mask, DBCtrlsEh, DBLookupEh, Grids,
  DBGridEh, dialogs, CheckLst, ComCtrls;

type
  Tsys_set = class(TForm)
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    e_dw: TEdit;
    CheckBox1: TCheckBox;
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sys_set: Tsys_set;

implementation

uses DB, ADODB, u_dm, RICH_SYS, u_main;

{$R *.dfm}

procedure Tsys_set.BitBtn5Click(Sender: TObject);
var
  s: string;
begin
  dm1.EXE_SQL('p_update_dw ' + string_sqlText(e_dw.Text));
  if CheckBox1.Checked then
    s := 'YES'
  else
    s := 'NO';
  dm1.EXE_SQL('p_update_gride_load ' + string_sqlText(s));
  main.Load_grid_enable := CheckBox1.Checked;
  close;
end;

procedure Tsys_set.BitBtn4Click(Sender: TObject);
begin
  close;
end;

end.