«Әділет СК» ЖШС – нің тіркелген құжаттарын жеке және заңды тұлғалары бойынша есепке алу және талдауға арналған бағдарламалық қамтама

ҚОСЫМША Б 

Бағдарлама  листингі 

unit Unit_LOGIN; 

interface 

uses

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

  Dialogs, StdCtrls, Buttons; 

type

  TForm_LOGIN = class(TForm)

    ComboBox_USERS: TComboBox;

    Label1: TLabel;

    Label2: TLabel;

    Edit_Password: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    procedure FormActivate(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure ComboBox_USERSChange(Sender: TObject);

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

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_LOGIN: TForm_LOGIN; 

implementation 

{$R *.dfm}

uses Unit_COMPONENTS, Unit_MAIN, Unit_USERS; 

procedure TForm_LOGIN.FormActivate(Sender: TObject);

begin

   Form_USERS.Table_USERS.Active := True;

   ComboBox_USERS.Items.Clear; 

   While not (Form_USERS.Table_USERS.Eof) do

      begin

         ComboBox_USERS.Items.Add(Form_USERS.Table_USERS.FieldByName('USER').AsString);

         Form_USERS.Table_USERS.Next;

      end;

end; 

procedure TForm_LOGIN.BitBtn2Click(Sender: TObject);

begin

   Close;

end; 

procedure TForm_LOGIN.BitBtn1Click(Sender: TObject);

begin

   Form_USERS.Table_USERS.Locate('ID',ComboBox_USERS.Tag, []);

   if Edit_Password.Text = Form_USERS.Table_USERS.FieldByName('Password').AsString Then

      Form_MAIN.ShowModal

   else ShowMessage('Неверный  пароль или имя пользователя!');

end; 

procedure TForm_LOGIN.ComboBox_USERSChange(Sender: TObject);

begin

   ComboBox_USERS.Tag := Form_USERS.Table_USERS.FieldByName('ID').AsInteger;

end; 

procedure TForm_LOGIN.Edit_PasswordKeyPress(Sender: TObject;

  var Key: Char);

begin

if Key = #13 Then BitBtn1.SetFocus;

end; 

end. 
 

unit Unit_ADD_EDIT_CLIENTS; 

interface 

uses

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

  Dialogs, StdCtrls, ComCtrls, Buttons; 

type

  TForm_ADD_EDIT_CLIENTS = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    CheckBox1: TCheckBox;

    Edit_FIO: TEdit;

    ComboBox_UR_FIZ: TComboBox;

    DateTimePicker1: TDateTimePicker;

    Edit_RNN: TEdit;

    Edit_IIN: TEdit;

    Edit_TELEFON: TEdit;

    Memo1: TMemo;

    StatusBar1: TStatusBar;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_ADD_EDIT_CLIENTS: TForm_ADD_EDIT_CLIENTS; 

implementation

Uses Unit_COMPONENTS;

{$R *.dfm} 

procedure TForm_ADD_EDIT_CLIENTS.BitBtn2Click(Sender: TObject);

begin

Close;

end; 

procedure TForm_ADD_EDIT_CLIENTS.BitBtn1Click(Sender: TObject);

Var

   ID:Integer;

   Rezident:String[30];

begin

if CheckBox1.Checked Then Rezident:='Резидент' else Rezident:='Нерезидент'; 

Form_COMPONENTS.Query_Clients.Active := False; 

if Tag = 1 Then

   begin 

      Form_COMPONENTS.Query.Active := False;

      Form_COMPONENTS.Query.SQL.Text := 'SELECT MAX(ID) from CLIENTS.DB';

      Form_COMPONENTS.Query.Active := True; 

      ID := Form_COMPONENTS.DataSource1.DataSet.Fields[0].AsInteger+1; 

      Form_COMPONENTS.Query.Active := False;

      Form_COMPONENTS.Query.SQL.Text :=

      'INSERT INTO CLIENTS'+'(ID,FIO,RNN,DATA_ROZHD,ADRES,IIN,TELEFON,REZIDENT,UR_FIZ) '+

      'VALUES('+IntToStr(ID)+','

      +#39+Edit_FIO.Text+#39+','

      +#39+Edit_RNN.Text+#39+','

      +#39+DateToStr(DateTimePicker1.Date)+#39+','

      +#39+Memo1.Text+#39+','

      +#39+Edit_IIN.Text+#39+','

      +#39+Edit_TELEFON.Text+#39+','

      +#39+Rezident+#39+','

      +#39+ComboBox_UR_FIZ.Text+#39+')'; 

      Form_COMPONENTS.Query.ExecSQL;

      StatusBar1.Panels[0].Text := 'Запись добавлена!';

   end; 

if Tag = 2 Then

   begin

      Form_COMPONENTS.Query.SQL.Text :=

      'UPDATE CLIENTS SET '+

      'FIO = '+#39+Edit_FIO.Text+#39+','+

      'RNN = '+#39+Edit_RNN.Text+#39+','+

      'DATA_ROZHD = '+#39+DateToStr(DateTimePicker1.Date)+#39+','+

      'ADRES = '+#39+Memo1.Text+#39+','+

      'IIN = '+#39+Edit_IIN.Text+#39+','+

     'TELEFON = '+#39+Edit_TELEFON.Text+#39+','+

      'REZIDENT = '+#39+Rezident+#39+','+

      'UR_FIZ = '#39+ComboBox_UR_FIZ.Text+#39+

      ' WHERE ID = '+IntToStr(Edit_FIO.Tag); 

      Form_COMPONENTS.Query.ExecSQL;

      StatusBar1.Panels[0].Text := 'Запись отредактирована!'; 

   end; 

Form_COMPONENTS.Query_Clients.Active := True; 

end; 

procedure TForm_ADD_EDIT_CLIENTS.FormActivate(Sender: TObject);

begin

if Tag = 2 Then

   begin

      ComboBox_UR_FIZ.Items.Clear;

      ComboBox_UR_FIZ.Items.Add('Юр. лицо');

      ComboBox_UR_FIZ.Items.Add('Физ. лицо'); 

   end;

end;

end. 
 

unit Unit_ADD_EDIT_LOOK_CONTRACTS; 

interface 

uses

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

  Dialogs, StdCtrls, ComCtrls, Spin, Buttons; 

type

  TForm_ADD_EDIT_LOOK_CONTRACTS = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label10: TLabel;

    Edit_NOMER: TEdit;

    Edit_SERIA: TEdit;

    Edit_VID_DOGOVORA: TEdit;

    DateTimePicker1: TDateTimePicker;

    DateTimePicker2: TDateTimePicker;

    ComboBox_VALUTA: TComboBox;

    ComboBox_AGENT: TComboBox;

    ComboBox_RISK: TComboBox;

    GroupBox1: TGroupBox;

    Label9: TLabel;

    Edit_AVTO: TEdit;

    Label11: TLabel;

    Edit_VIN: TEdit;

    Label12: TLabel;

    Edit_NOMER_AVTO: TEdit;

    ComboBox_FIO: TComboBox;

    StatusBar1: TStatusBar;

    GroupBox2: TGroupBox;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    Edit_SUMMAKZT: TEdit;

    Edit_SUMMAVAL: TEdit;

    Edit_PREMIAKZT: TEdit;

    Edit_PREMIAVAL: TEdit;

    BitBtn_Edit_AVTO: TBitBtn;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure Edit_SUMMAKZTChange(Sender: TObject);

    procedure Edit_SUMMAVALChange(Sender: TObject);

    procedure Edit_PREMIAKZTChange(Sender: TObject);

    procedure Edit_PREMIAVALChange(Sender: TObject);

    procedure BitBtn_Edit_AVTOClick(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form_ADD_EDIT_LOOK_CONTRACTS: TForm_ADD_EDIT_LOOK_CONTRACTS; 

implementation

Uses Unit_COMPONENTS, Unit_AVTO, Unit_AGENTS, Unit_RISKS, Unit_CURRENCY,

Unit_CLIENT;

{$R *.dfm} 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.BitBtn2Click(Sender: TObject);

begin

Close;

end; 

procedure TForm_ADD_EDIT_LOOK_CONTRACTS.BitBtn1Click(Sender: TObject);

Var

   ID, ID_VALUTA, ID_AGENTS, ID_CARS, ID_RISKS, ID_CLIENTS:Integer;

   Prodoljit:Boolean;

begin

Prodoljit := True;

if Edit_NOMER.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if Edit_SERIA.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if Edit_VID_DOGOVORA.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if Edit_SUMMAKZT.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if Edit_SUMMAVAL.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if Edit_PREMIAKZT.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if Edit_PREMIAVAL.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if ComboBox_VALUTA.Text = '' Then

  begin

    Prodoljit := False;

  end; 

if ComboBox_AGENT.Text = '' Then

  begin