ureturn.pas

模块名称: 一、基础信息管理 碟片管理 歌曲管理 歌星管理 人员管理 二、借阅管理 借出登记 归还登记 借阅查询 其它管理 三、系统管理 权限设置 更改密

unit uReturn;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, ADODB, wwSpeedButton, wwDBNavigator,
  wwclearpanel, Grids, Wwdbigrd, Wwdbgrid, DBCtrls, ComCtrls, Buttons;

type
  TfrmReturn = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Button1: TButton;
    wwDBGrid1: TwwDBGrid;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    wwDBNavigator1Refresh: TwwNavButton;
    wwDBNavigator1SaveBookmark: TwwNavButton;
    wwDBNavigator1RestoreBookmark: TwwNavButton;
    wwDBNavigator1FilterDialog: TwwNavButton;
    wwDBNavigator1RecordViewDialog: TwwNavButton;
    wwDBNavigator1LocateDialog: TwwNavButton;
    wwDBNavigator1SearchDialog: TwwNavButton;
    Ado_Return: TADOQuery;
    Ado_list: TADOQuery;
    DS_Return: TDataSource;
    Button2: TButton;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    Label3: TLabel;
    wwDBGrid2: TwwDBGrid;
    Label4: TLabel;
    DBMemo1: TDBMemo;
    DS_List: TDataSource;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Btn_Right: TSpeedButton;
    Btn_Left: TSpeedButton;
    Btn_AllLeft: TSpeedButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure wwDBGrid1DblClick(Sender: TObject);
    procedure wwDBGrid2DblClick(Sender: TObject);
    procedure Btn_RightClick(Sender: TObject);
    procedure Btn_LeftClick(Sender: TObject);
    procedure Btn_AllLeftClick(Sender: TObject);
  private
    S_SQl:String;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmReturn: TfrmReturn;

implementation

uses CDDM, uCommon;

{$R *.dfm}

procedure TfrmReturn.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TfrmReturn.FormShow(Sender: TObject);
begin
  DateTimePicker1.Time:=Now;
  DM.execSQL('delete from temp');
  if Ado_list.Active=false then Ado_list.Open;
  with  Ado_Return do
    begin
      close;
      sql.Text:='select a.*,b.碟片专辑名,b.歌星 from 借阅表 a,碟片表 b where a.碟片ID=b.碟片ID and a.借阅状态='+#39+'借出'+#39+' and b.碟片类型='+#39+S_DiskType+#39;
      open;
    end;
end;

procedure TfrmReturn.Button2Click(Sender: TObject);
begin
  with dM.qTemp do
    begin
      close;
      sql.Clear;
      sql.Add('select * from temp where temp='+''''+Ado_Return.FieldByName('碟片ID').AsString+'''');
      open
    end;
  if DM.qTemp.IsEmpty  then
    begin
      S_SQl:='insert into temp(temp,temp1,temp2) '+'values('
          +''''+Ado_Return.FieldByName('碟片ID').AsString+''''+','
          +''''+Ado_Return.FieldByName('碟片专辑名').AsString+''''+','
          +''''+Ado_Return.FieldByName('歌星').AsString+''''+')';
      Dm.execSQL(S_SQl);
      ADO_list.Close;
      ADO_list.Open;
    end
    else
    begin
      showmessage('归还列表中已有这项数据了！请重新选择！')
    end;
end;

procedure TfrmReturn.Button3Click(Sender: TObject);
begin
  if ADO_list.IsEmpty then
    begin
      showMessage('归还列表为空，无法删除！');
    end
    else
    begin
      Dm.execSQL('delete from temp where temp='+''''+ADO_list.FieldByName('temp').AsString+'''');
      ADO_list.Close;
      ADO_list.Open;
    end;
end;

procedure TfrmReturn.Button4Click(Sender: TObject);
begin
  Dm.execSQL('delete from temp');
  ADO_list.Close;
  ADO_list.Open;
end;

procedure TfrmReturn.Button6Click(Sender: TObject);
begin
  if ADO_list.IsEmpty then
    begin
      showMessage('归还列表为空，无法提交！');
      exit;
    end
    else
    begin
      try
        Dm.ADO_Con.BeginTrans;
        ADO_list.First;
        while  not ADO_list.Eof   do
          begin
            Dm.execSQL('update 借阅表 set 借阅状态='+''''+'归还'+''''+' where 碟片ID= '+ADO_list.fieldbyName('Temp').AsString);
            Dm.execSQL('update 借阅表 set 归还时间='+''''+DateToStr(DateTimePicker1.Date) +''''+' where 碟片ID= '+ADO_list.fieldbyName('Temp').AsString);
            DM.execSQL('update 碟片表 set 碟片状态='+''''+'在家'+''''+' where 碟片ID= '+ADO_list.fieldbyName('Temp').AsString);
            ADO_list.Next;
          end;
        Dm.execSQL('delete from temp');
        Dm.ADO_Con.CommitTrans;
        except
        DM.ADO_Con.Cancel;
      end;
    end;
  ADO_Return.Close;
  ADO_Return.Open;
  ADO_list.Close;
  ADO_list.Open;

end;

procedure TfrmReturn.Button5Click(Sender: TObject);
begin
  if ADO_list.IsEmpty then
    begin
      showMessage('遗失列表为空，无法提交！');
      exit;
    end
    else
    begin
      try
        Dm.ADO_Con.BeginTrans;
        ADO_list.First;
        while  not ADO_list.Eof   do
          begin
            Dm.execSQL('update 借阅表 set 借阅状态='+''''+'遗失'+''''+' where 碟片ID= '+ADO_list.fieldbyName('Temp').AsString);
            Dm.execSQL('update 借阅表 set 归还时间='+''''+DateToStr(DateTimePicker1.Date) +''''+' where 碟片ID= '+ADO_list.fieldbyName('Temp').AsString);
            DM.execSQL('update 碟片表 set 碟片状态='+''''+'遗失'+''''+' where 碟片ID= '+ADO_list.fieldbyName('Temp').AsString);
            ADO_list.Next;
          end;
        Dm.execSQL('delete from temp');
        Dm.ADO_Con.CommitTrans;
        except
        DM.ADO_Con.Cancel;
      end;
    end;
  ADO_Return.Close;
  ADO_Return.Open;
  ADO_list.Close;
  ADO_list.Open;

end;

procedure TfrmReturn.wwDBGrid1DblClick(Sender: TObject);
begin
  Button2Click(nil);
end;

procedure TfrmReturn.wwDBGrid2DblClick(Sender: TObject);
begin
  Button3Click(nil);
end;

procedure TfrmReturn.Btn_RightClick(Sender: TObject);
begin
  Button2Click(nil);
end;

procedure TfrmReturn.Btn_LeftClick(Sender: TObject);
begin
  Button3Click(nil);
end;

procedure TfrmReturn.Btn_AllLeftClick(Sender: TObject);
begin
  Button4Click(nil);
end;

end.