umain.pas

DELPHI做的制衣厂管理系统,功能完善,可能马上使用,SQL2000数据库

procedure TfrmMain.acHCpCaiChuangJcExecute(Sender: TObject);
begin
   //裁床完工登记
   ShowModalWinForm(TfrmHGoodsOpt,frmHGoodsOpt,false,31);
end;

procedure TfrmMain.acHcpJiaGongCcExecute(Sender: TObject);
begin
   //发外加工登记
   ShowModalWinForm(TfrmHGoodsOpt,frmHGoodsOpt,false,-32);
end;

procedure TfrmMain.acHcpJiaGongJcExecute(Sender: TObject);
begin
   //加工收货登记
   ShowModalWinForm(TfrmHGoodsOpt,frmHGoodsOpt,false,32);
end;

procedure TfrmMain.acHGoodsOutExecute(Sender: TObject);
begin
   //半成品出仓登记
   ShowModalWinForm(TfrmHGoodsOpt,frmHGoodsOpt,false,-31);
end;

procedure TfrmMain.acMoneyExecute(Sender: TObject);
begin
   //收付款登记 TfrmMoneySF
   ShowModalWinForm(TfrmOperationMoney,frmOperationMoney,false,1);
end;

procedure TfrmMain.acSqlChanpinExecute(Sender: TObject);
begin
   //库存量查询
   ShowModalWinForm(TfrmDataQuery,frmDataQuery,true,1);
end;

procedure TfrmMain.acSqlZhangBenCwExecute(Sender: TObject);
begin
   //财务帐本查询
   ShowModalWinForm(TfrmBookQuery,frmBookQuery,true,1);
end;

procedure TfrmMain.acSqlDanExecute(Sender: TObject);
begin
   //单据查询
   ShowModalWinForm(TfrmDocumentQuery,frmDocumentQuery,False,1);
end;

procedure TfrmMain.acUserExecute(Sender: TObject);
begin
   //操作员设置
   ShowModalWinForm(TfrmInit,frmInit,false,6);
end;

procedure TfrmMain.acClientExecute(Sender: TObject);
begin
   //客户设置
   ShowModalWinForm(TfrmInit,frmInit,false,4);
end;

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

procedure TfrmMain.GetOption;
begin
  with cdPub do begin
     close;
     commandText := 'SELECT IKEY,CNAME FROM T_OPERATION';
     OPEN;
     cdOption.Data := data;
     close;
  end;
end;

procedure TfrmMain.GetColor;
begin
  with cdPub do begin
     close;
     commandText := 'SELECT CKEY,CNAME FROM T_PUBCOLOR';
     OPEN;
     cd_CLR.Data := data;
     close;
  end;
end;

procedure TfrmMain.acAccountBookExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetDateOne,frmGetDateOne,false,1);
end;

procedure TfrmMain.acAccountBookMoneyExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetDateOne,frmGetDateOne,false,2);
end;

procedure TfrmMain.acStockMonthRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetDateOne,frmGetDateOne,false,22);
end;

procedure TfrmMain.acHGoodsMonthRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetDateOne,frmGetDateOne,false,32);
end;

procedure TfrmMain.acGoodsMonthRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetDateOne,frmGetDateOne,false,42);
end;

//收付款日清单
procedure TfrmMain.acMoneyDayRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetTwoDate,frmGetTwoDate,false,53);
end;

//原材料日清单
procedure TfrmMain.acStockDayRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetTwoDate,frmGetTwoDate,false,23);
end;

//半成品日清单
procedure TfrmMain.acHGoodsDayRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetTwoDate,frmGetTwoDate,false,33);
end;

//成品日清单
procedure TfrmMain.acGoodsDayRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetTwoDate,frmGetTwoDate,false,43);
end;

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   if QueryWnd('欢迎再次使用，退出系统吗？') then
      Application.Terminate
   else
      action := caNone;
end;

//采购日清单
procedure TfrmMain.acStockPlanDayRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetTwoDate,frmGetTwoDate,false,13);
end;

procedure TfrmMain.acUserChangeExecute(Sender: TObject);
begin
   if frmLogon.ShowModal = mrok then begin
      visible := true;
      statusBar1.Panels[1].Text := '登录时间：'+formatDatetime('<c>',dqTime);
      StatusBar1.Panels[0].Text := '操作员：【' + user + '】';
      
      SetUserLimit;
      GetOption;
      GetColor;
   end
   else
      application.Terminate;
end;

procedure TfrmMain.SetUserLimit;
var i: integer;
begin
   if cGroup = 'A' then
      exit;
   for i := 0 to ActionManager1.ActionCount-1 do begin
      TAction(ActionManager1.Actions[i]).Enabled := false;
      if cdPub.Locate('cActName',
         ActionManager1.Actions[i].Name,[loCaseInsensitive]) then
         TAction(FindComponent(
         cdPub.fieldbyname('cActName').asstring)).Enabled :=
         cdPub.fieldbyname('bAction').asboolean;
   end;
end;

procedure TfrmMain.acMoneyMonthRptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmGetDateOne,frmGetDateOne,false,42);
end;

procedure TfrmMain.ShowBar(BarNo:Integer);
var
  i,j:integer;
  AImage:TComponent;
begin
  if  barno > currbar then
  begin
    for i := currbar + 1 to barno do
    begin
      Aimage := self.FindComponent('ImageBar' + IntToStr(i));
      if Aimage is Timage then TImage(AImage).top :=  TImage(AImage).top-219;
    end;
  end
  else
  begin
    for i := barno+1 to currbar do
    begin
      Aimage := self.FindComponent('ImageBar' + IntToStr(i));
      if Aimage is Timage then Timage(AImage).top :=  TImage(AImage).top+219;
    end;
  end;
  for i:=1 to 5 do
    for j:=1 to 6 do
    begin
      Aimage := self.FindComponent('spB' + IntToStr(i) + IntToStr(j));
      if Aimage is TSpeedButton then
        if i = BarNo then
          TSpeedButton(AImage).Visible := True
        else
          TSpeedButton(AImage).Visible := False;
    end;
  CurrBar := BarNo;
end;

procedure TfrmMain.ImageBar1Click(Sender: TObject);
begin
   ShowBar(1);
end;

procedure TfrmMain.ImageBar2Click(Sender: TObject);
begin
   ShowBar(2);
end;

procedure TfrmMain.ImageBar3Click(Sender: TObject);
begin
   ShowBar(3);
end;

procedure TfrmMain.ImageBar4Click(Sender: TObject);
begin
   ShowBar(4);
end;

procedure TfrmMain.ImageBar5Click(Sender: TObject);
begin
   ShowBar(5);
end;

procedure TfrmMain.acShowBarExecute(Sender: TObject);
var i:integer;
begin
   imgBar.Visible := not imgBar.Visible;
   imageBar1.Visible := not imageBar1.Visible;
   imageBar2.Visible := not imageBar2.Visible;
   imageBar3.Visible := not imageBar3.Visible;
   imageBar4.Visible := not imageBar4.Visible;
   imageBar5.Visible := not imageBar5.Visible;
   imgClose.Visible := not imgClose.Visible;
   if imgBar.Visible then Begin
      acShowBar.Caption := '导航隐藏';
      showBar(2);
   end
   else Begin
      acShowBar.Caption := '导航显示';
      for  i := 0 to self.ComponentCount -1 do Begin
         if (Components[i] is TspeedButton) then
            TspeedButton(Components[i]).Visible := false;
      end;
   end;
end;

procedure TfrmMain.FormActivate(Sender: TObject);
begin
   showBar(2);
end;

procedure TfrmMain.acTrackOptExecute(Sender: TObject);
begin
   ShowModalWinForm(TfrmTrackOpt,frmTrackOpt,false,0);
end;

end.