main.pas

此程序可供初学者学习参考

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Buttons, ToolWin, ComCtrls, ActnList, ExtCtrls, DB, ADODB;

type
  TMainFrm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    CoolBar1: TCoolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    Action: TActionList;
    ExitAct: TAction;
    InforAct: TAction;
    Panel1: TPanel;
    MiMaAct: TAction;
    SearchAct: TAction;
    N8: TMenuItem;
    LXAct: TAction;
    N9: TMenuItem;
    N10: TMenuItem;
    ADOQuery1: TADOQuery;
    procedure ExitActExecute(Sender: TObject);
    procedure InforActExecute(Sender: TObject);
    procedure MiMaActExecute(Sender: TObject);
    procedure SearchActExecute(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure LXActExecute(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainFrm: TMainFrm;

implementation

uses Client, MiMa, Search, About, LX, login, Data;

{$R *.dfm}

procedure TMainFrm.ExitActExecute(Sender: TObject);
begin
    Application.Terminate;
end;

procedure TMainFrm.InforActExecute(Sender: TObject);
begin
 if clientfrm=nil  then
    begin
        try
        clientFrm:=TclientFrm.Create(self);
        clientfrm.Dock(panel1,boundsrect);
        finally
        end;
    end ;
       clientfrm.Show ;
end;
procedure TMainFrm.MiMaActExecute(Sender: TObject);
begin
        try
        mimaFrm:=TmimaFrm.Create(nil);
        mimaFrm.ShowModal;
        finally
        FreeAndNil(mimaFrm);
        end;
    end ;

procedure TMainFrm.SearchActExecute(Sender: TObject);
begin
     try
        SearchFrm:=TSearchFrm.Create(nil);
        SearchFrm.ShowModal ;
     finally
        FreeAndNil(SearchFrm);
     end;
end;

procedure TMainFrm.N3Click(Sender: TObject);
begin
    try
    AboutFrm:=TAboutFrm.Create(nil);
    AboutFrm.ShowModal;
    finally
    FreeAndNil(AboutFrm);
    end;
end;

procedure TMainFrm.LXActExecute(Sender: TObject);
begin
    try
    LXFrm:=TLXFrm.Create(nil);
    LXFrm.ShowModal;
    finally
    FreeAndNil(LXFrm);
    end;
end;

procedure TMainFrm.SpeedButton1Click(Sender: TObject);
begin
Application.Terminate;
WinExec('clients.exe',0);
end;

procedure TMainFrm.N9Click(Sender: TObject);
begin
if Application.MessageBox('确认初始化码?','确认',mb_yesno)=idyes then
   begin
     with ADOQuery1 do
     begin
     close;
     sql.Text:='delete * from client ';
     ExecSQL;
     end;
      with ADOQuery1 do
     begin
     close;
     sql.Text:='delete * from clientdetails ';
     ExecSQL;
     end;
      with ADOQuery1 do
     begin
     close;
     sql.Text:='delete * from companytype ';
     ExecSQL;
     end;
     showmessage('可以启用!');
     Application.Terminate;
     WinExec('clients.exe',0);
   end  else
         exit;
end;

end.