unit1.pas

图书管理购买,用于购买图书检查图书是否重复

      dbf1.Close;
      dbf1.FilePathFull:=extractfiledir(listbox1.Items.Strings[i-1]);
      dbf1.TableName:=extractfilename(listbox1.Items.Strings[i-1]);
      dbf1.Open;
      while  not dbf1.Eof  do
         begin
            aaa:=dbf1.Fields[0].AsString;
            bbb:=dbf1.Fields[1].AsString;
            adoquery2.Parameters.FindParam('cs2').Value:=aaa;
            adoquery2.Parameters.FindParam('cs3').Value:=bbb;
            
            adoquery2.Open;
            if not adoquery2.Eof then
               begin
                  adoquery2.Edit;
                  adoquery2.Fields[9].AsString:='1';
                  adoquery2.Fields[8]:=dbf1.Fields[8];
                  adoquery2.Post;
                  dbf1.Edit;
                  dbf1.Fields[5]:=adoquery2.Fields[5];
                  dbf1.Post;
               end
               else
               begin
                  dbf1.Delete;
               end;
            dbf1.Next;
         end;
      dbf1.PackTable;
   end;
showmessage('查重结束！');
end;

procedure TForm1.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
aaa,bbb:string;
m,i:integer;
begin
if key=13 then
   begin
      listbox2.Items.Clear;
      aaa:=extractfilename(edit8.Text);
      m:=0;
      bbb:='';
      for i:=1 to length(aaa) do
         begin
            if aaa[i]='.' then m:=1;
            if m=0 then bbb:=bbb+aaa[i];
         end;
      aaa:=bbb;
      adoquery3.Close;
      adoquery3.SQL.Strings[0]:='select * from '+aaa;
      adoquery3.Parameters.FindParam('cs1').Value:=edit7.Text;
      adoquery3.Open;
      if adoquery3.Eof then
         begin
            showmessage('这本书没有定！');
            exit;
         end;

      while not adoquery3.Eof do
         begin
            listbox2.Items.Append(adoquery3.Fields[1].AsString);
            adoquery3.Next;
         end;
      if adoquery3.RecordCount>1 then listbox2.SetFocus;
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if not adotable2.Eof then
begin
edit8.Text:=adotable2.Fields[0].AsString;
edit14.Text:=adotable2.Fields[0].AsString;
edit15.Text:=adotable2.Fields[0].AsString;
end;
//tabsheet4.Visible:=false;
//tabsheet5.Visible:=false;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
edit8.Text:=opendialog1.FileName;
if adotable2.RecordCount=0 then  adotable2.Append else adotable2.Edit;
adotable2.Fields[0].AsString:=edit8.Text;
adotable2.Post;
end;
end;

procedure TForm1.ListBox2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then fbs.SetFocus;
end;

procedure TForm1.fbsKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then button7.SetFocus;
end;

procedure TForm1.Button7Click(Sender: TObject);
var
i:integer;
time1:_systemtime;
time2:tdatetime;
begin
getsystemtime(time1);
time2:=1/3+systemtimetodatetime(time1);
for i:=1 to listbox2.Count do
   begin
      if (listbox2.Selected[i-1]) or (listbox2.Count=1)  then
         begin
            adoquery3.MoveBy(i-1);
            adoquery3.Edit;
            adoquery3.Fields[6].AsInteger:=fbs.Value;
            adoquery3.Fields[7].AsDateTime:=time2;
            adoquery3.Post;
         end;
   end;
edit7.SetFocus;
end;

procedure TForm1.SpinEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then button1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
tmpsql:string;
aaa,bbb:string;
i,m:integer;
begin
//
if edit14.Text='' then
   begin
      showmessage('没有进行合并，或没查到合并后的文件名！');
      exit;
   end;
aaa:=extractfilename(edit14.Text);
m:=0;
bbb:='';
for i:=1 to length(aaa) do
begin
   if aaa[i]='.' then m:=1;
   if m=0 then bbb:=bbb+aaa[i];
end;
aaa:=bbb;

tmpsql:='select * from '+aaa+' ';
m:=0;
if checkbox1.Checked then
   begin
      if m=0 then
         begin
            tmpsql:=tmpsql+ ' where isbn='''+edit11.text+'''';
            m:=1;
         end
      else tmpsql:=tmpsql+ ' and isbn='''+edit11.text+'''';
   end;
if checkbox2.Checked then
   begin
      if m=0 then
         begin
            m:=1;
            tmpsql:=tmpsql+ ' where ';
         end
      else
         begin
            tmpsql:=tmpsql+ ' and ';
         end;
      if combobox1.Text='包含' then tmpsql:=tmpsql+ ' 书名 like '+''''+'%' + edit12.Text +'%'+'''';
      if combobox1.Text='不包含' then tmpsql:=tmpsql+ ' 书名 not like '+''''+'%' + edit12.Text +'%'+'''';
      if combobox1.Text='等于' then tmpsql:=tmpsql+ ' 书名 =''' + edit12.Text +'''';
      if combobox1.Text='不等于' then tmpsql:=tmpsql+ ' 书名 <>''' + edit12.Text +'''';
   end;
if checkbox3.Checked then
   begin
      if m=0 then
         begin
            m:=1;
            tmpsql:=tmpsql+ ' where ';
         end
      else
         begin
            tmpsql:=tmpsql+ ' and ';
         end;
      if combobox2.Text='包含' then tmpsql:=tmpsql+ ' 作者 like '''+'%' + edit9.Text +'%'+'''';
      if combobox2.Text='不包含' then tmpsql:=tmpsql+ ' 作者 not like '''+'%' + edit9.Text +'%'+'''';
      if combobox2.Text='等于' then tmpsql:=tmpsql+ ' 作者 =''' + edit9.Text +'''';
      if combobox2.Text='不等于' then tmpsql:=tmpsql+ ' 作者 <>''' + edit9.Text +'''';
   end;
if checkbox4.Checked then
   begin
      if m=0 then
         begin
            m:=1;
            tmpsql:=tmpsql+ ' where ';
         end
      else
         begin
            tmpsql:=tmpsql+ ' and ';
         end;
      if combobox3.Text='包含' then tmpsql:=tmpsql+ ' 出版社 like '''+'%' + edit10.Text +'%'+'''';
      if combobox3.Text='不包含' then tmpsql:=tmpsql+ ' 出版社 not like '''+'%' + edit10.Text +'%'+'''';
      if combobox3.Text='等于' then tmpsql:=tmpsql+ ' 出版社 =''' + edit10.Text +'''';
      if combobox3.Text='不等于' then tmpsql:=tmpsql+ ' 出版社 <>''' + edit10.Text +'''';
   end;
if checkbox5.Checked then
   begin
      if m=0 then
         begin
            m:=1;
            tmpsql:=tmpsql+ ' where ';
         end
      else
         begin
            tmpsql:=tmpsql+ ' and ';
         end;
      if combobox4.Text='是' then tmpsql:=tmpsql+ ' daohuo>0 ';
      if combobox4.Text='否' then tmpsql:=tmpsql+ ' daohuo=0 ';
   end;
showmessage(tmpsql);
adoquery4.Close;
adoquery4.SQL.Text:=tmpsql;
adoquery4.Open;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
//
if opendialog1.Execute then edit14.Text:=opendialog1.FileName;
end;

procedure TForm1.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then spinedit1.SetFocus;
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
if opendialog1.Execute then edit15.Text:=opendialog1.FileName;
end;

procedure TForm1.Button9Click(Sender: TObject);
var
m,i:integer;
aaa,bbb,tmpsql:string;
begin
if edit15.Text='' then
   begin
      showmessage('没有进行合并，或没查到合并后的文件名！');
      exit;
   end;
aaa:=extractfilename(edit15.Text);
m:=0;
bbb:='';
for i:=1 to length(aaa) do
begin
   if aaa[i]='.' then m:=1;
   if m=0 then bbb:=bbb+aaa[i];
end;
aaa:=bbb;
tmpsql:='select *,(定价*daohuo*zhekou) as zj from '+aaa+' where daohuo>0 ';
form2.QRLabel1.Caption:='到 书 清 单';
form2.QRLabel4.Caption:=edit15.Text;
form2.ADOQuery1.Close;
form2.ADOQuery1.SQL.Text:=tmpsql;
form2.ADOQuery1.Open;
form2.QuickRep1.Preview;
end;

procedure TForm1.Button10Click(Sender: TObject);
var
m,i:integer;
aaa,bbb,tmpsql:string;
begin
if edit15.Text='' then
   begin
      showmessage('没有进行合并，或没查到合并后的文件名！');
      exit;
   end;
aaa:=extractfilename(edit15.Text);
m:=0;
bbb:='';
for i:=1 to length(aaa) do
begin
   if aaa[i]='.' then m:=1;
   if m=0 then bbb:=bbb+aaa[i];
end;
aaa:=bbb;
tmpsql:='select *,(定价*复本数*zhekou) as zj from '+aaa+' where daohuo=0 ';
form3.QRLabel1.Caption:='未 到 书 清 单';
form3.QRLabel4.Caption:=edit15.Text;
form3.ADOQuery1.Close;
form3.ADOQuery1.SQL.Text:=tmpsql;
form3.ADOQuery1.Open;
form3.QuickRep1.Preview;

end;

procedure TForm1.Button11Click(Sender: TObject);
var
m,i:integer;
aaa,bbb,tmpsql:string;
begin
if edit15.Text='' then
   begin
      showmessage('没有进行合并，或没查到合并后的文件名！');
      exit;
   end;
aaa:=extractfilename(edit15.Text);
m:=0;
bbb:='';
for i:=1 to length(aaa) do
begin
   if aaa[i]='.' then m:=1;
   if m=0 then bbb:=bbb+aaa[i];
end;
aaa:=bbb;
tmpsql:='select *,(定价*复本数*zhekou) as zj from '+aaa;
form4.QRLabel1.Caption:='定 书 清 单';
form4.QRLabel4.Caption:=edit15.Text;
form4.ADOQuery1.Close;
form4.ADOQuery1.SQL.Text:=tmpsql;
form4.ADOQuery1.Open;
form4.QuickRep1.Preview;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
time1:_systemtime;
time2:tdatetime;
begin
getsystemtime(time1);
time2:=systemtimetodatetime(time1)+1/3;
statusbar1.Panels.Items[1].Text:=datetostr(time2);
statusbar1.Panels.Items[3].Text:=timetostr(time2);
end;

end.