jhydl.pas

来自「一个仓库管理中的子系统－－采购子系统」· PAS 代码 · 共 64 行

unit jhydl;

interface

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

type
  TjhydlForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    jhyidEdit: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jhydlForm: TjhydlForm;

implementation

uses ssbqr;

{$R *.DFM}

procedure TjhydlForm.BitBtn1Click(Sender: TObject);
begin
    if  jhyidEdit.Text='' then
     begin
        Showmessage('请输入计划员ID号！');
        exit;
     end
    else
    with datamodule1.PublicQuery3 do
     begin
       sql.Clear;
       sql.Add('select * From dbo.P_jhyb');
       sql.add('where jhyid='+''''+jhyidedit.Text+'''');
       open;
       if recordCount=0 then
       begin
       showmessage('您输入的ID号不存在!');
       close;
       exit;
       end;
       close;
     end;
    ssbqrForm:=TssbqrForm.Create(Application);
    ssbqrForm.jhyidLabel.caption:=jhyidedit.Text;
    hide;
    ssbqrForm.ShowModal;
    ssbqrForm.Free;
    show;
    jhydlForm.Close;
end;

end.