u_main.pas

来自「一个地方税务征收管理系统」· PAS 代码 · 共 574 行

unit u_main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ImgList, ActnList, janOutBar;

type
  Tmain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    StatusBar1: TStatusBar;
    N20: TMenuItem;
    N21: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    N22: TMenuItem;
    N9: TMenuItem;
    N7: TMenuItem;
    N23: TMenuItem;
    ImageList1: TImageList;
    ToolButton4: TToolButton;
    ActionList1: TActionList;
    a_system_open: TAction;
    a_system_manager: TAction;
    a_system_set: TAction;
    a_system_close: TAction;
    a_base_she: TAction;
    a_base_person: TAction;
    a_rw_wizard: TAction;
    a_rw_query: TAction;
    a_rc_rc: TAction;
    a_rc_query: TAction;
    A_COUNT_she: TAction;
    a_count_xc: TAction;
    a_system_help: TAction;
    N24: TMenuItem;
    N25: TMenuItem;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    a_fp_query: TAction;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    A_jd_month: TAction;
    N33: TMenuItem;
    N34: TMenuItem;
    a_jd_person: TAction;
    N210: TMenuItem;
    ImageList2: TImageList;
    ImageList3: TImageList;
    janOutBar1: TjanOutBar;
    procedure FormCreate(Sender: TObject);
    procedure a_system_openExecute(Sender: TObject);
    procedure a_system_managerExecute(Sender: TObject);
    procedure a_system_closeExecute(Sender: TObject);
    procedure a_base_sheExecute(Sender: TObject);
    procedure a_base_personExecute(Sender: TObject);
    procedure a_rw_wizardExecute(Sender: TObject);
    procedure a_rw_queryExecute(Sender: TObject);
    procedure a_rc_rcExecute(Sender: TObject);
    procedure a_rc_queryExecute(Sender: TObject);
    procedure A_COUNT_sheExecute(Sender: TObject);
    procedure a_fp_queryExecute(Sender: TObject);
    procedure a_count_xcExecute(Sender: TObject);
    procedure a_system_setExecute(Sender: TObject);
    procedure a_system_helpExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure A_jd_monthExecute(Sender: TObject);
    procedure a_jd_personExecute(Sender: TObject);
    procedure janOutBar1Panels0Buttons0Click(Sender: TObject);
    procedure janOutBar1Panels0Buttons1Click(Sender: TObject);
    procedure janOutBar1Panels0Buttons2Click(Sender: TObject);
    procedure janOutBar1Panels1Buttons0Click(Sender: TObject);
    procedure janOutBar1Panels1Buttons1Click(Sender: TObject);
    procedure janOutBar1Panels2Buttons0Click(Sender: TObject);
    procedure janOutBar1Panels2Buttons1Click(Sender: TObject);
    procedure janOutBar1Panels2Buttons2Click(Sender: TObject);
    procedure janOutBar1Panels3Buttons0Click(Sender: TObject);
    procedure janOutBar1Panels3Buttons1Click(Sender: TObject);
    procedure janOutBar1Panels4Buttons0Click(Sender: TObject);
    procedure janOutBar1Panels4Buttons1Click(Sender: TObject);
  private
    FACOUNT_YEAR: string;
    FAcount_id: string;
    FUser_name: string;
    FF_s1: string;
    FF_s2: string;
    Fdw: string;
    Fdat_path: string;
    FLoad_grid_enable: Boolean;
    Fuser_1: string;
    Fuser_2: string;
    FApp_path: string;
    procedure SetACOUNT_YEAR(const Value: string);
    procedure SetAcount_id(const Value: string);
    procedure SetUser_name(const Value: string);
    procedure SetF_s1(const Value: string);
    procedure SetF_s2(const Value: string);
    procedure Setdw(const Value: string);
    procedure Setdat_path(const Value: string);
    procedure SetLoad_grid_enable(const Value: Boolean);
    procedure Setuser_1(const Value: string);
    procedure Setuser_2(const Value: string);
    procedure SetApp_path(const Value: string);
    { Private declarations }
  public
    procedure Scale_form(N: integer; Mfrom: TForm);
    procedure add_tv(mtv: TTreeView);
    { Public declarations }
  published
    property ACOUNT_YEAR: string read FACOUNT_YEAR write SetACOUNT_YEAR;
    property Acount_id: string read FAcount_id write SetAcount_id;
    property User_name: string read FUser_name write SetUser_name;
    property F_s1: string read FF_s1 write SetF_s1;
    property F_s2: string read FF_s2 write SetF_s2;
    property dw: string read Fdw write Setdw;
    property dat_path: string read Fdat_path write Setdat_path;
    property Load_grid_enable: Boolean read FLoad_grid_enable write
      SetLoad_grid_enable;
    property App_path: string read FApp_path write SetApp_path;
    property user_1: string read Fuser_1 write Setuser_1;
    property user_2: string read Fuser_2 write Setuser_2;
  end;

var
  main: Tmain;

implementation

uses uacount_new, uacount_open, urc, ucount, uacount_man, uperson, urw,
  u_dm, RICH_SYS, ushe, urw_wizard, urc_query, ufp_query, ucount_person,
  frm_set, urc_2, frm_about, Mrl, ujd_s1, ujd_person;

{$R *.dfm}

procedure Tmain.SetACOUNT_YEAR(const Value: string);
begin
  FACOUNT_YEAR := Value;
end;

procedure Tmain.SetAcount_id(const Value: string);
begin
  FAcount_id := Value;
end;

procedure Tmain.FormCreate(Sender: TObject);
var
  s: string;
begin
  App_path := ExtractFilePath(Application.ExeName);
  Acount_id := '0';
  dat_path := ExtractFilePath(Application.ExeName) + 'dat\';
  s := 'select d_values from cw_dict where d_key=' + string_sqlText('dw');
  dw := dm1.Get_data(s);

  s := 'select d_values from cw_dict where d_key=' +
    string_sqlText('gride_load');
  if dm1.Get_data(s) = 'YES' then
    Load_grid_enable := true
  else
    Load_grid_enable := False;

  s := 'select d_values from cw_dict where d_key=' +
    string_sqlText('user1');
  user_1 := dm1.Get_data(s);

  s := 'select d_values from cw_dict where d_key=' +
    string_sqlText('user2');
  user_2 := dm1.Get_data(s);

  F_s1 := dm1.Get_data('select d_values from cw_dict where d_key=''f_s1''');
  F_s2 := dm1.Get_data('select d_values from cw_dict where d_key=''f_s2''');
  if F_s1 <> '' then
    F_s1 := incno(F_s1, 1);
  if F_s2 <> '' then
    F_s2 := incno(F_s2, 1);
  if dw <> '' then
    Caption := '地方税务征收管理系统(' + dw + ')-' + ACOUNT_YEAR + '年'
  else
    Caption := '地方税务征收管理系统';

end;

procedure Tmain.SetUser_name(const Value: string);
begin
  FUser_name := Value;
end;

procedure Tmain.SetF_s1(const Value: string);
begin
  FF_s1 := Value;
end;

procedure Tmain.SetF_s2(const Value: string);
begin
  FF_s2 := Value;
end;

procedure Tmain.a_system_openExecute(Sender: TObject);

var
  t: Tacount_open;
begin
  t := Tacount_open.Create(self);
  t.ShowModal;

end;

procedure Tmain.a_system_managerExecute(Sender: TObject);
var
  t: Tacount_man;
begin
  t := Tacount_man.Create(self);
  t.ShowModal;

end;

procedure Tmain.a_system_closeExecute(Sender: TObject);
begin
  close;
end;

procedure Tmain.a_base_sheExecute(Sender: TObject);
var
  t: Tshe;
begin
  t := Tshe.Create(Self);
  t.ShowModal;

end;

procedure Tmain.a_base_personExecute(Sender: TObject);
var
  t: Tperson;
begin
  t := Tperson.Create(self);
  t.Show;

end;

procedure Tmain.a_rw_wizardExecute(Sender: TObject);
var
  t: Trw_wizard;
begin
  t := Trw_wizard.Create(self);
  t.ShowModal;

end;

procedure Tmain.a_rw_queryExecute(Sender: TObject);
var
  t: Trw;
begin
  t := Trw.Create(self);
  t.Show;

end;

procedure Tmain.a_rc_rcExecute(Sender: TObject);
var
  t: Trc_2;
begin
  t := Trc_2.Create(Self);
  t.ShowModal;

end;

procedure Tmain.a_rc_queryExecute(Sender: TObject);
var
  t: Trc_query;
begin
  t := Trc_query.Create(Self);
  t.ShowModal;
end;

procedure Tmain.A_COUNT_sheExecute(Sender: TObject);
var
  t: Tcount;
begin
  t := Tcount.Create(self);
  t.Show;
end;

procedure Tmain.a_fp_queryExecute(Sender: TObject);
begin
  with Tfp_query.Create(Self) do
    ShowModal;
end;

procedure Tmain.Setdw(const Value: string);
begin
  Fdw := Value;
end;

procedure Tmain.a_count_xcExecute(Sender: TObject);
begin
  with Tcount_person.Create(Self) do
    Show;
end;

procedure Tmain.a_system_setExecute(Sender: TObject);
begin
  with tsys_set.create(self) do
  begin
    e_dw.Text := dw;
    if Load_grid_enable then
      CheckBox1.Checked := true
    else
      CheckBox1.Checked := false;
    showmodal;
  end;
end;

procedure Tmain.a_system_helpExecute(Sender: TObject);
begin
  TAboutBox.Create(Self).ShowModal;
end;

procedure Tmain.FormActivate(Sender: TObject);
var
  s: string;
begin
  s := 'select count(acount_id) from acount';
  if dm1.Get_data(s) = '0' then
  begin
    a_system_manager.Enabled := true;
  end;
  if Acount_id = '0' then a_system_open.Execute;
end;

procedure Tmain.Setdat_path(const Value: string);
begin
  Fdat_path := Value;
end;

procedure Tmain.SetLoad_grid_enable(const Value: Boolean);
begin
  FLoad_grid_enable := Value;
end;

procedure Tmain.Setuser_1(const Value: string);
begin
  Fuser_1 := Value;
end;

procedure Tmain.Setuser_2(const Value: string);
begin
  Fuser_2 := Value;
end;

procedure Tmain.Scale_form(N: integer; Mfrom: TForm);
begin
  if n = 0 then
  begin
    if 800 = Screen.Width then
    begin
      Mfrom.ScaleBy(125, 100);
    end;
  end
  else
    Mfrom.ScaleBy(n, 100);
end;

procedure Tmain.N30Click(Sender: TObject);
begin
  with Trl.Create(self) do
    ShowModal;
end;

procedure Tmain.N32Click(Sender: TObject);
var
  s: string;
begin
  s := Get_WinSysPath + '\calc.exe';
  //  ShowWaningDialog(s);
  shell_open_file(Handle, s);

end;

procedure Tmain.A_jd_monthExecute(Sender: TObject);
begin
  Tjd_s1.Create(Self).Show;
end;

procedure Tmain.add_tv(mtv: TTreeView);
var
  tvNode, tvnode2, tvnode3, tvnode4: TTreeNode;
  cun, she, sex, s: string;
begin
  dm1.Open_Q1('select distinct left(she_no,2) as cun from she');
  with mtv, dm1 do
  begin
    Images := ImageList2;
    Items.Clear;
    q_1.First;
    tvNode := Items.Add(nil, '所有村');
    tvnode.ImageIndex := 0;
    while not Q_1.Eof do
    begin
      cun := trim(Q_1.fieldbyname('cun').AsString);
      tvnode2 := Items.AddChild(tvNode, cun + '村');
      tvnode2.ImageIndex := 1;
      s := 'select substring(she_no,3,1) as she,she_name,she_master from she where left(she_no,2)='
        + string_sqlText(cun);
      dm1.Open_Q2(s);
      while not q_2.Eof do
      begin
        she := trim(Q_2.fieldbyname('she').AsString);
        s := she + '社(' + trim(Q_2.fieldbyname('she_name').AsString) + ':社长：'
          + trim(Q_2.fieldbyname('she_master').AsString) + ')';
        tvnode3 := Items.AddChild(tvNode2, s);
        tvnode.ImageIndex := 2;
        s := 'exec p_get_name_l ' + string_sqlText(cun + she);
        dm1.Open_temp(s);
        while not dm1.Q_temp.Eof do
        begin
          tvnode4 := Items.AddChild(tvnode3,
            trim(dm1.Q_temp.fields[0].AsString));
          tvnode4.ImageIndex := 3;
          Q_temp.Next;
        end;
        q_2.Next;
      end;
      Q_1.Next;
    end;
  end;
end;

procedure Tmain.a_jd_personExecute(Sender: TObject);
begin
  with Tjd_person.Create(self) do
    Show;
end;

procedure Tmain.SetApp_path(const Value: string);
begin
  FApp_path := Value;
end;

procedure Tmain.janOutBar1Panels0Buttons0Click(Sender: TObject);
begin
  if a_base_she.Enabled then
    a_base_she.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);
end;

procedure Tmain.janOutBar1Panels0Buttons1Click(Sender: TObject);
begin
  if a_base_person.Enabled then
    a_base_person.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);

end;

procedure Tmain.janOutBar1Panels0Buttons2Click(Sender: TObject);
begin
  if a_system_manager.Enabled then
    a_system_manager.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);

end;

procedure Tmain.janOutBar1Panels1Buttons0Click(Sender: TObject);
begin
  if a_rw_wizard.Enabled then
    a_rw_wizard.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);

end;

procedure Tmain.janOutBar1Panels1Buttons1Click(Sender: TObject);
begin
  if a_rw_query.Enabled then
    a_rw_query.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);

end;

procedure Tmain.janOutBar1Panels2Buttons0Click(Sender: TObject);
begin
  if a_rc_rc.Enabled then
    a_rc_rc.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);

end;

procedure Tmain.janOutBar1Panels2Buttons1Click(Sender: TObject);
begin
  if a_rc_query.Enabled then
    a_rc_query.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);

end;

procedure Tmain.janOutBar1Panels2Buttons2Click(Sender: TObject);
begin
  if a_fp_query.Enabled then
    a_fp_query.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);

end;

procedure Tmain.janOutBar1Panels3Buttons0Click(Sender: TObject);
begin
  if a_jd_person.Enabled then
    a_jd_person.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);
end;

procedure Tmain.janOutBar1Panels3Buttons1Click(Sender: TObject);
begin
  if A_COUNT_she.Enabled then
    A_COUNT_she.Execute
  else
    MessageDlg('你没有执行该功能的权限！', mtWarning, [mbok], 0);

end;

procedure Tmain.janOutBar1Panels4Buttons0Click(Sender: TObject);
begin
  with Trl.Create(self) do
    ShowModal;

end;

procedure Tmain.janOutBar1Panels4Buttons1Click(Sender: TObject);
var
  s: string;
begin
  s := Get_WinSysPath + '\calc.exe';
  shell_open_file(Handle, s);
end;

end.