main.pas

本系统是SQL SERVER的管理系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ToolWin, ExtCtrls, XPMenu, ImgList,ComObj,shellapi;

type
  Tmainform = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    StatusBar1: TStatusBar;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    Image1: TImage;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    XPMenu1: TXPMenu;
    ImageList1: TImageList;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N18Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
  private
    { Private declarations }
     FClientInstance, 
        FPrevClientProc : TFarProc; 
        PROCEDURE ClientWndProc(VAR Message: TMessage);

  public
    { Public declarations }

  end;

var
  mainform: Tmainform;
     name,no,tp:string;
     hh,ii,kk:integer;
implementation

uses Unit51, Unit52, Unit53, Unit54, Unit111, Unit112, Unit62, Unit21,
  Unit22, Unit31, Unit33, Unit32, Unit34, Unit113, Unit1, Unit122, Unit123,
  cardata;

{$R *.DFM}

procedure Tmainform.FormCreate(Sender: TObject);
begin
  FClientInstance := MakeObjectInstance(ClientWndProc);
   FPrevClientProc := Pointer(GetWindowLong(ClientHandle, GWL_WNDPROC));
   SetWindowLong(ClientHandle, GWL_WNDPROC, LongInt(FClientInstance));
   ii:=1;
   end;
 PROCEDURE Tmainform.ClientWndProc(VAR Message: TMessage);
VAR
  MyDC : hDC;
  Ro, Co : Word;
begin

  with Message do
    case Msg of
      WM_ERASEBKGND:
        begin
          MyDC := TWMEraseBkGnd(Message).DC;
          FOR Ro := 0 TO ClientHeight DIV Image1.Picture.Height DO
            FOR Co := 0 TO ClientWIDTH DIV Image1.Picture.Width DO
              BitBlt(MyDC, Co*Image1.Picture.Width, Ro*Image1.Picture.Height,
                Image1.Picture.Width, Image1.Picture.Height,
                Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
          Result := 1;
        end;
    else

      Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
    end;
end;


procedure Tmainform.N31Click(Sender: TObject);
begin
form51:=tform51.Create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N32Click(Sender: TObject);
begin
  form52:=tform52.create(Application);
  n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N33Click(Sender: TObject);
begin
 form53:=tform53.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N34Click(Sender: TObject);
begin
 form54:=tform54.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N12Click(Sender: TObject);
begin
  form111:=tform111.Create(Application);
  n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}
toolbutton6.enabled:=false;{库存}
toolbutton8.enabled:=false;{车辆销售}
toolbutton9.enabled:=false;{销售利润}
toolbutton11.enabled:=false;{查询}
toolbutton12.enabled:=false;{统计}
toolbutton14.enabled:=true;{帮助}

end;

procedure Tmainform.N13Click(Sender: TObject);
begin
 form112:=tform112.create(Application);
 n12.enabled:=false;  { 用户信息}
 n10.enabled:=true; {帮助 }
 n11.enabled:=false; {关于}
 n13.enabled:=false; {密码更改}
 n14.enabled:=false; {用户权限}
 n15.enabled:=false; {数据优化}
 n16.enabled:=false;  {数据备份}
 n17.enabled:=false;  {数据还原}
 n18.enabled:=false;  {车辆入库 }
 n19.enabled:=false;  {库存  }
 n20.Enabled:=false;  {车辆销售}
 n21.enabled:=false;  {销售利润}
 n22.Enabled:=false;  {查询}
 n23.enabled:=false;  {统计}
 n31.enabled:=false;  {车型}
 n32.enabled:=false;  {颜色}
 n33.enabled:=false;  {车辆来源}
 n34.enabled:=false;  {用户类型}
 toolbutton2.enabled:=false;{重新登陆}
toolbutton3.enabled:=false;{密码更改}
toolbutton5.enabled:=false;{入库}