main.pas

来自「管家婆导航Delphi源码和用户界面框架」· PAS 代码 · 共 311 行

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, fcButton,fcbitmap, ExtCtrls, fcImgBtn,
  fcLabel, jpeg, ActnList, Menus, ToolWin, ComCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    jbzlbtn: TfcImageBtn;
    kcglbtn: TfcImageBtn;
    xsglbtn: TfcImageBtn;
    tjglbtn: TfcImageBtn;
    xtwhbtn: TfcImageBtn;
    f1: TPanel;
    F2: TPanel;
    F3: TPanel;
    F4: TPanel;
    F5: TPanel;
    p1: TPanel;
    fcImageBtn1: TfcImageBtn;
    fcImageBtn2: TfcImageBtn;
    Image2: TImage;
    p2: TPanel;
    Image3: TImage;
    fcImageBtn6: TfcImageBtn;
    fcImageBtn7: TfcImageBtn;
    fcImageBtn8: TfcImageBtn;
    fcImageBtn9: TfcImageBtn;
    fcImageBtn10: TfcImageBtn;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    p3: TPanel;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    Image11: TImage;
    Image12: TImage;
    fcImageBtn11: TfcImageBtn;
    fcImageBtn12: TfcImageBtn;
    fcImageBtn13: TfcImageBtn;
    fcImageBtn14: TfcImageBtn;
    fcImageBtn15: TfcImageBtn;
    fcImageBtn16: TfcImageBtn;
    fcImageBtn17: TfcImageBtn;
    p4: TPanel;
    img4: TImage;
    fcImageBtn18: TfcImageBtn;
    fcImageBtn19: TfcImageBtn;
    fcImageBtn20: TfcImageBtn;
    fcImageBtn21: TfcImageBtn;
    fcImageBtn22: TfcImageBtn;
    p5: TPanel;
    Image13: TImage;
    fcImageBtn23: TfcImageBtn;
    fcImageBtn24: TfcImageBtn;
    fcImageBtn25: TfcImageBtn;
    fcImageBtn26: TfcImageBtn;
    fcImageBtn27: TfcImageBtn;
    ActionList1: TActionList;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N35: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    xgmm: TAction;
    cxdl: TAction;
    tcxt: TAction;
    N2: TMenuItem;
    N3: TMenuItem;
    N5: TMenuItem;
    ToolBar1: TToolBar;
    about: TAction;
    bmgl: TAction;
    yggl: TAction;
    cpgl: TAction;
    khgl: TAction;
    rkgl: TAction;
    ckgl: TAction;
    tygl: TAction;
    tsgl: TAction;
    ckkc: TAction;
    lkc: TAction;
    xsdd: TAction;
    xsth: TAction;
    khqh: TAction;
    khth: TAction;
    ysyf: TAction;
    cpcs: TAction;
    ysyfcs: TAction;
    qhthcs: TAction;
    zhgl: TAction;
    qxgl: TAction;
    zxck: TAction;
    xtbf: TAction;
    xthf: TAction;
    gscs: TAction;
    kcrbb: TAction;
    kcybb: TAction;
    kcnbb: TAction;
    kctj: TAction;
    xsrbb: TAction;
    xsybb: TAction;
    xsnbb: TAction;
    xstj: TAction;
    N27: TMenuItem;
    N36: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    N50: TMenuItem;
    N51: TMenuItem;
    N52: TMenuItem;
    N53: TMenuItem;
    N55: TMenuItem;
    N56: TMenuItem;
    N57: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N32: TMenuItem;
    xsfh: TAction;
    ddd1: TMenuItem;
    ckkcgl: TAction;
    xsfp: TAction;
    Image14: TImage;
    ToolBar2: TToolBar;
    procedure FormShow(Sender: TObject);
    procedure FormCanResize(Sender: TObject; var NewWidth,
      NewHeight: Integer; var Resize: Boolean);
    procedure kcglbtnMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
    Fimgbtn:integer;
    procedure dobtndown(btn:tfcimagebtn);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
  jbzlbtn.Enabled:=false;
  p1.Left:=212;
  p1.Top:=125;
  f1.Left:=170;
  f1.Top:=450;
  p1.Visible:=true;
  f1.Visible:=true;
  self.Fimgbtn:=0;
end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  resize:=false;
end;

procedure TForm1.dobtndown(btn: tfcimagebtn);
begin
  btn.Enabled:=false;
  case self.Fimgbtn of
    0:begin
        p1.Visible:=false;
        f1.Visible:=false;
        jbzlbtn.Down:=false;
        jbzlbtn.Enabled:=true;
      end;
    1:begin
        p2.Visible:=false;
        f2.Visible:=false;
        kcglbtn.Down:=false;
        kcglbtn.Enabled:=true;
      end;
    2:begin
        p3.Visible:=false;
        f3.Visible:=false;
        xsglbtn.Down:=false;
        xsglbtn.Enabled:=true;
      end;
    3:begin
        p4.Visible:=false;
        f4.Visible:=false;
        tjglbtn.Down:=false;
        tjglbtn.Enabled:=true;
      end;
    4:begin
        p5.Visible:=false;
        f5.Visible:=false;
        xtwhbtn.Down:=false;
        xtwhbtn.Enabled:=true;
      end;
  end;
  self.Fimgbtn:=btn.Tag;
    case self.Fimgbtn of
    0:begin
        p1.Left:=212;
        p1.Top:=125;
        f1.Left:=170;
        f1.Top:=450;
        p1.Visible:=true;
        f1.Visible:=true;
      end;
    1:begin
        p2.Left:=212;
        p2.Top:=125;
        f2.Left:=170;
        f2.Top:=450;
        p2.Visible:=true;
        f2.Visible:=true;
      end;
    2:begin
        p3.Left:=212;
        p3.Top:=125;
        f3.Left:=170;
        f3.Top:=450;
        p3.Visible:=true;
        f3.Visible:=true;
      end;
    3:begin
        p4.Left:=212;
        p4.Top:=125;
        f4.Left:=170;
        f4.Top:=450;
        p4.Visible:=true;
        f4.Visible:=true;
      end;
    4:begin
        p5.Left:=212;
        p5.Top:=125;
        f5.Left:=170;
        f5.Top:=450;
        p5.Visible:=true;
        f5.Visible:=true;
      end;
  end;
end;

procedure TForm1.kcglbtnMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  self.dobtndown(sender as tfcimagebtn);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if application.MessageBox('您真的想退出系统吗?','提示',mb_yesno)<>idyes then
   abort;
{  with datafm.adocmd do
  begin
    CommandText:=('update login set loged=''N'' where id='''+trim(datafm.loginname)+'''');
    try
      execute;
    except
      application.MessageBox('登录数据库修改出错','错误');
    end;
  end;}
end;

procedure TForm1.N5Click(Sender: TObject);
begin
  close;
end;

end.