unit BookManage;

interface

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

type
  TBookManageForm = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Button1: TButton;
    GroupBox1: TGroupBox;
    Button3: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBGrid2: TDBGrid;
    Button5: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit8: TEdit;
    Edit7: TEdit;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BookManageForm: TBookManageForm;
  BookId, NumOfBook, LendOfBook,Publish,BookName,ISBN,Writer,BookSort,Time : String;
  PC : String;
  DT : TDateTime;
  NumOfBook_I, LendOfBook_I : Integer;

implementation

uses Login, Main, Data;

{$R *.dfm}

procedure TBookManageForm.FormShow(Sender: TObject);
begin
  DBGrid1.DataSource := Data.DataModule.BookManage1DS;
  DBGrid2.DataSource := Data.DataModule.BookManage2DS;
  if (Main.Purview[3]=1) and (Main.Choose=6) then //入庫
    begin
      GroupBox1.Caption := '新書入庫';
      Label1.Caption := '新書表';
      Label10.Caption := '在庫圖書表';
      Button1.Visible := True;
      Button1.Enabled := True;
      Button3.Visible := False;
      Button3.Enabled := False;
      Button5.Caption := '入庫';

      with Data.DataModule.BookManage1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select 圖書編號,書名,分類,作者,出版社,ISBN,數量,到書時間,批次,操作員 from 新書');
          Open;
        end;
      with Data.DataModule.BookManage2 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select 圖書編號,書名,分類,作者,出版社,ISBN,在庫數量,剩余數量,被借閱次數,入庫時間,操作員 from 在庫圖書');
          Open;
        end
    end
  else if (Main.Purview[4]=1) and (Main.Choose=7) then //注銷
    begin
      GroupBox1.Caption := '舊書注銷';
      Label1.Caption := '在庫圖書表';
      Label10.Caption := '舊書表';
      Button1.Visible := False;
      Button1.Enabled := False;
      Button3.Visible := True;
      Button3.Enabled := True;
      Button5.Caption := '注銷';

      with Data.DataModule.BookManage1 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select 圖書編號,書名,分類,作者,出版社,ISBN,在庫數量,剩余數量,被借閱次數,入庫時間,操作員 from 在庫圖書');
          Open;
        end;
      with Data.DataModule.BookManage2 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('select 圖書編號,書名,分類,作者,出版社,ISBN,數量,刪除時間,操作員 from 舊書');
          Open;
        end
    end;
end;

procedure TBookManageForm.Button1Click(Sender: TObject);
begin
  BookId := Edit1.Text;
  BookName := Edit2.Text;
  Writer := Edit3.Text;
  BookSort := Edit4.Text;
  Publish := Edit5.Text;
  ISBN := Edit6.Text;
  NumOfBook := Edit7.Text;
  PC := Edit8.Text;
  DT := Date();
  Time := datetostr(DT);
  with Data.DataModule.BookManage1 do
    begin
      if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') and (Edit5.Text<>'') and (Edit6.Text<>'') and (Edit7.Text<>'') and (Edit8.Text<>'') then
        begin
          Close;
          SQL.Clear;
          SQL.Add('insert into 新書(圖書編號,數量,到書時間,批次,書名,作者,出版社,ISBN,分類,操作員)');
          SQL.Add('values(');
          SQL.Add('''' + BookId + '''' );
          SQL.Add(',');
          SQL.Add(NumOfBook);
          SQL.Add(',');
          SQL.Add('''' + Time + '''');
          SQL.Add(',');
          SQL.Add('''' + PC + '''');
          SQL.Add(',');
          SQL.Add('''' + BookName + '''');
          SQL.Add(',');
          SQL.Add('''' + Writer + '''');
          SQL.Add(',');
          SQL.Add('''' + Publish + '''');
          SQL.Add(',');
          SQL.Add('''' + ISBN + '''');
          SQL.Add(',');
          SQL.Add('''' + BookSort + '''');
          SQL.Add(',');
          SQL.Add(Login.UseId);
          SQL.Add(')');
          ExecSQL;
          Close;
          SQL.Clear;
          SQL.Add('select * from 新書');
          Open;
        end
      else
        Application.MessageBox('圖書信息不能為空','錯誤信息',MB_OK+MB_ICONEXCLAMATION);
    end;
  //清空控件內容
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
end;

procedure TBookManageForm.Button3Click(Sender: TObject);
begin
  //刪除舊書
  with Data.DataModule.BookManage2 do
    begin
      BookId := FieldByName('圖書編號').AsString;
      Close;
      SQL.Clear;
      SQL.Add('delete from 舊書 where 圖書編號=''' + BookId + '''');
      ExecSQL;
      Close;
      SQL.Clear;
      SQL.Add('select * from 舊書');
      Open;
    end;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
end;

procedure TBookManageForm.Button5Click(Sender: TObject);
begin
  if Main.Choose=6 then //入庫操作
    begin
      //在新書表中刪除記錄
      with Data.DataModule.BookManage1 do
        begin
          BookId := FieldByName('圖書編號').AsString;
          BookName := FieldByName('書名').AsString;
          Writer := FieldByName('作者').AsString;
          BookSort := FieldByName('分類').AsString;
          ISBN := FieldByName('ISBN').AsString;
          Publish := FieldByName('出版社').AsString;
          NumOfBook := FieldByName('數量').AsString;
          LendOfBook := NumOfBook;
          DT := Date();
          Time := datetostr(DT);
          Close;
          SQL.Clear;
          SQL.Add('delete from 新書 where 圖書編號 = ''' + BookId + '''');
          ExecSQL;
          Close;
          SQL.Clear;
          SQL.Add('select * from 新書');
          Open;
        end;
      //在在庫圖書表中插入記錄
      with Data.DataModule.BookManage2 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('insert into 在庫圖書 values(');
          SQL.Add('''' + BookId + '''');
          SQL.Add(',');
          SQL.Add(NumOfBook);
          SQL.Add(',');
          SQL.Add(LendOfBook);
          SQL.Add(',');
          SQL.Add('''' + Time + '''');
          SQL.Add(',0,');
          SQL.Add(Login.UseId);
          SQL.Add(',');
          SQL.Add('''' + BookName + '''');
          SQL.Add(',');
          SQL.Add('''' + Writer + '''');
          SQL.Add(',');
          SQL.Add('''' + Publish + '''');
          SQL.Add(',');
          SQL.Add('''' + ISBN + '''');
          SQL.Add(',');
          SQL.Add('''' + BookSort + '''');
          SQL.Add(')');
          ExecSQL;
          Close;
          SQL.Clear;
          SQL.Add('select * from 在庫圖書');
          Open;
        end;
    end
  else if Main.Choose=7 then //注銷操作
    begin
      //從在庫圖書表中刪除記錄
      with Data.DataModule.BookManage1 do
        begin
          BookId := FieldByName('圖書編號').AsString;
          BookName := FieldByName('書名').AsString;
          Writer := FieldByName('作者').AsString;
          BookSort := FieldByName('分類').AsString;
          ISBN := FieldByName('ISBN').AsString;
          Publish := FieldByName('出版社').AsString;
          NumOfBook := FieldByName('在庫數量').AsString;
          DT := Date();
          Time := datetostr(DT);
          Close;
          SQL.Clear;
          SQL.Add('delete from 在庫圖書 where 圖書編號 = ''' + BookId + '''');
          ExecSQL;
          Close;
          SQL.Clear;
          SQL.Add('select * from 在庫圖書');
          Open;
        end;
      //在舊書表中插入記錄
      with Data.DataModule.BookManage2 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('insert into 舊書 values(');
          SQL.Add('''' + BookId + '''');
          SQL.Add(',');
          SQL.Add(NumOfBook);
          SQL.Add(',');
          SQL.Add('''' + Time + '''');
          SQL.Add(',');
          SQL.Add('''' + BookName + '''');
          SQL.Add(',');
          SQL.Add('''' + Writer + '''');
          SQL.Add(',');
          SQL.Add('''' + Publish + '''');
          SQL.Add(',');
          SQL.Add('''' + ISBN + '''');
          SQL.Add(',');
          SQL.Add('''' + BookSort + '''');
          SQL.Add(',');
          SQL.Add(Login.UseId);
          SQL.Add(')');
          ExecSQL;
          Close;
          SQL.Clear;
          SQL.Add('select * from 舊書');
          Open;
        end;
    end;
end;

procedure TBookManageForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  Edit5.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
end;

end.