Delphi ортасында «Бухгалтерия» ақпараттық жүйені құру

 

 

 

 

 

 

 

 

 

 

 

 

 

Қосымша

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

 

unit Unit1;

 

interface

 

uses

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

Dialogs, ComCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB,

StdCtrls, Buttons;

 

type

TForm1 = class(TForm)

ADOConnection1: TADOConnection;

DBNavigator1: TDBNavigator;

DBNavigator2: TDBNavigator;

BitBtn1: TBitBtn;

ADOQuery1: TADOQuery;

BitBtn3: TBitBtn;

DBGrid2: TDBGrid;

ADOConnection2: TADOConnection;

ADODataSet2: TADODataSet;

DataSource2: TDataSource;

MonthCalendar1: TMonthCalendar;

DBGrid1: TDBGrid;

ADODataSet1: TADODataSet;

DataSource1: TDataSource;

Edit1: TEdit;

Button1: TButton;

procedure MonthCalendar1Click(Sender: TObject);

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

procedure DBGrid2EditButtonClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.MonthCalendar1Click(Sender: TObject);

begin

ADODataSet2.Edit;

ADODataSet2.Fields[4].Value:=MonthCalendar1.Date;

ADODataSet2.Post;

MonthCalendar1.Visible:=false;

end;

 

procedure TForm1.MonthCalendar1KeyPress(Sender: TObject; var Key: Char);

begin

If key=#13 then

ADODataSet2.Edit;

ADODataSet2.Fields[4].Value:=MonthCalendar1.Date;

ADODataSet2.Post;

MonthCalendar1.Visible:=false;

end;

 

procedure TForm1.DBGrid2EditButtonClick(Sender: TObject);

begin

MonthCalendar1.Visible:=true;

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

Form1.ADODataSet2.Edit;

Form1.ADODataSet2.FieldByName('Æàðíàìà  òóði').AsString := Form1.ADODataSet1.FieldByName('Æàðíàìà  òóði').AsString;

Form1.ADODataSet2.FieldByName('Áàãàñû').AsString := Form1.ADODataSet1.FieldByName('Áàãàñû').AsString;

Form1.ADODataSet2.FieldByName('Ìåðçiìi').AsString := Form1.ADODataSet1.FieldByName('Äàéûíäàó ìåðçiìi').AsString;

Form1.ADODataSet2.Post;

Form1.ADODataSet2.edit;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

if not ADODataSet2.Locate('Орындаған Бошаев Думан, Edit1.Text, [loCaseInsensitive, loPartialKey]) then

ShowMessage('Табылған жоқ );

end;

end.

unit Unit1;

 

interface

 

uses

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

  Dialogs, DB, StdCtrls, Buttons, Grids, DBGrids, ADODB, Mask, DBCtrls;

 

type

  TForm1 = class(TForm)

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    ADOConnection1: TADOConnection;

    ADODataSet1: TADODataSet;

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    Label6: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

   BitBtn7: TBitBtn;

    ADODataSet1_i: TAutoIncField;

    ADODataSet1i: TWideStringField;

    ADODataSet1DSDesigner: TIntegerField;

    ADODataSet1i2: TWideStringField;

    ADODataSet1__: TIntegerField;

    ADODataSet1_: TIntegerField;

    ADODataSet1Field: TIntegerField;

    ADODataSet1Field2: TIntegerField;

    ADODataSet1Field3: TIntegerField;

    Label7: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    procedure ADODataSet1CalcFields(DataSet: TDataSet);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn7Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.ADODataSet1CalcFields(DataSet: TDataSet);

begin

ADODataSet1.Fields[6].Value:=ADODataSet1.Fields[4].AsInteger*0.07;

ADODataSet1.Fields[7].Value:=ADODataSet1.Fields[4].AsInteger*0.15;

ADODataSet1.Fields[8].Value:=ADODataSet1.Fields[4].AsInteger+ADODataSet1.Fields[5].AsInteger-ADODataSet1.Fields[6].AsInteger-ADODataSet1.Fields[7].AsInteger;

 

 

 

end;

 

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

if ADODataSet1.State=dsBrowse then

if MessageDlg('Жоюды растаныз', mtWarning,[mbYes, mbNo],0)=mrYes then

ADODataSet1.Delete;

end;

 

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

if ADODataSet1.State=dsBrowse then

ADODataSet1.Edit;

end;

 

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

if ADODataSet1.State in [dsInsert,dsEdit] then

ADODataSet1.Post;

end;

 

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

edit3.Clear;

edit4.clear;

edit5.Clear;

edit1.Clear;

 

end;

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

 

  if ((Edit6.Text<>'') and (Edit5.Text<>'') and (Edit4.Text<>'')

      and (Edit3.Text<>'') and (Edit2.Text<>'')) then

  //открытие таблицы  для внесения данных

  begin

   ADODataSet1.Insert;

ADODataSet1.Fields[1].AsString:=Edit6.Text;

ADODataSet1.Fields[2].AsString:=Edit5.Text;

ADODataSet1.Fields[3].AsString:=Edit4.Text;

ADODataSet1.Fields[4].AsString:=Edit3.Text;

ADODataSet1.Fields[5].AsString:=Edit2.Text;

 

 

   //запись данных  в таблицу

    ADODataSet1.Post;

   //определение  числа полей в таблице

ADODataSet1.RecordCount;

   //добавление новой  записи в конец таблицы

ADODataSet1.Append;

   //очистка полей

    Edit6.Clear;

    Edit2.Clear;

    Edit3.Clear;

    Edit4.Clear;

    Edit5.Clear;

    //возвращение  полю Edit2 фокуса

    Edit6.SetFocus;

  end

    else ShowMessage('Барлык орiстердi толтырыныз!');

 

end;

 

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

if not ADODataSet1.Locate('тегi',Edit1.Text,[loCaseInsensitive, loPartialKey])then

    ShowMessage('Жазба  жок');

end;

 

end.