main.pas

文件包含程序源原文件

  else btnMatIN.Enabled := false;
  if frmPassword.FUserPrivilege.matout_func=1 then btnMatOUT.Enabled := true
  else btnMatOUT.Enabled := false;

  if frmPassword.FUserPrivilege.othin_func=1 then btnOtherIN.Enabled := true
  else btnOtherIN.Enabled := false;
  if frmPassword.FUserPrivilege.othout_func=1 then btnOthMatOUT.Enabled := true
  else btnOthMatOUT.Enabled := false;

  if frmPassword.FUserPrivilege.iohis_func=1 then btnIOHistory.Enabled := true
  else btnIOHistory.Enabled := false;
  if frmPassword.FUserPrivilege.rpt_func=1 then btnReport.Enabled := true
  else btnReport.Enabled := false;
  if frmPassword.FUserPrivilege.invoice_func=1 then btnInvoice.Enabled := true
  else btnInvoice.Enabled := false;
  if frmPassword.FUserPrivilege.undelivery_func=1 then btnUnFinishDelivery.Enabled := true
  else btnUnFinishDelivery.Enabled := false;
  {
  if frmPassword.FUserPrivilege.incheck_func=1 then btnQCCheck.Enabled := true
  else btnQCCheck.Enabled := false;
   }
  if frmPassword.FUserPrivilege.params_func=1 then btnParams.Enabled := true
  else btnParams.Enabled := false;
  if frmPassword.FUserPrivilege.iotype_func=1 then btnIOSetting.Enabled := true
  else btnIOSetting.Enabled := false;
  if frmPassword.FUserPrivilege.paperno_func=1 then btnPaperParamsDef.Enabled := true
  else btnPaperParamsDef.Enabled := false;

  if frmPassword.FUserPrivilege.invguage_func=1 then btnGuageInfo.Enabled := true
  else btnGuageInfo.Enabled := false;
  {
  if frmPassword.FUserPrivilege.expdatarpt_func=1 then btnMonthClose.Enabled := true
  else btnMonthClose.Enabled := false;

  if frmPassword.FUserPrivilege.expdatarpt_func=1 then btnDataExport.Enabled := true
  else btnDataExport.Enabled := false;
   }
  if frmPassword.FUserPrivilege.expdatarpt_func=1 then btnHisReport.Enabled := true
  else btnHisReport.Enabled := false;

  if frmPassword.FUserPrivilege.userprivilege_func=1 then btnUser.Enabled := true
  else btnUser.Enabled := false;
end;



procedure TfrmMain.ToolButton1Click(Sender: TObject);
var
  frmBalance: TfrmBalance;
begin
  Screen.Cursor := crSqlWait;
  frmBalance := TfrmBalance.Create(Self);
  with frmBalance do
  begin
    frmBalance.Show;
  end;
  Screen.Cursor := crDefault;
end;

procedure TfrmMain.ToolButton3Click(Sender: TObject);
var
  frmUnDelivery: TfrmUnDelivery;
begin
  Screen.Cursor := crSqlWait;
  frmUnDelivery := TfrmUnDelivery.Create(Self);
  with frmUnDelivery do
  begin
    frmUnDelivery.Show;
  end;
  Screen.Cursor := crDefault;
end;

procedure TfrmMain.ToolButton5Click(Sender: TObject);
var
  frmMoldInv: TfrmMoldInv;
begin
  Screen.Cursor := crSqlWait;
  frmMoldInv := TfrmMoldInv.Create(Self);
  with frmMoldInv do
  begin
    frmMoldInv.Show;
  end;
  Screen.Cursor := crDefault;//
end;

procedure TfrmMain.ToolButton7Click(Sender: TObject);
var
  frmInSuplier: TfrmInSuplier;
  frmMatIN: TfrmMatIN;
begin
  if not(IniData.isCheckQty) then
  begin
    frmInSuplier := TfrmInSuplier.Create(self);
    frmInSuplier.InWinLogin    := 1;
    frmInSuplier.ShowModal;
    if frmInSuplier.ModalResult = mrOK then
    begin
      frmMatIN := TfrmMatIN.Create(self);
      with frmMatIN do begin
        frmMatIN.default_suplier    := trunc(frmInSuplier.edtSuplierCode.Value);
        frmMatIN.default_issuepaper := trim(frmInSuplier.edtIssPaperNO.Text);
        frmMatIN.default_IOID       := trim(frmInSuplier.edtIOID.Text);
        frmMatIN.default_InManID    := trim(frmInSuplier.edtManID.Text);
        frmMatIN.default_stkid      := trim(frmInSuplier.edtStkID.Text);
        Show;
      end;
    end;
  end
  else begin
    MessageDlg(GetMultiLingalMsg(90254,'Now is Checked Status...this Funtion None Use!'),mtError,[mbOK],0);
    Exit;
  end;
end;

procedure TfrmMain.ToolButton9Click(Sender: TObject);
var
  frmOutInvSelect: TfrmOutInvSelect;
  frmMatOUT: TfrmMatOUT;
begin
  if not(IniData.isCheckQty) then
  begin
    frmOutInvSelect := TfrmOutInvSelect.Create(self);
    frmOutInvSelect.OutWinLogin    := 1;
    frmOutInvSelect.ShowModal;
    if frmOutInvSelect.ModalResult = mrOK then
    begin
      frmMatOUT := TfrmMatOUT.Create(self);
      with frmMatOUT do begin
        frmMatOUT.default_stkid        := trim(frmOutInvSelect.edtStkID.Text);
        frmMatOUT.default_isspaper     := trim(frmOutInvSelect.edtIssPaperNO.Text);
        frmMatOUT.default_ioid         := trim(frmOutInvSelect.edtIOID.Text);
        frmMatOUT.default_outmanid     := trim(frmOutInvSelect.edtManID.Text);
        frmMatOUT.default_receivemanid := trim(frmOutInvSelect.edtReceiveEmpID.Text);
        Show;
      end;
    end;
  end
  else begin
    MessageDlg(GetMultiLingalMsg(90254,'Now is Checked Status...this Funtion None Use!'),mtError,[mbOK],0);
    Exit;
  end;
end;

procedure TfrmMain.ToolButton11Click(Sender: TObject);
var
  frmInSuplier: TfrmInSuplier;
  frmOtherIn: TfrmOtherIn;
begin
  if not(IniData.isCheckQty) then
  begin
    frmInSuplier := TfrmInSuplier.Create(self);
    frmInSuplier.InWinLogin    := 2;    
    frmInSuplier.ShowModal;
    if frmInSuplier.ModalResult = mrOK then
    begin
      frmOtherIn := TfrmOtherIn.Create(self);
      with frmOtherIn do begin
        frmOtherIn.default_suplier    := trunc(frmInSuplier.edtSuplierCode.Value);
        frmOtherIn.default_issuepaper := trim(frmInSuplier.edtIssPaperNO.Text);
        frmOtherIn.default_IOID       := trim(frmInSuplier.edtIOID.Text);
        frmOtherIn.default_InManID    := trim(frmInSuplier.edtManID.Text);
        frmOtherIn.default_stkid      := trim(frmInSuplier.edtStkID.Text);
        Show;
      end;
    end;
  end
  else begin
    MessageDlg(GetMultiLingalMsg(90254,'Now is Checked Status...this Funtion None Use!'),mtError,[mbOK],0);
    Exit;
  end;
end;

procedure TfrmMain.btnQCCheck1Click(Sender: TObject);
var
  frmOutInvSelect: TfrmOutInvSelect;
  frmOtherMatOut: TfrmOtherMatOut;
begin
  if not(IniData.isCheckQty) then
  begin
    frmOutInvSelect := TfrmOutInvSelect.Create(self);
    frmOutInvSelect.OutWinLogin    := 2;
    frmOutInvSelect.ShowModal;
    if frmOutInvSelect.ModalResult = mrOK then
    begin
      frmOtherMatOut := TfrmOtherMatOut.Create(self);
      with frmOtherMatOut do begin
        frmOtherMatOut.default_stkid        := trim(frmOutInvSelect.edtStkID.Text);
        frmOtherMatOut.default_isspaper     := trim(frmOutInvSelect.edtIssPaperNO.Text);
        frmOtherMatOut.default_ioid         := trim(frmOutInvSelect.edtIOID.Text);
        frmOtherMatOut.default_outmanid     := trim(frmOutInvSelect.edtManID.Text);
        frmOtherMatOut.default_receivemanid := trim(frmOutInvSelect.edtReceiveEmpID.Text);
        Show;
      end;
    end;
  end
  else begin
    MessageDlg(GetMultiLingalMsg(90254,'Now is Checked Status...this Funtion None Use!'),mtError,[mbOK],0);
    Exit;
  end;
end;

procedure TfrmMain.ToolButton15Click(Sender: TObject);
var
  frmInvHistory: TfrmInvHistory;
begin
  Screen.Cursor := crSqlWait;
  frmInvHistory := TfrmInvHistory.Create(Self);
  with frmInvHistory do
  begin
    frmInvHistory.Show;
  end;
  Screen.Cursor := crDefault;
end;

procedure TfrmMain.ToolButton17Click(Sender: TObject);
var frmReport: TfrmReport;
begin
  Screen.Cursor := crSqlWait;
  frmReport := TfrmReport.Create(Self);
  with frmReport do
  begin
    frmReport.Show;
  end;
  Screen.Cursor := crDefault;
end;

procedure TfrmMain.ToolButton19Click(Sender: TObject);
begin
  Screen.Cursor := crSqlWait;
  dm_inventory.Read_empInfo;
  dm_inventory.Read_MatGuageInfo(FGuageList);
  dm_inventory.Read_IOIDInfo(-1, FInOutIDList);
  dm_inventory.ReadShigen;
  dm_inventory.ReadDepartment;
  dm_inventory.ReadSeihin;
  dm_inventory.ReadShiZai_Kubun;
  dm_inventory.ReadShizai(FShiZaiList);
  Screen.Cursor := crDefault;
end;

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

procedure TfrmMain.btnInvoice1Click(Sender: TObject);
var
  frmInvoiceList: TfrmInvoiceList;
begin
  Screen.Cursor := crSqlWait;
  frmInvoiceList := TfrmInvoiceList.Create(Self);
  with frmInvoiceList do
  begin
    frmInvoiceList.Show;
  end;
  Screen.Cursor := crDefault;
end;

procedure TfrmMain.btnBOMCheck1Click(Sender: TObject);
var
  frmBomCheck: TfrmBomCheck;
begin
  Screen.Cursor := crSqlWait;
  frmBomCheck := TfrmBomCheck.Create(Self);
  with frmBomCheck do
  begin
    frmBomCheck.Show;
  end;
  Screen.Cursor := crDefault;
end;

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

procedure TfrmMain.btnoeoeClick(Sender: TObject);
var frmInvMoldExp: TfrmInvMoldExp;
begin
  frmInvMoldExp := TfrmInvMoldExp.Create(self);
  with frmInvMoldExp do
  begin
    frmInvMoldExp.Show;
  end;
end;

procedure TfrmMain.btnParams1Click(Sender: TObject);
var
  frmParams: TfrmParams;
begin
  frmParams := TfrmParams.Create(Self);
  with frmParams do
  begin
    frmParams.Show;
  end;
end;

procedure TfrmMain.btnIOSetting1Click(Sender: TObject);
var
  frmIOID: TfrmIOID;
begin
  frmIOID := TfrmIOID.Create(self);
  with frmIOID do
  begin
    frmIOID.Show;
  end;
end;

procedure TfrmMain.btnGuageInfo1Click(Sender: TObject);
var
  frmMatGuageInfo: TfrmMatGuageInfo;
begin
  Screen.Cursor := crSqlWait;
  frmMatGuageInfo := TfrmMatGuageInfo.Create(self);
  with frmMatGuageInfo do
  begin
    frmMatGuageInfo.Show;
  end;
  Screen.Cursor := crDefault;
end;

procedure TfrmMain.btnPaperParamsDef1Click(Sender: TObject);
var
  frmPaperParamsDef: TfrmPaperParamsDef;
begin
  frmPaperParamsDef := TfrmPaperParamsDef.Create(self);
  with frmPaperParamsDef do
  begin
    frmPaperParamsDef.Show;
  end;
end;

procedure TfrmMain.btnMonthClose1Click(Sender: TObject);
var
  frmInvAccount: TfrmInvAccount;
begin
  Screen.Cursor := crSqlWait;
  frmInvAccount := TfrmInvAccount.Create(self);
  with frmInvAccount do
  begin
    frmInvAccount.ShowModal;
  end;
  Screen.Cursor := crDefault;
end;

procedure TfrmMain.btnYearAnalyzer1Click(Sender: TObject);
var
  frmAccountAge: TfrmAccountAge;
begin
  Screen.Cursor := crSqlWait;
  frmAccountAge := TfrmAccountAge.Create(self);
  with frmAccountAge do
  begin
    frmAccountAge.ShowModal;
  end;
  Screen.Cursor := crDefault;
end;

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

procedure TfrmMain.btnUser1Click(Sender: TObject);
var frmUser: TfrmUser;
begin
  Screen.Cursor := crSqlWait;
  frmUser := TfrmUser.Create(Self);
  with frmUser do
  begin
    frmUser.Show;
  end;
  Screen.Cursor := crDefault;
end;

procedure TfrmMain.btnDataExport1Click(Sender: TObject);
var frmDataExpImp: TfrmDataExpImp;
begin
  if not(IniData.isCheckQty) then begin
    frmDataExpImp := TfrmDataExpImp.Create(Self);
    with frmDataExpImp do
    begin
      frmDataExpImp.Show;
    end;
  end
  else begin
    MessageDlg('目前正在盘点/不能进行入库作业!',mtError,[mbOK],0);
    Exit;
  end;
end;

procedure TfrmMain.btnHisReport1Click(Sender: TObject);
var
  frmHisReport: TfrmHisReport;
begin
  Screen.Cursor := crSqlWait;
  frmHisReport := TfrmHisReport.Create(Self);
  with frmHisReport do
  begin
    frmHisReport.Show;
  end;
  Screen.Cursor := crDefault;
end;

end.