scmain.~pas

实用的毛织生产管理系统

unit scmain;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, ToolWin, ImgList, constb, jpeg;

type
  Tscmainfm = class(TForm)
    ImageList1: TImageList;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    StatusBar1: TStatusBar;
    ControlBar1: TControlBar;
    ToolBar3: TToolBar;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolBar2: TToolBar;
    ToolButton5: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N5: TMenuItem;
    N10: TMenuItem;
    N15: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N9: TMenuItem;
    N12: TMenuItem;
    N7: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    Image1: TImage;
    p1: TMenuItem;
    N22: TMenuItem;
    ToolButton2: TToolButton;
    N23: TMenuItem;
    N3: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure p1Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N3Click(Sender: TObject);

  private
   FClientInstance,
   FPrevClientProc : TFarProc;

   PROCEDURE ClientWndProc(VAR Message: TMessage);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  scmainfm: Tscmainfm;

implementation

uses scbrow, gxmanage, pnmanage, guestmanage, about, gxmainrpt, pnomainrpt,
  gzyrpt, fpnojrpt, nfinishpno, fdeptgx,pprice;

{$R *.dfm}
PROCEDURE Tscmainfm.ClientWndProc(VAR Message: TMessage); 
VAR 
  MyDC : hDC; 
  Ro, Co : Word; 
begin 
   with Message do
    case Msg of
      WM_ERASEBKGND:
        begin
          MyDC := TWMEraseBkGnd(Message).DC;
          FOR Ro := 0 TO ClientHeight DIV Image1.Picture.Height DO
            FOR Co := 0 TO ClientWIDTH DIV Image1.Picture.Width DO
              BitBlt(MyDC, Co*Image1.Picture.Width, Ro*Image1.Picture.Height,
                Image1.Picture.Width, Image1.Picture.Height,
                Image1.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
          Result := 1;
        end;
    else
       Result := CallWindowProc(FPrevClientProc, ClientHandle, Msg, wParam, lParam);
    end;
end;

procedure Tscmainfm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg('要退出生产系统吗？',mtinformation,mbokcancel,0)=mrok then
  action := cafree
  else
  abort;
end;

procedure Tscmainfm.FormDestroy(Sender: TObject);
begin
  scmainfm := nil;
end;

procedure Tscmainfm.FormCreate(Sender: TObject);
begin
  statusbar1.Panels[1].Text := logincd;
  statusbar1.Panels[3].Text := loginnm;
  statusbar1.Panels[5].Text := datetostr(date);
 // InvalidateRect(ClientHandle, nil, True);
end;


procedure Tscmainfm.N17Click(Sender: TObject);
begin
  close;
end;

procedure Tscmainfm.N5Click(Sender: TObject);
begin
  if not assigned(scbrowfm) then
    scbrowfm := tscbrowfm.create(application)
  else
    scbrowfm.WindowState := wsMaximized;
  scbrowfm.show;

end;

procedure Tscmainfm.ToolButton6Click(Sender: TObject);
begin
  schscgxflg := false;
  if not assigned(gxmanagefm) then
    gxmanagefm := tgxmanagefm.create(application);
    gxmanagefm.formstyle := fsmdichild;
  gxmanagefm.Visible := true;

  //gxmanagefm.WindowState := wsMaximized;
  gxmanagefm.Left := 0;
  gxmanagefm.top := 0;

  gxmanagefm.Show;

end;

procedure Tscmainfm.N15Click(Sender: TObject);
begin
 schflg := false;
  if not assigned(guestmanagefm) then
    guestmanagefm := tguestmanagefm.create(application);
  guestmanagefm.Visible := true;
  guestmanagefm.formstyle := fsmdichild;

  guestmanagefm.WindowState := wsMaximized;
  guestmanagefm.Show;
end;

procedure Tscmainfm.ToolButton8Click(Sender: TObject);
begin
  schpnoflg := false;
  if not assigned(pnmanagefm) then
    pnmanagefm := tpnmanagefm.create(application);
  pnmanagefm.Visible := true;
  pnmanagefm.formstyle := fsmdichild;
  pnmanagefm.WindowState := wsMaximized;

  pnmanagefm.Show;

end;

procedure Tscmainfm.N14Click(Sender: TObject);
begin
if not assigned(aboutboxfm) then
aboutboxfm:=taboutboxfm.create(application);
aboutboxfm.showmodal;

end;

procedure Tscmainfm.N9Click(Sender: TObject);
begin
if not assigned(pnomainrptfm) then
pnomainrptfm:=tpnomainrptfm.create(application);
pnomainrptfm.show;

end;

procedure Tscmainfm.N12Click(Sender: TObject);
begin
if not assigned(gzyrptfm) then
gzyrptfm:=tgzyrptfm.create(application);
gzyrptfm.show;

end;

procedure Tscmainfm.p1Click(Sender: TObject);
begin
if not assigned(fpnojrptfm) then
fpnojrptfm:=tfpnojrptfm.create(application);
fpnojrptfm.show;

end;

procedure Tscmainfm.N22Click(Sender: TObject);
begin
if not assigned(nfinishpnofm) then
nfinishpnofm:=tnfinishpnofm.create(application);
nfinishpnofm.show;
end;

procedure Tscmainfm.N23Click(Sender: TObject);
begin
if not assigned(fdeptgxfm) then
fdeptgxfm:=tfdeptgxfm.create(application);
fdeptgxfm.show;
end;

procedure Tscmainfm.N3Click(Sender: TObject);
begin
//  schscgxflg := false;
  if not assigned(ppricefm) then
    ppricefm := tppricefm.create(application);
    ppricefm.formstyle := fsmdichild;
    ppricefm.Visible := true;

  //gxmanagefm.WindowState := wsMaximized;
    ppricefm.Left := 0;
    ppricefm.top := 0;

    ppricefm.Show;
end;

end.