main.pas

来自「客户关系管理系统 客户关系管理系统」· PAS 代码 · 共 134 行

unit Main;

interface

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

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    ADOQuery1: TADOQuery;
    ADOConnection1: TADOConnection;
    Panel1: TPanel;
    Image1: TImage;
    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 N9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

uses Client, MiMa, Search, About, LX, unit1, csinfo;

{$R *.dfm}

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

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

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

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

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

procedure TMainForm.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.