productinfo.pas

产品信息系统!关于产品基础信息的系统!功能强大!

procedure TfrmProductInfo.Button5Click(Sender: TObject);
begin
  inherited;
  case MessageDlg('是否审核当前的记录？', mtWarning, [mbYes, mbNo], 0) of
    mrYes:
    begin
      if Button5.Caption='审核' then
      begin
        QBaseInfo.Edit ;
        QBaseInfo.FieldValues['sign_Audit'] :=True;
        QBaseInfo.FieldByName('Time_Audit').AsDatetime :=Now;
        QBaseInfo.FieldByName('Auditer').AsString :=G_sUserName;
        QBaseInfo.UpdateBatch();
        Button5.Caption:='弃审';
        Button4.Enabled:=False;
        tbtModify.Enabled:=False;
        tbtDelete.Enabled:=False;
      end
      else
      begin
        QBaseInfo.Edit ;
        QBaseInfo.FieldValues['sign_Audit'] :=False;
        QBaseInfo.UpdateBatch() ;
        Button5.Caption:='审核';
        Button4.Enabled:=True;
        Button4.Caption:='发往技术部';
        tbtModify.Enabled:=True;
        tbtDelete.Enabled:=True;
      end;
    end;
    mrNo:
    begin
    end;
  end;
end;

procedure TfrmProductInfo.QBaseInfoAfterScroll(DataSet: TDataSet);
var i:Integer;
begin
  inherited;
  with TabSheet1 do
  begin
    for i := 0 to ControlCount - 1 do
    begin
      if Controls[i] is TDBDateTimeEditEh then
      begin
        if (Controls[i] as TDBDateTimeEditEh).Text = '1900-01-01 00:00:00' then
          (Controls[i] as TDBDateTimeEditEh).Text := ''
      end;
    end;
  end;
  if QBaseInfo.RecordCount<>0 then
  begin
    Button1.Enabled:=True;
    if (Pos('技术部',G_sDepName)<>0) and (QBaseInfo.FieldValues['sign_Artdept']=True) then
    begin
      Button4.Enabled:=True;
      Button5.Enabled:=False;
      tbtModify.Enabled:=True;
      tbtDelete.Enabled:=False;
    end
    else if (Pos('品管',G_sDepName)<>0) and (UpperCase(Copy(QBaseInfoNumber.AsString,1,2))=UpperCase(Copy(G_sDepCode,1,2))) then
    begin
      if QBaseInfo.FieldValues['sign_Audit']=True then
      begin
        Button4.Enabled:=False;
        Button5.Enabled:=True;
        tbtModify.Enabled:=False;
        tbtDelete.Enabled:=False;
      end
      else if QBaseInfo.FieldValues['sign_Artdept']<>True then
      begin
        Button4.Enabled:=True;
        Button5.Enabled:=True;
        tbtModify.Enabled:=True;
        tbtDelete.Enabled:=True;
      end
      else
      begin
        Button4.Enabled:=False;
        Button5.Enabled:=False;
        tbtModify.Enabled:=False;
        tbtDelete.Enabled:=False;
      end;  
    end
    else if G_bAdmin=True then
    begin
      if QBaseInfo.FieldValues['sign_Audit']=True then
      begin
        Button4.Enabled:=False;
        Button5.Enabled:=True;
        tbtModify.Enabled:=False;
        tbtDelete.Enabled:=False;
      end
      else
      begin
        Button4.Enabled:=True;
        Button5.Enabled:=True;
        tbtModify.Enabled:=True;
        tbtDelete.Enabled:=True;
      end;
    end
    else
    begin
      Button4.Enabled:=False;
      Button5.Enabled:=False;
      tbtModify.Enabled:=False;
      tbtDelete.Enabled:=False;
    end;
    self.Label21.Caption:='信息份数：'+IntToStr(self.QBaseInfo.RecordCount)+chr(13)+'当前：'+inttostr(self.QBaseInfo.RecNo);
  end
  else
  begin
    Button1.Enabled:=False;
    Button4.Enabled:=False;
    Button5.Enabled:=False;
    tbtModify.Enabled:=False;
    tbtDelete.Enabled:=False;
    self.Label21.Caption:='信息份数：0'+chr(13)+'当前：0';
  end;
end;

procedure TfrmProductInfo.acPrintExecute(Sender: TObject);
begin
  inherited;
  frxReport2.ShowReport();
end;

procedure TfrmProductInfo.QCcNewRecord(DataSet: TDataSet);
begin
  QCc.FieldValues['fid']:=QBaseInfo.FieldValues['id'];
  QCc.FieldValues['xh']:=QBaseInfo.FieldValues['xh'];
  QCc.FieldValues['sizes']:=QBaseInfo.FieldValues['sizes'];
  QCc.FieldValues['plate']:=QBaseInfo.FieldValues['plate'];
  QCc.FieldValues['Material']:='';
  QCc.FieldValues['inputer']:=G_sUserName;
  QCc.FieldValues['perfecter']:='';
  QCc.FieldValues['remark']:='';
  QCc.FieldValues['names']:='';
  QCc.FieldValues['color']:='';
  QCc.FieldValues['sort']:=oldsort+1;
  QCc.FieldValues['UpperLimit']:=0;
  QCc.FieldValues['LowerLimit']:=0;
  QCc.FieldValues['datas']:=0;
  QCc.FieldValues['time_input']:=Now;
  QCc.FieldValues['time_perfect']:='1900-01-01';
  QCc.FieldValues['plant']:=fplant;
  CanSave:=True;
  N3.Enabled:=True;
  inherited;
  QCc.Post;
end;

procedure TfrmProductInfo.QCcAfterScroll(DataSet: TDataSet);
begin
  inherited;
  if QCc.RecordCount=0 then
  begin
    oldsort:=0;
    fplant:='';
  end
  else
  begin
    oldsort:=QCc.FieldValues['sort'];
    fplant:=QCc.FieldValues['plant'];
  end;
end;

procedure TfrmProductInfo.acExportExecute(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmInfoImport, self, iModuleID, sFunctionName, TForm(frmInfoImport));
end;

procedure TfrmProductInfo.QGyNewRecord(DataSet: TDataSet);
begin
  QGy.FieldValues['fid']:=QBaseInfo.FieldValues['id'];
  QGy.FieldValues['xh']:=QBaseInfo.FieldValues['xh'];
  QGy.FieldValues['sizes']:=QBaseInfo.FieldValues['sizes'];
  QGy.FieldValues['plate']:=QBaseInfo.FieldValues['plate'];
  QGy.FieldValues['plant']:='';
  QGy.FieldValues['inputer']:=G_sUserName;
  QGy.FieldValues['perfecter']:='';
  QGy.FieldValues['art']:='';
  QGy.FieldValues['notice']:='';
  QGy.FieldValues['sort']:=oldsorts+1;
  QGy.FieldValues['time_input']:=Now;
  QGy.FieldValues['time_perfect']:='1900-01-01';
  QGy.FieldValues['technics']:='';
  inherited;
  QGy.Post;
end;

procedure TfrmProductInfo.QGyAfterScroll(DataSet: TDataSet);
begin
  inherited;
  if QGy.RecordCount=0 then
    oldsorts:=0
  else
    oldsorts:=QGy.FieldValues['sort'];
end;

procedure TfrmProductInfo.frxReport2GetValue(const VarName: String;
  var Value: Variant);
begin
  inherited;
  if QBaseInfosign_Design.AsBoolean=True then
    frxReport2.Variables.Variables['a']:=QuotedStr('打样')
  else
    frxReport2.Variables.Variables['a']:=QuotedStr(' ');
end;

procedure TfrmProductInfo.cxGridDBTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText(
  Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean;
  var AText: String);
begin
  inherited;
     AText   :=   '合计:'; 
end;

procedure TfrmProductInfo.dsBaseInfoDataChange(Sender: TObject;
  Field: TField);
begin
//  inherited;
  self.dsBaseInfoStateChange(nil);
end;

procedure TfrmProductInfo.QGyBeforePost(DataSet: TDataSet);
begin
  inherited;
  if G_sUserName<>QGyinputer.AsString then
  begin
    QGyperfecter.AsString:=G_sUserName;
    QGytime_perfect.AsDateTime:=Now;
  end;
end;

procedure TfrmProductInfo.QBaseInfoBeforeOpen(DataSet: TDataSet);
begin
  inherited;
  if QCc.Active=False then
    QCc.Active:=True;
  if QGy.Active=False then
    QGy.Active:=True;
  if QLSDA.Active=False then
    QLSDA.Active:=True;
  if QKHTS.Active=False then
    QKHTS.Active:=True;
  if Qplate.Active=False then
    Qplate.Active:=True;
end;

procedure TfrmProductInfo.DsGyDataChange(Sender: TObject; Field: TField);
begin
  inherited;
  if G_sDepName='技术部' then
  begin
    DBGridEh3.FieldColumns['plant'].ReadOnly:=True;
    DBGridEh3.FieldColumns['sort'].ReadOnly:=True;
    if (QGy.RecordCount<>0) and ((QGy.FieldValues['plant']='挂镀') or (QGy.FieldValues['plant']='滚镀') or (QGy.FieldValues['plant']='喷漆')) then
    begin
      DBGridEh3.FieldColumns['technics'].ReadOnly:= not tbtSave.Enabled;
      DBGridEh3.FieldColumns['art'].ReadOnly:= not tbtSave.Enabled;
      DBMemo3.ReadOnly:= not tbtSave.Enabled;
    end
    else
    begin
      DBGridEh3.FieldColumns['technics'].ReadOnly:=True;
      DBGridEh3.FieldColumns['art'].ReadOnly:=True;
      DBMemo3.ReadOnly:=True;
    end;
  end;
end;

procedure TfrmProductInfo.cxDBImage1Click(Sender: TObject);
begin
  inherited;
  if Label14.Caption='大'+#13+'图' then
  begin
    Label14.Caption:='照'+#13+'片';
    if QBaseInfo.State in [dsEdit] then
    begin
      QBaseInfo.Post;
      QBaseInfo.Edit;
    end;
    cxDBImage1.properties.graphicclass:=TJPEGImage;
    cxDBImage1.DataBinding.DataField:='photo';
    cxDBImage1.Properties.Stretch:=True;
  end
  else
  if Label14.Caption='照'+#13+'片' then
  begin
    Label14.Caption:='图'+#13+'稿';
    if QBaseInfo.State in [dsEdit] then
    begin
      QBaseInfo.Post;
      QBaseInfo.Edit;
    end;
    cxDBImage1.properties.graphicclass:=TMetafile;
    cxDBImage1.DataBinding.DataField:='TechnicsPic';
    cxDBImage1.Properties.Stretch:=False;
  end
  else
  begin
    Label14.Caption:='大'+#13+'图';
    if QBaseInfo.State in [dsEdit] then
    begin
      QBaseInfo.Post;
      QBaseInfo.Edit;
    end;
    cxDBImage1.properties.graphicclass:=TMetafile;
    cxDBImage1.DataBinding.DataField:='bigpic';
    cxDBImage1.Properties.Stretch:=True;
  end;
end;

procedure TfrmProductInfo.acNewExecute(Sender: TObject);
begin
  inherited;
  QBaseInfo.UpdateBatch();
  QBaseInfo.edit;
end;

procedure TfrmProductInfo.Button1Click(Sender: TObject);
begin
  inherited;
  ShowNormalForm(TfrmBom, self, iModuleID, sFunctionName, TForm(frmBom));
  if frmbom.QBaseInfo.locate('xh;sizes',VarArrayOf([self.QBaseInfo.fieldvalues['xh'],self.QBaseInfo.fieldvalues['sizes']]),[])=True then
    frmBom.Button1.Click;
end;

procedure TfrmProductInfo.FormKeyPress(Sender: TObject; var Key: Char);
begin
  inherited;
  if Key = #13 then
  begin
    if (ActiveControl is TdxDBExtLookupEdit) then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL, 0, 0);
    end
  end;
end;

end.