urw_wizard.pas

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

unit urw_wizard;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, dbgridehimpexp, ExtCtrls, dialogs, Grids, DBGridEh, Menus, ComCtrls,
  Mask,
  DBCtrls;

type
  Trw_wizard = class(TForm)
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DBGridEh2: TDBGridEh;
    Label1: TLabel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Label7: TLabel;
    DBEdit6: TDBEdit;
    Label8: TLabel;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    Label6: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label12: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    DBEdit1: TDBEdit;
    Label17: TLabel;
    DBEdit2: TDBEdit;
    GroupBox1: TGroupBox;
    Label18: TLabel;
    DBEdit11: TDBEdit;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label19: TLabel;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    GroupBox4: TGroupBox;
    ProgressBar1: TProgressBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn5: TBitBtn;
    SaveDialog1: TSaveDialog;
    TabSheet1: TTabSheet;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    Panel3: TPanel;
    Button1: TButton;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rw_wizard: Trw_wizard;

implementation

uses DB, uacount_new, u_dm, ADODB, u_main, RICH_SYS, uwizard_edit1,
  uwizard_edit2, uwizard_edit3, ushe, urw_edit;

{$R *.dfm}

procedure Trw_wizard.N1Click(Sender: TObject);
var
  s: string;
begin
  if InputQuery('帐套更名', '请输入新的帐套名称：', s) then
  begin
    if s <> '' then
    begin
      dm1.a_acount.Edit;
      dm1.a_acount.FieldByName('a_name').AsString := s;
      dm1.a_acount.Post;
    end;
  end;
end;

procedure Trw_wizard.N2Click(Sender: TObject);
var
  s: string;
begin
  if InputQuery('修改密码', '请输入新的帐套密码：', s) then
  begin
    if s <> '' then
    begin
      dm1.a_acount.Edit;
      dm1.a_acount.FieldByName('a_password').AsString := s;
      dm1.a_acount.Post;
    end;
  end;

end;

procedure Trw_wizard.N5Click(Sender: TObject);
var
  s: string;
begin
  if InputQuery('修改备注', '请输入新备注：', s) then
  begin
    if s <> '' then
    begin
      dm1.a_acount.Edit;
      dm1.a_acount.FieldByName('discript').AsString := s;
      dm1.a_acount.Post;
    end;
  end;

end;

procedure Trw_wizard.N7Click(Sender: TObject);

begin
  {
   if InputQuery('管理员密码', '请输入新的管理员密码：', s) then
   begin
     if s <> '' then
     begin
       with dm1.Q_TEMP do
       begin
         dm1.Open_temp('select * from cw_dict where 项目=' + '''' + 'admin' +
           '''');
         if dm1.Q_TEMP.RecordCount > 0 then
           Edit
         else
         begin
           Insert;
           FieldByName('项目').AsString := 'admin';
         end;
         FieldByName('值').AsString := s;
         Post;
       end;
     end;
   end;
   }
end;

procedure Trw_wizard.CancelBtnClick(Sender: TObject);
begin
  close;
end;

procedure Trw_wizard.FormCreate(Sender: TObject);
var
  s: string;
begin
  with dm1.A_acount do
  begin
    close;
    Open;
    Locate('acount_id', StrToInt(main.Acount_id), []);
    edit;
    s := 'exec p_getsum_td ' + main.Acount_id + ',''%''';
    FieldByName('td').AsString := dm1.Get_data(s);
    s := 'exec p_getsum_rq ' + main.Acount_id + ',''%''';
    FieldByName('rq').AsString := dm1.Get_data(s);
    s := 'exec p_getsum_ldl ' + main.Acount_id + ',''%''';
    FieldByName('ldl').AsString := dm1.Get_data(s);
    Post;
  end;

  //  main.add_tv(treeview1);

  with dm1.A_rw_she do
  begin
    close;
    Parameters.ParamByName('acount_id').Value := StrToInt(main.Acount_id);
    Open;
  end;
end;

procedure Trw_wizard.BitBtn1Click(Sender: TObject);
begin
  with dm1.A_acount do
  begin
    if state in [dsedit] then post;
  end;
  dm1.EXE_SQL('exec p_calc_she ' + main.Acount_id);
  MessageDlg('计算完成！', mtWarning, [mbok], 0);
  dm1.A_rw_she.Requery();

end;

procedure Trw_wizard.Button4Click(Sender: TObject);
var
  t: Twizard_edit1;
begin
  t := Twizard_edit1.Create(self);
  t.ShowModal;
end;

procedure Trw_wizard.Button5Click(Sender: TObject);
var
  t: Twizard_edit2;
begin
  t := Twizard_edit2.Create(self);
  t.Show;

end;

procedure Trw_wizard.Button6Click(Sender: TObject);
var
  t: Twizard_edit3;
begin
  t := Twizard_edit3.Create(self);
  t.Show;
end;

procedure Trw_wizard.BitBtn2Click(Sender: TObject);
var
  s: string;
  max, p: Integer;
begin
  Caption := '正在计算，请稍候...';
  with dm1.A_rw_she do
  begin
    max := RecordCount;
    p := 0;
    DisableControls;
    first;
    while not eof do
    begin
      p := p + 1;
      p := round(100 / max * p * 100);
      Caption := '正在计算 ' + fieldbyname('she_no').asstring +
        ' 请稍候...';
      ProgressBar1.Position := p;
      s := 'exec p_calc_person ' + main.Acount_id + ',' +
        fieldbyname('she_id').AsString;
      dm1.EXE_SQL(s);
      next;
    end;
    EnableControls;
  end;
  Caption := '任务建立成功！';
  MessageDlg('计算成功！', mtWarning, [mbok], 0);
end;

procedure Trw_wizard.BitBtn5Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
  begin
    if SaveDialog1.FileName <> '' then
    begin
      if UpperCase(Copy(SaveDialog1.FileName, Length(SaveDialog1.FileName) -
        2, 3)) <> 'XLS' then
        SaveDialog1.FileName := SaveDialog1.FileName + '.XLS';
      SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DBGridEh2,
        SaveDialog1.FileName, true);
      MessageDlg('网格数据已成功导出到文件！', mtWarning, [mbok], 0);
    end;
  end;
end;

procedure Trw_wizard.BitBtn6Click(Sender: TObject);
var
  s: string;
  max, p: Integer;
begin
  Caption := '正在计算，请稍候...';
  with dm1.A_rw_she do
  begin
    max := RecordCount;
    ProgressBar1.Position := 20;
    s := 'exec p_calc_person ' + main.Acount_id + ',' +
      fieldbyname('she_id').AsString;
    dm1.EXE_SQL(s);
  end;
  ProgressBar1.Position := 100;
  Caption := '任务建立成功！';
  MessageDlg('计算成功！', mtWarning, [mbok], 0);
end;

procedure Trw_wizard.BitBtn7Click(Sender: TObject);
var
  s: string;
begin
  s := dm1.A_rw_she.fieldbyname('she_no').AsString;
  with dm1.A_rw do
  begin
    close;
    Parameters.ParamByName('she').Value := s;
    Parameters.ParamByName('acount_id').Value := StrToInt(main.Acount_id);

    Open;
  end;
  PageControl1.ActivePageIndex := 2;
end;

procedure Trw_wizard.Button1Click(Sender: TObject);
var
  t: Trw_edit;
begin
  t := Trw_edit.Create(self);
  t.Show;
end;

end.