main.~pas

delphi 生产管理系统 sql2000位后台数据库

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, bsSkinCtrls, bsSkinData, StdCtrls,
  ExtCtrls, jpeg, RzStatus, RzPanel, SkinCaption, WinSkinData,shellapi;

type
  TFrm_main = class(TForm)
    Image1: TImage;
    MainMenu1: TMainMenu;
    J1: TMenuItem;
    N5: TMenuItem;
    RzStatusBar1: TRzStatusBar;
    RzStatusPane1: TRzStatusPane;
    RzFieldStatus1: TRzFieldStatus;
    RzStatusPane2: TRzStatusPane;
    RzFieldStatus2: TRzFieldStatus;
    RzClockStatus1: TRzClockStatus;
    Label2: TLabel;
    N15: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    F1: TMenuItem;
    N28: TMenuItem;
    S1: TMenuItem;
    N29: TMenuItem;
    N31: TMenuItem;
    Q1: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    RzFieldStatus3: TRzFieldStatus;
    SkinData1: TSkinData;
    SkinCaption1: TSkinCaption;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure N5Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure N29Click(Sender: TObject);
    procedure N31Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main: TFrm_main;

implementation

uses MoKuai_Write, BanChengPin_Write, ChengPin_Write, KC, Fahuo_Write,
  Zhcx, popmanage, usermanager, Fnxiu_Write,share, pass, manage;

{$R *.dfm}

procedure TFrm_main.FormClose(Sender: TObject; var Action: TCloseAction);
var i:integer;
begin
for i:=frm_main.mdichildcount-1 downto 0 do
  mdichildren[i].Close;
end;

procedure TFrm_main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('确认退出该系统？','提示',MB_YESNO )=IDYES then
CanClose:=True
else
CanClose:=False;
end;

procedure TFrm_main.N5Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    Frm_KC:=TFrm_KC.Create(application);
    rzfieldStatus2.Caption :=Frm_KC.Caption;
    Frm_KC.Show;
end;

procedure TFrm_main.N19Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    Frm_MoKuai_write:=TFrm_MoKuai_write.Create(application);
    rzfieldStatus2.Caption :=Frm_MoKuai_write.Caption;
    Frm_MoKuai_write.Show;
end;

procedure TFrm_main.N20Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    Frm_BanChengPin_write:=TFrm_BanChengPin_write.Create(application);
    rzfieldStatus2.Caption :=Frm_BanChengPin_write.Caption;
    Frm_BanChengPin_write.Show;
end;

procedure TFrm_main.N22Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    Frm_ChengPin_write:=TFrm_ChengPin_write.Create(application);
    rzfieldStatus2.Caption :=Frm_ChengPin_write.Caption;
    Frm_ChengPin_write.Show;
end;

procedure TFrm_main.N24Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    Frm_fahuo_write:=TFrm_fahuo_write.Create(application);
    rzfieldStatus2.Caption :=Frm_fahuo_write.Caption;
    Frm_fahuo_write.Show;
end;

procedure TFrm_main.N25Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    Frm_Fanxiu_write:=TFrm_Fanxiu_write.Create(application);
    rzfieldStatus2.Caption :=Frm_Fanxiu_write.Caption;
    Frm_Fanxiu_write.Show;
end;

procedure TFrm_main.N28Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    Frm_zhcx:=TFrm_zhcx.Create(application);
    rzfieldStatus2.Caption :=Frm_zhcx.Caption;
    Frm_zhcx.Show;
end;

procedure TFrm_main.N29Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    frm_usermanager:=Tfrm_usermanager.Create(application);
    rzfieldStatus2.Caption :=frm_usermanager.Caption;
    frm_usermanager.Show;
end;

procedure TFrm_main.N31Click(Sender: TObject);
begin
  frm_popmanage:=TFrm_popmanage.Create(application);
  frm_popmanage.showmodal;
  frm_popmanage.Free;
end;

procedure TFrm_main.N34Click(Sender: TObject);
begin
close;
end;

procedure TFrm_main.FormShow(Sender: TObject);
begin
  if share.pop>0 then
    begin
      N5.Enabled:=false;
      N19.Enabled:=false;
      N20.Enabled:=false;
      N22.Enabled:=false;
      N24.Enabled:=false;
      N25.Enabled:=false;
      N29.Enabled:=false;
      N31.Enabled:=false;
      N4.Enabled:=false;
    end;
  RzFieldStatus1.Caption:=share.czy;
  RzFieldStatus2.Caption:='主界面';
end;

procedure TFrm_main.N27Click(Sender: TObject);
begin
close;
end;

procedure TFrm_main.N32Click(Sender: TObject);
begin
ShellAbout(Handle,'卡欧生产管理系统 V2.0','江苏苏源卡欧电子有限公司 作者:赵春华 潘翰涛',Application.icon.handle);
end;

procedure TFrm_main.N35Click(Sender: TObject);
begin
  Application.Terminate;
  WinExec('Pro_Man_sys.exe', 0);
end;

procedure TFrm_main.N2Click(Sender: TObject);
begin
    frm_pass:=tfrm_pass.create(Application);
    frm_pass.showmodal;
    frm_pass.free;
end;

procedure TFrm_main.N4Click(Sender: TObject);
var i:integer;
begin
    for i:=frm_main.mdichildcount-1 downto 0 do
    begin
      if frm_main.mdichildren[i]<>nil then
      frm_main.mdichildren[i].Close;
    end;
    frm_manage:=Tfrm_manage.Create(application);
    rzfieldStatus2.Caption :=frm_manage.Caption;
    frm_manage.Show;
end;

end.