mainunit.pas

好的程序离不了友好的用户界面 用delphi轻松搞定

unit mainunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ImgList, ToolWin, Buttons, ExtCtrls, StdCtrls,
  DB, Grids, DBGrids, ADODB, OleServer, Excel2000, jpeg,shellApi,inifiles;

type
  Tmainform = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton6: TSpeedButton;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Panel8: TPanel;
    ListView1: TListView;
    ImageList2: TImageList;
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    PopupMenu2: TPopupMenu;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    PopupMenu3: TPopupMenu;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    PopupMenu4: TPopupMenu;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N54: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    objectN22TMenuItem1: TMenuItem;
    PopupMenu5: TPopupMenu;
    N57: TMenuItem;
    N58: TMenuItem;
    N59: TMenuItem;
    PopupMenu6: TPopupMenu;
    N60: TMenuItem;
    N61: TMenuItem;
    Panel9: TPanel;
    Image2: TImage;
    SpeedButton4: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure objectN22TMenuItem1Click(Sender: TObject);
  private
    { Private declarations }
  public
  modelr,buildlr,comlr,emplr,sale,gather,plan,payreturn,
  saler,house,custpay,cust,custfx,user1,databack:boolean;
  name:string;
  username:string;
    { Public declarations }
  end;

var
  mainform: Tmainform;

implementation

{$R *.dfm}

procedure Tmainform.FormShow(Sender: TObject);
begin
  mainform.StatusBar1.Panels[0].Text :='欢迎您进入明日房地产信息管理系统';
end;

procedure Tmainform.Timer1Timer(Sender: TObject);
begin
  mainform.StatusBar1.Panels[2].Text :='现在时间： '+datetimetostr(now);
end;

procedure Tmainform.N27Click(Sender: TObject);
begin
  toolbar1.Show;
end;

procedure Tmainform.BitBtn1Click(Sender: TObject);
var
  newitem:Tlistitem;
begin
  if panel3.Align=altop then
  begin
    panel4.Align:= albottom;
    panel5.Align:= albottom;
    Panel6.Align:= albottom;
    panel7.Align:= albottom;
  end
  else
    panel3.Align:=altop;
  Listview1.Clear;
  newitem:=listview1.Items.Add;
  newitem.Caption:='房屋销售管理';
  newitem.ImageIndex:=1;
  newitem:=listview1.Items.Add;
  newitem.Caption:='房屋销售收款管理';
  newitem.ImageIndex:=2;
  newitem:=listview1.Items.Add;
  newitem.Caption:='客户资料管理';
  newitem.ImageIndex:=3;
  newitem:=listview1.Items.Add;
  newitem.Caption:='房屋销售收款安排查询';
  newitem.ImageIndex:=4;
  newitem:=listview1.Items.Add;
  newitem.Caption:='房屋退款管理';
  newitem.ImageIndex:=5;
end;

procedure Tmainform.BitBtn2Click(Sender: TObject);
var
  newitem:Tlistitem;
begin
  if panel4.Align=altop then
  begin
    panel3.Align:= albottom;
    panel5.Align:= albottom;
    Panel6.Align:= albottom;
    panel7.Align:= albottom;
  end
  else
    panel4.Align:=altop;
    Listview1.Clear;
  newitem:=listview1.Items.Add;
  newitem.Caption:='销售代表房屋销售统计报表';
  newitem.ImageIndex:=6;
  newitem:=listview1.Items.Add;
  newitem.Caption:='楼盘销售预订数据统计报表';
  newitem.ImageIndex:=7;
  newitem:=listview1.Items.Add;
  newitem.Caption:='客户房屋购订收款统计查询';
  newitem.ImageIndex:=8;
  newitem:=listview1.Items.Add;
  newitem.Caption:='客户数据分析';
  newitem.ImageIndex:=9;
end;

procedure Tmainform.BitBtn3Click(Sender: TObject);
var
  newitem:Tlistitem;
begin
  if panel5.Align=altop then
  begin
    panel4.Align:= albottom;
    panel3.Align:= albottom;
    Panel6.Align:= albottom;
    panel7.Align:= albottom;
  end
  else
    panel5.Align:=altop;
      Listview1.Clear;
  newitem:=listview1.Items.Add;
  newitem.Caption:='房型资料录入';
  newitem.ImageIndex:=10;
  newitem:=listview1.Items.Add;
  newitem.Caption:='楼盘楼房资料录入';
  newitem.ImageIndex:=11;
  newitem:=listview1.Items.Add;
  newitem.Caption:='公司资料录入';
  newitem.ImageIndex:=12;
  newitem:=listview1.Items.Add;
  newitem.Caption:='员工资料录入';
  newitem.ImageIndex:=13;
end;

procedure Tmainform.BitBtn4Click(Sender: TObject);
var
  newitem:Tlistitem;
begin
  if panel6.Align=altop then
  begin
    panel4.Align:= albottom;
    panel5.Align:= albottom;
    Panel3.Align:= albottom;
    panel7.Align:= albottom;
  end
  else
    panel6.Align:=altop;
        Listview1.Clear;
  newitem:=listview1.Items.Add;
  newitem.Caption:='用户管理';
  newitem.ImageIndex:=14;
  newitem:=listview1.Items.Add;
  newitem.Caption:='用户口令修改';
  newitem.ImageIndex:=15;
  newitem:=listview1.Items.Add;
  newitem.Caption:='工具栏';
  newitem.ImageIndex:=16;
  newitem:=listview1.Items.Add;
  newitem.Caption:='数据备份与恢复';
  newitem.ImageIndex:=17;
  newitem:=listview1.Items.Add;
  newitem.Caption:='退出系统';
  newitem.ImageIndex:=18;
end;

procedure Tmainform.BitBtn5Click(Sender: TObject);
var
  newitem:Tlistitem;
begin
  if panel7.Align=altop then
  begin
    panel4.Align:= albottom;
    panel5.Align:= albottom;
    Panel6.Align:= albottom;
    panel3.Align:= albottom;
  end
  else
    panel7.Align:=altop;
      Listview1.Clear;
  newitem:=listview1.Items.Add;
  newitem.Caption:='记事本';
  newitem.ImageIndex:=19;
  newitem:=listview1.Items.Add;
  newitem.Caption:='计算器';
  newitem.ImageIndex:=20;
  newitem:=listview1.Items.Add;
  newitem.Caption:='日志管理';
  newitem.ImageIndex:=21;
end;

procedure Tmainform.SpeedButton4Click(Sender: TObject);
begin
  PopupMenu1.Popup(self.Left+SpeedButton4.Left+7,self.Top+SpeedButton4.Top+42);
end;

procedure Tmainform.SpeedButton11Click(Sender: TObject);
begin
  PopupMenu2.Popup(self.Left+SpeedButton11.Left+7,self.Top+SpeedButton11.Top+42);
end;

procedure Tmainform.SpeedButton12Click(Sender: TObject);
begin
  PopupMenu3.Popup(self.Left+SpeedButton12.Left+7,self.Top+SpeedButton12.Top+42);
end;

procedure Tmainform.SpeedButton13Click(Sender: TObject);
begin
  PopupMenu4.Popup(self.Left+SpeedButton13.Left+7,self.Top+SpeedButton13.Top+42);
end;

procedure Tmainform.SpeedButton14Click(Sender: TObject);
begin
  PopupMenu5.Popup(self.Left+SpeedButton14.Left+7,self.Top+SpeedButton14.Top+42);
end;

procedure Tmainform.SpeedButton15Click(Sender: TObject);
begin
  PopupMenu6.Popup(self.Left+SpeedButton15.Left+7,self.Top+SpeedButton15.Top+42);
end;

procedure Tmainform.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if application.MessageBox('真的要退出房地产信息管理系统吗?','提示',mb_yesno)=id_no then
    canclose := false;
end;

procedure Tmainform.objectN22TMenuItem1Click(Sender: TObject);
begin
  close;
end;

end.