unit uMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ActnList, XPStyleActnCtrls, ActnMan, ToolWin, ActnCtrls,
  ActnMenus, ExtCtrls, ImgList, DB, DBClient, MConnect, ComCtrls,
  StdStyleActnCtrls, cxControls, cxContainer, cxEdit, cxLabel, StdCtrls,
  Buttons, jpeg;

type
  TfrmMain = class(TForm)
    ImageBj: TImage;
    DCOMCn: TDCOMConnection;
    StatusBar1: TStatusBar;
    cdPub: TClientDataSet;
    ActionMainMenuBar1: TActionMainMenuBar;
    ActionManager1: TActionManager;
    acClose: TAction;
    acAbout: TAction;
    ac_ChangePass: TAction;
    acStockInit1: TAction;
    acHCpInit: TAction;
    acCpInit: TAction;
    Images: TImageList;
    Images16: TImageList;
    acStockPlan: TAction;
    acStockPlanJc: TAction;
    acStockRanliaoCc: TAction;
    acStockRanliaoJc: TAction;
    acStockCheJianCc: TAction;
    acHCpCaiChuangJc: TAction;
    acHcpJiaGongCc: TAction;
    acHcpJiaGongJc: TAction;
    acCpJc: TAction;
    acCpXiaoShou: TAction;
    acMoney: TAction;
    acClient: TAction;
    acUser: TAction;
    acSqlDan: TAction;
    acSqlZhangBenCw: TAction;
    acSqlChanpin: TAction;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton15: TToolButton;
    ToolButton16: TToolButton;
    ToolButton17: TToolButton;
    StyleCTR: TcxEditStyleController;
    acColor: TAction;
    acAccountBook: TAction;
    acAccountBookMoney: TAction;
    acStockMonthRpt: TAction;
    acHGoodsMonthRpt: TAction;
    acGoodsMonthRpt: TAction;
    acMoneyMonthRpt: TAction;
    acMoneyDayRpt: TAction;
    acStockDayRpt: TAction;
    acHGoodsDayRpt: TAction;
    acGoodsDayRpt: TAction;
    acStockPlanDayRpt: TAction;
    acStockPlanMonthRpt: TAction;
    acUserChange: TAction;
    acHGoodsOut: TAction;
    imgBar: TImage;
    ImageBar2: TImage;
    ImageBar1: TImage;
    ImageBar4: TImage;
    ImageBar3: TImage;
    ImageBar5: TImage;
    imgClose: TImage;
    acShowBar: TAction;
    spB11: TSpeedButton;
    spB12: TSpeedButton;
    spB13: TSpeedButton;
    spB14: TSpeedButton;
    spB15: TSpeedButton;
    spB16: TSpeedButton;
    spb21: TSpeedButton;
    spb22: TSpeedButton;
    spb23: TSpeedButton;
    spb24: TSpeedButton;
    spb25: TSpeedButton;
    spb31: TSpeedButton;
    spb32: TSpeedButton;
    spb33: TSpeedButton;
    spb34: TSpeedButton;
    spb41: TSpeedButton;
    spb42: TSpeedButton;
    spb43: TSpeedButton;
    spb44: TSpeedButton;
    spb51: TSpeedButton;
    spb52: TSpeedButton;
    spb53: TSpeedButton;
    Image1: TImage;
    acTrackOpt: TAction;
    procedure ac_closeExecute(Sender: TObject);
    procedure acChangePassExecute(Sender: TObject);
    procedure ac_aboutExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure acCloseExecute(Sender: TObject);
    procedure acAboutExecute(Sender: TObject);
    procedure ac_ChangePassExecute(Sender: TObject);
    procedure acStockInit1Execute(Sender: TObject);
    procedure acHCpInitExecute(Sender: TObject);
    procedure acCpInitExecute(Sender: TObject);
    procedure acStockPlanExecute(Sender: TObject);
    procedure acCpXiaoShouExecute(Sender: TObject);
    procedure acCpJcExecute(Sender: TObject);
    procedure acStockRanliaoCcExecute(Sender: TObject);
    procedure acStockRanliaoJcExecute(Sender: TObject);
    procedure acStockCheJianCcExecute(Sender: TObject);
    procedure acStockPlanJcExecute(Sender: TObject);
    procedure acHCpCaiChuangJcExecute(Sender: TObject);
    procedure acHcpJiaGongCcExecute(Sender: TObject);
    procedure acHcpJiaGongJcExecute(Sender: TObject);
    procedure acMoneyExecute(Sender: TObject);
    procedure acSqlChanpinExecute(Sender: TObject);
    procedure acSqlZhangBenCwExecute(Sender: TObject);
    procedure acSqlDanExecute(Sender: TObject);
    procedure acUserExecute(Sender: TObject);
    procedure acClientExecute(Sender: TObject);
    procedure acColorExecute(Sender: TObject);
    procedure acAccountBookExecute(Sender: TObject);
    procedure acAccountBookMoneyExecute(Sender: TObject);
    procedure acStockMonthRptExecute(Sender: TObject);
    procedure acHGoodsMonthRptExecute(Sender: TObject);
    procedure acGoodsMonthRptExecute(Sender: TObject);
    procedure acMoneyDayRptExecute(Sender: TObject);
    procedure acStockDayRptExecute(Sender: TObject);
    procedure acHGoodsDayRptExecute(Sender: TObject);
    procedure acGoodsDayRptExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure acStockPlanDayRptExecute(Sender: TObject);
    procedure acUserChangeExecute(Sender: TObject);
    procedure acMoneyMonthRptExecute(Sender: TObject);
    procedure acHGoodsOutExecute(Sender: TObject);
    procedure ImageBar1Click(Sender: TObject);
    procedure ImageBar2Click(Sender: TObject);
    procedure ImageBar3Click(Sender: TObject);
    procedure ImageBar4Click(Sender: TObject);
    procedure ImageBar5Click(Sender: TObject);
    procedure acShowBarExecute(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure acTrackOptExecute(Sender: TObject);
  private
     procedure GetOption();
     procedure GetColor();
     procedure SetUserLimit;

     procedure ShowBar(BarNo:Integer);
    { Private declarations }
  public
     procedure init();
    { Public declarations }
  end;

var
  currBar: integer;

implementation

uses
   uGlobal, uInit, uChangePass, uStocPlan, uGoodsXs, uGoodsJc,
   uPublic, uHGoodsOpt, uOperationMoney, uDataQuery, uBookQuery,
   uDocumentQuery, uStockOpt, uGetDateOne, uGetTwoDate, uTrackOpt;

{$R *.dfm}

procedure TfrmMain.ac_closeExecute(Sender: TObject);
begin
   close;
end;

procedure TfrmMain.init;
begin
   ActionMainMenuBar1.Font.name := '宋體';
   ActionMainMenuBar1.Font.Size := 9;
   ActionMainMenuBar1.Font.Charset := GB2312_CHARSET;
   ActionMainMenuBar1.Font.Pitch := fpDefault;
   ActionMainMenuBar1.Font.Height := -12;

   currBar := 2;
end;

procedure TfrmMain.acChangePassExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmchangePass,frmchangePass,false,0);
end;

procedure TfrmMain.ac_aboutExecute(Sender: TObject);
begin
   showmessage('adfa') ;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
   self.Brush.Bitmap := imageBj.Picture.Bitmap;
end;

procedure TfrmMain.acCloseExecute(Sender: TObject);
begin
   close;
end;

procedure TfrmMain.acAboutExecute(Sender: TObject);
begin
   //
end;

procedure TfrmMain.ac_ChangePassExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmchangePass,frmchangePass,false,0);
end;

procedure TfrmMain.acStockInit1Execute(Sender: TObject);
begin
   //材料設置
   ShowModalWinForm(TfrmInit,frmInit,false,1);
end;

procedure TfrmMain.acHCpInitExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmInit,frmInit,false,2);
end;

procedure TfrmMain.acCpInitExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmInit,frmInit,false,3);
end;

procedure TfrmMain.acStockPlanExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmStockPlan,frmStockPlan,false,1);
end;

procedure TfrmMain.acCpXiaoShouExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGoodsXs,frmGoodsXs,false,1);
end;

procedure TfrmMain.acCpJcExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGoodsJc,frmGoodsJc,false,1);
end;

procedure TfrmMain.acStockRanliaoCcExecute(Sender: TObject);
begin
   //原材料發外染料加工
   ShowModalWinForm(TfrmStockOpt,frmStockOpt,false,-22);
end;

procedure TfrmMain.acStockRanliaoJcExecute(Sender: TObject);
begin
   //原材料染料收貨
   ShowModalWinForm(TfrmStockOpt,frmStockOpt,false,22);
end;

procedure TfrmMain.acStockCheJianCcExecute(Sender: TObject);
begin
   //原材料領料出倉
   ShowModalWinForm(TfrmStockOpt,frmStockOpt,false,-21);
end;

procedure TfrmMain.acStockPlanJcExecute(Sender: TObject);
begin
   //原材料進倉
   ShowModalWinForm(TfrmStockOpt,frmStockOpt,false,21);
end;