Приложения
(с. 22 – 26)
Приложение а
(Справочное)
Листинг программного кода
(с. 23 – 26)
unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Menus, QRCtrls, QuickRpt,
Buttons;
type
TfmMain = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;
var
fmMain: TfmMain;
implementation
uses dmDB_Plat, Convert, Sprav;
{$R *.dfm}
procedure TfmMain.edSummChange(Sender: TObject);
begin
if Tag <> 32 then Exit;
if ((edSumm.Text <> '')and(StrToFloat(edSumm.Text)>=10)) then
begin
lbMoneyProp.Caption := NumStr(StrToFloat(edSumm.Text),true);
try
lbNDS_.Caption := FloatToStr(dmDB.tbPlatPor.Fields[3].Value/100*dmDB.tbSpNDS.Fields[1].Value);
except
end;
end;
end;
procedure TfmMain.btPlatEditClick(Sender: TObject);
begin
fmSprav.Show;
fmSprav.plPlat.Show;
end;
procedure TfmMain.btPlatAddClick(Sender: TObject);
begin
fmSprav.Show;
fmSprav.plPlat.Show;
dmDB.tbSpPlatil.Insert;
end;
procedure TfmMain.btPoluchEditClick(Sender: TObject);
begin
fmSprav.Show;
fmSprav.plPoluch.Show;
end;
procedure TfmMain.btPoluchAddClick(Sender: TObject);
begin
fmSprav.Show;
fmSprav.plPoluch.Show;
dmDB.tbSpPoluch.Insert;
end;
procedure TfmMain.N4Click(Sender: TObject);
begin
if FontDialog1.Execute then
begin
fmMain.Font := FontDialog1.Font;
fmSprav.Font := FontDialog1.Font;
end;
end;
procedure TfmMain.N2Click(Sender: TObject);
begin
close;
end;
procedure TfmMain.N7Click(Sender: TObject);
begin
BitBtn1Click(Sender);
end;
procedure TfmMain.BitBtn1Click(Sender: TObject);
begin
dmDB.tbPlatPor.Filter:='[НомерПП] ='''+dmDB.tbPlatPor.Fields[1].AsString+'''';
dmDB.tbPlatPor.Filtered := true;
QuickRep2.Preview;
end;
procedure TfmMain.DBLookupComboBox7Click(Sender: TObject);
begin
lbNDS_.Caption := FloatToStr(dmDB.tbPlatPor.Fields[3].Value/100*dmDB.tbSpNDS.Fields[1].Value);
end;
procedure TfmMain.QuickRep2AfterPreview(Sender: TObject);
begin
dmDB.tbPlatPor.Filtered := false;
end;
procedure TfmMain.QuickRep2StartPage(Sender: TCustomQuickRep);
begin
lbSum.Caption := lbMoneyProp.Caption;
lbNDS.Caption := lbNDS_.Caption;
end;
procedure TfmMain.BitBtn2Click(Sender: TObject);
var
k:integer;
begin
dmDB.tbPlatPor.last;
k := dmDB.tbPlatPor.Fields[1].Value;
dmDB.tbPlatPor.Insert;
dmDB.tbPlatPor.Fields[1].Value := k+1;
dmDB.tbPlatPor.Fields[2].Value := Date;
DBLookupComboBox1.SetFocus;
end;
procedure TfmMain.BitBtn3Click(Sender: TObject);
begin
dmDB.tbPlatPor.Cancel;
end;
procedure TfmMain.N13Click(Sender: TObject);
begin
fmSprav.Show;
fmSprav.plHelp.Show;
end;
procedure TfmMain.N11Click(Sender: TObject);
begin
fmSprav.Show;
fmSprav.plAbout.Show;
end;
procedure TfmMain.N8Click(Sender: TObject);
begin
QuickRep1.Preview;
end;
procedure TfmMain.FormShow(Sender: TObject);
begin
Tag := 32;
end;
end.