main.pas

我的本科毕业代码,基本功能都出来了.不是特别好,请指教

unit main;

interface

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

type
  TmainForm = class(TForm)
    Database1: TDatabase;
    StatusBar1: TStatusBar;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N14: TMenuItem;
    N2: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N3: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N13: TMenuItem;
    function  getnettime:string;
    procedure addlog(var name,czsj,czlog:string);
    procedure N12Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    dlname:string;
  end;

var
  mainForm: TmainForm;

implementation

uses USERGL, login, password, zdgl, bmgl, dcgl, dzgl, jygl;

{$R *.dfm}

function Tmainform.getnettime:string;
begin
    with tquery.Create(nil) do
    begin
        try
        Close;
        SessionName:=mainform.Database1.SessionName;
        DatabaseName:=mainform.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add('select getdate() as aa');
        Open;
        result:=fieldbyname('aa').AsString;
        finally
        Free;
        end;
    end;
end;
procedure Tmainform.addlog(var name,czsj,czlog:string);
var
sqlstr:string;
begin
    sqlstr:='insert into t_log(name,czsj,czlog) values ('''+name+''','''+czsj+''','''+czlog+''')';
    with tquery.Create(nil) do
    begin
        try
        Close;
        SessionName:=mainform.Database1.SessionName;
        DatabaseName:=mainform.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        finally
        Free;
        end;
    end;
end;
procedure TmainForm.N12Click(Sender: TObject);
begin
    Application.CreateForm(Tusergl_Form, usergl_Form);
    usergl_form.Show;
    N12.Enabled:=false;
end;

procedure TmainForm.N11Click(Sender: TObject);
begin
    Application.CreateForm(TloginForm, loginForm);
    loginform.Show;
    N11.Enabled:=false;
end;

procedure TmainForm.N13Click(Sender: TObject);
begin
    Application.CreateForm(Tpassword_Form, password_Form);
    password_form.Show;
    N13.Enabled:=false;
end;

procedure TmainForm.N14Click(Sender: TObject);
begin
    Application.Terminate;
end;

procedure TmainForm.N23Click(Sender: TObject);
begin
    Application.CreateForm(Tzdgl_Form, zdgl_Form);
    zdgl_form.Show;
    N23.Enabled:=false;
end;

procedure TmainForm.N21Click(Sender: TObject);
begin
    Application.CreateForm(Tbmgl_Form, bmgl_Form);
    bmgl_form.Show;
    N21.Enabled:=false;
end;

procedure TmainForm.N22Click(Sender: TObject);
begin
    Application.CreateForm(Tdcgl_Form, dcgl_Form);
    dcgl_form.Show;
    N22.Enabled:=false;
end;

procedure TmainForm.N31Click(Sender: TObject);
begin
    Application.CreateForm(Tdzgl_Form, dzgl_Form);
    dzgl_form.Show;
    N31.Enabled:=false;
end;

procedure TmainForm.N32Click(Sender: TObject);
begin
    Application.CreateForm(Tjygl_Form, jygl_Form);
    jygl_form.Show;
    N32.Enabled:=false;
end;

end.