pas_hm.pas

比较详细的功能

unit Pas_hm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, Menus, ExtCtrls, jpeg, StdActns, ActnList,
  ComCtrls, StdCtrls, Buttons, ToolWin,inifiles;

type
  TMain = class(TForm)
    MainMenu: TMainMenu;
    sys: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    check: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    Image1: TImage;
    ActionList1: TActionList;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    N14: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    ToolBar1: TToolBar;
    housecz: TSpeedButton;
    N15: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    bgyp: TSpeedButton;
    N_BM: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N13: TMenuItem;
    N33: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    housesz: TSpeedButton;
    houseqk: TSpeedButton;
    N16: TMenuItem;
    housezh: TSpeedButton;
    ysqk: TSpeedButton;
    sp_house: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N_BMClick(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure housezhClick(Sender: TObject);
    procedure houseszClick(Sender: TObject);
    procedure sp_houseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Main: TMain;

implementation
 uses pas_login,pas_dm,pas_usr,pas_landlord,pas_client,pas_deputy,
  pas_house, pas_noUseHouse, pas_useHouse, pas_houseRent,
  pas_houseHistry, pas_payHint, ini,pub, pas_depart, pas_seller,
  pas_houseType, pas_area,pas_fk, pas_querypay,pas_sz, Pas_income,
  pas_hinttimes, pas_office,housecontract;
{$R *.dfm}

procedure TMain.FormShow(Sender: TObject);
var
   inistr:string;
begin
 
     if pub.InitRead('server','datasource',inistr)='' then
     begin
      if application.FindComponent('serverset')=nil then
      begin
         application.CreateForm(Tserverset,serverset);
      end;
      try
         serverset.ShowModal;
      except
         showmessage('窗口显示错误');
         serverset.Free;
         serverset:=nil;
       end;
     end
     else
     begin
        dm.AC1.ConnectionString:='Provider=SQLOLEDB.1;Password="";'+
            'Persist Security Info=True;User ID=sa;'+
            'Initial Catalog=HMM;Data Source='+
             pub.InitRead('server','datasource',inistr);
        dm.AC1.ConnectionTimeout:=5;
        dm.AC1.LoginPrompt:=false;
        dm.AC1.Connected:=true;
     end;

       if application.FindComponent('form_login')=nil then
      begin
         application.CreateForm(Tform_login,form_login);
      end;
      try
 //        form_login.ShowModal;
      except
         showmessage('窗口显示错误');
         form_login.Free;
         form_login:=nil;
       end;
end;

procedure TMain.N2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TMain.N5Click(Sender: TObject);
begin
    if application.FindComponent('form_usr')=nil then
      begin
         application.CreateForm(Tform_usr,form_usr);
      end;
      try
         form_usr.Show;
      except
         showmessage('窗口显示错误');
         form_usr.Free;
         form_usr:=nil;
       end;

end;

procedure TMain.N6Click(Sender: TObject);
begin
   if application.FindComponent('form_landlord')=nil then
      begin
         application.CreateForm(Tform_landlord,form_landlord);
      end;
      try
         form_landlord.Show;
      except
         showmessage('窗口显示错误');
         form_landlord.Free;
         form_landlord:=nil;
       end;
end;

procedure TMain.N7Click(Sender: TObject);
begin
   if application.FindComponent('form_client')=nil then
      begin
         application.CreateForm(Tform_client,form_client);
      end;
      try
         form_client.Show;
      except
         showmessage('窗口显示错误');
         form_client.Free;
         form_client:=nil;
       end;
end;

procedure TMain.N8Click(Sender: TObject);
begin
   if application.FindComponent('form_deputy')=nil then
      begin
         application.CreateForm(Tform_deputy,form_deputy);
      end;
      try
         form_deputy.Show;
      except
         showmessage('窗口显示错误');
         form_deputy.Free;
         form_deputy:=nil;
       end;
end;

procedure TMain.N9Click(Sender: TObject);
begin
    if application.FindComponent('form_house')=nil then
      begin
         application.CreateForm(Tform_house,form_house);
      end;
      try
         form_house.Show;
      except
         showmessage('窗口显示错误');
         form_house.Free;
         form_house:=nil;
       end;
end;

procedure TMain.N12Click(Sender: TObject);
begin
  if application.FindComponent('form_constract')=nil then
      begin
         application.CreateForm(Tform_constract,form_constract);
      end;
      try
         form_constract.Show;
      except
         showmessage('窗口显示错误');
         form_constract.Free;
         form_constract:=nil;
      end;
end;

procedure TMain.N10Click(Sender: TObject);
begin
    if application.FindComponent('form_income')=nil then
      begin
         application.CreateForm(Tform_income,form_income);
      end;
      try
         form_income.Show;
      except
         showmessage('窗口显示错误');
         form_income.Free;
         form_income:=nil;
      end;
end;

procedure TMain.N1Click(Sender: TObject);
begin
      if application.FindComponent('form_login')=nil then
      begin
         application.CreateForm(Tform_login,form_login);
      end;
      try
         form_login.ShowModal;
      except
         showmessage('窗口显示错误');
         form_login.Free;
         form_login:=nil;
       end;
end;

procedure TMain.N15Click(Sender: TObject);
begin
  Main.WindowState:=wsmaximized;
   //在任务栏上隐藏和显示应用程序窗口
   showwindow(application.Handle, sw_shownormal);
 //改变窗体的GWL_EXSTYLE属性
  setwindowlong(application.Handle,GWL_EXSTYLE,
  getwindowlong(application.Handle,GWL_EXSTYLE)
  or WS_EX_TOOLWINDOW or  WS_EX_APPWINDOW);
end;

procedure TMain.N_BMClick(Sender: TObject);
begin
  if application.FindComponent('form_depart')=nil then
      begin
         application.CreateForm(Tform_depart,form_depart);
      end;
      try
         form_depart.Show;
      except