Search options (Page 1 of 4)

procedure TForm1.Button1Click(Sender: TObject);
begin
   Form2.ShowModal;
end;

unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, sqldb, sqlite3conn, FileUtil, ZVDateTimePicker,
  DBZVDateTimePicker, curredit, dbdateedit, RTTICtrls, u_framework_components,
  u_extformatedits, U_ExtNumEdits, u_extsearchedit, U_ExtDBNavigator,
  JLabeledCurrencyEdit, JLabeledFloatEdit, JLabeledIntegerEdit, JDBLabeledEdit,
  jdblabeledintegeredit, ZDataset, Forms, Controls, Graphics, Dialogs, StdCtrls,
  Spin, EditBtn, DbCtrls;

type

  { TForm2 }

  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Memo1: TMemo;
    ZQuery2: TZQuery;
    ZVDateTimePicker1: TZVDateTimePicker;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: char);
    procedure Edit4KeyPress(Sender: TObject; var Key: char);
    procedure Edit6KeyPress(Sender: TObject; var Key: char);
    procedure Edit7KeyPress(Sender: TObject; var Key: char);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.lfm}

uses Unit1;

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);
   var
   last_record_count: integer;
   record_count: string;
begin
   ZQuery2.Close;
   ZQuery2.SQL.Clear;
   ZQuery2.SQL.Text:= 'SELECT MAX(record_count) FROM vymoghy';
   ZQuery2.Open;

   last_record_count := ZQuery2.Fields[0].AsInteger;
   if last_record_count <> 0 then record_count := IntToStr(last_record_count+1) else record_count := IntToStr(1);

   If Form1.ZConnection1.Connected then
   begin
   ZQuery2.Close;
   ZQuery2.SQL.Clear;
   ZQuery2.SQL.Add(Format('insert into vymoghy (record_count, data_vymoghy, borzhnyk, kod_borzhnyka, bank_borzhnyka, mfo_banku, rakhunok, suma, pryznachennja_platezhu) values ("%s", "%s", "%s", "%s", "%s", "%s", "%s", "%s", "%s")',[record_count, FormatDateTime('YYYY-MM-DD 00:00:00.000', ZVDateTimePicker1.DateTime), Edit2.Text, Edit3.Text, Edit5.Text, Edit4.Text, Edit6.Text, StringReplace(Edit7.Text, ',', '.', [rfReplaceAll, rfIgnoreCase]), Memo1.Text]));
   ZQuery2.ExecSQL;
   end;

   Form2.Close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
   Form2.Close;
end;

procedure TForm2.Edit3KeyPress(Sender: TObject; var Key: char);
begin
   case Key of
   '0'..'9': ;
   #8: ;  // the backspace key
   else Key:= #0;
   end;
end;

procedure TForm2.Edit4KeyPress(Sender: TObject; var Key: char);
begin
   case Key of
   '0'..'9': ;
   #8, #9: ;  // the backspace & tab key
   else Key:= #0;
   end;
end;

procedure TForm2.Edit6KeyPress(Sender: TObject; var Key: char);
begin
   case Key of
   '0'..'9': ;
   #8, #9: ;  // the backspace & tab key
   else Key:= #0;
   end;
end;

procedure TForm2.Edit7KeyPress(Sender: TObject; var Key: char);
begin
   case Key of
   '0'..'9': ;
   ',', #8, #9: ;  // the backspace & tab key
   else Key:= #0;
   end;
end;

procedure TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
   Form1.ZQuery1.Close;
   Form1.ZQuery1.SQL.Clear;
   Form1.ZQuery1.SQL.Text:='select * from vymoghy';
   Form1.ZQuery1.Open;
end;

procedure TForm2.FormShow(Sender: TObject);
   var
   last_record_count: integer;
   record_count: string;
begin
   ZVDateTimePicker1.DateTime:=now;
   ZQuery2.Close;
   ZQuery2.SQL.Clear;
   ZQuery2.SQL.Text:= 'SELECT MAX(record_count) FROM vymoghy';
   ZQuery2.Open;

   last_record_count := ZQuery2.Fields[0].AsInteger;
   if last_record_count <> 0 then record_count := IntToStr(last_record_count+1) else record_count := IntToStr(1);

   Edit1.text := record_count;
end;

{ TForm2 }

end.

procedure TForm1.FormCreate(Sender: TObject);
begin
   sqlite3dyn.SQLiteDefaultLibrary := 'sqlite3.dll';
   SQLite3Connection1.DatabaseName := 'sqlite.db';
   SQLite3Connection1.Connected := True;
   SQLQuery1.Active := True;
end;

procedure TForm1.SQLQuery1CalcFields(DataSet: TDataSet);
begin
   SQLQuery1.FieldByName('zmist').AsString := ('Кошти боргу з ' + SQLQuery1.FieldByName('borzhnyk').AsString);
end;

procedure TForm1.Button5Click(Sender: TObject);
   var
   sqlwhere: string;
begin
   sqlwhere := '';
   if Edit1.Text <> '' then
   sqlwhere := Format('%s and %s', [sqlwhere, 'record_count = "'+Edit1.text+'"']);
   if ZVDateTimePicker1.Checked=True then
   sqlwhere := Format('%s and %s', [sqlwhere, 'strftime("%Y-%m-%d", data_vymoghy) >= "'+FormatDateTime('YYYY-MM-DD', ZVDateTimePicker1.DateTime)+'"']);
   if ZVDateTimePicker2.Checked=True then
   sqlwhere := Format('%s and %s', [sqlwhere, 'strftime("%Y-%m-%d", data_vymoghy) <= "'+FormatDateTime('YYYY-MM-DD', ZVDateTimePicker2.DateTime)+'"']);
   if Edit2.Text <> '' then
   sqlwhere := Format('%s and %s', [sqlwhere, 'borzhnyk LIKE "%'+Edit2.text+'%"']);
   if Edit3.Text <> '' then
   sqlwhere := Format('%s and %s', [sqlwhere, 'kod_borzhnyka = "'+Edit3.text+'"']);

   delete(sqlwhere,2,3);

   if sqlwhere='' then
   begin
   SQLQuery1.Active:=False;
   SQLQuery1.SQL.Text:= 'select * from vymoghy';
   SQLQuery1.Active:=True;
   end else
   begin
   SQLQuery1.Active:=False;
   SQLQuery1.SQL.Text:= 'select * from vymoghy where' + sqlwhere;
   SQLQuery1.Active:=True;
   end;
end;

procedure TForm2.FormShow(Sender: TObject);
   var
   last_record_count: integer;
   record_count: string;
begin
   SQLQuery1.Active:=False;
   SQLQuery1.SQL.Text:= 'SELECT MAX(record_count) FROM vymoghy';
   SQLQuery1.Open;
   Form1.SQLTransaction1.CommitRetaining;
   SQLQuery1.Active:=True;

   last_record_count := SQLQuery1.Fields[0].AsInteger;
   if last_record_count <> 0 then record_count := IntToStr(last_record_count+1) else record_count := IntToStr(1);

   Edit1.text := record_count;
end;

procedure TForm2.Button1Click(Sender: TObject);
   var
   last_record_count: integer;
   record_count: string;
begin
   SQLQuery1.Active:=False;
   SQLQuery1.SQL.Text:= 'SELECT MAX(record_count) FROM vymoghy';
   SQLQuery1.Active:=True;

   last_record_count := SQLQuery1.Fields[0].AsInteger;
   if last_record_count <> 0 then record_count := IntToStr(last_record_count+1) else record_count := IntToStr(1);

   If Form1.SQLite3Connection1.Connected then
   begin
   SQLQuery1.SQL.Clear;
   SQLQuery1.SQL.Add(Format('insert into vymoghy (record_count, data_vymoghy, borzhnyk, kod_borzhnyka, bank_borzhnyka, mfo_banku, rakhunok, suma, pryznachennja_platezhu) values ("%s", "%s", "%s", "%s", "%s", "%s", "%s", "%s", "%s")',[record_count, FormatDateTime('YYYY-MM-DD 00:00:00.000', ZVDateTimePicker1.DateTime), Edit2.Text, Edit3.Text, Edit5.Text, Edit4.Text, Edit6.Text, Edit7.Text, Memo1.Text]));
   SQLQuery1.ExecSQL;
   Form1.SQLTransaction1.CommitRetaining;
   Form1.SQLQuery1.Refresh;
   end;

   Form2.Close;
end;

Form1.ComboBox1.dbItemID := -1;