ord150_01.pas

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

begin
  inherited;
//
end;

procedure TOrd150_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryOrd151.Close;
  qryOrd152.Close;
  qryOrd153.Close;
  qryInv150.Close;
  qryOrd120.Close;
end;

procedure TOrd150_01Form.ADOQuery2O150_014GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
//客户状态
  if ADOQuery2.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AStatus[0];  //正常
    1:Text:=AStatus[1];  //锁定
    2:Text:=AStatus[2];  //潜在
  end;
end;

procedure TOrd150_01Form.ADOQuery2O150_009GetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
//客户类型
  if ADOQuery2.IsEmpty then Exit;
  case Sender.AsInteger of
    0:Text:=AType[0];  //客户
    1:Text:=AType[1];  //供应商
    2:Text:=AType[2];  //客户&供应商
  end;
end;

procedure TOrd150_01Form.GetCustInfo;
var
  ACustNo:String;
begin
  ACustNo:=ADOQuery2O150_001.AsString;
  if ACustNo='' then ACustNo:='0';
  qryOrd151.DisableControls;
  qryOrd152.DisableControls;
  qryOrd153.DisableControls;
  qryOrd151.Close;
  qryOrd151.SQL.Clear;
  qryOrd151.SQL.Add('select * from ORD151 where O151_001='+ACustNo+' order by O151_002');
  qryOrd151.Open;
  ARecordCount1:=GetDataSetCount(qryOrd151);
  qryOrd152.Close;
  qryOrd152.SQL.Clear;
  qryOrd152.SQL.Add('select * from ORD152 where O152_001='+ACustNo+' order by O152_002');
  qryOrd152.Open;
  ARecordCount2:=GetDataSetCount(qryOrd152);
  qryOrd153.Close;
  qryOrd153.SQL.Clear;
  qryOrd153.SQL.Add('select * from ORD153 where O153_001='+ACustNo+' order by O153_002');
  qryOrd153.Open;
  ARecordCount3:=GetDataSetCount(qryOrd153);
  qryOrd151.EnableControls;
  qryOrd152.EnableControls;
  qryOrd153.EnableControls;
end;

procedure TOrd150_01Form.dxDBGrid1O150_002DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AColor:=clWhite;
  AText:=GetDBString('COM00004002')+IntToStr(ARecordCount);  //记录总数：
end;

procedure TOrd150_01Form.dxDBGrid2O151_002DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AColor:=clWhite;
  AText:=GetDBString('COM00004002')+IntToStr(ARecordCount1);  //记录总数：
end;

procedure TOrd150_01Form.dxDBGrid3O152_002DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AColor:=clWhite;
  AText:=GetDBString('COM00004002')+IntToStr(ARecordCount2);  //记录总数：
end;

procedure TOrd150_01Form.dxDBGrid4I150_002DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AColor:=clWhite;
  AText:=GetDBString('COM00004002')+IntToStr(ARecordCount3);  //记录总数：
end;

procedure TOrd150_01Form.BrowseEvent;
begin
  inherited;
  Ord150_02Form:=TOrd150_02Form.Create(Application);
  Ord150_02Form.OpenData(ADOQuery2O150_001.Value);
  Ord150_02Form.ShowModal;
end;

procedure TOrd150_01Form.DeleteClassEvent;
begin
  inherited;
  try
    Screen.Cursor:=crHourGlass;
    try
      SYSDM.qryQuery.Close;
      SYSDM.qryQuery.SQL.Clear;
      SYSDM.qryQuery.SQL.Add('delete from ORD110 where O110_001='+adsListsFNo.AsString);
      SYSDM.qryQuery.ExecSQL;
      adsLists.Delete;
    except
      ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
      Abort;
    end;
  finally
    Screen.Cursor:=crDefault;
  end;
end;

procedure TOrd150_01Form.DeleteEvent;
begin
  inherited;
//删除
  if IsExists('select 1 from ORD151 where O151_001='+ADOQuery2O150_001.AsString) then
  begin
    ShowMsg('UMS10000352');  //该客戶存在相关的联系人员资料，请先删除联系人员资料
    Abort;
  end;
  if IsExists('select 1 from ORD152 where O152_001='+ADOQuery2O150_001.AsString) then
  begin
    ShowMsg('UMS10000353');  //该客戶存在相关的交货地点资料，请先删除交货地点资料
    Abort;
  end;
  if IsExists('select 1 from ORD153 where O153_001='+ADOQuery2O150_001.AsString) then
  begin
    ShowMsg('UMS10000354');  //该客戶存在相关的产品资料，请先删除产品资料
    Abort;
  end;
  if IsExists('select 1 from ORD500A where O500A_017='+ADOQuery2O150_001.AsString) then
  begin
    ShowMsg('UMS10000506');  //该客戶存在相关的销售定单，请先删除销售定单
    Abort;
  end;
  if IsExists('select 1 from PUR510A where P510A_017='+ADOQuery2O150_001.AsString) then
  begin
    ShowMsg('UMS10000507');  //该客戶存在相关的采购定单，请先删除采购定单
    Abort;
  end;
  if IsExists('select 1 from TAS500 where T500_015='+ADOQuery2O150_001.AsString) then
  begin
    ShowMsg('UMS10000508');  //该客戶存在相关的项目计划，请先删除项目计划
    Abort;
  end;
  if IsExists('select 1 from TAS510 where T510_016='+ADOQuery2O150_001.AsString) then
  begin
    ShowMsg('UMS10000509');  //该客戶存在相关的任务计划，请先删除任务计划
    Abort;
  end;
  DeleteTableRecord(ADOQuery2,'ORD150','O150_001='+ADOQuery2O150_001.AsString);
end;

procedure TOrd150_01Form.InsertClassEvent;
begin
  inherited;
//增类别
  Ord110_02Form:=TOrd110_02Form.Create(Application);
  Ord110_02Form.OpenData(0);
  Ord110_02Form.ShowModal;
end;

procedure TOrd150_01Form.InsertEvent;
begin
  inherited;
//新增
  Ord150_02Form:=TOrd150_02Form.Create(Application);
  Ord150_02Form.OpenData(0);
  Ord150_02Form.ActInsert.Execute;
  Ord150_02Form.ShowModal;
end;

procedure TOrd150_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;

end;

procedure TOrd150_01Form.UpdateClassEvent;
begin
  inherited;
//改类别
  Ord110_02Form:=TOrd110_02Form.Create(Application);
  Ord110_02Form.OpenData(adsListsFNo.Value);
  Ord110_02Form.ShowModal;
end;

procedure TOrd150_01Form.UpdateEvent;
begin
  inherited;
//修改
  Ord150_02Form:=TOrd150_02Form.Create(Application);
  Ord150_02Form.OpenData(ADOQuery2O150_001.Value);
  Ord150_02Form.ActUpdate.Execute;
  Ord150_02Form.ShowModal;
end;

procedure TOrd150_01Form.ClassAfterScroll;
var
  AClass:String;
begin
  inherited;
  if adsLists.IsEmpty then AClass:='0' else AClass:=adsLists.FieldByName('FNo').AsString;
  if AClass='' then AClass:='0';
  ADOQuery2.DisableControls;
  ADOQuery2.Close;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('select A.O150_001,A.O150_002,A.O150_003,A.O150_004,A.O150_005,');
  ADOQuery2.SQL.Add('       A.O150_006,A.O150_007,A.O150_008,A.O150_009,B.O110_002,');
  ADOQuery2.SQL.Add('       C.O120_002,A.O150_012,A.O150_013,A.O150_014,A.O150_015,');
  ADOQuery2.SQL.Add('       A.O150_034,A.O150_035');
  ADOQuery2.SQL.Add('from ORD150 A, ORD110 B, ORD120 C');
  ADOQuery2.SQL.Add('where A.O150_010=B.O110_001 and A.O150_011=C.O120_001');
  if AClass<>'0' then ADOQuery2.SQL.Add(' and A.O150_010='+AClass);
  ADOQuery2.SQL.Add('order by A.O150_002');
  ADOQuery2.Open;
  ADOQuery2.EnableControls
end;

procedure TOrd150_01Form.DetailAfterScroll;
begin
  inherited;
  GetCustInfo;
end;

procedure TOrd150_01Form.GetAllClass;
begin
  inherited;
  GetAllCustClass(adsLists,nil);
end;

initialization
  RegisterClass(TOrd150_01Form);

finalization
  UnRegisterClass(TOrd150_01Form);

end.