unit Unitzz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm,Unitcomm,DB,ADODB, SUIPageControl,
  SUITabControl, SUIButton, StdCtrls, SUIComboBox, SUIImagePanel, SUIEdit,
  DBCtrls, SUIDBCtrls, Grids, DBGrids;

type
  TForm11 = class(TForm)
    suiForm1: TsuiForm;
    suiPageControl1: TsuiPageControl;
    suiTabSheet1: TsuiTabSheet;
    suiTabSheet2: TsuiTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    m_q: TsuiComboBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    suiImagePanel1: TsuiImagePanel;
    m_name: TsuiEdit;
    suiImagePanel2: TsuiImagePanel;
    b_sm: TsuiEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    b_name: TsuiEdit;
    b_lend: TsuiEdit;
    b_back: TsuiEdit;
    suiButton3: TsuiButton;
    suiButton5: TsuiButton;
    suiImagePanel3: TsuiImagePanel;
    suiTabSheet3: TsuiTabSheet;
    suiImagePanel4: TsuiImagePanel;
    del: TsuiDBGrid;
    Label6: TLabel;
    suiButton4: TsuiButton;
    suiButton6: TsuiButton;
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiImagePanel3Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton6Click(Sender: TObject);
    procedure formshow(Sender: TObject);
    procedure deldbiclick(Sender: TObject);
    procedure b_lendChange(Sender: TObject);
    procedure b_backChange(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}
uses
    Unitdel1;

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

procedure TForm11.suiButton1Click(Sender: TObject);
var
    myQuery:TADOQuery;
begin
     myQuery:=TADOQuery.Create(self);
     myQuery.Connection:=ADOCOnn;
     myQuery.SQL.Add('insert magazine(m_name,m_q) values (?,?)');
     myQuery.Parameters[0].Value:=m_name.Text;
     myQuery.Parameters[1].Value:=m_q.Text;
     myQuery.ExecSQL;
     myQuery.Free;
     showmessage('恭喜您，新雜志信息錄入成功!');
end;

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

procedure TForm11.suiButton3Click(Sender: TObject);
var
    ZQuery:TADOQuery;
begin
     ZQuery:=TADOQuery.Create(self);
     ZQuery.Connection:=ADOConn;
     ZQuery.SQL.Add('insert lendm(b_name,b_lend,b_sm) values (?,?,?)');
     ZQuery.Parameters[0].Value:=b_name.Text;
     ZQuery.Parameters[1].Value:=b_lend.Text;
     ZQuery.Parameters[2].Value:=b_sm.Text;
     ZQuery.ExecSQL;
     ZQuery.Free;
     showmessage('借閱成功!');

end;

procedure TForm11.suiImagePanel3Click(Sender: TObject);
var
    askDataset:TADODataset;
begin
    askDataset:=TADODAtaset.Create(self);
    askDataset.Connection:=ADOConn;
    askDataset.CommandText:='select b_name,b_sm,b_lend from lendm where b_name='''+b_name.Text+''' and b_sm='''+b_sm.Text+'''';
    askDataset.Active:=true;
    b_lend.Text:=askDataset.Fields[2].AsString;
    askDataset.Close;
    
end;

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

procedure TForm11.suiButton6Click(Sender: TObject);
var
     gQuery:TADOQuery;
begin
     gQuery:=TADOQuery.Create(self);
     gQuery.Connection:=ADOCOnn;
     gQuery.SQL.Add('update lendm set b_back='''+b_back.Text+'''');
     gQuery.ExecSQL;
     gQuery.Free;
     showmessage('歸還信息錄入成功!');

end;

procedure TForm11.formshow(Sender: TObject);
var
    myDataset:TADODataset;
    myDAtasource:TDatasource;
begin
     myDataset:=TADODataset.Create(self);
     myDataset.Connection:=ADOConn;
     myDatasource:=TDAtasource.Create(self);
     myDatasource.DataSet:=myDataset;
     del.DataSource:=myDatasource;
     myDataset.CommandText:='select * from lendm';
     myDataset.Active:=true;
end;
procedure TForm11.deldbiclick(Sender: TObject);
var
    frm12:TForm12;
begin
     frm12:=TForm12.Create(self);
     frm12.Tid:=del.Fields[0].AsString;
     frm12.ShowModal;
     frm12.Free;
     self.Close;

end;

procedure TForm11.b_lendChange(Sender: TObject);
begin
      b_lend.Text:=FormatDAtetime('YYYY-MM-DD',Now);
end;

procedure TForm11.b_backChange(Sender: TObject);
begin
     b_back.Text:=FormatDatetime('YYYY-MM-DD',Now);
end;

end.