inv610_01.pas.svn-base

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

unit Inv610_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, dxDBTLCl, dxGrClms,
  Buttons, StdCtrls, wwdbdatetimepicker;

type
  TInv610_01Form = class(TBas200_10Form)
    lblDate: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    sbSearch: TSpeedButton;
    ADOQuery1I610A_001: TWideStringField;
    ADOQuery1I610A_002: TWideStringField;
    ADOQuery1I610A_003: TDateTimeField;
    ADOQuery1I610A_004: TDateTimeField;
    ADOQuery1I610A_005: TWideStringField;
    ADOQuery1I610A_006: TWideStringField;
    ADOQuery1I610A_007: TWideStringField;
    ADOQuery1I610A_008: TDateTimeField;
    ADOQuery1I610A_009: TWideStringField;
    ADOQuery1I610A_010: TDateTimeField;
    ADOQuery1I610A_011: TWideStringField;
    ADOQuery1I610A_012: TDateTimeField;
    ADOQuery1I610A_013: TWideStringField;
    ADOQuery1I610A_014: TMemoField;
    ADOQuery1I600A_002: TWideStringField;
    dxDBGrid1I610A_001: TdxDBGridColumn;
    dxDBGrid1I610A_002: TdxDBGridColumn;
    dxDBGrid1I600A_002: TdxDBGridColumn;
    dxDBGrid1I610A_003: TdxDBGridDateColumn;
    dxDBGrid1I610A_004: TdxDBGridDateColumn;
    dxDBGrid1I610A_007: TdxDBGridColumn;
    dxDBGrid1I610A_008: TdxDBGridDateColumn;
    dxDBGrid1I610A_009: TdxDBGridColumn;
    dxDBGrid1I610A_010: TdxDBGridDateColumn;
    dxDBGrid1I610A_011: TdxDBGridColumn;
    dxDBGrid1I610A_012: TdxDBGridDateColumn;
    dxDBGrid1I610A_013: TdxDBGridColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure Action1Execute(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
  Inv610_01Form: TInv610_01Form;

implementation

uses SYSDATA, CommFun, InvComm, Inv610_02, Inv610_03;

{$R *.dfm}

procedure TInv610_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('INV61001001');  //盘点进度汇报
  ADOQuery1I610A_001.DisplayLabel:=GetDBString('INV61001002');  //汇报单号
  ADOQuery1I610A_002.DisplayLabel:=GetDBString('INV61001003');  //盘点单号
  ADOQuery1I600A_002.DisplayLabel:=GetDBString('INV61001004');  //盘点名称
  ADOQuery1I610A_003.DisplayLabel:=GetDBString('INV61001005');  //开始日期
  ADOQuery1I610A_004.DisplayLabel:=GetDBString('INV61001006');  //结束日期
  ADOQuery1I610A_007.DisplayLabel:=GetDBString('INV61001007');  //盘点人员
  ADOQuery1I610A_008.DisplayLabel:=GetDBString('INV61001008');  //审核日期
  ADOQuery1I610A_009.DisplayLabel:=GetDBString('INV61001009');  //审核人员
  ADOQuery1I610A_010.DisplayLabel:=GetDBString('INV61001010');  //制单日期
  ADOQuery1I610A_011.DisplayLabel:=GetDBString('INV61001011');  //制单人员
  ADOQuery1I610A_012.DisplayLabel:=GetDBString('INV61001012');  //修改日期
  ADOQuery1I610A_013.DisplayLabel:=GetDBString('INV61001013');  //修改人员
  ADOQuery1I610A_014.DisplayLabel:=GetDBString('INV61001014');  //修改人员

  lblDate.Caption:=GetDBString('INV61001015');  //日期
  sbSearch.Caption:=GetDBString('INV61001016');  //查询
end;

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

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

procedure TInv610_01Form.sbSearchClick(Sender: TObject);
begin
  inherited;
//查询
  Screen.Cursor:=crHourGlass;
  ADOQuery1.DisableControls;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select * from INV610A,INV600A where I610A_002=I600A_001');
  ADOQuery1.SQL.Add(' and I610A_003>='+GetDateString(edtFromDate.Date)+' and I610A_003<='+GetDateString(edtToDate.Date));
  ADOQuery1.SQL.Add('order by I610A_001');
  ADOQuery1.Open;
  ADOQuery1.EnableControls;
  Screen.Cursor:=crDefault;
end;

procedure TInv610_01Form.ReportGetValue(const ParName: String;
  var ParValue: Variant);
begin
  inherited;
  if ParName='ADate' then ParValue:=lblDate.Caption  //
  else if ParName='AFromDate' then ParValue:=edtFromDate.Text  //
  else if ParName='AToDate' then ParValue:=edtToDate.Text  //
  else if ParName='I610A_001' then ParValue:=ADOQuery1I610A_001.DisplayLabel  //
  else if ParName='I610A_002' then ParValue:=ADOQuery1I610A_002.DisplayLabel  //
  else if ParName='I600A_002' then ParValue:=ADOQuery1I600A_002.DisplayLabel  //
  else if ParName='I610A_003' then ParValue:=ADOQuery1I610A_003.DisplayLabel  //
  else if ParName='I610A_004' then ParValue:=ADOQuery1I610A_004.DisplayLabel  //
  else if ParName='I610A_007' then ParValue:=ADOQuery1I610A_007.DisplayLabel  //
  else if ParName='I610A_008' then ParValue:=ADOQuery1I610A_008.DisplayLabel  //
  else if ParName='I610A_009' then ParValue:=ADOQuery1I610A_009.DisplayLabel  //
  else if ParName='I610A_010' then ParValue:=ADOQuery1I610A_010.DisplayLabel  //
  else if ParName='I610A_011' then ParValue:=ADOQuery1I610A_011.DisplayLabel  //
  else if ParName='I610A_012' then ParValue:=ADOQuery1I610A_012.DisplayLabel  //
  else if ParName='I610A_013' then ParValue:=ADOQuery1I610A_013.DisplayLabel  //
  else if ParName='I610A_014' then ParValue:=ADOQuery1I610A_014.DisplayLabel  //
end;

procedure TInv610_01Form.Action1Execute(Sender: TObject);
begin
  inherited;
//审核
  Inv610_03Form:=TInv610_03Form.Create(Application);
  Inv610_03Form.OpenData(ADOQuery1I610A_001.AsString);
  Inv610_03Form.ShowModal;
end;

procedure TInv610_01Form.BrowseEvent;
begin
  inherited;
  Inv610_02Form:=TInv610_02Form.Create(Application);
  Inv610_02Form.OpenData(ADOQuery1I610A_001.Value);
  Inv610_02Form.ShowModal;
end;

procedure TInv610_01Form.DeleteEvent;
var
  ACode,APlanCode:string;
begin
  inherited;
//删除
  if ADOQuery1I610A_008.AsString<>'' then
  begin
    ShowMsg('UMS10000448');  //不允许删除已审核的盘点汇报单
    Abort;
  end;
  ACode:=ADOQuery1I610A_001.AsString;
  APlanCode:=ADOQuery1I610A_002.AsString;
  UpdateCountFlag(ACode,False);
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('delete from INV610B where I610B_001='+''''+ACode+'''');
  SYSDM.qryQuery.ExecSQL;
  DeleteTableRecord(ADOQuery1,'INV610A','I610A_001='+''''+ACode+'''');
  UpdateLastDate('INV600',APlanCode);
end;

procedure TInv610_01Form.InsertEvent;
begin
  inherited;
//新增
  Inv610_02Form:=TInv610_02Form.Create(Application);
  Inv610_02Form.OpenData('');
  Inv610_02Form.ActInsert.Execute;
  Inv610_02Form.ShowModal;
end;

procedure TInv610_01Form.UpdateEvent;
begin
  inherited;
//修改
  if ADOQuery1I610A_008.AsString<>'' then
  begin
    ShowMsg('UMS10000447');  //不允许修改已审核的盘点汇报单
    Abort;
  end;
  Inv610_02Form:=TInv610_02Form.Create(Application);
  Inv610_02Form.OpenData(ADOQuery1I610A_001.Value);
  Inv610_02Form.ActUpdate.Execute;
  Inv610_02Form.ShowModal;
//  sbSearch.Click;
end;

initialization
  RegisterClass(TInv610_01Form);

finalization
  UnRegisterClass(TInv610_01Form);
  
end.