frmin2.pas

蛮好的系统大家一起使用看看!~呵呵!关于图书仓库管理系统的!

unit frmin2;

interface

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

type
  TForm26 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form26: TForm26;

implementation

uses frmin, data, frmmain;

{$R *.dfm}

procedure TForm26.BitBtn1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
if messagedlg('扫描仪出错,无法操作,请检查或手工操作',mtconfirmation,[mbyes,mbno],0)=mryes then
begin

form26.close ;
 end;
end
else
begin
form26.Close;
form0.Timer1.enabled:=true;
if   dm.booktable.locate('bookid',edit1.Text,[]) then
begin
with form0 do
begin

 speedbutton7.Visible :=false;
 speedbutton11.Visible :=true;
  with dm.InQuery do
  begin
  close;
  SQL.Clear;
  SQL.Add('select * from InRecord where InID>=All(select InID from InRecord)');
  open;
  Edit2.Text:=FieldValues['InID']+1;
 end;
  with dm.bookQuery do
begin
close;
sql.Clear ;
sql.Add('select * from bookrecord where bookid = :bookid');
parameters.ParamByName('bookid').Value :=form26.Edit1.Text  ;
open;
if fieldvalues['bookid']<>null then
begin
     groupbox2.Caption :='您要入库的图书基本资料如下';
      speedbutton7.Visible :=false;
      Edit3.Text:=FieldValues['BookID'];

      Edit8.Text:=FieldValues['BookName'];

      Edit8.ReadOnly:=true;
      Edit9.Text:=FieldValues['Author'];
      Edit9.ReadOnly:=true;
      Edit11.Text:=FieldValues['Publisher'];
      Edit11.ReadOnly:=true;
      DateTimePicker2.date:=strtodate(FieldValues['PubDate']);

      Edit12.Text:=FieldValues['Price'];
      Edit12.ReadOnly:=true;
      Edit13.Text:=FieldValues['BookType'];
      Edit13.ReadOnly:=true;
      Edit14.Text:=FieldValues['Number1'];
      end
      else showmessage('没找到');
      end;
  edit3.Text :=form26.edit1.Text ;
  Edit4.Text:='';Edit5.Text:='';Edit6.Text:='';
  Edit8.ReadOnly:=true;
  Edit9.ReadOnly:=true;

  Edit11.ReadOnly:=true;
  Edit12.ReadOnly:=true;
  Edit13.ReadOnly:=true;
  Edit14.ReadOnly:=true;
  Edit14.Color:=clMenu;
  SpeedButton2.Visible:=true;
  SpeedButton1.Visible:=false;
  label8.Visible:=true;
  label18.Caption:='旧书入库';

end;
end
else
begin
with form0 do
begin


speedbutton7.Visible :=true;
speedbutton11.Visible :=false;

Edit14.ReadOnly:=true;
  with dm.InQuery do
  begin
  close;
  SQL.Clear;
  SQL.Add('select * from InRecord where InID>=All(select InID from InRecord)');
  open;
  Edit2.Text:=FieldValues['InID']+1;


  end;
  with dm.BookQuery do
  begin
  close;
  SQL.Clear;
  SQL.Add('select * from BookRecord where BookID>=All(select BookID from BookRecord)');
  open;

    Edit3.Text:=FieldValues['BookID']+1;

    edit1.Text :=edit3.Text ;
  end;
  Edit4.Text:='';Edit5.Text:='';Edit6.Text:='';
  Edit8.ReadOnly:=false;Edit8.Text:='';
  Edit9.ReadOnly:=false;Edit9.Text:='';
  Edit11.ReadOnly:=false;Edit11.Text:='';
  Edit12.ReadOnly:=false;Edit12.Text:='';
  Edit13.ReadOnly:=false;Edit13.Text:='';
  Edit14.ReadOnly:=false;Edit14.Text:='';
  SpeedButton1.Visible:=true;
  SpeedButton2.Visible:=false;
  label8.Visible:=true;
  label18.Caption:='新书入库';

end;
end;
end;
edit1.Clear ;
end;

end.