mainform.~pas

用Delphi编写的生产管理系统源码

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, ExtCtrls, DBCtrls, ToolWin, ComCtrls, TFlatHintUnit,
  Menus, ActnList, UserInfo, DB, AppEvnts, StdCtrls, IniFiles, WinInfo,
  ADODB;

type
  TFrmMain = class(TForm)
    ControlBar1: TControlBar;
    CoolBar2: TCoolBar;
    CoolBar1: TCoolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    FlatHint1: TFlatHint;
    MainMenu1: TMainMenu;
    ActionListDeveloper: TActionList;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    ApplicationEvents1: TApplicationEvents;
    N32: TMenuItem;
    N33: TMenuItem;
    Action_A_1: TAction;
    SpeedButton4: TSpeedButton;
    ADODataSet1: TADODataSet;
    procedure FormCreate(Sender: TObject);
    procedure Action_A_1Execute(Sender: TObject);
    procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  published
    //  property DataSource:TDataSource read MainDataSource write MainDataSource;
  end;

var
  FrmMain: TFrmMain;
  SysUser: TSysUser;

implementation

uses  LoginForm, Form_develop_0A, AdoDataMoudle;

{$R *.dfm}

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  if not Assigned(frmlogin) then
    FrmLogin := TFrmLogin.Create(application);
  frmlogin.ShowModal;
  FrmLogin := nil;
  OnActivate := nil;

  //