main.~pa

一套融入了系统营销管理思想的管理软件产品

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, StdActns, ActnList, ExtCtrls, Db, DBTables, Buttons, StdCtrls, jpeg,
  ComCtrls;

type
  TfmMain = class(TForm)
    ActionList: TActionList;
    Arrange1: TWindowArrange;
    Cascade1: TWindowCascade;
    Close1: TWindowClose;
    MinimizeAll1: TWindowMinimizeAll;
    TileHorizontally1: TWindowTileHorizontal;
    TileVertically1: TWindowTileVertical;
    muMain: TMainMenu;
    N12: TMenuItem;
    N15: TMenuItem;
    N14: TMenuItem;
    muSY: TMenuItem;
    muAbout: TMenuItem;
    TileVertically2: TMenuItem;
    Image1: TImage;
    muSY140: TMenuItem;
    muBA: TMenuItem;
    muLogin: TMenuItem;
    muSY110: TMenuItem;
    muSY120: TMenuItem;
    muSY130: TMenuItem;
    N1: TMenuItem;
    muSY150: TMenuItem;
    muIN: TMenuItem;
    muBA110: TMenuItem;
    N54: TMenuItem;
    N52: TMenuItem;
    WINDOWS: TMenuItem;
    N106: TMenuItem;
    muSY500: TMenuItem;
    muBA140: TMenuItem;
    muBA120: TMenuItem;
    muIN110: TMenuItem;
    N2: TMenuItem;
    muIN220: TMenuItem;
    muIN230: TMenuItem;
    muIN250: TMenuItem;
    muIN260: TMenuItem;
    muIN100: TMenuItem;
    N5: TMenuItem;
    muIN270: TMenuItem;
    muBA130: TMenuItem;
    StatusBar: TStatusBar;
    muBA010: TMenuItem;
    muBA020: TMenuItem;
    muBA030: TMenuItem;
    muBA040: TMenuItem;
    muBA050: TMenuItem;
    N11: TMenuItem;
    muBA150: TMenuItem;
    N3: TMenuItem;
    muSA110: TMenuItem;
    muBA210: TMenuItem;
    muBA220: TMenuItem;
    muBA230: TMenuItem;
    muBA240: TMenuItem;
    muBA250: TMenuItem;
    muBA260: TMenuItem;
    muBA270: TMenuItem;
    muBA280: TMenuItem;
    muBA290: TMenuItem;
    muBA300: TMenuItem;
    muAR290: TMenuItem;
    muPR: TMenuItem;
    muPR110: TMenuItem;
    N6: TMenuItem;
    muPR210: TMenuItem;
    muPR220: TMenuItem;
    muPR230: TMenuItem;
    muPR240: TMenuItem;
    muPR250: TMenuItem;
    muPR260: TMenuItem;
    muPR270: TMenuItem;
    muDL: TMenuItem;
    muDL110: TMenuItem;
    N8: TMenuItem;
    muDL210: TMenuItem;
    muDL220: TMenuItem;
    muDL230: TMenuItem;
    muDL240: TMenuItem;
    muDL250: TMenuItem;
    muDL260: TMenuItem;
    muDL270: TMenuItem;
    muIN120: TMenuItem;
    N17: TMenuItem;
    muIN210: TMenuItem;
    muIN240: TMenuItem;
    muAP: TMenuItem;
    muAP110: TMenuItem;
    N7: TMenuItem;
    muAP210: TMenuItem;
    muAP220: TMenuItem;
    muAP230: TMenuItem;
    muAP240: TMenuItem;
    muAP250: TMenuItem;
    muAP260: TMenuItem;
    muAP270: TMenuItem;
    muAP280: TMenuItem;
    muAR: TMenuItem;
    muAR110: TMenuItem;
    muAR210: TMenuItem;
    muAR220: TMenuItem;
    muAR230: TMenuItem;
    muAR240: TMenuItem;
    muAR250: TMenuItem;
    muAR260: TMenuItem;
    muAR270: TMenuItem;
    N10: TMenuItem;
    N13: TMenuItem;
    muSY990: TMenuItem;
    muSY210: TMenuItem;
    muSY220: TMenuItem;
    muSY230: TMenuItem;
    muSY240: TMenuItem;
    N16: TMenuItem;
    muSA: TMenuItem;
    SA1101: TMenuItem;
    SA1201: TMenuItem;
    SA1301: TMenuItem;
    SA2401: TMenuItem;
    N4: TMenuItem;
    muAR280: TMenuItem;
    BA060: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure muSY140Click(Sender: TObject);
    procedure muAboutClick(Sender: TObject);
    procedure muLoginClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure muSY110Click(Sender: TObject);
    procedure muSY130Click(Sender: TObject);
    procedure muSY120Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure muSY500Click(Sender: TObject);
    procedure muBA140Click(Sender: TObject);
    procedure muBA010Click(Sender: TObject);
    procedure muBA020Click(Sender: TObject);
    procedure muBA030Click(Sender: TObject);
    procedure muBA040Click(Sender: TObject);
    procedure muBA050Click(Sender: TObject);
    procedure muBA110Click(Sender: TObject);
    procedure muBA120Click(Sender: TObject);
    procedure muBA130Click(Sender: TObject);
    procedure muBA150Click(Sender: TObject);
    procedure muBA210Click(Sender: TObject);
    procedure muBA220Click(Sender: TObject);
    procedure muBA230Click(Sender: TObject);
    procedure muBA240Click(Sender: TObject);
    procedure muBA250Click(Sender: TObject);
    procedure muBA260Click(Sender: TObject);
    procedure muBA270Click(Sender: TObject);
    procedure muBA280Click(Sender: TObject);
    procedure muBA290Click(Sender: TObject);
    procedure muBA300Click(Sender: TObject);
    procedure muPR110Click(Sender: TObject);
    procedure muPR210Click(Sender: TObject);
    procedure muPR220Click(Sender: TObject);
    procedure muPR230Click(Sender: TObject);
    procedure muPR240Click(Sender: TObject);
    procedure muPR250Click(Sender: TObject);
    procedure muPR260Click(Sender: TObject);
    procedure muPR270Click(Sender: TObject);
    procedure muDL110Click(Sender: TObject);
    procedure muDL210Click(Sender: TObject);
    procedure muDL220Click(Sender: TObject);
    procedure muDL230Click(Sender: TObject);
    procedure muDL240Click(Sender: TObject);
    procedure muDL250Click(Sender: TObject);
    procedure muDL260Click(Sender: TObject);
    procedure muDL270Click(Sender: TObject);
    procedure muIN100Click(Sender: TObject);
    procedure muIN110Click(Sender: TObject);
    procedure muIN120Click(Sender: TObject);
    procedure muIN210Click(Sender: TObject);
    procedure muIN220Click(Sender: TObject);
    procedure muIN230Click(Sender: TObject);
    procedure muIN240Click(Sender: TObject);
    procedure muIN250Click(Sender: TObject);
    procedure muIN260Click(Sender: TObject);
    procedure muIN270Click(Sender: TObject);
    procedure muAP110Click(Sender: TObject);
    procedure muAP210Click(Sender: TObject);
    procedure muAP220Click(Sender: TObject);
    procedure muAP230Click(Sender: TObject);
    procedure muAP240Click(Sender: TObject);
    procedure muAP250Click(Sender: TObject);
    procedure muAP260Click(Sender: TObject);
    procedure muAP270Click(Sender: TObject);
    procedure muAP280Click(Sender: TObject);
    procedure muAR110Click(Sender: TObject);
    procedure muAR210Click(Sender: TObject);
    procedure muAR220Click(Sender: TObject);
    procedure muAR230Click(Sender: TObject);
    procedure muAR240Click(Sender: TObject);
    procedure muAR250Click(Sender: TObject);
    procedure muAR260Click(Sender: TObject);
    procedure muAR270Click(Sender: TObject);
    procedure muAR290Click(Sender: TObject);
    procedure muSA110Click(Sender: TObject);
    procedure SA1101Click(Sender: TObject);
    procedure SA1201Click(Sender: TObject);
    procedure SA1301Click(Sender: TObject);
    procedure SA2401Click(Sender: TObject);
    procedure muSY150Click(Sender: TObject);
    procedure muSY210Click(Sender: TObject);
    procedure muSY220Click(Sender: TObject);
    procedure muSY230Click(Sender: TObject);
    procedure muSY240Click(Sender: TObject);
    procedure muSY990Click(Sender: TObject);
    procedure muAR280Click(Sender: TObject);
    procedure BA060Click(Sender: TObject);
  private
    { Private declarations }
    FClientInstance, FPrevClientProc : TFarProc;
    procedure ClientWndProc(var Message: TMessage);
    procedure ErrorProc(Sender: TObject; E: Exception);
    procedure EnvCreate;
    procedure SystemLogin;
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;
  sUserID, sUserName : String;
  CheckExit : Boolean;
  sSaveErrorMsg : String;
  iScreenFormCount : Integer;

  sStartPeriodDate, sEndPeriodDate : String;
  sOpenningYear, sOpenningMonth, sOpenningDate : String;
  sCompanyID, sCompanyName : String;
  bFirstRun, bRunning : Boolean;

  WaitDlg : String;

  bValid : Boolean;
  sPSWA_NO, sCOMP_NO : String;

implementation

uses PublicFunction, DataModule, Password, 
  Loading, Logout, Progress, About, CheckData,
  BA060, BA140, 
  SY100, SY120, SY140, DL110, BA120, BA220, BA240;


{$R *.DFM}

procedure TfmMain.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 TfmMain.ErrorProc(Sender: TObject; E: Exception);
begin
  if Pos('Invalid input value.  Use escape key to abandon change', E.Message) > 0 then
  begin
    MyWarning('眤瞷