uborrow.pas

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

unit uBorrow;

interface

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

type
  TfrmBorrow = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Button1: TButton;
    wwDBGrid1: TwwDBGrid;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    wwDBNavigator1FilterDialog: TwwNavButton;
    wwDBNavigator1RecordViewDialog: TwwNavButton;
    wwDBNavigator1LocateDialog: TwwNavButton;
    wwDBNavigator1SearchDialog: TwwNavButton;
    ADO_Disk: TADOQuery;
    DSDisk: TDataSource;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label3: TLabel;
    wwDBGrid2: TwwDBGrid;
    ADO_Borrow: TADOQuery;
    DS_Borrow: TDataSource;
    ADO_Staff: TADOQuery;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label4: TLabel;
    Memo1: TMemo;
    qry: TADOQuery;
    Btn_Right: TSpeedButton;
    Btn_Left: TSpeedButton;
    Btn_AllLeft: TSpeedButton;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure wwDBGrid1DblClick(Sender: TObject);
    procedure wwDBGrid2DblClick(Sender: TObject);
    procedure wwDBLookupCombo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure Btn_RightClick(Sender: TObject);
    procedure Btn_LeftClick(Sender: TObject);
    procedure Btn_AllLeftClick(Sender: TObject);
  private
    { Private declarations }

    S_SQl:String;
  public
    { Public declarations }
  end;

var
  frmBorrow: TfrmBorrow;

implementation

uses CDDM, uCommon, uStaff;

{$R *.dfm}

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

procedure TfrmBorrow.FormShow(Sender: TObject);
begin
  DateTimePicker1.Time:=Now;
  DM.execSQL('delete from temp');
  if Ado_Disk.Active then
    begin
      Ado_Disk.Close;
    end;
  Ado_Disk.SQL.Text:=' select * from 碟片表 where 碟片状态='+#39+'在家'+#39+'  and 碟片类型='+#39+S_DiskType+#39;
  Ado_Disk.Open;

  if not Ado_Borrow.Active then Ado_Borrow.Open;
  if not ADo_Staff.Active then Ado_Staff.Open;
end;

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

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

procedure TfrmBorrow.Button3Click(Sender: TObject);
begin
  if ADO_Borrow.IsEmpty then
    begin
      showMessage('借阅列表为空，无法删除！');
    end
    else
    begin
      //ADO_Borrow.Delete;
      Dm.execSQL('delete from temp where temp='+''''+ADO_Borrow.FieldByName('temp').AsString+'''');
      ADO_Borrow.Close;
      ADO_Borrow.Open;
    end;

end;

procedure TfrmBorrow.Button5Click(Sender: TObject);
begin
  if trim(wwDBLookupCombo1.Text)='' then
    begin
      showmessage('借阅人不能为空，请选择或输入！');
      wwDBLookupCombo1.SetFocus;
      exit;
    end
    else
    begin
      with qry do
        begin
          close;
          Parameters.ParamByName('P_name').Value:=wwDBLookupCombo1.Text;
          open;
        end;
        if qry.IsEmpty then
          begin
            DM.UpdateBianMa(wwDBLookupCombo1.Text,1);
            //wwDBEdit4.Text:=GG_SpellCode;
               //wwDBEdit5.Text:=GG_WBCode;
            //frmStaff.CreateCode;
            DM.execSQL('insert into 借阅人表(编码,借阅人姓名,拼音码,五笔码)'+' values('+''''+frmStaff.CreateCode+''''+','+''''+wwDBLookupCombo1.Text+''''+','+''''+GG_SpellCode+''''+','+''''+GG_WBCode+''''+')');
           end;
    end;
  if ADO_Borrow.IsEmpty then
    begin
      showMessage('借阅列表为空，无法借阅！');
      exit;
    end
    else
    begin
      try
        Dm.ADO_Con.BeginTrans;
        
        ADO_Borrow.First;
        while  not Ado_Borrow.Eof   do
          begin
            if not (trim(Memo1.Text)='') then
              begin
                s_SQl:='insert into 借阅表(借阅人,碟片ID,借阅时间,借阅状态,备注) values('
                   +''''+wwDBLookupCombo1.Text+''''+','
                   +Ado_Borrow.fieldbyName('Temp').AsString+','
                   +''''+DateToStr(DateTimePicker1.date)+''''+','
                   +''''+'借出'+''''+','+''''+memo1.Text+''''+' )';
              end
              else
              begin
                s_SQl:='insert into 借阅表(借阅人,碟片ID,借阅时间,借阅状态) values('
                   +''''+wwDBLookupCombo1.Text+''''+','
                   +Ado_Borrow.fieldbyName('Temp').AsString+','
                   +''''+DateToStr(DateTimePicker1.date)+''''+','
                   +''''+'借出'+''''+' )';
              end;
            Dm.execSQL(s_SQl);
            DM.execSQL('update 碟片表 set 碟片状态='+''''+'借出'+''''+' where 碟片ID= '+Ado_Borrow.fieldbyName('Temp').AsString);
            Ado_Borrow.Next;
          end;
        Dm.execSQL('delete from temp');
        Dm.ADO_Con.CommitTrans;
        except
        DM.ADO_Con.Cancel;
      end;
    end;
  ADO_Disk.Close;
  ADO_Disk.Open;
  ADO_Borrow.Close;
  ADO_Borrow.Open;

end;

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

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

procedure TfrmBorrow.wwDBLookupCombo1KeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if key=Vk_return then
    begin
    if not (trim(wwDBLookupCombo1.Text)='') then
        begin
          with qry do
            begin
              close;
              Parameters.ParamByName('P_name').Value:=wwDBLookupCombo1.Text;
              open;
            end;
           if qry.IsEmpty then
             begin
               DM.UpdateBianMa(wwDBLookupCombo1.Text,1);
               //wwDBEdit4.Text:=GG_SpellCode;
               //wwDBEdit5.Text:=GG_WBCode;
               DM.execSQL('insert into 借阅人表(编码,借阅人姓名,拼音码,五笔码)'+' values('+''''+frmStaff.CreateCode+''''+','+''''+wwDBLookupCombo1.Text+''''+','+''''+GG_SpellCode+''''+','+''''+GG_WBCode+''''+')');
             end;
        end;
      DateTimePicker1.SetFocus;
      end;
  if key=VK_down then  wwDBLookupCombo1.DropDown;

end;

procedure TfrmBorrow.wwDBLookupCombo1CloseUp(Sender: TObject; LookupTable,
  FillTable: TDataSet; modified: Boolean);
begin
  wwDBLookupCombo1.Text:=wwDBLookupCombo1.LookupTable.fieldbyname('借阅人姓名').AsString;
end;

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

procedure TfrmBorrow.Btn_LeftClick(Sender: TObject);
begin
  if ADO_Borrow.IsEmpty then
    begin
      showMessage('借阅列表为空，无法删除！');
    end
    else
    begin
      //ADO_Borrow.Delete;
      Dm.execSQL('delete from temp where temp='+''''+ADO_Borrow.FieldByName('temp').AsString+'''');
      ADO_Borrow.Close;
      ADO_Borrow.Open;
    end;
end;

procedure TfrmBorrow.Btn_AllLeftClick(Sender: TObject);
begin
  Dm.execSQL('delete from temp');
  ADO_Borrow.Close;
  ADO_Borrow.Open; 
end;

end.