uacount_new.pas

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

unit uacount_new;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DosMove;

type
  Tacount_new = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Label6: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit4: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Edit5: TEdit;
    Label10: TLabel;
    Label11: TLabel;
    Edit6: TEdit;
    Label12: TLabel;
    Label13: TLabel;
    Edit7: TEdit;
    Label14: TLabel;
    Label15: TLabel;
    Edit8: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    Edit9: TEdit;
    Label18: TLabel;
    DosMove1: TDosMove;
    Label4: TLabel;
    Button1: TButton;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ComboBox1Click(Sender: TObject);
    procedure Edit1Enter(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  acount_new: Tacount_new;
  Fpassword: string;

implementation

uses u_dm, RICH_SYS, ADODB;

{$R *.dfm}

procedure Tacount_new.FormCreate(Sender: TObject);
var
  i: integer;
  s: string;
begin
  Button1.Enabled := false;
  BitBtn1.Enabled := false;
  Memo1.Lines.Text := '';
  edit1.Text := '';
  ComboBox1.Items.Clear;
  for i := 2003 to 2050 do
  begin
    ComboBox1.Items.Add(inttostr(i));
  end;

end;

procedure Tacount_new.Button1Click(Sender: TObject);
var
  s1, s2: string;
begin
  Fpassword := '';
  if InputQuery('密码', '请输入本帐套的保护密码：', s1) then
  begin
    if s1 <> '' then
    begin
      if InputQuery('密码', '请再次输入本帐套的保护密码：', s2) then
      begin
        if s2 = s1 then
        begin
          MessageDlg('OK', mtWarning, [mbok], 0);
          Fpassword := s1;
        end
        else
        begin
          MessageDlg('密码不一致，请重新设置!', mtWarning, [mbok], 0);
          Fpassword := '';
        end;
      end;
    end;
  end;
end;

procedure Tacount_new.BitBtn1Click(Sender: TObject);
var
  acount_id, s: string;
begin

  s := 'select a_year from acount where a_year=' + SQL_INSERT(ComboBox1);
  dm1.Open_temp(s);
  if dm1.Q_TEMP.RecordCount > 0 then
  begin
    MessageDlg('该年度帐套已经存在，不能重建！操作已被取消！', mtWarning,
      [mbOK], 0);
    exit;
  end;

  with dm1.p_acounr_new do
  begin
    with Parameters do
    begin
      ParamByName('@a_name').Value := Edit1.Text;
      ParamByName('@a_year').Value := strtoint(ComboBox1.Text);
      ParamByName('@a_password').Value := Fpassword;
      ParamByName('@discrypt').Value := trim(Memo1.Lines.Text);

      ParamByName('@s1_td').Value := strtoint(Edit4.Text);
      ParamByName('@s1_rq').Value := strtoint(Edit5.Text);
      ParamByName('@s1_ldl').Value := strtoint(Edit6.Text);

      ParamByName('@s2_td').Value := strtoint(Edit7.Text);
      ParamByName('@s2_rq').Value := strtoint(Edit8.Text);
      ParamByName('@s2_ldl').Value := strtoint(Edit9.Text);

      ParamByName('@s1').Value := StrToCurr(Edit2.Text);
      ParamByName('@s2').Value := StrToCurr(Edit3.Text);
    end;
    try
      ExecProc;
      dm1.A_acount.Requery();
      MessageDlg('新帐套建立成功！', mtWarning, [mbok], 0);
      close;
    except
      MessageDlg('你输入的信息有误，请更正！', mtWarning, [mbok], 0);
    end;
  end;
end;

procedure Tacount_new.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tacount_new.ComboBox1Click(Sender: TObject);
begin
  edit1.Text := ComboBox1.Text + '年度帐套';
  BitBtn1.Enabled := true;
  Button1.Enabled := True;
end;

procedure Tacount_new.Edit1Enter(Sender: TObject);
begin
  (sender as TEdit).Color := clAqua;

end;

procedure Tacount_new.Edit1Exit(Sender: TObject);
begin
  (sender as TEdit).Color := clWhite;

end;

end.