106
Продолжение приложения Б
GroupBox3: TGroupBox;
StringGrid2: TStringGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
GroupBox4: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Label4: TLabel;
Label5: TLabel;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
Timer1: TTimer;
N8: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn2Click(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
107
Продолжение приложения Б
uses
Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;
{$R *.dfm}
procedure TForm7.FormCreate(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Код документа';
StringGrid1.Cells[1,0]:='Кому направлено';
StringGrid1.Cells[2,0]:='Дата регистрации';
StringGrid1.Cells[3,0]:='Вид представит';
StringGrid1.Cells[4,0]:=' проектировщик';
StringGrid1.Cells[5,0]:=' Дата заключения';
StringGrid1.Cells[6,0]:=' Номер заключения';
Edit1.Text:='';
Edit2.Text:='';
Form7.DBGrid1.Enabled:=false;
end;
procedure 7.BitBtn1Click(Sender: TObject);
begin
Form11.Show;
DataModule4.Прием.Active:=True;
end;
procedure TForm7.DBGrid1CellClick(Column: TColumn);
var im:string;
begin
im:='image/'+
DataModule4.Прием.FieldByName('Заказчик').AsString+'.bmp';
label1.Caption:=
DataModule4.Прием.FieldByName('Коментарий').AsString;
image1.Picture.LoadFromFile(im);
end;
procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataModule4.Прием.Active:=False;
Form8.close;
end;
108
Продолжение приложения Б
procedure TForm7.BitBtn2Click(Sender: TObject);
begin
Form7.DBGrid1.Enabled:=false;
end;
procedure TForm7.DBGrid1DblClick(Sender: TObject);
var i:Byte;
sum1:Integer;
sum2:Real;
begin
i:=StringGrid2.RowCount+1;
StringGrid2.RowCount:=i;
DataModule4.Прием.CursorPosChanged;
StringGrid2.Cells[0,i-1]:=
DataModule4.Прием.FieldByName('Заказчик').AsString;
StringGrid2.Cells[1,i-1]:=
DataModule4.Прием.FieldByName('Информация').AsString;
StringGrid2.Cells[2,i-1]:= DataModule4.Прием.FieldByName.AsString;
if Edit1.Text = ''
then Edit1.Text:=
DataModule4.Прием.FieldByName('Стоимость').AsString
else begin
sum1:=StrToInt(Edit1.Text)+StrToInt(DataModule4.Прием.FieldByName('Стоимос
ть').AsString);
sum2:=sum1*70/100+sum1;
Edit1.Text:=IntToStr(sum1);
Edit2.Text:=FloatToStr(sum2);
end
end;
procedure TForm7.N5Click(Sender: TObject);
begin
Form1.Show;
end;
procedure TForm7.N6Click(Sender: TObject);
begin
Form5.Show;
end;
109
Продолжение приложения Б
procedure TForm7.N7Click(Sender: TObject);
begin
Form6.Show;
end;
procedure TForm7.BitBtn4Click(Sender: TObject);
var i,j,a,b:Byte;
sum1:Integer;
sum2,sum3:Real;
begin
Form9.Show;
a:=Form10.stringGrid1.RowCount;
b:=Form10.StringGrid1.ColCount;
Form9.StringGrid1.RowCount:=a;
Form9.StringGrid1.ColCount:=b;
for i:=0 to a do
for j:=0 to b do
Form12.StringGrid1.Cells[i,j]:=Form10.StringGrid1.Cells[i,j];
a:=Form7.stringGrid2.RowCount;
b:=Form7.StringGrid2.ColCount;
Form9.StringGrid2.RowCount:=a;
Form9.StringGrid2.ColCount:=b;
for i:=0 to b do
for j:=0 to a do
Form9.StringGrid2.Cells[i,j]:=Form7.StringGrid2.Cells[i,j];
Form12.Edit1.Text:=Edit1.Text;
Form12.Edit3.Text:=Edit2.Text;
sum1:=strtoint(Edit1.Text);
sum2:=StrToFloat(Edit2.Text);
sum3:=sum2-sum1;
Form9.Edit2.Text:=FloatToStr(sum3);
end;
procedure TForm7.Timer1Timer(Sender: TObject);
begin
dt:=DateToStr(Date);
end;
procedure TForm7.BitBtn5Click(Sender: TObject);
begin
Form7.Stringgrid1.ColCount:=1;
Form7.Stringgrid1.RowCount:=2;
Form7.StringGrid1.Rows[1].Clear;
Form7.Stringgrid2.RowCount:=2;
Form7.StringGrid2.Rows[1].Clear;
110
Продолжение приложения Б
Form7.edit1.text:='';
Form7.edit2.text:='';
Form7.label1.Caption:='';
end;
procedure TForm7.N8Click(Sender: TObject);
begin
Form12.show;
end;
end.