logunit.~pas

图书馆管理系统,非常有用,希望给你带来帮助

unit LogUnit;

interface

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

type
  TLogForm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    RadioGroup1: TRadioGroup;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    ListView1: TListView;
    RadioGroup2: TRadioGroup;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    DateTimePicker2: TDateTimePicker;
    BitBtn2: TBitBtn;
    ListView2: TListView;
    ListView3: TListView;
    GroupBox3: TGroupBox;
    BitBtn3: TBitBtn;
    DateTimePicker3: TDateTimePicker;
    RadioGroup3: TRadioGroup;
    ListView4: TListView;
    GroupBox4: TGroupBox;
    BitBtn4: TBitBtn;
    DateTimePicker4: TDateTimePicker;
    RadioGroup4: TRadioGroup;
    CheckBox1: TCheckBox;
    BitBtn5: TBitBtn;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    BitBtn6: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure RadioGroup2Click(Sender: TObject);
    procedure RadioGroup3Click(Sender: TObject);
    procedure RadioGroup4Click(Sender: TObject);
  private
    { Private declarations }
    procedure WMNCpaint(var Msg:TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
  end;

var
  LogForm: TLogForm;

implementation
uses DMUnit,Share;

{$R *.dfm}

procedure TLogForm.FormCreate(Sender: TObject);
var
  readstr:TStrings;
begin
  readstr:=TStringList.Create;
  try
    readstr:=DM.Getreadid;
    combobox1.Items.Clear;
    combobox1.Items.Assign(readstr);
    combobox2.Items.Clear;
    combobox2.Items.Assign(readstr);
  finally
    readstr.Free;
  end;
end;

procedure TLogForm.BitBtn1Click(Sender: TObject);
begin
  with DM do
  begin
    LogQuery.SQL.Text:='select book_isbn,book_name,buy_date from book_stock';
    case RadioGroup1.ItemIndex of
    1: begin
         if Checkbox1.Checked then
         begin
           LogQuery.SQL.Add(' where book_name like :in0');
           LogQuery.Parameters[0].Value:='%'+edit1.Text+'%';
         end else
         begin
           LogQuery.SQL.Add(' where book_name=:in0');
           LogQuery.Parameters[0].Value:=edit1.Text;
         end;
       end;
    2: begin
         LogQuery.SQL.Add(' where buy_date like :in0');
         LogQuery.Parameters[0].Value:=GetMonth(DateTimePicker1.DateTime)+'%';
       end;
    3: begin
         LogQuery.SQL.Add(' where buy_date like :in0');
         LogQuery.Parameters[0].Value:=datetostr(DateTimePicker1.Date)+'%';
       end;
    end;
    LogQuery.Prepared;
    LogQuery.Open;
    listview1.Items.Clear;
    while not LogQuery.Eof do
    begin
      with listview1.Items.Add do
      begin
        caption:=LogQuery.Fields[0].AsString;
        subitems.Add(LogQuery.Fields[1].asstring);
        subitems.Add(LogQuery.Fields[2].asstring);
      end;
      LogQuery.Next;
    end;
    LogQuery.Close;
  end;
end;

procedure TLogForm.RadioGroup1Click(Sender: TObject);
begin
  case RadioGroup1.ItemIndex of
  0: begin
       edit1.Enabled:=false;
       datetimepicker1.Enabled:=false;
       checkbox1.Enabled:=false;
     end;
  1: begin
       edit1.Enabled:=True;
       datetimepicker1.Enabled:=false;
       checkbox1.Enabled:=True;
     end;
  2: begin
       edit1.Enabled:=false;
       datetimepicker1.Enabled:=True;
       checkbox1.Enabled:=false;
     end;
  3: begin
       edit1.Enabled:=false;
       datetimepicker1.Enabled:=True;
       checkbox1.Enabled:=false;
     end;
  end;
end;

procedure TLogForm.BitBtn2Click(Sender: TObject);
begin
  with DM do
  begin
    LogQuery.SQL.Text:='select man_id,entry_date from entry_log';
    case RadioGroup2.ItemIndex of
    1: begin
         LogQuery.SQL.Add(' where man_id=:in0');
         LogQuery.Parameters[0].Value:=trim(edit2.Text);
       end;
    2: begin
         LogQuery.SQL.Add(' where entry_date like :in0');
         LogQuery.Parameters[0].Value:=datetostr(DateTimePicker2.Date)+'%';
       end;
    end;
    LogQuery.Prepared;
    LogQuery.Open;
    listview2.Items.Clear;
    while not LogQuery.Eof do
    begin
      with listview2.Items.Add do
      begin
        caption:=LogQuery.Fields[0].AsString;
        subitems.Add(LogQuery.Fields[1].asstring);
      end;
      LogQuery.Next;
    end;
    LogQuery.Close;
  end;
end;

procedure TLogForm.BitBtn3Click(Sender: TObject);
begin
  with DM do
  begin
    LogQuery.SQL.Text:='select l.read_id,l.book_isbn,s.book_name,l.lend_date '+
                       ' from lend_log as l inner join book_stock as s on '+
                       ' l.book_isbn=s.book_isbn';
    case RadioGroup3.ItemIndex of
    1: begin
         LogQuery.SQL.Add(' where l.read_id=:in0');
         LogQuery.Parameters[0].Value:=trim(combobox1.Text);
       end;
    2: begin
         LogQuery.SQL.Add(' where l.lend_date like :in0');
         LogQuery.Parameters[0].Value:=datetostr(Datetimepicker3.Date)+'%';
       end;
    end;
    LogQuery.Prepared;
    LogQuery.Open;
    listview3.Items.Clear;
    while not LogQuery.Eof do
    begin
      with ListView3.Items.Add do
      begin
        Caption:=LogQuery.Fields[0].AsString;
        Subitems.Add(LogQuery.Fields[1].AsString);
        Subitems.Add(LogQuery.Fields[2].AsString);
        Subitems.Add(LogQuery.Fields[3].AsString)
      end;
      LogQuery.Next;
    end;
    LogQuery.Close;
  end;
end;

procedure TLogForm.BitBtn5Click(Sender: TObject);
var
  readstr:TStrings;
begin
  readstr:=TStringList.Create;
  try
    readstr:=DM.Getreadid;
    combobox1.Items.Clear;
    combobox1.Items.Assign(readstr);
  finally
    readstr.Free;
  end;
end;

procedure TLogForm.BitBtn6Click(Sender: TObject);
var
  readstr:TStrings;
begin
  readstr:=TStringList.Create;
  try
    readstr:=DM.Getreadid;
    combobox2.Items.Clear;
    combobox2.Items.Assign(readstr);
  finally
    readstr.Free;
  end;
end;

procedure TLogForm.BitBtn4Click(Sender: TObject);
begin
  with DM do
  begin
    LogQuery.SQL.Text:='select r.read_id,r.book_isbn,s.book_name,r.return_date '+
                       ' from return_log as r inner join book_stock as s on '+
                       ' r.book_isbn=s.book_isbn';
    case RadioGroup3.ItemIndex of
    1: begin
         LogQuery.SQL.Add(' where r.read_id=:in0');
         LogQuery.Parameters[0].Value:=trim(combobox1.Text);
       end;
    2: begin
         LogQuery.SQL.Add(' where r.return_date like :in0');
         LogQuery.Parameters[0].Value:=datetostr(Datetimepicker3.Date)+'%';
       end;
    end;
    LogQuery.Prepared;
    LogQuery.Open;
    listview4.Items.Clear;
    while not LogQuery.Eof do
    begin
      with ListView4.Items.Add do
      begin
        Caption:=LogQuery.Fields[0].AsString;
        Subitems.Add(LogQuery.Fields[1].AsString);
        Subitems.Add(LogQuery.Fields[2].AsString);
        Subitems.Add(logQuery.Fields[3].AsString)
      end;
      LogQuery.Next;
    end;
    LogQuery.Close;
  end;
end;

procedure TLogForm.WMNCpaint(var Msg: TWMNCPaint);
begin
  inherited;
  Draw(LogForm);
end;

procedure TLogForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  LogForm:=nil;
  Action:=caFree;
end;

procedure TLogForm.RadioGroup2Click(Sender: TObject);
begin
  case radiogroup2.ItemIndex of
  0: begin
       edit2.Enabled:=false;
       datetimepicker2.Enabled:=false;
     end;
  1: begin
       edit2.Enabled:=true;
       datetimepicker2.Enabled:=false;
     end;
  2: begin
       edit2.Enabled:=false;
       datetimepicker2.Enabled:=true;
     end;
  end;
end;

procedure TLogForm.RadioGroup3Click(Sender: TObject);
begin
  case radiogroup3.ItemIndex of
  0: begin
       combobox1.Enabled:=false;
       bitbtn5.Enabled:=false;
       datetimepicker3.Enabled:=false;
     end;
  1: begin
       combobox1.Enabled:=true;
       bitbtn5.Enabled:=true;
       datetimepicker3.Enabled:=false;
     end;
  2: begin
       combobox1.Enabled:=false;
       bitbtn5.Enabled:=false;
       datetimepicker3.Enabled:=true;
     end;
  end
end;

procedure TLogForm.RadioGroup4Click(Sender: TObject);
begin
  case radiogroup4.ItemIndex of
  0: begin
       combobox2.Enabled:=false;
       bitbtn6.Enabled:=false;
       datetimepicker4.Enabled:=false;
     end;
  1: begin
       combobox2.Enabled:=true;
       bitbtn6.Enabled:=true;
       datetimepicker4.Enabled:=false;
     end;
  2: begin
       combobox2.Enabled:=false;
       bitbtn6.Enabled:=false;
       datetimepicker4.Enabled:=true;
     end;
  end
end;

end.