acp500_02.pas.svn-base

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

unit Acp500_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_13, DB, ADODB, ActnList, Menus, ComCtrls, ToolWin,
  StdCtrls, wwdbdatetimepicker, Mask, wwdbedit, Wwdotdot, Grids, Wwdbigrd,
  Wwdbgrid, Buttons, Wwdbcomb;

type
  TAcp500_02Form = class(TBas200_13Form)
    adsAcp500B: TADODataSet;
    dsInv500B: TDataSource;
    ADODataSet1: TADODataSet;
    PageControl1: TPageControl;
    tsItem: TTabSheet;
    wwDBGrid1: TwwDBGrid;
    edtDate: TwwDBDateTimePicker;
    lblDate: TLabel;
    edtPerson: TEdit;
    sbPerson: TSpeedButton;
    edtPersonName: TEdit;
    lblPerson: TLabel;
    gbCust: TGroupBox;
    lblCust: TLabel;
    lblAddress: TLabel;
    lblPhone: TLabel;
    lblFax: TLabel;
    edtCust: TEdit;
    edtCustName: TEdit;
    edtAddress: TEdit;
    edtPhone: TEdit;
    edtContact: TEdit;
    lblOrder: TLabel;
    edtOrder: TEdit;
    sbOrder: TSpeedButton;
    lblCurr: TLabel;
    edtCurr: TEdit;
    edtRate: TEdit;
    lblSaleDate: TLabel;
    edtSaleDate: TEdit;
    lblRemark: TLabel;
    memRemark: TMemo;
    adsAcp500BFNo: TIntegerField;
    adsAcp500BFItemNo: TIntegerField;
    adsAcp500BFItemID: TStringField;
    adsAcp500BFItemName: TStringField;
    adsAcp500BFItemSpec: TStringField;
    adsAcp500BFUnitName: TStringField;
    adsAcp500BFOrderQty: TFloatField;
    adsAcp500BFOrderPrice: TFloatField;
    adsAcp500BFOrderAmount: TFloatField;
    adsAcp500BFQty: TFloatField;
    adsAcp500BFRate: TFloatField;
    adsAcp500BFAmount: TFloatField;
    adsAcp500BFRemark: TStringField;
    adsAcp500BFLineNo: TIntegerField;
    adsAcp500BFOrder: TStringField;
    qryPUR510A: TADOQuery;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    qryOrd150: TADOQuery;
    qryOrd150O150_001: TAutoIncField;
    qryOrd150O150_002: TWideStringField;
    qryOrd150O150_003: TWideStringField;
    qryOrd150O150_004: TWideStringField;
    qryOrd150O150_005: TWideStringField;
    qryOrd150O150_006: TWideStringField;
    qryOrd150O150_012: TWideStringField;
    qryOrd150O151_002: TWideStringField;
    qryOrd150O151_003: TWideStringField;
    qryOrd150O151_004: TWideStringField;
    qryOrd150O120_002: TWideStringField;
    qryOrd150O150_011: TIntegerField;
    qryPUR510AO152_001: TIntegerField;
    qryPUR510AO152_002: TWideStringField;
    qryPUR510AO152_003: TIntegerField;
    qryPUR510AO152_004: TWideStringField;
    qryPUR510AO152_005: TWideStringField;
    qryPUR510AO152_006: TWideStringField;
    qryPUR510AO152_007: TWideStringField;
    qryPUR510AO152_008: TWideStringField;
    qryPUR510AO152_009: TMemoField;
    qryPUR510AO152_010: TBooleanField;
    qryGld100: TADOQuery;
    qryPUR510AG100_002: TStringField;
    qryPUR510AG100_003: TStringField;
    qryAcp500B: TADOQuery;
    qryAcp500BA500B_001: TWideStringField;
    qryAcp500BA500B_002: TIntegerField;
    qryAcp500BA500B_003: TWideStringField;
    qryAcp500BA500B_004: TIntegerField;
    qryAcp500BA500B_005: TFloatField;
    qryAcp500BA500B_006: TFloatField;
    qryAcp500BA500B_007: TFloatField;
    qryAcp500BA500B_008: TIntegerField;
    qryInv150: TADOQuery;
    qryInv140: TADOQuery;
    qryAcp500BI150_002: TStringField;
    qryAcp500BI150_003: TStringField;
    qryAcp500BI150_008: TStringField;
    qryAcp500BI140_002: TStringField;
    qryAcp500BI140_003: TStringField;
    qryAcp500BI150_004: TStringField;
    ADOQuery1A500A_001: TWideStringField;
    ADOQuery1A500A_002: TDateTimeField;
    ADOQuery1A500A_003: TIntegerField;
    ADOQuery1A500A_004: TFloatField;
    ADOQuery1A500A_005: TWideStringField;
    ADOQuery1A500A_006: TMemoField;
    ADOQuery1A500A_007: TWideStringField;
    ADOQuery1A500A_008: TDateTimeField;
    ADOQuery1A500A_009: TWideStringField;
    ADOQuery1A500A_010: TDateTimeField;
    ADOQuery1H150_002: TWideStringField;
    ADOQuery1H150_003: TWideStringField;
    qryPur510B: TADOQuery;
    Label1: TLabel;
    adsAcp500BFDisType: TStringField;
    cbDisType: TwwDBComboBox;
    qryPUR510AO150_002: TWideStringField;
    qryPUR510AO150_003: TWideStringField;
    adsAcp500BFDisAmt: TFloatField;
    qryAcp500BA500B_009: TSmallintField;
    adsAcp500BFAcpQty: TFloatField;
    adsAcp500BFAcpAmt: TFloatField;
    qryPur510BO510B_001: TWideStringField;
    qryPur510BO510B_002: TIntegerField;
    qryPur510BO510B_003: TIntegerField;
    qryPur510BO510B_004: TIntegerField;
    qryPur510BO510B_005: TFloatField;
    qryPur510BO510B_006: TFloatField;
    qryPur510BO510B_013: TFloatField;
    qryPur510BO510B_025: TFloatField;
    qryPur510BI140_003: TStringField;
    qryPur510BI140_002: TStringField;
    qryPur510BI150_008: TStringField;
    qryPur510BI150_004: TStringField;
    qryPur510BI150_003: TStringField;
    qryPur510BI150_002: TStringField;
    qryPUR510AP510A_008: TBCDField;
    qryPUR510AP510A_013: TBCDField;
    pmAcp500B: TPopupMenu;
    mmiAdd: TMenuItem;
    mmiEdit: TMenuItem;
    mmiDel: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbPersonClick(Sender: TObject);
    procedure edtPersonExit(Sender: TObject);
    procedure sbOrderClick(Sender: TObject);
    procedure adsAcp500BNewRecord(DataSet: TDataSet);
    procedure wwDBGrid1ColExit(Sender: TObject);
    procedure wwDBGrid1Enter(Sender: TObject);
    procedure wwDBGrid1Exit(Sender: TObject);
    procedure wwDBGrid1UpdateFooter(Sender: TObject);
    procedure edtOrderExit(Sender: TObject);
    procedure cbDisTypeChange(Sender: TObject);
    procedure adsAcp500BAfterScroll(DataSet: TDataSet);
    procedure mmiAddClick(Sender: TObject);
    procedure mmiEditClick(Sender: TObject);
    procedure mmiDelClick(Sender: TObject);
    procedure pmAcp500BPopup(Sender: TObject);
  private
    { Private declarations }
    ALastNo:Integer;
    AIsChanged:Boolean;
    procedure GetOrderInfo;
    procedure GetDetailData;
    procedure AddDetailData;
    procedure SetDBGridA;
    procedure SetDisQty;
    procedure SetDisAmount;
    procedure SetDisRate;
  public
    procedure OpenData(ACode:String);
    procedure SetInterface; override;
    procedure GetDataInfo; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure SetEmptyInit; override;
    procedure TableBeforePost; override;
    procedure TableAfterPost; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Acp500_02Form: TAcp500_02Form;

implementation

uses SYSDATA, CommFun, HwSelData, HwSelDataA,CshComm;

{$R *.dfm}

procedure TAcp500_02Form.OpenData(ACode:String);
begin
  if ACode='' then AMode:='ADD' else AMode:='UPD';
  ADOQuery1.DisableControls;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select A.*,');
  ADOQuery1.SQL.Add('    B.H150_002,B.H150_003');
  ADOQuery1.SQL.Add('from Acp500A A,Hrm150 B');
  ADOQuery1.SQL.Add('where A.A500A_003=B.H150_001');
  ADOQuery1.SQL.Add('order by A.A500A_001');
  ADOQuery1.Open;
  ADOQuery1.Locate('A500A_001',ACode,[]);
  ADOQuery1.EnableControls;
  ADOQuery1AfterScroll(ADOQuery1);
end;

procedure TAcp500_02Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ACP50002001');  //采购折扣维护
  lblCreateDate.Caption:=GetDBString('ACP50002003');  //制单日期	Acp50002003
  lblCreateBy.Caption:=GetDBString('ACP50002004');  //制单人员	Acp50002004
  lblUpdateDate.Caption:=GetDBString('ACP50002005');  //修改日期	Acp50002005
  lblUpdateBy.Caption:=GetDBString('ACP50002006');  //修改人员	Acp50002006
  gbInfo.Caption:=GetDBString('ACP50002007');  //基本信息	Acp50002007
  lblCode.Caption:=GetDBString('ACP50002008');  //折扣单号	Acp50002008
  ADOQuery1A500A_001.DisplayLabel:=GetDBString('ACP50002009');  //折扣单号	Acp50002009
  ADOQuery1A500A_002.DisplayLabel:=GetDBString('ACP50002010');  //折扣日期	Acp50002010
  ADOQuery1A500A_004.DisplayLabel:=GetDBString('ACP50002011');  //折扣金额	Acp50002011
  ADOQuery1A500A_005.DisplayLabel:=GetDBString('ACP50002012');  //销售单号	Acp50002012
  ADOQuery1A500A_006.DisplayLabel:=GetDBString('ACP50002013');  //备注说明	Acp50002013
  ADOQuery1A500A_007.DisplayLabel:=GetDBString('ACP50002014');  //制单人员	Acp50002014
  ADOQuery1A500A_008.DisplayLabel:=GetDBString('ACP50002015');  //制单日期	Acp50002015
  ADOQuery1A500A_009.DisplayLabel:=GetDBString('ACP50002016');  //修改人员	Acp50002016
  ADOQuery1A500A_010.DisplayLabel:=GetDBString('ACP50002017');  //修改日期	Acp50002017
  ADOQuery1H150_002.DisplayLabel:=GetDBString('ACP50002018');  // 员工编号	Acp50002018
  ADOQuery1H150_003.DisplayLabel:=GetDBString('ACP50002019');  // 员工姓名	Acp50002019
  lblDate.Caption:=GetDBString('ACP50002020');  //折扣日期  Acp50002020
  lblPerson.Caption:=GetDBString('ACP50002021');  //折扣人员  Acp50002021
  lblRemark.Caption:=GetDBString('ACP50002022');  //备注说明  Acp50002022
  wwDBGrid1.ColumnByName('FItemID').DisplayLabel:=GetDBString('ACP50002023');  //产品编号	Acp50002023
  wwDBGrid1.ColumnByName('FItemName').DisplayLabel:=GetDBString('ACP50002024');  //产品名称	Acp50002024
  wwDBGrid1.ColumnByName('FItemSpec').DisplayLabel:=GetDBString('ACP50002025');  //规格型号	Acp50002025
  wwDBGrid1.ColumnByName('FUnitName').DisplayLabel:=GetDBString('ACP50002026');  //单位名称	Acp50002026
  wwDBGrid1.ColumnByName('FOrderQty').DisplayLabel:=GetDBString('ACP50002027');  //采购数量	Acp50002027
  wwDBGrid1.ColumnByName('FOrderPrice').DisplayLabel:=GetDBString('ACP50002028');  //采购单价	Acp50002028
  wwDBGrid1.ColumnByName('FOrderAmount').DisplayLabel:=GetDBString('ACP50002029');  //采购金额	Acp50002029
  wwDBGrid1.ColumnByName('FAcpQty').DisplayLabel:=GetDBString('ACP50002030');  //应付数量	Acp50002030
  wwDBGrid1.ColumnByName('FAcpAmt').DisplayLabel:=GetDBString('ACP50002031');  //应付金额	Acp50002031
  wwDBGrid1.ColumnByName('FDisType').DisplayLabel:=GetDBString('ACP50002032');  //折扣类型	Acp50002032
  wwDBGrid1.ColumnByName('FQty').DisplayLabel:=GetDBString('ACP50002033');  //折扣数量	Acp50002033
  wwDBGrid1.ColumnByName('FRate').DisplayLabel:=GetDBString('ACP50002034');  //折扣比率	Acp50002034
  wwDBGrid1.ColumnByName('FAmount').DisplayLabel:=GetDBString('ACP50002035');  //折扣金额	Acp50002035
  wwDBGrid1.ColumnByName('FRemark').DisplayLabel:=GetDBString('ACP50002036');  //备注说明	Acp50002036
  gbCust.Caption:=GetDBString('ACP50002037');  //采购定单	Acp50002037
  lblCust.Caption:=GetDBString('ACP50002038');  //客户编号	Acp50002038
  lblAddress.Caption:=GetDBString('ACP50002039');  //客户地址	Acp50002039
  lblPhone.Caption:=GetDBString('ACP50002040');  //电话号码	Acp50002040
  lblFax.Caption:=GetDBString('ACP50002041');  //传真号码	Acp50002041
  lblOrder.Caption:=GetDBString('ACP50002042');  //采购单号	Acp50002042
  lblCurr.Caption:=GetDBString('ACP50002043');  //币别名称	Acp50002043
  lblSaleDate.Caption:=GetDBString('ACP50002044');  //销售日期	Acp50002044
  Label1.Caption:=GetDBString('ACP50002045');  //币别汇率	Acp50002045
  qryAcp500BI150_002.DisplayLabel:=GetDBString('ACP50002091');  //料品编号	Acp50002091
  qryAcp500BI150_003.DisplayLabel:=GetDBString('ACP50002092');  //料品名称	Acp50002092
  qryAcp500BI150_004.DisplayLabel:=GetDBString('ACP50002093');  //规格型号	Acp50002093
  qryAcp500BI150_008.DisplayLabel:=GetDBString('ACP50002094');  //英文名称	Acp50002094
  qryAcp500BI140_002.DisplayLabel:=GetDBString('ACP50002095');  //单位编号	Acp50002095
  qryAcp500BI140_003.DisplayLabel:=GetDBString('ACP50002096');  //单位名称	Acp50002096
  qryPur510BO510B_001.DisplayLabel:=GetDBString('ACP50002097');  //O510B_001	Acp50002097
  qryPur510BO510B_002.DisplayLabel:=GetDBString('ACP50002098');  //O510B_002	Acp50002098
  qryPur510BO510B_003.DisplayLabel:=GetDBString('ACP50002099');  //O510B_003	Acp50002099
  qryPur510BO510B_004.DisplayLabel:=GetDBString('ACP50002100');  //O510B_004	Acp50002100
  qryPur510BO510B_005.DisplayLabel:=GetDBString('ACP50002101');  //O510B_005	Acp50002101
  qryPur510BO510B_006.DisplayLabel:=GetDBString('ACP50002102');  //O510B_006	Acp50002102
  qryPur510BO510B_013.DisplayLabel:=GetDBString('ACP50002103');  //O510B_013	Acp50002103
  qryPur510BO510B_025.DisplayLabel:=GetDBString('ACP50002104');  //收款折扣	Acp50002104
  qryPur510BI140_003.DisplayLabel:=GetDBString('ACP50002105');  //单位名称	Acp50002105
  qryPur510BI140_002.DisplayLabel:=GetDBString('ACP50002106');  //单位编号	Acp50002106
  qryPur510BI150_008.DisplayLabel:=GetDBString('ACP50002107');  //英文名称	Acp50002107
  qryPur510BI150_004.DisplayLabel:=GetDBString('ACP50002108');  //规格型号	Acp50002108
  qryPur510BI150_003.DisplayLabel:=GetDBString('ACP50002109');  //料品名称	Acp50002109
  qryPur510BI150_002.DisplayLabel:=GetDBString('ACP50002110');  //料品编号	Acp50002110
  adsAcp500B.Close;
  adsAcp500B.CreateDataSet;
  SetDBGridA;
end;

procedure TAcp500_02Form.FormCreate(Sender: TObject);
begin
  inherited;
//
  ATableName:='Acp500A';
  AFieldName:='A500A_001';
  qryHrm150.Open;
  qryOrd150.Open;
  qryGld100.Open;
  qryPUR510A.Open;
  qryInv150.Open;
  qryInv140.Open;
  qryAcp500B.Open;
  AKeyEvent:=OnKeyDown;
end;

procedure TAcp500_02Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TAcp500_02Form.DeleteEvent;
var
  ACode:String;
begin
  inherited;
  ACode:=ADOQuery1.FieldByName('A500A_001').AsString;

  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from Acp500B where A500B_001='+''''+ACode+'''');
  SYSDM.qryQuery.open;
  SYSDM.qryQuery.First;