Смекни!
smekni.com
Информатика

Учёт поступления и выдачи книг (стр. 6 из 8)

begin

if DM6.T2.FieldByName('№ заказа').AsString=DM6.T3.FieldByName('№ заказа').AsString then

begin

f3.SG1.Cells[4,i]:=DM6.T3.FieldByName('Издательство').AsString;

f3.SG1.Cells[5,i]:=DM6.T3.FieldByName('Выдано').AsString;

inc(i);

f3.SG1.RowCount:=f3.SG1.RowCount+1;

DM6.T3.Delete;

end

else

DM6.T3.Next;

Продолжение приложения Б

end;

DM6.T2.Delete;

end

else

DM6.T2.Next;

end;

if kol<>0 then

begin

if DM6.T2.FieldByName('Треб. кол').AsInteger>0 then

begin

f3.SG1.Cells[0,i]:=DM6.T2.FieldByName('№ заказа').AsString;

f3.SG1.Cells[1,i]:=DM6.T2.FieldByName('Магазин').AsString;

f3.SG1.Cells[2,i]:=DM6.T2.FieldByName('Наз. книги').AsString;

f3.SG1.Cells[3,i]:=DM6.T2.FieldByName('Автор').AsString;

f3.SG1.Cells[4,i]:=DM6.T2.FieldByName('Треб. кол').AsString;

inc(i);

f3.SG1.RowCount:=f3.SG1.RowCount+1;

end;

DM6.T2.Next;

end;

end;

end;

procedure TForm1.clearf2;

begin

f2.Edit1.Clear;

f2.Edit2.Clear;

f2.Edit3.Clear;

f2.Edit4.Clear;

f2.Edit5.Clear;

f2.Edit4.SetFocus;

end;

procedure clearf3;

begin

for w:=0 to f3.SG1.Rowcount do

Продолжение приложения Б

for i:=0 to f3.SG1.ColCount do

f3.SG1.Cells[w,i]:=' ';

end;

procedure TForm1.N12Click(Sender: TObject);

begin

f2.ComboBox1.Visible:=false;

f2.Edit1.Visible:=true;

f2.Edit2.Visible:=true;

f2.Edit3.Visible:=true;

f2.Edit4.Visible:=true;

f2.Edit5.Visible:=true;

f2.Label1.Visible:=true;

f2.Label2.Visible:=true;

f2.Label3.Visible:=true;

f2.Label4.Visible:=true;

f2.Label5.Visible:=true;

f2.Button1.Caption:='Добавить';

f2.Label3.Caption:='Тираж';

f2.Label4.Caption:='Издательство';

f2.Caption:='Получение книг';

f2.Width:=652;

f2.Height:=135;

f2.Button1.Top:=40;

f2.Button2.Top:=70;

f2.Show;

clearf2;

kn:=2;

end;

procedure TForm1.FormShow(Sender: TObject);

begin

f5.Visible:=false;

f4.Visible:=false;

if unit5.user then N6.Enabled:=false;

end;

Продолжение приложения Б

procedure TForm1.Timer1Timer(Sender: TObject);

begin

StatusBar1.Panels[0].Text:=DateTimeToStr(now);

end;

procedure TForm1.N25Click(Sender: TObject);

begin

i:=1;

if MessageBox(0,'Отправить заявку в издательство','Информация',mb_YesNo)=6 then

begin

f3.sg1.Cells[0,0]:='Название книги';

f3.SG1.Cells[1,0]:='Автор';

f3.SG1.Cells[2,0]:='Требуемое кол-во книг';

DM6.T2.RecNo:=1;

f3.Caption:='Список требуемых книг';

f3.SG1.ColCount:=3;

f3.SG1.RowCount:=2;

while not(DM6.T2.Eof) do

begin

if DM6.T2.FieldByName('Треб. кол').Asinteger>0 then

f3.SG1.Cells[0,i]:=DM6.T2.FieldByName('Наз. книги').AsString;

f3.SG1.Cells[1,i]:=DM6.T2.FieldByName('Автор').AsString;

f3.SG1.Cells[2,i]:=DM6.T2.FieldByName('Треб. кол').AsString;

inc(i);

f3.SG1.RowCount:=f3.SG1.RowCount+1;

DM6.T2.Next;

end;

end;

f3.SG1.RowCount:=f3.SG1.RowCount-1;

F3.Show;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

f4.show;

f4.Caption:='Изменить пароль';

Продолжение приложения Б

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

DBGrid1.Columns[0].Width:=15;

DBGrid2.Columns[0].Width:=45;

DBGrid3.Columns[0].Width:=45;

end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);

begin

if MessageBox(0,'Вам что выйти захотелось? (Да/Нет)','Выход',mb_YesNo)=6 then

begin

application.Destroying;

f5.Close;

f4.close;

end;end;

procedure TForm1.N11Click(Sender: TObject);

begin

f2.Caption:='Удаление записей';

f2.Button1.Caption:='Удалить';

f2.Show;

kn:=3;

f2.ComboBox1.ItemIndex:=-1;

f2.ComboBox1.Visible:=true;

f2.ComboBox1.Text:='';

f2.Button1.Top:=80;

f2.Button2.Top:=110;

f2.Label1.Visible:=false;

f2.Label2.Visible:=false;

f2.Label3.Visible:=false;

f2.Label5.Visible:=false;

f2.Label6.Visible:=true;

f2.Edit1.Visible:=false;

f2.Edit2.Visible:=false;

f2.Edit3.Visible:=false;

Продолжение приложения Б

f2.Edit5.Visible:=false;

f2.Label4.Caption:='Номер ID записи или номер заказа';

f2.Height:=175;

f2.Width:=225;

clearf2;

end;

procedure TForm1.N18Click(Sender: TObject);

begin

f3.Show;

f3.Caption:='Ведомость для удовлетворённых заказов';

clearf3;

find(0);

end;

procedure TForm1.N19Click(Sender: TObject);

begin

f3.Show;

f3.Caption:='Ведомость для неудовлетворённых заказов';

clearf3;

find(1);

end;

procedure TForm1.N17Click(Sender: TObject);

var sum:integer;

begin

f3.Show;

f3.SG1.RowCount:=1;

clearf3;

f3.Caption:='Сводная ведомость';

f3.SG1.Cells[0,0]:='Издательство';

f3.SG1.Cells[1,0]:='Название книги';

f3.SG1.Cells[2,0]:='Автор';

f3.SG1.Cells[3,0]:='Кол-во книг';

f3.SG1.Cells[4,0]:='Сумма';

f3.SG1.ColCount:=5;

w:=1;

i:=1;

Продолжение приложения Б

sum:=0;

DM6.T3.RecNo:=1;

while not(DM6.T3.eof) do

begin

f3.SG1.Cells[0,i]:=DM6.T3.FieldByName('Издательство').AsString;

DM6.T2.Locate('№ заказа',DM6.T3.FieldByName('№ заказа').AsInteger,[]);

f3.SG1.Cells[1,i]:=DM6.T2.FieldByName('Наз. книги').AsString;

f3.SG1.Cells[2,i]:=DM6.T2.FieldByName('Автор').AsString;

f3.SG1.Cells[3,i]:=DM6.T3.FieldByName('Выдано').AsString;

f3.SG1.Cells[4,i]:=DM6.T3.FieldByName('Сумма').AsString;

sum:=sum+DM6.T3.FieldByName('Сумма').asInteger;

inc(i);

f3.SG1.RowCount:=f3.SG1.RowCount+1;

DM6.T3.Next;

end;

f3.SG1.RowCount:=f3.SG1.RowCount+1;

f3.SG1.Cells[3,i]:='Итого:';

f3.SG1.Cells[4,i]:=inttostr(sum);

end;

procedure TForm1.N21Click(Sender: TObject);

begin

f2.Edit5.Visible:=false;

f2.Label5.Visible:=false;

f2.Label1.Visible:=true;

f2.Label2.Visible:=true;

f2.Label3.Visible:=true;

f2.Label6.Visible:=true;

f2.Edit1.Visible:=true;

f2.Edit2.Visible:=true;

f2.Edit3.Visible:=true;

f2.Label4.Caption:='Магазин';

f2.ComboBox1.Visible:=false;

f2.Button1.Caption:='Отправить заявку';

Продолжение приложения Б

f2.Button1.Top:=40;

f2.Button2.Top:=70;

f2.Caption:='Заявка на книгу';

f2.Width:=525;

f2.Height:=135;

f2.show;

kn:=0;

clearf2;

end;

procedure TForm1.N22Click(Sender: TObject);

begin

f2.Edit5.Visible:=false;

f2.Label5.Visible:=false;

f2.Label1.Visible:=true;

f2.Label2.Visible:=true;

f2.Label3.Visible:=true;

f2.Label6.Visible:=true;

f2.Edit1.Visible:=true;

f2.Edit2.Visible:=true;

f2.Edit3.Visible:=true;

f2.Label4.Caption:='Магазин';

f2.ComboBox1.Visible:=false;

f2.Button1.Caption:='Отправить заявку';

f2.Button1.Top:=40;

f2.Button2.Top:=70;

f2.Caption:='Заявка на дополнительный тираж';

f2.Width:=525;

f2.Height:=135;

f2.Show;

kn:=1;

clearf2;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Продолжение приложения Б

if MessageBox(0,'Вам что выйти захотелось? (Да/Нет)','Выход',mb_YesNo)=6 then

begin

application.Destroying;

f5.Close;

f4.close;

close;

end;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Edit4: TEdit;

Edit5: TEdit;

Label5: TLabel;

ComboBox1: TComboBox;

Label6: TLabel;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

Продолжение приложения Б

procedure Edit5KeyPress(Sender: TObject; var Key: Char);

end;

var

F2: TForm2;

implementation

uses Unit1, DB, Unit3, Unit6;

{$R *.dfm}

procedure TForm2.Button2Click(Sender: TObject);

begin

 
назад
читать дальше
1
2
3
4
5
6
7
8
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.