«Жарнамалық агенство қызметін» Delphi ортасында автоматтандыру

        a,b:integer;

begin

begin

a:=StrToInt(DBText1.Caption);

 

begin

if (DBRadioGroup1.ItemIndex=0) and (DBComboBox1.ItemIndex=0) then

DBEdit5.Text:=IntToStr(a*1);

end;

 

begin

if (DBRadioGroup1.ItemIndex=0) and (DBComboBox1.ItemIndex=1) then

DBEdit5.Text:=IntToStr(a*2);

end;

 

begin

if (DBRadioGroup1.ItemIndex=0) and (DBComboBox1.ItemIndex=2) then

DBEdit5.Text:=IntToStr(a*3);

end;

 

begin

if (DBRadioGroup1.ItemIndex=0) and (DBComboBox1.ItemIndex=3) then

DBEdit5.Text:=IntToStr(a*4);

end;

 

begin

if (DBRadioGroup1.ItemIndex=0) and (DBComboBox1.ItemIndex=4) then

DBEdit5.Text:=IntToStr(a*5);

end;

 

begin

if (DBRadioGroup1.ItemIndex=0) and (DBComboBox1.ItemIndex=5) then

DBEdit5.Text:=IntToStr(a*6);

end;

end;

 

begin

b:=StrToInt(DBText3.Caption);

 

begin

if (DBRadioGroup1.ItemIndex=1) and (DBComboBox1.ItemIndex=0) then

DBEdit5.Text:=IntToStr(b*1);

end;

 

begin

if (DBRadioGroup1.ItemIndex=1) and (DBComboBox1.ItemIndex=1) then

DBEdit5.Text:=IntToStr(b*2);

end;

 

begin

if (DBRadioGroup1.ItemIndex=1) and (DBComboBox1.ItemIndex=2) then

DBEdit5.Text:=IntToStr(b*3);

end;

 

begin

if (DBRadioGroup1.ItemIndex=1) and (DBComboBox1.ItemIndex=3) then

DBEdit5.Text:=IntToStr(b*4);

end;

 

begin

if (DBRadioGroup1.ItemIndex=1) and (DBComboBox1.ItemIndex=4) then

DBEdit5.Text:=IntToStr(b*5);

end;

 

begin

if (DBRadioGroup1.ItemIndex=1) and (DBComboBox1.ItemIndex=5) then

DBEdit5.Text:=IntToStr(b*6);

end;

end;

 

end;

 

procedure TTapsirForm.RadioButton1Click(Sender: TObject);

begin

if (RadioButton1.Checked) or (RadioButton2.Checked) or (RadioButton3.Checked) or (RadioButton4.Checked) then

DBComboBox2.Visible:=true;

if  RadioButton1.Checked then image1.Picture.LoadFromFile('res\1.jpg');

end;

 

procedure TTapsirForm.RadioButton2Click(Sender: TObject);

begin

if (RadioButton1.Checked) or (RadioButton2.Checked) or (RadioButton3.Checked) or (RadioButton4.Checked) then

DBComboBox2.Visible:=true;

if  RadioButton2.Checked then image1.Picture.LoadFromFile('res\2.jpg');

 

end;

 

procedure TTapsirForm.RadioButton3Click(Sender: TObject);

begin

if (RadioButton1.Checked) or (RadioButton2.Checked) or (RadioButton3.Checked) or (RadioButton4.Checked) then

DBComboBox2.Visible:=true;

if  RadioButton3.Checked then image1.Picture.LoadFromFile('res\3.jpg');

 

end;

 

procedure TTapsirForm.RadioButton4Click(Sender: TObject);

begin

if (RadioButton1.Checked) or (RadioButton2.Checked) or (RadioButton3.Checked) or (RadioButton4.Checked) then

DBComboBox2.Visible:=true;

if  RadioButton4.Checked then image1.Picture.LoadFromFile('res\4.jpg');

end;

 

procedure TTapsirForm.BitBtn1Click(Sender: TObject);

begin

DBEDIT1.Text:=FormatDateTime('dd/mm/yy',date);

klientform.MainTable.Post;

ChekForm.QuickRep1.Preview;

 

klientform.ADOTable1.Insert;

begin

case  TapsirForm.DBRadioGroup1.ItemIndex   of

0:klientform.ADOTable1.Next;

1:klientform.ADOTable1.First;

2:klientform.ADOTable1.Last;

end;

end;

end;

 

procedure TTapsirForm.BitBtn2Click(Sender: TObject);

begin

close;

end;

 

procedure TTapsirForm.Timer1Timer(Sender: TObject);

var time:TdateTime;

Begin

time:=now();

statusbar1.Panels[0].Text:=FormatDateTime('hh:mm:ss',Time);

statusbar1.Panels[1].Text:=FormatDateTime('dd/mm/yy',date);

end;

 

end.

unit Unit4;

 

interface

 

uses

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

  Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Mask, DBCtrls;

 

type

  TDirectorForm = class(TForm)

    Panel1: TPanel;

    Label1: TLabel;

    Label2: TLabel;

    Label4: TLabel;

    Label3: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label5: TLabel;

    BitBtn1: TBitBtn;

    DBEdit1: TDBEdit;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    BitBtn2: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn3: TBitBtn;

    CheckBox1: TCheckBox;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  DirectorForm: TDirectorForm;

 

implementation

 

uses Unit1, Unit2, Unit3, Unit5, Unit6, Unit7, Unit8, Unit10, Unit11,

  Unit9;

 

{$R *.dfm}

 

procedure TDirectorForm.BitBtn1Click(Sender: TObject);

var

        a1,a2,a3,a4,a5,a6:integer;

begin

panel1.Visible:=false;

klientform.TarifTable.Post;

end;

 

procedure TDirectorForm.BitBtn2Click(Sender: TObject);

begin

POKAZFORM.ShowModal;

end;

 

procedure TDirectorForm.BitBtn3Click(Sender: TObject);

begin

form11.QuickRep1.Preview;

end;

 

procedure TDirectorForm.CheckBox1Click(Sender: TObject);

begin

if checkbox1.Checked then panel1.Visible:=true

else  panel1.Visible:=false;

end;

procedure TDirectorForm.BitBtn4Click(Sender: TObject);

begin

close;

end;

unit Unit5;

 

interface

 

uses

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

  Dialogs, StdCtrls, DBCtrls, Mask, Buttons, ExtCtrls;

 

type

  TAkparatForm = class(TForm)

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    DBEdit2: TDBEdit;

    DBEdit1: TDBEdit;

    DBMemo2: TDBMemo;

    Label9: TLabel;

    DBMemo1: TDBMemo;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    DBEdit3: TDBEdit;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  AkparatForm: TAkparatForm;

 

implementation

 

uses Unit1, Unit2, Unit3, Unit4, Unit6, Unit7, Unit8, Unit9;

 

{$R *.dfm}

 

procedure TAkparatForm.BitBtn1Click(Sender: TObject);

begin

TapsirForm.ShowModal;

akparatform.DBEdit1.Text:='';

akparatform.DBEdit2.Text:='';

akparatform.DBEdit3.Text:='';

akparatform.DBMemo2.Text:='';

akparatform.DBMemo1.Text:='';

end;

 

procedure TAkparatForm.BitBtn2Click(Sender: TObject);

begin

Close;

end;

 

end

 

end.

unit Unit8;

 

interface

 

uses

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

  Dialogs, Grids, DBGrids, StdCtrls, Buttons, DB, ADODB, Menus, ExtCtrls,

  ComCtrls, Mask, DBCtrls;

  const

type

  TPOKAZForm = class(TForm)

    DBGrid1: TDBGrid;

    DataSource1: TDataSource;

    ADOQuery1: TADOQuery;

    MainMenu1: TMainMenu;

    StatusBar1: TStatusBar;

    Timer1: TTimer;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    i3: TMenuItem;

    i4: TMenuItem;

    Ghjuhfvvffdnjhs1: TMenuItem;

    N6: TMenuItem;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    oiii1: TMenuItem;

    N8: TMenuItem;

    CheckBox1: TCheckBox;

    N1: TMenuItem;

    N7: TMenuItem;

    i2: TMenuItem;

    Lfnf1: TMenuItem;

    BitBtn4: TBitBtn;

    N9: TMenuItem;

    Label1: TLabel;

    CheckBox2: TCheckBox;

    procedure GHJGHJ1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure N4Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure i2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure oiii1Click(Sender: TObject);

    procedure N8Click(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure Lfnf1Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure i4Click(Sender: TObject);

    procedure FormClick(Sender: TObject);

    procedure Ghjuhfvvffdnjhs1Click(Sender: TObject);

    procedure CheckBox2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  POKAZForm: TPOKAZForm;

 

implementation

 

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit10, Unit11,

  Unit9, Unit12, Unit13;

 

{$R *.dfm}

 

procedure TPOKAZForm.GHJGHJ1Click(Sender: TObject);

var

f:string;

begin

F:= edit1.Text;

datasource1.DataSet:=adoquery1;

adoquery1.Active:=false;

adoquery1.SQL.Clear;

adoquery1.SQL.Add('select*from Klient where Аты_жоні like'''+f+'''');

adoquery1.Active:=true;

 

end;

 

procedure TPOKAZForm.Timer1Timer(Sender: TObject);

var time:TdateTime;

Begin

time:=now();

statusbar1.Panels[0].Text:=FormatDateTime('hh:mm:ss',Time);

statusbar1.Panels[1].Text:=FormatDateTime('dd/mm/yy',date);

end;

 

 

procedure TPOKAZForm.N3Click(Sender: TObject);

begin

klientform.MainTable.IndexFieldNames:='Аты_жоні';

end;

 

procedure TPOKAZForm.N4Click(Sender: TObject);

begin

klientform.MainTable.IndexFieldNames:='Кызмет_акысы';

end;

 

procedure TPOKAZForm.N5Click(Sender: TObject);

begin

datasource1.DataSet:=klientform.MainTable;

if klientform.MainTable.Filtered=true then klientform.MainTable.Filtered:=false;

klientform.MainTable.IndexFieldNames:='Дата';

end;

 

procedure TPOKAZForm.N6Click(Sender: TObject);

begin

close;

end;

 

procedure TPOKAZForm.BitBtn1Click(Sender: TObject);

var

f,d,b:string;

begin

if adoquery1.Filtered=true then adoquery1.Filtered:=false;

d:='''';

b:='%';

f:=edit1.Text;

KlientForm.MainSource.DataSet:=adoquery1;

adoquery1.Active:=false;

Adoquery1.SQL.Clear;

adoquery1.SQL.Add('select* from Klient where Аты_жоні like'+d+b+f+b+d);

adoquery1.Active:=true;

end;

 

procedure TPOKAZForm.BitBtn2Click(Sender: TObject);

var

f,d,b:string;

begin

if adoquery1.Filtered=true then adoquery1.Filtered:=false;

d:='''';

b:='%';

f:=edit1.Text;

KlientForm.MainSource.DataSet:=adoquery1;

adoquery1.Active:=false;

Adoquery1.SQL.Clear;

adoquery1.SQL.Add('select* from Klient where Дата like'+d+b+f+b+d);

adoquery1.Active:=true;

end;

 

procedure TPOKAZForm.i2Click(Sender: TObject);

begin

bitbtn3.Visible:=true;

edit1.Visible:=true;

Label1.Caption:='Кызмет турін  енгiз';

 

end;

 

procedure TPOKAZForm.BitBtn3Click(Sender: TObject);

var

f,d,b:string;

begin

if adoquery1.Filtered=true then adoquery1.Filtered:=false;

d:='''';

b:='%';

f:=edit1.Text;

KlientForm.MainSource.DataSet:=adoquery1;

adoquery1.Active:=false;

Adoquery1.SQL.Clear;

adoquery1.SQL.Add('select* from Klient where Кызмет_турi like'+d+b+f+b+d);

adoquery1.Active:=true;

end;

 

procedure TPOKAZForm.oiii1Click(Sender: TObject);

begin

form11.QuickRep1.Preview;

end;

 

procedure TPOKAZForm.N8Click(Sender: TObject);