frmin.pas

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

unit frmin;

interface

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

type
  TForm0 = class(TForm)
    Timer1: TTimer;
    GroupBox3: TGroupBox;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label16: TLabel;
    SpeedButton3: TSpeedButton;
    Bevel2: TBevel;
    Label19: TLabel;
    SpeedButton10: TSpeedButton;
    Edit10: TEdit;
    Edit15: TEdit;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    SpeedButton8: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    DateTimePicker2: TDateTimePicker;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    SpeedButton7: TSpeedButton;
    Label15: TLabel;
    SpeedButton11: TSpeedButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    Label18: TLabel;
    Panel2: TPanel;
    SpeedButton2: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure Edit15KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form0: TForm0;
  
implementation

uses data, pin1, frmin2;

{$R *.dfm}

procedure TForm0.SpeedButton6Click(Sender: TObject);
begin
form26.ShowModal;
end;

procedure TForm0.SpeedButton7Click(Sender: TObject);
begin
if (Edit4.Text='') or (Edit5.Text='') or (Edit8.Text='')then
  begin
  MessageDlg('请输入完整的入库信息和图书信息，然后单击确定按钮。',mtInformation,[mbok],0);
  Edit2.SetFocus;
  end
else
  begin
    with dm.Intable do
     begin


     append;
     fieldByName('inid').asstring  :=edit2.Text ;
     fieldByName ('bookid').asstring :=edit3.Text ;
     fieldByName ('employeeid').asstring :=edit4.Text ;
     fieldByName ('id').asstring :=edit5.Text ;
     fieldByName ('number').asstring :=edit6.Text ;
     fieldByName('indate').AsDateTime  :=DateTimePicker1.date;
     fieldByName('intype').asstring :=ComboBox1.Text ;
     post;

     end;

    with dm.Booktable do
       begin

       append;
       fieldByName('bookid').asstring  :=edit3.Text ;
       fieldByName('bookname').asstring :=edit8.Text ;
       fieldByName('author').asstring :=edit9.Text ;
       fieldByName('publisher').asstring :=edit11.Text ;
       fieldByName('number1').asstring :=edit6.Text ;
       fieldByName('pubdate').AsDateTime :=DateTimePicker2.Date  ;
       fieldByName('price').asstring :=edit12.Text ;
       fieldByName('booktype').asstring :=edit13.Text ;
       post;


       end;

       MessageDlg('记录已成功添加！',mtInformation,[mbOK],0);
       Edit3.SetFocus;
      

  end;
end;











procedure TForm0.SpeedButton8Click(Sender: TObject);
begin

if (Edit8.Text='') or (Edit9.Text='') or (Edit11.Text='')
     or (Edit12.Text='') or (Edit13.Text='')  or (Edit2.Text='')
      or (Edit4.Text='') or (Edit5.Text='')or (Edit6.Text='')
     then  begin
  MessageDlg('请输入所需的全部入库信息!',mtInformation,[mbok],0);
end
  else
  begin
   
    MessageDlg('记录保存成功！',mtInformation,[mbok],0);
  end;

end;

procedure TForm0.SpeedButton5Click(Sender: TObject);
begin
 close;
end;

procedure TForm0.SpeedButton1Click(Sender: TObject);
begin
GroupBox3.Caption:='入库管理资料';
DBGrid1.DataSource :=dm.inSource1 ;
edit4.Clear ;Edit4.Color:=clinfobk;
edit5.Clear ; Edit5.Color:=clinfobk;
edit6.Clear ; Edit6.Color:=clinfobk;

edit8.Clear ; Edit8.Color:=clinfobk;
edit9.Clear ; Edit9.Color:=clinfobk;

edit11.Clear ; Edit11.Color:=clinfobk;
edit12.Clear ; Edit12.Color:=clinfobk;
edit13.Clear ; Edit13.Color:=clinfobk;
edit14.Clear ; Edit14.Color:=clinfobk;
ComboBox1.Color:=clinfobk;


Edit14.ReadOnly:=false;
end;

procedure TForm0.SpeedButton4Click(Sender: TObject);
begin
form18.showmodal;
end;

procedure TForm0.FormActivate(Sender: TObject);
begin
with dm.inquery do
begin
close;
sql.clear;
sql.add('select * from inrecord');
open;
end;
//form26.showmodal;
end;

procedure TForm0.SpeedButton11Click(Sender: TObject);
var s:integer;
begin
if  (Edit4.Text='') or (Edit5.Text='') or (Edit8.Text='')then
  begin
  MessageDlg('请输入完整的入库信息和图书信息，然后单击确定按钮。',mtInformation,[mbok],0);
  Edit2.SetFocus;
  end
else
  begin
    with dm.Intable do
     begin
     try
     append;
     fieldByName('inid').asstring  :=edit2.Text ;
     fieldByName ('bookid').asstring :=edit3.Text ;
     fieldByName ('employeeid').asstring :=edit4.Text ;
     fieldByName ('id').asstring :=edit5.Text ;
     fieldByName ('number').asstring :=edit6.Text ;
     fieldByName('indate').AsDateTime :=DateTimePicker1.Date ;
     fieldByName('intype').asstring :=ComboBox1.Text ;
     post;
     except
     cancel;
     end;
     end;
       S:=StrToInt(Edit6.Text)+StrToInt(Edit14.Text);
       Edit14.Text:=IntToStr(s);
       Edit14.ReadOnly:=true;
       with dm.Booktable do
       begin
       try
       edit;
       fieldByName('bookid').asstring  :=edit3.Text ;
       fieldByName ('bookname').asstring :=edit8.Text ;
       fieldByName ('author').asstring :=edit9.Text ;
       fieldByName ('publisher').asstring :=edit11.Text ;
       fieldByName ('number1').value:=edit14.Text ;
       fieldByName('pubdate').AsDateTime :=DateTimePicker2.Date  ;
       fieldByName('price').asstring :=edit12.Text ;
       fieldByName('booktype').asstring :=edit13.Text ;
       post;
       except
       cancel;
       end;
       MessageDlg('记录已成功添加！',mtInformation,[mbOK],0);
       Edit3.SetFocus;
       end;
       end;
end;

procedure TForm0.SpeedButton12Click(Sender: TObject);
begin
edit10.Clear ;
if edit15.Text <>'' then
begin
with dm.shopQuery  do
begin
close;
sql.Clear ;
sql.add('select * from shopkeeper where id=:id');
parameters.ParamByName('id').Value:=edit15.Text;
open;
if fieldvalues['id']<>null then
begin
DBGrid1.DataSource:=dm.shopSource;
GroupBox3.Caption:='供应商资料';
end
else
begin
showmessage('找不到您所要的数据');
edit15.Clear ;
end;
end;
end
else
showmessage('请先输入数据!');
end;

procedure TForm0.Timer1Timer(Sender: TObject);
begin
if label18.Left <900   then

label18.Left:=label18.Left+1
else
label18.Left:=320;
end;

procedure TForm0.SpeedButton2Click(Sender: TObject);
begin
DBGrid1.DataSource :=dm.inSource1;
edit4.Clear ; Edit4.Color:=clinfobk;
edit5.Clear ; Edit5.Color:=clinfobk;
edit6.Clear ; Edit6.Color:=clinfobk;
edit10.Clear ;edit15.Clear ;
Edit14.ReadOnly:=false;
GroupBox3.Caption:='入库管理资料';
end;

procedure TForm0.Edit10KeyPress(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 TForm0.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 TForm0.Edit4Change(Sender: TObject);
begin
if edit4.Text <>'' then
begin
with dm.empQuery  do
begin
close;
sql.Clear ;
sql.add('select * from employee where employeeid=:employeeid');
parameters.ParamByName('employeeid').Value:=edit4.Text;
open;
if fieldvalues['employeeid']<>null then
begin
DBGrid1.DataSource:=dm.empSource;
GroupBox3.Caption:='负责人资料';
end;
end;
end;
end;

procedure TForm0.Edit5Change(Sender: TObject);
begin
if edit5.Text <>'' then
begin
with dm.shopQuery  do
begin
close;
sql.Clear ;
sql.add('select * from shopkeeper where id=:id');
parameters.ParamByName('id').Value:=edit5.Text;
open;
if fieldvalues['id']<>null then
begin
DBGrid1.DataSource:=dm.shopSource;
GroupBox3.Caption:='供应商资料';
end;
end;
end;
end;

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

end.