scmain.pas.bak

实用的毛织生产管理系统

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('璶癶