umain.~pas

天涯進銷存系統

unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnMan, ActnColorMaps, ExtCtrls, ActnList, XPStyleActnCtrls,
  ToolWin, ActnCtrls, ActnMenus, LBCtrls, ImgList, jpeg,
  StdCtrls, ShellApi, Menus, ComCtrls, LBMorphVCLBase, LBMorphButton;

type
  TfrmMain = class(TForm)
    ActionList1: TActionList;
    Panel2: TPanel;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    Action6: TAction;
    Action0: TAction;
    plMenu: TPanel;
    Image1: TImage;
    amMenuBar: TActionMainMenuBar;
    amMemu: TActionManager;
    ToolbarImageList: TImageList;
    Action8: TAction;
    Action9: TAction;
    Action10: TAction;
    Action12: TAction;
    Action13: TAction;
    Action14: TAction;
    Action16: TAction;
    Action17: TAction;
    Action18: TAction;
    Action19: TAction;
    Action20: TAction;
    Panel1: TPanel;
    Image2: TImage;
    MinButton: TLBMorphButton;
    SysCloseButton: TLBMorphButton;
    WindowCaption: TLabel;
    AccinfoLabel: TLabel;
    CloseFrmButton: TLBMorphButton;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    XPColorMap: TXPColorMap;
    Shape1: TShape;
    Shape2: TShape;
    Action11: TAction;
    Action15: TAction;
    Action7: TAction;
    Action21: TAction;
    Action22: TAction;
    Action23: TAction;
    Action24: TAction;
    Action25: TAction;
    Action26: TAction;
    Action27: TAction;
    Action28: TAction;
    Action29: TAction;
    WebButton: TImage;
    PopupMenu1: TPopupMenu;
    Action30: TAction;
    Action31: TAction;
    Action32: TAction;
    Action33: TAction;
    Action34: TAction;
    Action35: TAction;
    Action36: TAction;
    Action37: TAction;
    Action38: TAction;
    Action39: TAction;
    Action40: TAction;
    Action41: TAction;
    Action01: TAction;
    Action02: TAction;
    Action03: TAction;
    Action04: TAction;
    Action05: TAction;
    Action06: TAction;
    Action07: TAction;
    Action08: TAction;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure CloseFrmButtonClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure Action5Execute(Sender: TObject);
    procedure Action6Execute(Sender: TObject);
    procedure Action0Execute(Sender: TObject);
    procedure Action8Execute(Sender: TObject);
    procedure SysCloseButtonClick(Sender: TObject);
    procedure Action9Execute(Sender: TObject);
    procedure Action10Execute(Sender: TObject);
    procedure Action12Execute(Sender: TObject);
    procedure Action13Execute(Sender: TObject);
    procedure Action14Execute(Sender: TObject);
    procedure Action16Execute(Sender: TObject);
    procedure Action17Execute(Sender: TObject);
    procedure Action18Execute(Sender: TObject);
    procedure Action19Execute(Sender: TObject);
    procedure Action20Execute(Sender: TObject);
    procedure Action7Execute(Sender: TObject);
    procedure Action11Execute(Sender: TObject);
    procedure Action15Execute(Sender: TObject);
    procedure WebButtonClick(Sender: TObject);
    procedure Action21Execute(Sender: TObject);
    procedure Action22Execute(Sender: TObject);
    procedure Action23Execute(Sender: TObject);
    procedure Action24Execute(Sender: TObject);
    procedure Action25Execute(Sender: TObject);
    procedure Action26Execute(Sender: TObject);
    procedure Action27Execute(Sender: TObject);
    procedure Action29Execute(Sender: TObject);
    procedure Action28Execute(Sender: TObject);
    procedure Action30Execute(Sender: TObject);
    procedure Action31Execute(Sender: TObject);
    procedure Action32Execute(Sender: TObject);
    procedure Action33Execute(Sender: TObject);
    procedure Action34Execute(Sender: TObject);
    procedure Action35Execute(Sender: TObject);
    procedure Action36Execute(Sender: TObject);
    procedure Action37Execute(Sender: TObject);
    procedure Action38Execute(Sender: TObject);
    procedure Action39Execute(Sender: TObject);
    procedure Action40Execute(Sender: TObject);
    procedure Action41Execute(Sender: TObject);
    procedure Action01Execute(Sender: TObject);
    procedure Action02Execute(Sender: TObject);
    procedure Action03Execute(Sender: TObject);
    procedure Action04Execute(Sender: TObject);
    procedure Action05Execute(Sender: TObject);
    procedure Action06Execute(Sender: TObject);
    procedure Action07Execute(Sender: TObject);
    procedure Action08Execute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MinButtonClick(Sender: TObject);
    procedure Image2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image2DblClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure maxbuttonClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    SCREENX,SCREENY:INTEGER;
  public
    { Public declarations }
    ShowFrm: TCustomForm;


  end;

var
  frmMain: TfrmMain;

implementation

uses uPublicvar, uClientinfo, uProviderinfo, uPartinfo, uStorage,
  uDepartment, uEmployee, uDate, uBaseData, uStockOrder, uInitializeInPut,
  uStockInPut, uInPutReimburse, uSaleOrder, uSaleBill, uOutPutReimburse,
  uPartsMove, uStorageCheck, uStoragePart, uStorageRedressal, uFilialeinfo,
  uRemoveInPut, uRemoveOutPut, uAccept, uPayment, uCashdayAccBook,
  uBankDayAccBook, uDayAccBook, uYearAccBook, uMonthAccBook, uAccountReceivable,
  uAccountPayable, uPartinputRep, uStockOrderRep, uPartInputReimburseRep,
  uSaleOrderRep, uPartoutputRep, uPartOutputReimburseRep, uPartSalegainRep,
  uUserSetup, uUserEditPassword, uSysinfoEdit, uWelcome, uDataMo, uSelectAcc,
  uUserlogin, uConst, uRemoveInPutRep, uRemoveOutPutRep, Tools;

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
var
  i: integer;
  s: string;
  sx,   sy:   Integer;
  DevMode:   TDeviceMode;
begin
  Left:=0;
  Top:=0;
  Width:=800;
  Height:=600;
  WindowItem:=TStringList.Create;
  CloseFrmButton.Hint:='关闭窗口';
  sDate:=Date;
  ApplicationPath:=ExtractFileDir(Application.Exename);
  if Length(ApplicationPath)>3 then ApplicationPath:=ApplicationPath+'\';
  ReportPath:=ApplicationPath+'Report\';
  //修改系统分辨率
  sx   :=   GetSystemMetrics(SM_CXSCREEN);   //分辨率宽
  sy   :=   GetSystemMetrics(SM_CYSCREEN);   //分辨率高
      //用于在程序结束时把分辨率   改回原始状态   
  screenx   :=   sx;   //分辨率宽
  screeny   :=   sy;   //分辨率高
  if   (sx   <>   800)   and   (sy   <>   600)   then
      begin   
          DevMode.dmFields   :=   DM_PELSWIDTH   or   DM_PELSHEIGHT;   
          DevMode.dmPelsWidth   :=   800;
          DevMode.dmPelsHeight   :=   600;   
          ChangeDisplaySettings(DevMode,0);   //设置新的显示参数   
      end;

end;

procedure TfrmMain.SysCloseButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmMain.CloseFrmButtonClick(Sender: TObject);
begin
  with WindowItem do
  begin
    if Count> 0 then
    TCustomForm(WindowItem.Objects[0]).Close;
  end;
end;

procedure TfrmMain.FormDestroy(Sender: TObject);
 var   
      sx,   sy:   Integer;   
      DevMode:   TDeviceMode;   
  begin   
                    sx   :=   GetSystemMetrics(SM_CXSCREEN);   //分辨率宽   
                    sy   :=   GetSystemMetrics(SM_CYSCREEN);   //分辨率高   
                  if   (sx   <>   screenx)   and   (sy   <>   screeny)   then   
                  begin   
                        DevMode.dmFields   :=   DM_PELSWIDTH   or   DM_PELSHEIGHT;   
                        DevMode.dmPelsWidth   :=   screenx;   
                        DevMode.dmPelsHeight   :=   screeny;   
                        ChangeDisplaySettings(DevMode,0);   //设置新的显示参数   
                  end;
  WindowItem.Free;
end;

procedure TfrmMain.WebButtonClick(Sender: TObject);
begin
  ShellExecute(0, Nil, 'http://www.wanyida.cn/coms', Nil, Nil, 0);
end;


procedure TfrmMain.Action0Execute(Sender: TObject);
begin
  if not Assigned(frmBaseData) then
  frmBaseData:=TfrmBaseData.Create(Application);
  frmBaseData.show;
end;

procedure TfrmMain.Action1Execute(Sender: TObject);
begin
  if not Assigned(frmClientinfo) then
  frmClientinfo:=TfrmClientinfo.Create(Application);
  frmClientinfo.show;
end;

procedure TfrmMain.Action2Execute(Sender: TObject);
begin
  if not Assigned(frmProviderinfo) then
  frmProviderinfo:=TfrmProviderinfo.Create(Application);
  frmProviderinfo.show;
end;

procedure TfrmMain.Action3Execute(Sender: TObject);
begin
  if not Assigned(frmPartinfo) then
  frmPartinfo:=TfrmPartinfo.Create(Application);
  frmPartinfo.Show; 
end;

procedure TfrmMain.Action4Execute(Sender: TObject);
begin
  if not Assigned(frmStorage) then
  frmStorage:=TfrmStorage.Create(Application);
  frmStorage.Show; 
end;

procedure TfrmMain.Action5Execute(Sender: TObject);
begin
  if not Assigned(frmDepartment) then
  frmDepartment:=TfrmDepartment.Create(Application);
  frmDepartment.Show; 
end;

procedure TfrmMain.Action6Execute(Sender: TObject);
begin
  if not Assigned(frmEmployee) then
  frmEmployee:=TfrmEmployee.Create(Application);
  frmEmployee.Show; 
end;

procedure TfrmMain.Action7Execute(Sender: TObject);
begin
  if not Assigned(frmFilialeinfo) then
  frmFilialeinfo:=TfrmFilialeinfo.Create(Application);
  frmFilialeinfo.Show;
end;

procedure TfrmMain.Action8Execute(Sender: TObject);
begin
  if not Assigned(frmStockOrder) then
  frmStockOrder:=TfrmStockOrder.Create(Application);
  frmStockOrder.Show; 
end;


procedure TfrmMain.Action9Execute(Sender: TObject);
begin
  if not Assigned(frmInitializeInPut) then
  frmInitializeInPut:=TfrmInitializeInPut.Create(Application);
  frmInitializeInPut.Show; 
end;

procedure TfrmMain.Action10Execute(Sender: TObject);
begin
  if not Assigned(frmStockInPut) then
  frmStockInput:=TfrmStockInput.Create(Application);
  frmStockInput.Show; 
end;

procedure TfrmMain.Action11Execute(Sender: TObject);
begin
  if not Assigned(frmRemoveInPut) then
  frmRemoveInPut:=TfrmRemoveInPut.Create(Application);