Разработка программного обеспечения "Телефонный справочник"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
#39;kod).AsString);.ExecSQL;_Chastnie.ADOQuery1.Active:=false;_Chastnie.ADOQuery1.Active:=true;_Chastnie.Edit1.Text:=;_Chastnie.Edit2.Text:=;_Chastnie.Edit3.Text:=;_Chastnie.Edit4.Text:=;;ShowMessage(Вы ввели некоректные данные.);;.U_red_organiz;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls, DBCtrls, jpeg, ExtCtrls;_red_organiz = class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;_fio: TEdit;_nom: TEdit;_adr: TEdit;: TButton;: TButton;: TADOQuery;: TDataSource;: TADOQuery;: TComboBox;: TComboBox;Edit_nomChange(Sender: TObject);Button1Click(Sender: TObject);FormShow(Sender: TObject);Button2Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_red_organiz: TF_red_organiz;U_Glavn, U_organiz;
0then(Edit_nom.Text[Length(Edit_nom.Text)]=1)or(Edit_nom.Text[Length(Edit_nom.Text)]=2)or">{$R *.dfm}TF_red_organiz.Edit_nomChange(Sender: TObject);n:string;Length(Edit_nom.Text)<>0 then(Edit_nom.Text[Length(Edit_nom.Text)]=1)or(Edit_nom.Text[Length(Edit_nom.Text)]=2)or
(Edit_nom.Text[Length(Edit_nom.Text)]=3)or(Edit_nom.Text[Length(Edit_nom.Text)]=4)or
(Edit_nom.Text[Length(Edit_nom.Text)]=5)or(Edit_nom.Text[Length(Edit_nom.Text)]=6)or
(Edit_nom.Text[Length(Edit_nom.Text)]=7)or(Edit_nom.Text[Length(Edit_nom.Text)]=8)or
(Edit_nom.Text[Length(Edit_nom.Text)]=9)or(Edit_nom.Text[Length(Edit_nom.Text)]=0)or
(Edit_nom.Text[Length(Edit_nom.Text)]=-)then
else(Вы не можете использовать буквы при вводе номера!);
)and(Edit_adr.Text)and
)and(ComboBox2.Text)then.SQL.Clear;.Locate(naimen,ComboBox2.Text,[]);.SQL.Add(update sprav_u set naimen=+#39+Edit_fio.Text+#39+,nom=+#39+Edit_nom.Text+#39+,adres=
+#39+Edit_adr.Text+#39+,nas_punkt=+#39+ComboBox1.Text+#39+,tarif=+.FieldByName(kod).AsString+ where kod=+F_Organiz.ADOQuery1.FieldByName(kod).AsString);.ExecSQL;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.Active:=true;;ShowMessage(Вы ввели не все данные!);;TF_red_organiz.FormShow(Sender: TObject);_fio.Text:=F_Organiz.ADOQuery1.FieldByname(naimen).AsString;_nom.Text:=F_Organiz.ADOQuery1.FieldByname(nom).AsString;_adr.Text:=F_Organiz.ADOQuery1.FieldByname(adres).AsString;.Text:=F_Organiz.ADOQuery1.FieldByName(nas_punkt).AsString;.First;.Items.Clear;not ADOQuery2.Eof do.Items.Add(ADOQuery2.FieldByName(naimen).AsString);.Next;;.Locate(kod,F_Organiz.ADOQuery1.FieldByName(tarif).AsString,[]);.Text:=ADOQuery2.FieldByName(naimen).AsString;;TF_red_organiz.Button2Click(Sender: TObject);;.U_red_tarif;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls;_red_tarif = class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;_tar: TEdit;_ab_f: TEdit;_ab_u: TEdit;_min_f: TEdit;_min_u: TEdit;: TButton;: TButton;: TADOQuery;FormShow(Sender: TObject);Edit_ab_fChange(Sender: TObject);Edit_ab_uChange(Sender: TObject);Edit_min_fChange(Sender: TObject);Edit_min_uChange(Sender: TObject);Button2Click(Sender: TObject);Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_red_tarif: TF_red_tarif;U_Glavn, U_Tarif, U_red_organiz, U_red_chastnie, U_dob_organiz, U_dob_chastnie;
0then(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=1)or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=2)or">{$R *.dfm}TF_red_tarif.FormShow(Sender: TObject);_tar.Text:=F_Tarif.ADOQuery1.FieldByName(naimen).AsString;_ab_f.Text:=F_Tarif.ADOQuery1.FieldByName(ab_f).AsString;_ab_u.Text:=F_Tarif.ADOQuery1.FieldByName(ab_u).AsString;_min_f.Text:=F_Tarif.ADOQuery1.FieldByName(min_f).AsString;_min_u.Text:=F_Tarif.ADOQuery1.FieldByName(min_u).AsString;;TF_red_tarif.Edit_ab_fChange(Sender: TObject);n:string;Length(Edit_ab_f.Text)<>0 then(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=1)or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=2)or
(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=3)or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=4)or
(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=5)or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=6)or
(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=7)or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=8)or
(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=9)or(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=0)or
(Edit_ab_f.Text[Length(Edit_ab_f.Text)]=.)then
else(Вы не можете использовать буквы при вводе!);
0then(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=1)or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=2)or">n:=Edit_ab_f.Text;(n,length(n),1);_ab_f.Text:=n;;Edit_ab_f.Text= then Edit_ab_f.Text:=0;;TF_red_tarif.Edit_ab_uChange(Sender: TObject);n:string;Length(Edit_ab_u.Text)<>0 then(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=1)or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=2)or
(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=3)or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=4)or
(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=5)or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=6)or
(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=7)or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=8)or
(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=9)or(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=0)or
(Edit_ab_u.Text[Length(Edit_ab_u.Text)]=.)then
else(Вы не можете использовать буквы при вводе!);
0then(Edit_min_f.Text[Length(Edit_min_f.Text)]=1)or(Edit_min_f.Text[Length(Edit_min_f.Text)]=2)or">n:=Edit_ab_u.Text;(n,length(n),1);_ab_u.Text:=n;;Edit_ab_u.Text= then Edit_ab_u.Text:=0;;TF_red_tarif.Edit_min_fChange(Sender: TObject);n:string;Length(Edit_min_f.Text)<>0 then(Edit_min_f.Text[Length(Edit_min_f.Text)]=1)or(Edit_min_f.Text[Length(Edit_min_f.Text)]=2)or
(Edit_min_f.Text[Length(Edit_min_f.Text)]=3)or(Edit_min_f.Text[Length(Edit_min_f.Text)]=4)or
(Edit_min_f.Text[Length(Edit_min_f.Text)]=5)or(Edit_min_f.Text[Length(Edit_min_f.Text)]=6)or
(Edit_min_f.Text[Length(Edit_min_f.Text)]=7)or(Edit_min_f.Text[Length(Edit_min_f.Text)]=8)or
(Edit_min_f.Text[Length(Edit_min_f.Text)]=9)or(Edit_min_f.Text[Length(Edit_min_f.Text)]=0)or
(Edit_min_f.Text[Length(Edit_min_f.Text)]=.)then
else(Вы не можете использовать буквы при вводе!);
0then(Edit_min_u.Text[Length(Edit_min_u.Text)]=1)or(Edit_min_u.Text[Length(Edit_min_u.Text)]=2)or">n:=Edit_min_f.Text;(n,length(n),1);_min_f.Text:=n;;Edit_min_f.Text= then Edit_min_f.Text:=0;;TF_red_tarif.Edit_min_uChange(Sender: TObject);n:string;Length(Edit_min_u.Text)<>0 then(Edit_min_u.Text[Length(Edit_min_u.Text)]=1)or(Edit_min_u.Text[Length(Edit_min_u.Text)]=2)or
(Edit_min_u.Text[Length(Edit_min_u.Text)]=3)or(Edit_min_u.Text[Length(Edit_min_u.Text)]=4)or
(Edit_min_u.Text[Length(Edit_min_u.Text)]=5)or(Edit_min_u.Text[Length(Edit_min_u.Text)]=6)or
(Edit_min_u.Text[Length(Edit_min_u.Text)]=7)or(Edit_min_u.Text[Length(Edit_min_u.Text)]=8)or
(Edit_min_u.Text[Length(Edit_min_u.Text)]=9)or(Edit_min_u.Text[Length(Edit_min_u.Text)]=0)or
(Edit_min_u.Text[Length(Edit_min_u.Text)]=.)then
else(Вы не можете использовать буквы при вводе!);
then.SQL.Clear;.SQL.Add(updatetarifsetnaimen=+#39+Edit_tar.Text+#39+,[ab_f]=+#39+Edit_ab_f.Text+#39">n:=Edit_min_u.Text;(n,length(n),1);_min_u.Text:=n;;Edit_min_u.Text= then Edit_min_u.Text:=0;;TF_red_tarif.Button2Click(Sender: TObject);;TF_red_tarif.Button1Click(Sender: TObject);Edit_tar.Text<> then.SQL.Clear;.SQL.Add(update tarif set naimen=+#39+Edit_tar.Text+#39+,[ab_f]=+#39+Edit_ab_f.Text+#39
+,[ab_u]=+#39+Edit_ab_u.Text+#39+,[min_f]=+#39+Edit_min_f.Text+#39+,[min_u]=+#39+Edit_min_u.Text+#39
+ where kod=+F_Tarif.ADOQuery1.FieldByName(kod).AsString);(ADOQuery1.SQL.CommaText);.ExecSQL;_Tarif.ADOQuery1.Active:=false;_Tarif.ADOQuery1.Active:=true;_red_organiz.ADOQuery2.Active:=false;_red_organiz.ADOQuery2.Active:=true;_red_chastnie.ADOQuery2.Active:=false;_red_chastnie.ADOQuery2.Active:=true;_dob_organiz.ADOQuery2.