frmout.pas

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

unit frmout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, ComCtrls;

type
  TForm11 = class(TForm)
    Panel4: TPanel;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    Panel5: TPanel;
    Label15: TLabel;
    SpeedButton13: TSpeedButton;
    Edit15: TEdit;
    GroupBox3: TGroupBox;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    GroupBox4: TGroupBox;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    SpeedButton1: TSpeedButton;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    Edit2: TEdit;
    Bevel1: TBevel;
    Label3: TLabel;
    Edit3: TEdit;
    SpeedButton2: TSpeedButton;
    ComboBox1: TComboBox;
    Bevel2: TBevel;
    Edit1: TEdit;
    SpeedButton3: TSpeedButton;
    Label4: TLabel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton3Click(Sender: TObject);
    procedure Edit18Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit17Change(Sender: TObject);

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

uses data, pout1;

{$R *.dfm}

procedure TForm11.SpeedButton10Click(Sender: TObject);
begin
DBGrid1.DataSource:=dm.outSource ;
edit15.Clear ; edit15.ReadOnly:=false;edit15.Color:=clinfobk;
edit16.Clear ; edit16.ReadOnly:=false;edit16.Color:=clinfobk;
edit17.Clear ;edit17.ReadOnly:=false;edit17.Color:=clinfobk;
edit18.Clear ; edit18.ReadOnly:=false;edit18.Color:=clinfobk;
edit19.Clear ; edit19.ReadOnly:=false;edit19.Color:=clinfobk;
edit2.Clear ; edit2.ReadOnly:=false;edit2.Color:=clinfobk;
edit21.Clear ; edit21.ReadOnly:=false;edit21.Color:=clinfobk;
edit22.Clear ;edit22.ReadOnly:=false; edit22.Color:=clinfobk;
edit23.Clear ; edit23.ReadOnly:=false;edit23.Color:=clinfobk;
GroupBox1.Caption:='出库管理资料';
edit25.Clear ; edit25.ReadOnly:=false;edit25.Color:=clinfobk;
ComboBox1.Color:=clinfobk;
edit26.Clear ;edit26.ReadOnly :=false; edit26.Color :=clinfobk;
edit27.Clear ;
end;

procedure TForm11.SpeedButton13Click(Sender: TObject);
begin
DBGrid1.DataSource:=dm.bookSource ;
GroupBox1.Caption:='图书资料';
edit1.Clear ;
edit3.Clear ;
if edit15.Text <>'' then
begin
with dm.BookQuery do
  begin
    close;
    SQL.Clear;
    SQL.Add('select * from BookRecord where BookID=:BookID');
    Parameters.ParamByName('BookID').Value:=Edit15.Text;
    open;
    if FieldValues['BookID']<>NULL
   then
    begin
      groupbox4.Caption :='您要查找的图书基本资料如下';

      Edit17.Text:=edit15.Text ;
      Edit17.ReadOnly:=true;
      Edit21.Text:=FieldValues['BookName'];
      Edit21.ReadOnly:=true;
      Edit23.Text:=FieldValues['Author'];
      Edit23.ReadOnly:=true;
      Edit22.Text:=FieldValues['Publisher'];
      Edit22.ReadOnly:=true;
      DateTimePicker2.Date:=strtodate(FieldValues['PubDate']);

      Edit26.Text:=FieldValues['Price'];
      Edit26.ReadOnly:=true;
      Edit27.Text:=FieldValues['BookType'];
      Edit27.ReadOnly:=true;
      Edit25.Text:=FieldValues['Number1'];
      Edit25.ReadOnly:=true;
      END
      ELSE
      BEGIN
      MessageDlg('没有找到你所需要的记录！',mtInformation,[mbOK],0);
      Edit15.Text:='';Edit15.SetFocus;
    end;
  end;
  end
  else showmessage('请输入图书编号!');

end;

procedure TForm11.SpeedButton14Click(Sender: TObject);

var s:integer;
begin
if  (Edit19.Text='')or (Edit18.Text='') then
   begin
    MessageDlg('请输入完整的出库信息!',mtInformation,[mbok],0);
    Edit17.SetFocus;
   end
else
begin
 if Edit19.Text>=Edit25.Text then
 begin
  MessageDlg('库存中的图书数量不够或数据类型有错！',mtInformation,[mbok],0);
  Edit19.Text:='';Edit19.SetFocus;
 end
else
begin
with dm.outTable  do
begin
open;
append;
fieldByName('OutID').Value:=Edit16.Text;
fieldByName('BookID').Value:=Edit17.Text;
fieldByName('EmployeeID').Value:=Edit18.Text;
fieldByName('Number2').Value:=Edit19.Text;
fieldByName('Outdate').AsDateTime :=DateTimePicker1.Date ;
fieldByName('Outtype').Value:=ComboBox1.Text;
fieldByName('guestid').Value:=Edit2.Text;
post;
end;
Edit25.ReadOnly:=False;
s:=StrToInt(Edit25.Text)-StrToInt(Edit19.Text);
Edit25.Text:=IntToStr(s);
Edit25.ReadOnly:=True;
with dm.Booktable do
begin
open;
locate('bookid',edit15.Text ,[]);
edit;
fieldByName('Number1').Value:=edit25.Text ;
post;
end;
MessageDlg('出库记录添加成功！',mtInformation,[mbok],0);
Edit16.Text:='';Edit16.SetFocus;
end;
end;
end;



procedure TForm11.SpeedButton12Click(Sender: TObject);
begin
close;
end;

procedure TForm11.SpeedButton1Click(Sender: TObject);
begin
with dm.outQuery do
  begin
  close;
  SQL.Clear;
  SQL.Add('select * from outRecord where outID>=All(select outID from outRecord)');
  open;
  Edit16.Text:=FieldValues['outID']+1;


end;
 with dm.outQuery do
  begin
  close;
  SQL.Clear;
  SQL.Add('select * from outRecord where outID>=All(select outID from outRecord)');
  open;
  Edit16.Text:=FieldValues['outID']+1;
  
  END;
showmessage('请先查找一下所要处理的图书的库存量再施行操作');
end;

procedure TForm11.SpeedButton11Click(Sender: TObject);
begin
form20.showmodal;
end;

procedure TForm11.SpeedButton15Click(Sender: TObject);
begin
edit18.clear;
edit19.Clear ;
edit16.Clear ;
edit17.Clear ;

edit2.Clear;
end;

procedure TForm11.FormCreate(Sender: TObject);
begin
with dm.outquery do
begin
 close;
 sql.clear;
 sql.add('select * from outrecord');
 open;
 end;
end;


procedure TForm11.SpeedButton2Click(Sender: TObject);
begin
edit1.Clear ;
edit15.Clear ;
if edit3.Text <>'' then
begin
with dm.empQuery  do
begin
close;
sql.Clear ;
sql.add('select * from employee where employeeid=:employeeid');
parameters.ParamByName('employeeid').Value:=edit3.Text;
open;
if fieldvalues['employeeid']<>null then
begin
DBGrid1.DataSource:=dm.empSource;
GroupBox1.Caption:='负责人资料';
end
else
begin
showmessage('找不到您所要的数据');
edit3.Clear ;
end;
end;
end
else
showmessage('请先输入数据!');

end;
procedure TForm11.Edit15KeyPress(Sender: TObject; var Key: Char);
var numset:set of char;
begin
numset:=['0'..'9',#8];
if not (key in numset) then key:=#0;
end;

procedure TForm11.Edit3KeyPress(Sender: TObject; var Key: Char);
var numset:set of char;
begin
numset:=['0'..'9',#8];
if not (key in numset) then key:=#0;
end;

procedure TForm11.Edit1KeyPress(Sender: TObject; var Key: Char);
var numset:set of char;
begin
numset:=['0'..'9',#8];
if not (key in numset) then key:=#0;
end;

procedure TForm11.SpeedButton3Click(Sender: TObject);
begin
edit3.Clear ;
edit15.Clear ;
if edit1.Text <>'' then
begin
with dm.guestQuery  do
begin
close;
sql.Clear ;
sql.add('select * from guest where guestid=:guestid');
parameters.ParamByName('guestid').Value:=edit1.Text;
open;
if fieldvalues['guestid']<>null then
begin
DBGrid1.DataSource:=dm.guestSource;
GroupBox1.Caption:='客户资料';
end
else
begin
showmessage('找不到您所要的数据');
edit1.Clear ;
end;
end;
end
else
showmessage('请先输入数据!');
end;

procedure TForm11.Edit18Change(Sender: TObject);
begin
if edit18.Text <>'' then
begin
with dm.empQuery  do
begin
close;
sql.Clear ;
sql.add('select * from employee where employeeid=:employeeid');
parameters.ParamByName('employeeid').Value:=edit18.Text;
open;
if fieldvalues['employeeid']<>null then
begin
DBGrid1.DataSource:=dm.empSource ;
GroupBox1.Caption:='负责人资料';
end;
end;
end;
end;

procedure TForm11.Edit2Change(Sender: TObject);
begin
if edit2.Text <>'' then
begin
with dm.guestQuery  do
begin
close;
sql.Clear ;
sql.add('select * from guest where guestid=:guestid');
parameters.ParamByName('guestid').Value:=edit2.Text;
open;
if fieldvalues['guestid']<>null then
begin
DBGrid1.DataSource:=dm.guestSource;
GroupBox1.Caption:='客户资料';
end;
end;
end;
end;
procedure TForm11.Edit17Change(Sender: TObject);
begin
if edit17.Text <>'' then
begin
with dm.bookQuery  do
begin
close;
sql.Clear ;
sql.add('select * from bookrecord where bookid=:bookid');
parameters.ParamByName('bookid').Value:=edit17.Text;
open;
if fieldvalues['bookid']<>null then

DBGrid1.DataSource:=dm.bookSource
end;
end;
end;

end.