umain.pas

制衣管理系统程序+源码,编译通过还不错啊,可以

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;