uacount_open.pas

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

unit uacount_open;

interface

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

type
  Tacount_open = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Memo1: TMemo;
    ComboBox1: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  acount_open: Tacount_open;

implementation

uses RICH_SYS, DB, u_main, u_dm;

{$R *.dfm}

procedure Tacount_open.FormCreate(Sender: TObject);
var
  s: string;
begin
  OKBtn.Enabled := false;
  s := 'select a_name from acount';
  dm1.Fill_comb(s, ComboBox1);
  main.StatusBar1.Panels[1].Text := '';
  main.StatusBar1.Panels[2].Text := '';
  main.ACOUNT_YEAR := '';
  ComboBox1.ItemIndex := 0;
  ComboBox1.OnClick(self);
end;

procedure Tacount_open.ComboBox1Click(Sender: TObject);
var
  s: string;
begin
  OKBtn.Enabled := true;
  s := 'select * from acount where ' + SQL_update('a_name', ComboBox1);
  dm1.Open_temp(s);
  with dm1.Q_TEMP do
  begin
    s := '年度：' + fieldbyname('a_year').AsString + #13;
    s := s + '帐套名称：' + fieldbyname('a_name').AsString + #13;
    s := s + '备注：' + fieldbyname('discrypt').AsString;
    Memo1.Lines.Text := s;
  end;
end;

procedure Tacount_open.OKBtnClick(Sender: TObject);
var
  s: string;
begin
  if trim(ComboBox1.Text) = '' then exit;
  with dm1.Q_TEMP do
  begin
    if FieldByName('a_password').AsString <> '' then
    begin
      if InputQuery('密码', '请输入帐套密码：', s) then
      begin
        if s <> FieldByName('a_password').AsString then
        begin
          MessageDlg('密码不正确，你无法打开该帐套！', mtWarning, [mbok], 0);
          exit;
        end;
      end
      else
        exit;
    end;
    main.ACOUNT_YEAR := dm1.Q_TEMP.fieldbyname('a_year').AsString;
    main.Acount_id := dm1.Q_TEMP.fieldbyname('acount_id').AsString;
    main.StatusBar1.Panels[1].Text := '帐套：' +
      dm1.Q_TEMP.fieldbyname('a_name').AsString;
    main.StatusBar1.Panels[2].Text := '年度：' +
      dm1.Q_TEMP.fieldbyname('a_year').AsString;
    if main.dw <> '' then
      main.Caption := '地方税务征收管理系统(' + main.dw + ')-' + main.ACOUNT_YEAR
        + '年'
    else
      main.Caption := '地方税务征收管理系统';

    with main do
    begin
      a_system_manager.Enabled := True;
      a_base_she.Enabled := true;
      a_base_person.Enabled := true;
      a_rw_wizard.Enabled := true;
      a_rw_query.Enabled := true;
      a_rc_rc.Enabled := true;
      a_rc_query.Enabled := true;
      a_fp_query.Enabled := true;
      A_COUNT_she.Enabled := true;
      a_count_xc.Enabled := true;
      a_jd_person.Enabled := true;
      A_jd_month.Enabled := true;
    end;
    ModalResult := mrok;
  end;
end;

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

end.