acp500_01.pas.svn-base

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

unit Acp500_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BAS200_10, dxExEdtr, ActnList, DB, ADODB, Menus, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, ToolWin, StdCtrls,
  wwdbdatetimepicker, Buttons, dxDBTLCl, dxGrClms;

type
  TAcp500_01Form = class(TBas200_10Form)
    lblDate: TLabel;
    sbSearch: TSpeedButton;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    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;
    dxDBGrid1A500A_001: TdxDBGridColumn;
    dxDBGrid1A500A_002: TdxDBGridDateColumn;
    dxDBGrid1A500A_004: TdxDBGridMaskColumn;
    dxDBGrid1A500A_005: TdxDBGridColumn;
    dxDBGrid1A500A_007: TdxDBGridColumn;
    dxDBGrid1A500A_008: TdxDBGridDateColumn;
    dxDBGrid1A500A_009: TdxDBGridColumn;
    dxDBGrid1A500A_010: TdxDBGridDateColumn;
    dxDBGrid1H150_003: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Acp500_01Form: TAcp500_01Form;

implementation

uses Acp500_02, CommFun, SYSDATA,CshComm;

{$R *.dfm}

procedure TAcp500_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ACP50001001');  //采购折扣维护
  ADOQuery1A500A_001.DisplayLabel:=GetDBString('ACP50001002');  //折扣单号
  ADOQuery1A500A_002.DisplayLabel:=GetDBString('ACP50001003');  //折扣日期
  ADOQuery1A500A_004.DisplayLabel:=GetDBString('ACP50001004');  //折扣金额
  ADOQuery1A500A_005.DisplayLabel:=GetDBString('ACP50001005');  //采购单号
  ADOQuery1A500A_007.DisplayLabel:=GetDBString('ACP50001006');  //制单人员
  ADOQuery1A500A_008.DisplayLabel:=GetDBString('ACP50001007');  //制单日期
  ADOQuery1A500A_009.DisplayLabel:=GetDBString('ACP50001008');  //修改人员
  ADOQuery1A500A_010.DisplayLabel:=GetDBString('A50001009');  //修改日期
  ADOQuery1H150_003.DisplayLabel:=GetDBString('ACP50001010');  // 折扣人员
  lblDate.Caption:=GetDBString('ACP50001011');  //日期
end;

procedure TAcp500_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
begin
  inherited;
  ADate:=GetServerDate;
  edtFromDate.Date:=GetMonthFirstDate(ADate);
  edtToDate.Date:=GetMonthEndDate(ADate);
  sbSearch.Click;
end;

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

procedure TAcp500_01Form.BrowseEvent;
begin
  inherited;
  Acp500_02Form:=TAcp500_02Form.Create(Application);
  Acp500_02Form.OpenData(ADOQuery1.FieldByName('A500A_001').AsString);
  Acp500_02Form.ShowModal;
end;

procedure TAcp500_01Form.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;
  while not SYSDM.qryQuery.Eof do
  begin
    UpdatePUR510B(ACode,'DEL');
    SYSDM.qryQuery.Next;
  end;
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('delete from Acp500B where A500B_001='+''''+ACode+'''');
  SYSDM.qryQuery.ExecSQL;
  DeleteTableRecord(ADOQuery1,'Acp500A','A500A_001='+''''+ACode+'''');
end;

procedure TAcp500_01Form.InsertEvent;
begin
  inherited;
//新增
  Acp500_02Form:=TAcp500_02Form.Create(Application);
  Acp500_02Form.OpenData('');
  Acp500_02Form.ActInsert.Execute;
  Acp500_02Form.ShowModal;
end;

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

end;

procedure TAcp500_01Form.UpdateEvent;
begin
  inherited;
//修改
  Acp500_02Form:=TAcp500_02Form.Create(Application);
  Acp500_02Form.OpenData(ADOQuery1.FieldByName('A500A_001').AsString);
  Acp500_02Form.ActUpdate.Execute;
  Acp500_02Form.ShowModal;
end;

procedure TAcp500_01Form.sbSearchClick(Sender: TObject);
begin
  inherited;
//查询
  if (edtFromDate.Text='') or (edtToDate.Text='') then
  begin
    ShowMsg('UMS10000319');  //起止日期不可为空
    if edtFromDate.Text='' then edtFromDate.SetFocus else edtToDate.SetFocus;
    Abort;
  end;
  if edtFromDate.Date>edtToDate.Date then
  begin
    ShowMsg('UMS10000320');  //结束日期不能小于起始日期
    edtToDate.SetFocus;
    Abort;
  end;

  Screen.Cursor:=crHourGlass;
  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.EnableControls;
  ARecordCount:=GetDataSetCount(ADOQuery1);
  Screen.Cursor:=crDefault;
end;

initialization
  RegisterClass(TAcp500_01Form);

finalization
  UnRegisterClass(TAcp500_01Form);

end.