mainwindow.pas.~1~

胜天进销存源码,国产优秀的进销存

{$DEFINE NoAgent}
unit MainWindow;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  BaseForm, ExtCtrls, OleCtrls, SHDocVw, dxBar, jpeg, shellapi, KsSkinForms,
  KsSkinPanels, dbData, ComCtrls, dxBarExtItems, AccountVoucher,
  SQLExecuteForm, ImgList, AgentObjects_TLB, KsSkinLabels, se_controls;

type
  TfrmMainWindow = class(TForm)
    pnlPic: TSeSkinPanel;
    pnlWWW: TSeSkinPanel;
    WebBrowser: TWebBrowser;
    Timer1: TTimer;
    dxBarManager1: TdxBarManager;
    MainSubItem1: TdxBarSubItem;
    MainSubItem2: TdxBarSubItem;
    MainSubItem3: TdxBarSubItem;
    MainSubItem4: TdxBarSubItem;
    MainSubItem5: TdxBarSubItem;
    MainSubItem6: TdxBarSubItem;
    MainSubItem8: TdxBarSubItem;
    MainSubItem9: TdxBarSubItem;
    MainSubItem10: TdxBarSubItem;
    MainSubItem11: TdxBarSubItem;
    MainSubItem12: TdxBarSubItem;
    dxBarButton1: TdxBarButton;
    dxBarButton2: TdxBarButton;
    dxBarButton3: TdxBarButton;
    dxBarButton4: TdxBarButton;
    dxBarButton5: TdxBarButton;
    dxBarButton6: TdxBarButton;
    dxBarButton7: TdxBarButton;
    dxBarButton8: TdxBarButton;
    dxBarButton9: TdxBarButton;
    dxBarButton10: TdxBarButton;
    dxBarButton11: TdxBarButton;
    dxBarButton12: TdxBarButton;
    dxBarButton13: TdxBarButton;
    dxBarButton14: TdxBarButton;
    dxBarButton15: TdxBarButton;
    dxBarButton16: TdxBarButton;
    dxBarButton17: TdxBarButton;
    dxBarButton18: TdxBarButton;
    dxBarButton19: TdxBarButton;
    dxBarButton20: TdxBarButton;
    dxBarButton21: TdxBarButton;
    dxBarButton22: TdxBarButton;
    dxBarButton23: TdxBarButton;
    dxBarButton24: TdxBarButton;
    dxBarButton25: TdxBarButton;
    dxBarButton26: TdxBarButton;
    dxBarButton27: TdxBarButton;
    dxBarButton28: TdxBarButton;
    dxBarButton29: TdxBarButton;
    dxBarButton30: TdxBarButton;
    dxBarButton31: TdxBarButton;
    dxBarButton32: TdxBarButton;
    dxBarButton33: TdxBarButton;
    dxBarButton34: TdxBarButton;
    dxBarButton35: TdxBarButton;
    dxBarButton36: TdxBarButton;
    dxBarButton37: TdxBarButton;
    dxBarButton38: TdxBarButton;
    dxBarButton39: TdxBarButton;
    dxBarButton40: TdxBarButton;
    dxBarButton41: TdxBarButton;
    dxBarButton42: TdxBarButton;
    dxBarButton43: TdxBarButton;
    dxBarButton44: TdxBarButton;
    dxBarButton45: TdxBarButton;
    dxBarButton46: TdxBarButton;
    dxBarButton47: TdxBarButton;
    dxBarButton49: TdxBarButton;
    dxBarButton51: TdxBarButton;
    dxBarButton52: TdxBarButton;
    dxBarButton53: TdxBarButton;
    dxBarButton54: TdxBarButton;
    dxBarButton55: TdxBarButton;
    dxBarButton60: TdxBarButton;
    dxBarButton62: TdxBarButton;
    dxBarButton63: TdxBarButton;
    dxBarButton64: TdxBarButton;
    dxBarButton65: TdxBarButton;
    dxBarButton66: TdxBarButton;
    dxBarButton68: TdxBarButton;
    dxBarButton69: TdxBarButton;
    dxBarButton70: TdxBarButton;
    dxBarButton72: TdxBarButton;
    dxBarButton73: TdxBarButton;
    dxBarButton74: TdxBarButton;
    dxBarButton76: TdxBarButton;
    dxBarButton78: TdxBarButton;
    dxBarButton79: TdxBarButton;
    RepSubItem1: TdxBarSubItem;
    RepSubItem2: TdxBarSubItem;
    RepSubItem3: TdxBarSubItem;
    RepSubItem4: TdxBarSubItem;
    dxBarButton61: TdxBarButton;
    dxBarButton67: TdxBarButton;
    dxBarButton71: TdxBarButton;
    dxBarButton75: TdxBarButton;
    dxBarButton77: TdxBarButton;
    SeSkinForm1: TSeSkinForm;
    dxBarButton81: TdxBarButton;
    dxBarButton82: TdxBarButton;
    dxBarButton83: TdxBarButton;
    dxBarButton84: TdxBarButton;
    dxBarButton85: TdxBarButton;
    dxBarButton86: TdxBarButton;
    dxBarButton87: TdxBarButton;
    dxBarButton88: TdxBarButton;
    dxBarButton89: TdxBarButton;
    dxBarButton90: TdxBarButton;
    dxBarButton91: TdxBarButton;
    dxBarButton92: TdxBarButton;
    dxBarButton93: TdxBarButton;
    dxBarButton94: TdxBarButton;
    dxBarButton95: TdxBarButton;
    dxBarButton96: TdxBarButton;
    dxBarButton97: TdxBarButton;
    dxBarButton98: TdxBarButton;
    dxBarButton99: TdxBarButton;
    dxBarButton100: TdxBarButton;
    dxBarButton101: TdxBarButton;
    dxBarButton102: TdxBarButton;
    dxBarButton103: TdxBarButton;
    dxBarButton104: TdxBarButton;
    dxBarButton105: TdxBarButton;
    imgDesktop: TImage;
    dxBarButton48: TdxBarButton;
    dxBarButton106: TdxBarButton;
    MenuImges: TImageList;
    dxBarButton107: TdxBarButton;
    dxBarButton108: TdxBarButton;
    dxBarButton109: TdxBarButton;
    dxBarButton110: TdxBarButton;
    dxBarButton111: TdxBarButton;
    dxBarButton112: TdxBarButton;
    dxBarButton113: TdxBarButton;
    dxBarButton114: TdxBarButton;
    dxBarButton115: TdxBarButton;
    MainSubItem7: TdxBarSubItem;
    dxBarSubItem1: TdxBarSubItem;
    dxBarButton117: TdxBarButton;
    dxBarButton118: TdxBarButton;
    dxBarButton119: TdxBarButton;
    dxBarButton120: TdxBarButton;
    dxBarButton121: TdxBarButton;
    dxBarButton122: TdxBarButton;
    dxBarButton123: TdxBarButton;
    dxBarButton124: TdxBarButton;
    dxBarButton125: TdxBarButton;
    dxBarButton127: TdxBarButton;
    dxBarButton126: TdxBarButton;
    RepSubItem6: TdxBarSubItem;
    dxBarButton80: TdxBarButton;
    dxBarButton128: TdxBarButton;
    dxBarButton129: TdxBarButton;
    dxBarButton130: TdxBarButton;
    dxBarButton131: TdxBarButton;
    dxBarButton132: TdxBarButton;
    dxBarButton133: TdxBarButton;
    dxBarButton50: TdxBarButton;
    dxBarButton56: TdxBarButton;
    dxBarButton57: TdxBarButton;
    dxBarButton58: TdxBarButton;
    dxBarButton134: TdxBarButton;
    dxBarButton135: TdxBarButton;
    dxBarButton59: TdxBarButton;
    dxBarButton116: TdxBarButton;
    dxBarButton136: TdxBarButton;
    lblNowDate: TSeSkinLabel;
    lblNowAccount: TSeSkinLabel;
    lblNewMan: TSeSkinLabel;
    Timer2: TTimer;
    dxBarButton137: TdxBarButton;
    dxBarButton138: TdxBarButton;
    dxBarButton139: TdxBarButton;
    dxBarButton140: TdxBarButton;
    dxBarButton141: TdxBarButton;
    dxBarButton142: TdxBarButton;
    dxBarButton143: TdxBarButton;
    dxBarButton144: TdxBarButton;
    dxBarButton145: TdxBarButton;
    Panel1: TSeSkinPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure WebBrowserBeforeNavigate2(Sender: TObject;
      const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
      Headers: OleVariant; var Cancel: WordBool);
    procedure Timer1Timer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure dxBarButton2Click(Sender: TObject);
    procedure dxBarButton4Click(Sender: TObject);
    procedure dxBarButton5Click(Sender: TObject);
    procedure dxBarButton6Click(Sender: TObject);
    procedure dxBarButton7Click(Sender: TObject);
    procedure dxBarButton8Click(Sender: TObject);
    procedure dxBarButton9Click(Sender: TObject);
    procedure dxBarButton10Click(Sender: TObject);
    procedure dxBarButton11Click(Sender: TObject);
    procedure dxBarButton12Click(Sender: TObject);
    procedure dxBarButton13Click(Sender: TObject);
    procedure dxBarButton14Click(Sender: TObject);
    procedure dxBarButton15Click(Sender: TObject);
    procedure dxBarButton16Click(Sender: TObject);
    procedure dxBarButton17Click(Sender: TObject);
    procedure dxBarButton18Click(Sender: TObject);
    procedure dxBarButton19Click(Sender: TObject);
    procedure dxBarButton20Click(Sender: TObject);
    procedure dxBarButton21Click(Sender: TObject);
    procedure dxBarButton22Click(Sender: TObject);
    procedure dxBarButton23Click(Sender: TObject);
    procedure dxBarButton24Click(Sender: TObject);
    procedure dxBarButton25Click(Sender: TObject);
    procedure dxBarButton26Click(Sender: TObject);
    procedure dxBarButton27Click(Sender: TObject);
    procedure dxBarButton28Click(Sender: TObject);
    procedure dxBarButton29Click(Sender: TObject);
    procedure dxBarButton30Click(Sender: TObject);
    procedure dxBarButton31Click(Sender: TObject);
    procedure dxBarButton32Click(Sender: TObject);
    procedure dxBarButton33Click(Sender: TObject);
    procedure dxBarButton34Click(Sender: TObject);
    procedure dxBarButton35Click(Sender: TObject);
    procedure dxBarButton36Click(Sender: TObject);
    procedure dxBarButton37Click(Sender: TObject);
    procedure dxBarButton38Click(Sender: TObject);
    procedure dxBarButton39Click(Sender: TObject);
    procedure dxBarButton40Click(Sender: TObject);
    procedure dxBarButton42Click(Sender: TObject);
    procedure dxBarButton43Click(Sender: TObject);
    procedure dxBarButton44Click(Sender: TObject);
    procedure dxBarButton62Click(Sender: TObject);
    procedure dxBarButton63Click(Sender: TObject);
    procedure dxBarButton64Click(Sender: TObject);
    procedure dxBarButton65Click(Sender: TObject);
    procedure dxBarButton66Click(Sender: TObject);
    procedure dxBarButton68Click(Sender: TObject);
    procedure dxBarButton69Click(Sender: TObject);
    procedure dxBarButton70Click(Sender: TObject);
    procedure dxBarButton72Click(Sender: TObject);
    procedure dxBarButton73Click(Sender: TObject);
    procedure dxBarButton74Click(Sender: TObject);
    procedure dxBarButton76Click(Sender: TObject);
    procedure dxBarButton78Click(Sender: TObject);
    procedure dxBarButton79Click(Sender: TObject);
    procedure dxBarButton80Click(Sender: TObject);
    procedure dxBarButton61Click(Sender: TObject);
    procedure dxBarButton67Click(Sender: TObject);
    procedure dxBarButton71Click(Sender: TObject);
    procedure dxBarButton81Click(Sender: TObject);
    procedure dxBarButton82Click(Sender: TObject);
    procedure dxBarButton84Click(Sender: TObject);
    procedure dxBarButton85Click(Sender: TObject);
    procedure dxBarButton83Click(Sender: TObject);
    procedure dxBarButton86Click(Sender: TObject);
    procedure dxBarButton88Click(Sender: TObject);
    procedure dxBarButton87Click(Sender: TObject);
    procedure dxBarButton89Click(Sender: TObject);
    procedure dxBarButton91Click(Sender: TObject);
    procedure dxBarButton90Click(Sender: TObject);
    procedure dxBarButton1Click(Sender: TObject);
    procedure dxBarButton3Click(Sender: TObject);
    procedure dxBarButton96Click(Sender: TObject);
    procedure dxBarButton98Click(Sender: TObject);
    procedure dxBarButton41Click(Sender: TObject);
    procedure dxBarButton99Click(Sender: TObject);
    procedure dxBarButton102Click(Sender: TObject);
    procedure dxBarButton45Click(Sender: TObject);
    procedure dxBarButton103Click(Sender: TObject);
    procedure dxBarButton104Click(Sender: TObject);
    procedure dxBarButton105Click(Sender: TObject);
    procedure dxBarButton46Click(Sender: TObject);
    procedure dxBarButton60Click(Sender: TObject);
    procedure dxBarButton47Click(Sender: TObject);
    procedure dxBarButton51Click(Sender: TObject);
    procedure dxBarButton106Click(Sender: TObject);
    procedure dxBarButton97Click(Sender: TObject);
    procedure dxBarButton54Click(Sender: TObject);
    procedure dxBarButton55Click(Sender: TObject);
    procedure dxBarButton48Click(Sender: TObject);
    procedure dxBarButton77Click(Sender: TObject);
    procedure dxBarButton107Click(Sender: TObject);
    procedure dxBarButton108Click(Sender: TObject);
    procedure dxBarButton109Click(Sender: TObject);
    procedure dxBarButton114Click(Sender: TObject);
    procedure dxBarButton93Click(Sender: TObject);
    procedure dxBarButton94Click(Sender: TObject);
    procedure dxBarButton95Click(Sender: TObject);
    procedure dxBarButton92Click(Sender: TObject);
    procedure dxBarButton115Click(Sender: TObject);
    procedure dxBarButton117Click(Sender: TObject);
    procedure dxBarButton118Click(Sender: TObject);
    procedure dxBarButton119Click(Sender: TObject);
    procedure dxBarButton120Click(Sender: TObject);
    procedure dxBarButton121Click(Sender: TObject);
    procedure dxBarButton122Click(Sender: TObject);
    procedure dxBarButton126Click(Sender: TObject);
    procedure dxBarButton127Click(Sender: TObject);
    procedure dxBarButton130Click(Sender: TObject);
    procedure dxBarButton75Click(Sender: TObject);
    procedure dxBarButton50Click(Sender: TObject);
    procedure dxBarButton57Click(Sender: TObject);
    procedure dxBarButton56Click(Sender: TObject);
    procedure dxBarButton58Click(Sender: TObject);
    procedure dxBarButton134Click(Sender: TObject);
    procedure dxBarButton110Click(Sender: TObject);
    procedure dxBarButton111Click(Sender: TObject);
    procedure dxBarButton112Click(Sender: TObject);
    procedure dxBarButton113Click(Sender: TObject);
    procedure dxBarButton131Click(Sender: TObject);
    procedure dxBarButton132Click(Sender: TObject);
    procedure dxBarButton133Click(Sender: TObject);
    procedure dxBarButton100Click(Sender: TObject);
    procedure dxBarButton101Click(Sender: TObject);
    procedure dxBarButton135Click(Sender: TObject);
    procedure myAgentClick(Sender: TObject; const CharacterID: WideString;
      Button, Shift, x, y: Smallint);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure myAgentMove(Sender: TObject; const CharacterID: WideString;
      x, y, Cause: Smallint);
    procedure dxBarButton59Click(Sender: TObject);
    procedure dxBarButton116Click(Sender: TObject);
    procedure dxBarButton136Click(Sender: TObject);
    procedure dxBarButton128Click(Sender: TObject);
    procedure dxBarButton129Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure dxBarButton137Click(Sender: TObject);
    procedure dxBarButton138Click(Sender: TObject);
    procedure dxBarButton124Click(Sender: TObject);
    procedure dxBarButton141Click(Sender: TObject);
  private
    { Private declarations }
    sDesktop, sRegCaption: string;
    lAgeIndex: Integer;
    procedure WriteLoginState;
    function CreateAgent(sFile: string): Boolean; //建立助手
    procedure LookMove(lIndex: Integer); //助手动作
    procedure WriteMenuTag; //写菜单Tag
    procedure LoadWwwOrPic; //是否启用图形界面
    procedure DrawDesktop; //读桌面文件
    procedure CheckRegister; //检查是否为注册版
    function MenuVisible(lVis: Integer): Boolean;
    function LoadURL(sUrl: string): Boolean;
    procedure StartAnnunctator; //启动报警
  public
    { Public declarations }
  end;

var
  frmMainWindow: TfrmMainWindow;

implementation

uses SetFormStyle, UserLimitForm, SysPublic, ChangePassForm, AboutForm,
  UpdateSD3000, BackupAccountForm, AccountInfoForm, SoftRegisterForm,
  ListForm, FixDepDlg, AgentDialog;

{$R *.DFM}

procedure TfrmMainWindow.CheckRegister;
var
  sPcCode, sRegName, sRegCode: string;
begin
  sRegName := GetIniValue(frmData.ADOConnetLogin, 'RegisterName');
  sRegCode := GetIniValue(frmData.ADOConnetLogin, 'RegisterCode');
  sPcCode := MakeRegisterCode(sRegName, MakeComputerCode);
  if (sPcCode = sRegCode) or (sRegCode = GENERAL_REGISTER_CODE) then
  begin
    bSoftRegister := True;
    Caption := sRegCaption + '(正式版)';
  end
  else
    Caption := sRegCaption + '(未注册版)';
end;

function TfrmMainWindow.CreateAgent(sFile: string): Boolean;
begin
  Result := False;
  try
    {$IFNDEF NoAgent}
    Request := myAgent.Characters.Load('peedy', sFile);
    {$ELSE}

    {$ENDIF}
  except
    Exit;
  end;
  {$IFNDEF NoAgent}
  Peedy := myAgent.Characters.Character('Peedy');
  {$ELSE}

  {$ENDIF}
  Peedy.MoveTo((Screen.Width - peedy.Width), (Screen.Height - peedy.Height) -
    30, 5);
  Peedy.Show(0);
  Request := Peedy.Play('Greeting');
  Result := True;
end;

function TfrmMainWindow.MenuVisible(lVis: Integer): Boolean;
begin
  dxBarManager1.LockUpdate := True;
  case lVis of
    0:
      begin
        MainSubItem1.Visible := ivAlways;
        MainSubItem2.Visible := ivAlways;
        MainSubItem3.Visible := ivAlways;
        MainSubItem4.Visible := ivAlways;
        MainSubItem5.Visible := ivAlways;
        MainSubItem6.Visible := ivAlways;
        MainSubItem7.Visible := ivAlways;
        MainSubItem8.Visible := ivAlways;
        MainSubItem9.Visible := ivAlways;
        MainSubItem10.Visible := ivAlways;