u_htgdxx.pas

来自「三层物资管理程序源码」· PAS 代码 · 共 80 行

unit U_htgdxx;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, StdCtrls, Mask, DBCtrls, ExtCtrls;

type
  TForm52 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    BitBtn3: TBitBtn;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form52: TForm52;

implementation

uses U_htgd, U_fzlr_zgxm;

{$R *.DFM}

procedure TForm52.SpeedButton1Click(Sender: TObject);
var
  xx: Tdatetime;
begin
  if trim(dbedit1.text) = '' then
  begin
    application.messagebox('归档人还未输入，请确认!', '物资管理系统', mb_iconinformation + mb_defbutton1);
    dbedit1.SetFocus;
    exit;
  end;
{  try
    xx := strtodate(dbedit2.text);
  except
    application.messagebox('请确认归档日期输入是否正确!', '物资管理系统', mb_iconinformation + mb_defbutton1);
    exit;
  end;}
  form51.clientdataset1.edit;
  form51.clientdataset1.FieldByName('是否归档').value := true;
  form51.ClientDataSet1.Post;
  form51.ClientDataSet1.ApplyUpdates(0);
  close;
end;

procedure TForm52.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

procedure TForm52.BitBtn3Click(Sender: TObject);
begin
  application.createform(TfrmZgda_fzlr, frmZgda_fzlr);
  try
    frmZgda_fzlr.showmodal;
  finally
    form51.clientdataset1.Edit;
    form51.clientdataset1.FieldByName('审核人').value := gs_zgxm;
    frmZgda_fzlr.free;
  end;

end;

end.