main.pas

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, System.ComponentModel, DBXpress,
  SqlExpr, FMTBcd, DB, DBTables;

type
  Tmain_Form = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N2: TMenuItem;
    N21: TMenuItem;
    N3: TMenuItem;
    N31: TMenuItem;
    N4: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    StatusBar1: TStatusBar;
    N5: TMenuItem;
    N51: TMenuItem;
    Database1: TDatabase;
    function getnettime:string;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N51Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    dlname:string;
  end;

var
  main_Form: Tmain_Form;

implementation

uses USERGL, login, bddgl, gygl, sfgl, sjgl, ModiMM;

{$R *.dfm}

function Tmain_form.getnettime:string;
begin
    with tquery.Create(nil) do
    begin
        try
        Close;
        sessionName:=main_Form.Database1.SessionName;
        DatabaseName:=main_Form.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add('select getdate() as aa');
        Open;
        result:=fieldbyname('aa').AsString;
        finally
        Free;
        end;
    end;
end;


procedure Tmain_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    if MessageDlg('你确认要退出系统吗？',mtConfirmation, [mbYes, mbNo], 0) = mrYes THEN
      begin
        Database1.Close;
        ACTION:=caFree;
      end
    ELSE
        ACTION:=caNone;
end;

procedure Tmain_Form.N12Click(Sender: TObject);
begin
    Application.CreateForm(Tusergl_form, usergl_Form);
    usergl_form.Show;
    N12.Enabled:=false;
end;

procedure Tmain_Form.N11Click(Sender: TObject);
begin
    Application.CreateForm(Tlogin_form, login_Form);
    login_form.Show;
    N11.Enabled:=false;
end;

procedure Tmain_Form.N21Click(Sender: TObject);
begin
    Application.CreateForm(Tbddgl_Form, bddgl_Form);
    bddgl_form.Show;
    N21.Enabled:=false;
end;

procedure Tmain_Form.N31Click(Sender: TObject);
begin
    Application.CreateForm(Tgygl_Form, gygl_Form);
    gygl_form.Show;
    N31.Enabled:=false;
end;

procedure Tmain_Form.N41Click(Sender: TObject);
begin
    Application.CreateForm(Tsfgl_Form, sfgl_Form);
    sfgl_form.Show;
    N41.Enabled:=false;
end;

procedure Tmain_Form.N51Click(Sender: TObject);
begin
    Application.CreateForm(Tsjgl_Form, sjgl_Form);
    sjgl_form.Show;
    N51.Enabled:=false;
end;

procedure Tmain_Form.N14Click(Sender: TObject);
begin
  Close;
end;

procedure Tmain_Form.N13Click(Sender: TObject);
begin
  Application.CreateForm(TModiMMForm, ModiMMForm);
  ModiMMForm.Show;
  N13.Enabled:=false;
end;

end.