main.pas

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

unit MAIN;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList;

type
  TMainForm = class(TForm)
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    FileNewItem: TMenuItem;
    FileOpenItem: TMenuItem;
    FileCloseItem: TMenuItem;
    Window1: TMenuItem;
    Help1: TMenuItem;
    N1: TMenuItem;
    FileExitItem: TMenuItem;
    WindowCascadeItem: TMenuItem;
    WindowTileItem: TMenuItem;
    WindowArrangeItem: TMenuItem;
    HelpAboutItem: TMenuItem;
    OpenDialog: TOpenDialog;
    FileSaveItem: TMenuItem;
    FileSaveAsItem: TMenuItem;
    Edit1: TMenuItem;
    CutItem: TMenuItem;
    CopyItem: TMenuItem;
    PasteItem: TMenuItem;
    WindowMinimizeItem: TMenuItem;
    StatusBar: TStatusBar;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    FileNew1: TAction;
    FileSave1: TAction;
    FileExit1: TAction;
    FileOpen1: TAction;
    FileSaveAs1: TAction;
    WindowCascade1: TWindowCascade;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowArrangeAll1: TWindowArrange;
    WindowMinimizeAll1: TWindowMinimizeAll;
    HelpAbout1: TAction;
    FileClose1: TWindowClose;
    WindowTileVertical1: TWindowTileVertical;
    WindowTileItem2: TMenuItem;
    ToolBar2: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton9: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ImageList1: TImageList;
    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;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    ImageList2: TImageList;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    BitBtn1: TBitBtn;
    Button10: TButton;
    procedure HelpAbout1Execute(Sender: TObject);
    procedure FileExit1Execute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

uses UMDDY,USQYDY,USPXX,UGYS,UKHXX,UKHFL,UGPXX,UXSD,UCXSDDCX,
     about,ULIGON,UYHQX;


procedure TMainForm.HelpAbout1Execute(Sender: TObject);
begin
  AboutBox.ShowModal;
end;

procedure TMainForm.FileExit1Execute(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFSPXX, FSPXX);
    FSPXX.ShowModal;
  finally
    FSPXX.Free;
  end;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFGYS, FGYS);
    FGYS.ShowModal;
  finally
    FGYS.Free;
  end;
end;

procedure TMainForm.Button3Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFKHFL, FKHFL);
    FKHFL.ShowModal;
  finally
    FKHFL.Free;
  end;
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFMDDY, FMDDY);
    FMDDY.ShowModal;
  finally
    FMDDY.Free;
  end;
end;

procedure TMainForm.Button5Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFSQYDY, FSQYDY);
    FSQYDY.ShowModal;
  finally
    FSQYDY.Free;
  end;
end;

procedure TMainForm.Button6Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFKHXX, FKHXX);
    FKHXX.ShowModal;
  finally
    FKHXX.Free;
  end;
end;

procedure TMainForm.Button7Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFGPXX, FGPXX);
    FGPXX.ShowModal;
  finally
    FGPXX.Free;
  end;
end;

procedure TMainForm.Button8Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFXSD, FXSD);
    FXSD.ShowModal;
  finally
    FXSD.Free;
  end;
end;

procedure TMainForm.Button9Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFCXSDDCX, FCXSDDCX);
    FCXSDDCX.ShowModal;
  finally
    FCXSDDCX.Free;
  end;
end;

procedure TMainForm.BitBtn1Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFLIGON, FLIGON);
    FLIGON.ShowModal;
  finally
    FLIGON.Free;
  end;
end;

procedure TMainForm.Button10Click(Sender: TObject);
begin
  try
    Application.CreateForm(TFYHQX, FYHQX);
    FYHQX.ShowModal;
  finally
    FYHQX.Free;
  end;
end;

end.