pur120_01.pas.svn-base

开源的网站整站程序,功能强大带采集系统.

unit Pur120_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;

type
  TPur120_01Form = class(TBas200_10Form)
    qryInv150: TADOQuery;
    qryGld100: TADOQuery;
    ADOQuery1P120_001: TIntegerField;
    ADOQuery1P120_002: TIntegerField;
    ADOQuery1P120_003: TIntegerField;
    ADOQuery1P120_004: TDateTimeField;
    ADOQuery1P120_005: TFloatField;
    ADOQuery1I150_002: TStringField;
    ADOQuery1I150_003: TStringField;
    ADOQuery1I150_004: TStringField;
    ADOQuery1I140_002: TStringField;
    ADOQuery1I140_003: TStringField;
    ADOQuery1G100_002: TStringField;
    qryOrd150: TADOQuery;
    ADOQuery1O150_002: TStringField;
    ADOQuery1O150_003: TStringField;
    dxDBGrid1O150_002: TdxDBGridLookupColumn;
    dxDBGrid1O150_003: TdxDBGridLookupColumn;
    dxDBGrid1I150_002: TdxDBGridLookupColumn;
    dxDBGrid1I150_003: TdxDBGridLookupColumn;
    dxDBGrid1I150_004: TdxDBGridLookupColumn;
    dxDBGrid1I140_002: TdxDBGridLookupColumn;
    dxDBGrid1I140_003: TdxDBGridLookupColumn;
    dxDBGrid1G100_002: TdxDBGridLookupColumn;
    dxDBGrid1P120_004: TdxDBGridDateColumn;
    dxDBGrid1P120_005: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure ActPrintExecute(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
  Pur120_01Form: TPur120_01Form;

implementation

uses SYSDATA, CommFun, Pur120_02;

{$R *.dfm}

procedure TPur120_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('PUR12001001');  //采购价格维护
  Action1.Caption:=GetDBString('PUR12001002');  //批增
  Action2.Caption:=GetDBString('PUR12001003');  //调价
  ADOQuery1O150_002.DisplayLabel:=GetDBString('PUR12001004');  //供应商号
  ADOQuery1O150_003.DisplayLabel:=GetDBString('PUR12001005');  //供应商名
  ADOQuery1I150_002.DisplayLabel:=GetDBString('PUR12001006');  //产品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('PUR12001007');  //产品名称
  ADOQuery1I150_004.DisplayLabel:=GetDBString('PUR12001008');  //规格型号
  ADOQuery1I140_002.DisplayLabel:=GetDBString('PUR12001009');  //计量单位
  ADOQuery1P120_004.DisplayLabel:=GetDBString('PUR12001010');  //生效日期
  ADOQuery1G100_002.DisplayLabel:=GetDBString('PUR12001011');  //币别
  ADOQuery1P120_005.DisplayLabel:=GetDBString('PUR12001012');  //采购价格
end;

procedure TPur120_01Form.FormCreate(Sender: TObject);
begin
  inherited;
//
end;

procedure TPur120_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  qryOrd150.Close;
  qryGld100.Close;
  qryInv150.Close;
end;

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

procedure TPur120_01Form.Action1Execute(Sender: TObject);
begin
  inherited;
//批增
end;

procedure TPur120_01Form.Action2Execute(Sender: TObject);
begin
  inherited;
//调价
end;

procedure TPur120_01Form.BrowseEvent;
begin
  inherited;
  ActUpdate.Execute;
end;

procedure TPur120_01Form.DeleteEvent;
begin
  inherited;
//删除
  DeleteTableRecord(ADOQuery1,'PUR120','P120_001='+ADOQuery1P120_001.AsString+' and P120_002='+ADOQuery1P120_002.AsString+' and P120_003='+ADOQuery1P120_003.AsString+' and P120_004='+GetDateString(ADOQuery1P120_004.Value));
end;

procedure TPur120_01Form.InsertEvent;
begin
  inherited;
//新增
  Pur120_02Form:=TPur120_02Form.Create(Application);
  Pur120_02Form.OpenData(0,0,0,0);
  Pur120_02Form.ShowModal;
end;

procedure TPur120_01Form.UpdateEvent;
var
  ACustNo,AItemNo,ACurrNo:Integer;ADate:TDateTime;
begin
  inherited;
//修改
  ACustNo:=ADOQuery1P120_001.Value;
  AItemNo:=ADOQuery1P120_002.Value;
  ACurrNo:=ADOQuery1P120_003.Value;
  ADate:=ADOQuery1P120_004.Value;
  Pur120_02Form:=TPur120_02Form.Create(Application);
  Pur120_02Form.OpenData(ACustNo,AItemNo,ACurrNo,ADate);
  Pur120_02Form.ShowModal;
end;

procedure TPur120_01Form.ActPrintExecute(Sender: TObject);
begin
  inherited;

end;

initialization
  RegisterClass(TPur120_01Form);

finalization
  UnRegisterClass(TPur120_01Form);

end.