uacount_man.pas

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

unit uacount_man;

interface

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

type
  Tacount_man = class(TForm)
    CancelBtn: TButton;
    Bevel1: TBevel;
    DBGridEh1: TDBGridEh;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button1: TButton;
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  acount_man: Tacount_man;

implementation

uses DB, uacount_new, u_dm;

{$R *.dfm}

procedure Tacount_man.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 Tacount_man.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 Tacount_man.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 Tacount_man.N7Click(Sender: TObject);
var
  s: string;
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 Tacount_man.CancelBtnClick(Sender: TObject);
begin
  close;
end;

procedure Tacount_man.FormActivate(Sender: TObject);
var
  s: string;
begin

end;

procedure Tacount_man.FormCreate(Sender: TObject);
begin
  with DBGridEh1.DataSource.DataSet do
  begin
    if not Active then
      Open;
  end;
end;

procedure Tacount_man.BitBtn1Click(Sender: TObject);
var
  t: Tacount_new;
begin
  t := Tacount_new.Create(self);
  t.ShowModal;
  dm1.A_acount.Requery();
end;

procedure Tacount_man.BitBtn2Click(Sender: TObject);
begin
  with DBGridEh1.DataSource.DataSet do
  begin
    try
      Delete;
    except
      MessageDlg('有依赖于该帐套的数据，删除失败', mtWarning, [mbok], 0);
    end;
  end;
end;

procedure Tacount_man.Button1Click(Sender: TObject);
var
  s1, s2: string;
begin
  Fpassword := '';
  if InputQuery('密码', '请输入本帐套的新密码：', s1) then
  begin
    if InputQuery('密码', '请再次输入密码：', s2) then
    begin
      if s2 = s1 then
      begin
        with DBGridEh1.DataSource.DataSet do
        begin
          edit;
          FieldByName('a_password').AsString := s1;
          post;
          MessageDlg('密码成功修改！', mtInformation, [mbok], 0);
        end;
      end
      else
      begin
        MessageDlg('密码不一致，请重新设置!', mtWarning, [mbok], 0);
      end;
    end;
  end;
end;

end.