Форум программистов [Powered by Invision Power Board]

Код

type
  TfrmGive = class(TForm)
    sGroupBox1: TsGroupBox;
    edt_Kol: TsEdit;
    btn_give: TsButton;
    btn_close: TsButton;
    FormSize1: TFormSize;
    cb_give: TsComboBox;
    rb_vibor: TsRadioGroup;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    cb_skup: TsComboBox;
    sLabel3: TsLabel;
    sGroupBox2: TsGroupBox;
    lbl_sum: TsLabel;
    sBevel1: TsBevel;
    lst_status: TsListBox;
    procedure FormCreate(Sender: TObject);
    procedure btn_giveClick(Sender: TObject);
    procedure rb_viborClick(Sender: TObject);
    procedure btn_closeClick(Sender: TObject);
    procedure cb_giveChange(Sender: TObject);
  private
  Procedure Moldcell;
  Procedure Voxtel;
  Procedure Other;
    { Private declarations }
  public
  param1:integer;
  Result:integer;
    { Public declarations }
  end;

var
  frmGive: TfrmGive;

implementation

uses Package, Goods, Debit, About, ViewDebit, Sell, DataModule,
  Options,Registry, Otchet,AdminTeritor, Store, Password, Copy,
  Pack, Edit, Prixod, Registr, Ucalc, Main;
{$R *.dfm}

procedure TfrmGive.FormCreate(Sender: TObject);
begin
  cb_skup.Clear;
  Module.qGive.Close;
  Module.qGive.SQL.Clear;
  Module.qGive.SQL.Add('SELECT agent.id, agent.name');
  Module.qGive.SQL.Add('FROM agent;');
  Module.qGive.Open;
  cb_skup.Clear;
  while not Module.qGive.Eof do
  begin
    cb_skup.Items.AddObject(Module.qGive.Fields.Fields[1].AsString, Pointer(Module.qGive.Fields.Fields[0].AsInteger));
    Module.qGive.Next;
  end;
end;
Procedure TfrmGive.Moldcell;
Begin
  cb_give.Clear;
  Module.Access.Close;
  Module.Access.SQL.Clear;
  Module.Access.SQL.Add('SELECT Moldcell.Number, Moldcell.Vid_Pack,Moldcell.Summa_rel');
  Module.Access.SQL.Add('FROM Moldcell;');
  Module.Access.Open;
  param1:=Module.Access.Fields.Fields[2].AsInteger;
  cb_give.Clear;
  while not Module.Access.Eof do
  begin
    cb_give.Items.AddObject(Module.Access.Fields.Fields[1].AsString, Pointer(Module.Access.Fields.Fields[0].AsInteger));
    Module.Access.Next;
  end;
End;
procedure TfrmGive.btn_giveClick(Sender: TObject);
begin
Module.Agent.Active:=True;
Module.Agent.edit;
Module.Agent.insert;
Module.Agent.fieldbyname('NameS').AsString:=(cb_skup.Items.Strings[cb_skup.ItemIndex]);
Module.Agent.fieldbyname('Tovar').AsString:=(cb_give.Items.Strings[cb_give.ItemIndex]);
Module.Agent.fieldbyname('Col').AsString:=edt_kol.Text;
Module.Agent.FieldByName('Data').AsDateTime := Now;
Result:=StrToInt(edt_kol.Text)*param1;
Module.Agent.fieldbyname('Summa').AsInteger:=Result;
Module.Agent.Post;
Module.Agent.active:=False;
Module.Agent.active:=True;
lbl_sum.Caption:=IntToStr(Result)+ ' Lei';
end;



Procedure TfrmGive.Voxtel;
Begin
  cb_give.Clear;
  Module.Access.Close;
  Module.Access.SQL.Clear;
  Module.Access.SQL.Add('SELECT Voxtel.Number, Voxtel.Vid_Pack');
  Module.Access.SQL.Add('FROM Voxtel;');
  Module.Access.Open;
  cb_give.Clear;
  while not Module.Access.Eof do
  begin
    cb_give.Items.AddObject(Module.Access.Fields.Fields[1].AsString, Pointer(Module.Access.Fields.Fields[0].AsInteger));
    Module.Access.Next;
  end;
End;

Procedure TfrmGive.Other;
Begin
  cb_give.Clear;
  Module.Access.Close;
  Module.Access.SQL.Clear;
  Module.Access.SQL.Add('SELECT Other.Number, Other.Name');
  Module.Access.SQL.Add('FROM Other;');
  Module.Access.Open;
  cb_give.Clear;
  while not Module.Access.Eof do
  begin
    cb_give.Items.AddObject(Module.Access.Fields.Fields[1].AsString, Pointer(Module.Access.Fields.Fields[0].AsInteger));
    Module.Access.Next;
  end;
End;
procedure TfrmGive.rb_viborClick(Sender: TObject);
begin
Case rb_vibor.ItemIndex of
0: Begin
Moldcell;
End;

1: Begin
Voxtel;
End;

2: Begin
Other;

end;
end;

end;
procedure TfrmGive.btn_closeClick(Sender: TObject);
begin
Close;
end;