Разработка программного обеспечения "Телефонный справочник"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
, Buttons, jpeg, ExtCtrls;_del_chastnie= class(TForm): TBitBtn;: TBitBtn;: TADOQuery;: TImage;: TStaticText;BitBtn2Click(Sender: TObject);BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_del_chastnie: tF_del_chastnie;U_Glavn, U_chastnie;
{$R *.dfm}tF_del_chastnie.BitBtn2Click(Sender: TObject);;tF_del_chastnie.BitBtn1Click(Sender: TObject);.SQL.Clear;.SQL.Add(delete from sprav_f where kod=+F_chastnie.ADOQuery1.FieldByName(kod).AsString);.ExecSQL;_chastnie.ADOQuery1.Active:=false;_chastnie.ADOQuery1.Active:=true;_chastnie.Edit1.Text:=;_chastnie.Edit2.Text:=;_chastnie.Edit3.Text:=;_chastnie.Edit4.Text:=;;.U_Del_organiz;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Buttons, DB, ADODB, jpeg, ExtCtrls;_del_organiz = class(TForm): TADOQuery;: TBitBtn;: TBitBtn;: TImage;: TLabel;BitBtn2Click(Sender: TObject);BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_del_organiz: TF_del_organiz;U_Glavn, U_organiz;
{$R *.dfm}TF_del_organiz.BitBtn2Click(Sender: TObject);;TF_del_organiz.BitBtn1Click(Sender: TObject);.SQL.Clear;.SQL.Add(delete from sprav_u where kod=+F_Organiz.ADOQuery1.FieldByName(kod).AsString);.ExecSQL;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.Active:=true;;;.U_del_tarif;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls;_del_tarif = class(TForm): TBitBtn;: TBitBtn;: TADOQuery;: TImage;: TLabel;BitBtn2Click(Sender: TObject);BitBtn1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_del_tarif: TF_del_tarif;U_Glavn, U_Tarif, U_dob_Chastnie, U_red_chastnie, U_dob_organiz, U_red_organiz;
{$R *.dfm}TF_del_tarif.BitBtn2Click(Sender: TObject);;TF_del_tarif.BitBtn1Click(Sender: TObject);.SQL.Clear;.SQL.Add(delete from tarif where kod=+F_Tarif.ADOQuery1.FieldByName(kod).AsString);.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.Active:=false;_dob_organiz.ADOQuery2.Active:=true;_dob_chastnie.ADOQuery2.Active:=false;_dob_chastnie.ADOQuery2.Active:=true;;;.U_dob_Chastnie;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB, DBCtrls, ComObj, jpeg, ExtCtrls;_dob_chastnie = class(TForm)_fio: TEdit;_nom: TEdit;_adr: TEdit;_lg: TEdit;: TDBLookupComboBox;: TADOQuery;: TDataSource;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TADOQuery;: TComboBox;: TButton;FormShow(Sender: TObject);Button2Click(Sender: TObject);Button1Click(Sender: TObject);FormCreate(Sender: TObject);Edit_fioChange(Sender: TObject);Edit_nomChange(Sender: TObject);Button3Click(Sender: TObject);
{ Private declarations }
{ Public declarations };_dob_chastnie: TF_dob_chastnie;:variant;:string;U_Glavn, U_chastnie;
)and(Edit_nom.Text)then:=CreateOleObject(Excel.Application);.DisplayAlerts:=false;.WorkBooks.Open(MyDir + \Заявление.xls);.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;.WorkBooks[1].WorkSheets[1].Cells[26,5]:=Edit_lg.Text;.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);.SQL.Clear;.SQL.Add(insert into sprav_f (fio,nom,nas_punkt,adres,bonus,tarif) values (
+#39+Edit_fio.Text+#39+,+#39+Edit_nom.Text[1]+Edit_nom.Text[2]
+-+Edit_nom.Text[3]+-+Edit_nom.Text[4]+Edit_nom.Text[5]+#39+,
+#39+ComboBox1.Text+#39+,+#39+Edit_adr.Text+#39+,
0then(Edit_fio.Text[Length(Edit_fio.Text)]=1)or(Edit_fio.Text[Length(Edit_fio.Text)]=2)or">+#39+Edit_lg.Text+#39+,+ADOQuery2.FieldByName(kod).AsString+));.ExecSQL;_Chastnie.ADOQuery1.Active:=false;_Chastnie.ADOQuery1.Active:=true;_Chastnie.Edit1.Text:=;_Chastnie.Edit2.Text:=;_Chastnie.Edit3.Text:=;_Chastnie.Edit4.Text:=;.Visible:=FALSE;;ShowMessage(Данные не соответствуют.);;TF_dob_chastnie.FormCreate(Sender: TObject);(0,MyDir);;TF_dob_chastnie.Edit_fioChange(Sender: TObject);n:string;length(Edit_fio.Text)<>0 then(Edit_fio.Text[Length(Edit_fio.Text)]=1)or(Edit_fio.Text[Length(Edit_fio.Text)]=2)or
(Edit_fio.Text[Length(Edit_fio.Text)]=3)or(Edit_fio.Text[Length(Edit_fio.Text)]=4)or
(Edit_fio.Text[Length(Edit_fio.Text)]=5)or(Edit_fio.Text[Length(Edit_fio.Text)]=6)or
(Edit_fio.Text[Length(Edit_fio.Text)]=7)or(Edit_fio.Text[Length(Edit_fio.Text)]=8)or
(Edit_fio.Text[Length(Edit_fio.Text)]=9)or(Edit_fio.Text[Length(Edit_fio.Text)]=0)then
begin(Вы не можете использовать цифры при вводе ФИО!);
0then(Edit_nom.Text[Length(Edit_nom.Text)]=1)or(Edit_nom.Text[Length(Edit_nom.Text)]=2)or">n:=Edit_fio.Text;(n,length(n),1);_fio.Text:=n;;;TF_dob_chastnie.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)then
else(Вы не можете использовать буквы при вводе номера!);
)and(Edit_nom.Text)then:=CreateOleObject(Excel.Application);.DisplayAlerts:=false;.WorkBooks.Open(MyDir + \Заявление.xls);.WorkBooks[1].WorkSheets[1].Cells[12,5]:=Edit_fio.Text;.WorkBooks[1].WorkSheets[1].Cells[14,2]:=Edit_adr.Text;.WorkBooks[1].WorkSheets[1].Cells[26,5]:=Edit_lg.Text;.WorkBooks[1].WorkSheets[1].Cells[34,8]:=datetostr(date);.SQL.Clear;.SQL.Add(insert into sprav_f (fio,nom,nas_punkt,adres,bonus,tarif) values (
+#39+Edit_fio.Text+#39+,+#39+Edit_nom.Text[1]+Edit_nom.Text[2]
+-+Edit_nom.Text[3]+-+Edit_nom.Text[4]+Edit_nom.Text[5]+#39+,
+#39+ComboBox1.Text+#39+,+#39+Edit_adr.Text+#39+,
+#39+Edit_lg.Text+#39+,+ADOQuery2.FieldByName(kod).AsString+));.ExecSQL;_Chastnie.ADOQuery1.Active:=false;_Chastnie.ADOQuery1.Active:=true;_Chastnie.Edit1.Text:=;_Chastnie.Edit2.Text:=;_Chastnie.Edit3.Text:=;_Chastnie.Edit4.Text:=;.Visible:=true;;ShowMessage(Данные не соответствуют.);;.U_dob_organiz;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB, ADODB, StdCtrls, DBCtrls, ComObj, jpeg, ExtCtrls;_dob_organiz = class(TForm): TLabel;: TLabel;: TLabel;: TLabel;: TLabel;_fio: TEdit;_nom: TEdit;_adr: TEdit;: TDBLookupComboBox;: TButton;: TButton;: TADOQuery;: TDataSource;: TADOQuery;: TComboBox;: TButton;Button2Click(Sender: TObject);FormShow(Sender: TObject);Button1Click(Sender: TObject);Edit_nomChange(Sender: TObject);FormCreate(Sender: TObject);Button3Click(Sender: