• Дисциплины
• Виды работ

Разработка программного обеспечения "Телефонный справочник"

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование

TObject);

{ Private declarations }

{ Public declarations };_dob_organiz: TF_dob_organiz;:variant;:string;U_Glavn, U_chastnie, U_Organiz;

)and(Edit_nom.Text)and

)and(DBLookupComboBox2.Text)then:=CreateOleObject(Excel.Application);.DisplayAlerts:=false;.WorkBooks.Open(MyDir + \Заявление2.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[34,8]:=datetostr(date);.SQL.Clear;.SQL.Add(insert into sprav_u (naimen,nom,adres,[nas_punkt],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+Edit_adr.Text+#39

0then(Edit_nom.Text[Length(Edit_nom.Text)]=1)or(Edit_nom.Text[Length(Edit_nom.Text)]=2)or">+,+#39+ComboBox1.Text+#39+,+ADOQuery2.FieldByName(kod).AsString+));.ExecSQL;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.Active:=true;.Visible:=false;;ShowMessage(Вы ввели не все данные!);;TF_dob_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)then

else(Вы не можете использовать буквы при вводе номера!);

)and(Edit_nom.Text)and

)and(DBLookupComboBox2.Text)then:=CreateOleObject(Excel.Application);.DisplayAlerts:=false;.WorkBooks.Open(MyDir + \Заявление2.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[34,8]:=datetostr(date);.SQL.Clear;.SQL.Add(insert into sprav_u (naimen,nom,adres,[nas_punkt],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+Edit_adr.Text+#39

+,+#39+ComboBox1.Text+#39+,+ADOQuery2.FieldByName(kod).AsString+));.ExecSQL;_Organiz.ADOQuery1.Active:=false;_Organiz.ADOQuery1.Active:=true;.Visible:=true;;ShowMessage(Вы ввели не все данные!);;.U_dob_tarif;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, DB, ADODB, jpeg, ExtCtrls;_dob_tarif = class(TForm): TLabel;_tar: TEdit;: TLabel;_ab_f: TEdit;: TLabel;_ab_u: TEdit;: TLabel;_min_f: TEdit;: TLabel;_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 };_dob_tarif: TF_dob_tarif;U_Glavn, U_Tarif, U_dob_chastnie, U_dob_organiz, U_red_chastnie, U_red_organiz;

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_dob_tarif.FormShow(Sender: TObject);_tar.Text:=;_ab_f.Text:=0;_ab_u.Text:=0;_min_f.Text:=0;_min_u.Text:=0;;TF_dob_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_dob_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_dob_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_dob_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.A

• На первую страницу
• Назад
• 2
• 3
• 4
• 5
• 6
• 7
• 8
• 9
• 10
• 11
• 12
• 13
• 14
• 15
• 16
• Далее