Разработка информационно-программного комплекса для использования на IBM-совместимых ПК в качестве автоматизированного рабочего места обработки информации
Курсовой проект - Компьютеры, программирование
Другие курсовые по предмету Компьютеры, программирование
sible := False;.Visible := True;elseComboBox1.Text = Информация по отделам then.Visible := False;.Visible := True;elseComboBox1.Text = Договоры then
begin.MessageBox(Невозможно редактировать заключённый договор,Договор);
exit;;TForm1.Button5Click(Sender: TObject);ComboBox1.Text = Данные: then begin
Application.MessageBox(Выберите данные для удаления,Удаление данных);;;Application.MessageBox(Вы уверены, что хотите удалить запись?,Удаление записи,
MB_ICONQUESTION + MB_YESNO) = IDNO then;.IBQuery2.Close;.IBQuery2.SQL.Clear;ComboBox1.Text = Товары в наличии thenForm2.IBQuery2 do.Text := delete from NALI4IE where id = + IBQuery1.FieldByName(ID).AsStringComboBox1.Text = Проданные товары thenForm2.IBQuery2 do.Text := delete from PRODANNOE where id = + IBQuery1.FieldByName(ID).AsStringComboBox1.Text = Информация о магазине then
Application.MessageBox(Нельзя удалить запись о магазине,Удаление записи);
exit;ComboBox1.Text = Дисконтные карты thenForm2.IBQuery2 do.Text := delete from DISCONT where id = + IBQuery1.FieldByName(ID).AsString
elseComboBox1.Text = Информация по отделам then
with Form2.IBQuery2 do.Text := delete from OTDELY where id_otdel = + IBQuery1.FieldByName(ID_OTDEL).AsStringComboBox1.Text = Договоры thenForm2.IBQuery2 do.Text := delete from DOGOVOR where id = + IBQuery1.FieldByName(ID).AsString;.IBQuery2.Open;.IBQuery2.Close;.Close;.Open;;TForm1.ComboBox1Change(Sender: TObject);.Close;.SQL.Clear;.Enabled := True;ComboBox1.Text = Товары в наличии then.Lines[0] := select * from NALI4IEComboBox1.Text = Проданные товары then.Lines[0] := select * from PRODANNOEComboBox1.Text = Информация о магазине then begin.Enabled := False;.Lines[0] := select * from SHOPComboBox1.Text = Информация по отделам then.Enabled := False;.Lines[0] := select * from OTDELY;ComboBox1.Text = Дисконтные карты then.Lines[0] := select * from DISCONTComboBox1.Text = Договоры then.Lines[0] := select * from DOGOVOR;.SQL := Memo1.Lines;.Open;(ProgressBar1.Handle, $0409, 0, clLime); // progressbar change color to Lime.ProgressBar1.Position:=0; // progressbar null.Enabled:=true;;TForm1.ComboBox2Change(Sender: TObject);bufer: string;.Close;.SQL.Clear;:= Memo1.Lines[0];ComboBox2.Text = Возрастанию then.Lines[0] := Memo1.Lines[0] + order by IDComboBox2.Text = Убыванию then.Lines[0] := Memo1.Lines[0] + order by id descComboBox2.Text = Наименованию then.Lines[0] := Memo1.Lines[0] + order by NAIMENOVANIEComboBox2.Text = Дате thenComboBox1.Text = Проданные товары then.Lines[0] := Memo1.Lines[0] + order by DATAPRODAJI;ComboBox1.Text = Товары в наличии then.Lines[0] := Memo1.Lines[0] + order by DATAPOSTUPLENI9;ComboBox1.Text = Договоры then.Lines[0] := Memo1.Lines[0] + order by DATADOGOVORA;;.SQL := Memo1.Lines;.Open;.Lines[0] := bufer;;TForm1.Button6Click(Sender: TObject);.Close;.Lines[0] := select * from nali4ie where id_otdel=1;.SQL := Memo1.Lines;.Open;;TForm1.Button7Click(Sender: TObject);.Close;.Lines[0] := select * from nali4ie where id_otdel=2;.SQL := Memo1.Lines;.Open;;TForm1.Button8Click(Sender: TObject);.Close;.Lines[0] := select * from nali4ie where id_otdel=3;.SQL := Memo1.Lines;.Open;;TForm1.RadioGroup1Click(Sender: TObject);.Enabled := False; Edit2.Enabled := False; Edit3.Enabled :=False;.Enabled := False;RadioGroup1.ItemIndex of
: Edit1.Enabled := True;
: begin.Enabled := True;.Enabled := True;;
+Edit2.Text+)and(DATAPRODAJI= +01.
+ Edit4.Text + ) + and(DATAPRODAJI<= + 31.
+ Edit4.Text + );.SQL := Memo1.Lines;.Open;;TForm1.RadioGroup2Click(Sender: TObject);.Enabled := false; Edit6.Enabled := false; Edit7.Enabled := false;.Enabled := false;RadioGroup2.ItemIndex of
: Edit5.Enabled := True;
: Edit6.Enabled := True;
: Edit7.Enabled := True;
=+Edit7.TextRadioGroup2.ItemIndex=3then.Lines[0]:=select*fromnali4iewhereRAZMER=+Edit8.Text;.SQL:=Memo1.Lines;.Open;;TForm1.RadioGroup3Click(Sender:TObject);.Enabled:=False;Edit10.Enabled:=False;Edit11.Enabled:=False;.Enabled:=False;RadioGroup3.ItemIndexof">: Edit8.Enabled := True;;;TForm1.Button13Click(Sender: TObject);.Close;RadioGroup2.ItemIndex = 0 then.Lines[0] := select * from nali4ie where NAIMENOVANIE= + Edit5.TextRadioGroup2.ItemIndex = 1 then.Lines[0] := select * from nali4ie where ID= + Edit6.TextRadioGroup2.ItemIndex = 2 then.Lines[0] := select * from nali4ie where CENA>= + Edit7.TextRadioGroup2.ItemIndex = 3 then.Lines[0] := select * from nali4ie where RAZMER= + Edit8.Text;.SQL := Memo1.Lines;.Open;;TForm1.RadioGroup3Click(Sender: TObject);.Enabled := False; Edit10.Enabled := False; Edit11.Enabled :=False;.Enabled := False;RadioGroup3.ItemIndex of
: Edit9.Enabled := True;
: begin.Enabled := True;.Enabled := True;;
+Edit10.Text+)and(DATADOGOVORA= +01.
+ Edit12.Text + ) + and(DATADOGOVORA<= + 30.
+ Edit12.Text + );.SQL := Memo1.Lines;.Open;;TForm1.Button19Click(Sender: TObject);.Enabled := true;.Close;.Lines[0] := select * from postavwik where id_otdel=1;.SQL := Memo1.Lines;.Open;;TForm1.Button20Click(Sender: TObject);.Enabled := true;.Close;.Lines[0] := select * from postavwik where id_otdel=2;.SQL := Memo1.Lines;.Open;;TForm1.Button21Click(Sender: TObject);.Enabled := true;.Close;.Lines[0] := select * from postavwik where id_otdel=3;.SQL := Memo1.Lines;.Open;;TForm1.Button18Click(Sender: TObject);.Enabled := true;.Close;.Lines[0] := select * from postavwik;.SQL := Memo1.Lines;.Open;;TForm1.Button17Click(Sender: TObject);summa :String;.Enabled := true;.Enabled := true;.Enabled := true;.Close;.SQL.Clear;.Lines[0] := select * from dogovor;.SQL := Memo2.Lines;.Open;.Last;:= IBQuery2.RecordCount +1;.Close;.SQL.Clear;
// else begin.SQL.Clear;.Lines.Clear;.Lines[0] := Insert into KORZINA(ID,NAIMENOVANIE,RAZMER,CENA,UPAKOVKA,GARANTSROK,ID_DOGOVOR,ID_OTDEL) +
values ( + IBQuery1.FieldByName(ID).AsString + , +.FieldByName(NAIMENOVANIE).AsString + , +.FieldByName(RAZMER).AsString + , +.FieldByName(CENA).AsString + , +.FieldByName(UPAKOVKA).AsString + , +.FieldByName(GARANTSROK).AsString + , +(dogovor) + , +.FieldByName(ID_OTDEL).AsString + );.SQL := Memo2.Lines;.Open;.Transaction.Commit;.Close;.Lines.Clear;
// end;.Close;.SQL.Clear;.Lines[0] := select SUM(CENA) from KORZINA;.SQL := Memo2.Lines;.Open;.Caption:=