MEMBUAT SIMULASI DSS DENGAN METODE SAW Komponen Zconnection yang disetting: Komponen Zquery Yang perlu disetting: Komponen Datasource yang perlu disetting: Komponen Dbgrid yang perlu disetting: Script: procedure TForm8.Button1Click(Sender: TObject); // simpan ke alternatif var s:string; begin s:='select * from alternatif where kode_alternatif="'+edit1.text+'"'; zquery1.SQL.Clear; zquery1.SQL.Add(s); zquery1.Close; zquery1.open; if zquery1.RecordCount>=1 then showmessage('Data sudah pernah disimpan') else begin zquery1.Close; s:='insert into alternatif values('+Quotedstr(edit1.Text)+',' +Quotedstr(edit2.Text)+','+Quotedstr(edit3.Text)+','+Quotedstr(edit4.Text)+','+Quotedstr(edit5.Text)+','+Quotedstr(edit6.Text)+','+Quotedstr(edit7.Text)+')'; zquery1.SQL.Clear; zquery1.SQL.Add(s); zquery1.ExecSQL; s:='select * from alternatif '; zquery1.SQL.Clear; zquery1.SQL.Add(s); zquery1.Close; zquery1.open; end; end; procedure TForm8.FormShow(Sender: TObject); begin zquery1.Open; edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit1.SetFocus; end; procedure TForm8.Button5Click(Sender: TObject); // mencari max min dan saw var s:string; begin zquery1.SQL.Clear; zquery1.SQL.Add('select min(C1)'+ ',max(C2),min(C3),max(C4),min(C5)from alternatif '); zquery1.ExecSQL; zquery1.Close; zquery1.open; edit8.Text:= zquery1.Fields[0].AsString; edit9.Text:= zquery1.Fields[1].AsString; edit10.Text:= zquery1.Fields[2].AsString; edit11.Text:= zquery1.Fields[3].AsString; edit12.Text:= zquery1.Fields[4].AsString; zquery1.SQL.Clear; // query untukk saw zquery1.SQL.Add('select x.kode_alternatif,x.nama_alternatif,x.C1,x.C2,x.C3,x.C4,x.C5,nilai_preference from (select z.kode_alternatif,z.nama_alternatif,z.C1,z.C2,z.C3,z.C4,z.C5,'+ '((z.C1*0.4)+(z.C2*0.2)+(z.C3*0.21)+(z.C4*0.12)+(z.C5*0.07))as nilai_preference from'+ '(select alternatif.kode_alternatif,alternatif.nama_alternatif,(y.a/alternatif.C1) as C1,'+ '(alternatif.C2/y.b) as C2,(y.c/alternatif.C3)as C3,(alternatif.C4/y.d) as C4,(y.e/alternatif.C5) as '+ 'C5 from alternatif,(select min(C1) as a,max(C2)as b,min(C3) as c,max(C4)as d,'+ 'min(C5) as e from alternatif)y)z)x order by x.nilai_preference desc '); zquery1.ExecSQL; zquery1.Close; zquery1.open; end;