unit2.pas

旅游查询系统

            Radiobutton9.Enabled:=false;
            Radiobutton9.Checked:=false
          END
              ELSE Radiobutton9.Enabled:=true;
      IF ((Combobox2.Text='西安')OR(Combobox3.Text='西安')) THEN
          BEGIN
            Radiobutton10.Enabled:=false;
            Radiobutton10.Checked:=false
          END
              ELSE Radiobutton10.Enabled:=true;
      IF ((Combobox2.Text='郑州')OR(Combobox3.Text='郑州')) THEN
          BEGIN
            Radiobutton11.Enabled:=false;
            Radiobutton11.Checked:=false
          END
              ELSE Radiobutton11.Enabled:=true;
      IF ((Combobox2.Text='杭州')OR(Combobox3.Text='杭州')) THEN
          BEGIN
            Radiobutton12.Enabled:=false;
            Radiobutton12.Checked:=false
          END
              ELSE  Radiobutton12.Enabled:=true;
      IF ((Combobox2.Text='成都')OR(Combobox3.Text='成都')) THEN
         BEGIN
          Radiobutton13.Enabled:=false;
          Radiobutton13.Checked:=false
         END
              ELSE  Radiobutton13.Enabled:=true;
      IF ((Combobox2.Text='桂林')OR(Combobox3.Text='桂林')) THEN
         BEGIN
          Radiobutton14.Enabled:=false;
          Radiobutton14.Checked:=false
         END
              ELSE Radiobutton14.Enabled:=true;
      IF ((Combobox2.Text='拉萨')OR(Combobox3.Text='拉萨')) THEN
          BEGIN
            Radiobutton15.Enabled:=false;
            Radiobutton15.Checked:=false
          END
              ELSE Radiobutton15.Enabled:=true;

      IF label11.Caption<>'59' THEN
          label11.Caption:=inttostr(strtoint(label11.Caption)+1)
        ELSE
            BEGIN
                label11.Caption:='0';
                IF label10.Caption<>'23' THEN
                      label10.Caption:=inttostr(strtoint(label10.Caption)+1)
                    ELSE
                        BEGIN
                            label10.Caption:='0';
                            CASE strtoint(label8.Caption) OF
                                1,3,5,7,8,10,12:
                                    BEGIN
                                      IF label9.Caption<>'31' THEN
                                         label9.Caption:=inttostr(strtoint(label9.Caption)+1)
                                        ELSE
                                            BEGIN
                                                label9.Caption:='1';
                                                IF label8.Caption<>'12' THEN
                                                    label8.Caption:=inttostr(strtoint(label8.Caption)+1)
                                                   ELSE
                                                        BEGIN
                                                            Label8.Caption:='1';
                                                            label7.Caption:=inttostr(strtoint(label7.Caption)+1)
                                                        END;
                                            END;
                                    END;
                                4,6,9,11:
                                     BEGIN
                                      IF label9.Caption<>'30' THEN
                                         label9.Caption:=inttostr(strtoint(label9.Caption)+1)
                                        ELSE
                                            BEGIN
                                                label9.Caption:='1';
                                                IF label8.Caption<>'12' THEN
                                                    label8.Caption:=inttostr(strtoint(label8.Caption)+1)
                                                   ELSE
                                                        BEGIN
                                                            Label8.Caption:='1';
                                                            label7.Caption:=inttostr(strtoint(label7.Caption)+1)
                                                        END;
                                            END;
                                     END;
                                2:
                                      BEGIN
                                          IF strtoint(label9.Caption)<28 THEN
                                              label9.Caption:=inttostr(strtoint(label9.Caption)+1)
                                            ELSE
                                                BEGIN
                                                    IF ((label9.Caption='28') and (strtoint(label7.Caption) mod 4=0))  THEN
                                                        label9.Caption:='29'
                                                        ELSE
                                                            BEGIN
                                                                label9.Caption:='1';
                                                                label8.Caption:='3'
                                                            END;
                                                END;
                                      END;
                                END;
                        END;

            END;
end;

procedure TForm2.RadioButton1Click(Sender: TObject);
begin
      Combobox4.Enabled:=false;
      Combobox4.Text:='';
end;

procedure TForm2.RadioButton2Click(Sender: TObject);
begin
      Combobox4.Enabled:=false;
      Combobox4.Text:='';
end;

procedure TForm2.RadioButton3Click(Sender: TObject);
begin
       Combobox4.Enabled:=true;
end;

procedure TForm2.FormCreate(Sender: TObject);
VAR one,two,three,kk:integer;
begin
      via:=0;
      FOR one:=1 TO 12 DO
          FOR two:=1 TO 12 DO
              FOR three:=1 TO 3 DO
                      BEGIN
                          informations[one,two,three].departtime:=-1;
                          informations[one,two,three].fee:=10000;
                      END;

      {航班表}
      informations[1,2,1].title:='FM116';
      informations[1,2,1].departtime:=12;
      informations[1,2,1].arrivaltime:=14;
      informations[1,2,1].fee:=1040;

      informations[1,3,1].title:='CA1351';
      informations[1,3,1].departtime:=8;
      informations[1,3,1].arrivaltime:=11;
      informations[1,3,1].fee:=1510;

      informations[1,12,1].title:='FM301';
      informations[1,12,1].departtime:=14;
      informations[1,12,1].arrivaltime:=18;
      informations[1,12,1].fee:=2090;

      informations[1,9,1].title:='MU5146';
      informations[1,9,1].departtime:=9;
      informations[1,9,1].arrivaltime:=11;
      informations[1,9,1].fee:=1060;

      informations[1,5,1].title:='CZ6122';
      informations[1,5,1].departtime:=15;
      informations[1,5,1].arrivaltime:=16;
      informations[1,5,1].fee:=660;

      informations[1,10,1].title:='CA4102';
      informations[1,10,1].departtime:=13;
      informations[1,10,1].arrivaltime:=15;
      informations[1,10,1].fee:=1300;

      informations[1,4,1].title:='CA1623';
      informations[1,4,1].departtime:=12;
      informations[1,4,1].arrivaltime:=14;
      informations[1,4,1].fee:=890;

      informations[1,11,1].title:='HU7215';
      informations[1,11,1].departtime:=18;
      informations[1,11,1].arrivaltime:=21;
      informations[1,11,1].fee:=1580;

      informations[1,7,1].title:='MU2106';
      informations[1,7,1].departtime:=8;
      informations[1,7,1].arrivaltime:=10;
      informations[1,7,1].fee:=970;

      informations[3,1,1].title:='CZ3101';
      informations[3,1,1].departtime:=8;
      informations[3,1,1].arrivaltime:=11;
      informations[3,1,1].fee:=1510;

      informations[2,1,1].title:='CA3115';
      informations[2,1,1].departtime:=9;
      informations[2,1,1].arrivaltime:=11;
      informations[2,1,1].fee:=1040;

      informations[12,1,1].title:='FM321';
      informations[12,1,1].departtime:=9;
      informations[12,1,1].arrivaltime:=13;
      informations[12,1,1].fee:=2090;

      informations[9,1,1].title:='CA5945';
      informations[9,1,1].departtime:=13;
      informations[9,1,1].arrivaltime:=15;
      informations[9,1,1].fee:=1060;

      informations[5,1,1].title:='CZ6139';
      informations[5,1,1].departtime:=17;
      informations[5,1,1].arrivaltime:=18;
      informations[5,1,1].fee:=660;

      informations[10,1,1].title:='CA4107';
      informations[10,1,1].departtime:=14;
      informations[10,1,1].arrivaltime:=16;
      informations[10,1,1].fee:=1300;

      informations[4,1,1].title:='HU7128';
      informations[4,1,1].departtime:=11;
      informations[4,1,1].arrivaltime:=13;
      informations[4,1,1].fee:=890;

      informations[11,1,1].title:='CA1226';
      informations[11,1,1].departtime:=20;
      informations[11,1,1].arrivaltime:=23;
      informations[11,1,1].fee:=1580;

      informations[7,1,1].title:='MU2127';
      informations[7,1,1].departtime:=14;
      informations[7,1,1].arrivaltime:=16;
      informations[7,1,1].fee:=970;

      informations[2,3,1].title:='CZ3596';
      informations[2,3,1].departtime:=9;
      informations[2,3,1].arrivaltime:=11;
      informations[2,3,1].fee:=1170;

      informations[2,4,1].title:='CZ6252';
      informations[2,4,1].departtime:=18;
      informations[2,4,1].arrivaltime:=21;
      informations[2,4,1].fee:=1560;

      informations[2,11,1].title:='MU5313';
      informations[2,11,1].departtime:=19;
      informations[2,11,1].arrivaltime:=21;
      informations[2,11,1].fee:=1190;

      informations[2,7,1].title:='MU292';
      informations[2,7,1].departtime:=17;
      informations[2,7,1].arrivaltime:=19;
      informations[2,7,1].fee:=1160;

      informations[3,10,1].title:='3U332';
      informations[3,10,1].departtime:=10;
      informations[3,10,1].arrivaltime:=12;
      informations[3,10,1].fee:=1190;

      informations[3,12,1].title:='CZ6467';
      informations[3,12,1].departtime:=8;
      informations[3,12,1].arrivaltime:=11;
      informations[3,12,1].fee:=2640;

      informations[4,7,1].title:='MF8622';
      informations[4,7,1].departtime:=13;
      informations[4,7,1].arrivaltime:=15;
      informations[4,7,1].fee:=1370;

      informations[5,9,1].title:='CZ6327';
      informations[5,9,1].departtime:=13;
      informations[5,9,1].arrivaltime:=15;
      informations[5,9,1].fee:=1060;

      informations[5,10,1].title:='CZ6421';
      informations[5,10,1].departtime:=10;
      informations[5,10,1].arrivaltime:=13;
      informations[5,10,1].fee:=1600;

      informations[6,7,1].title:='HU3040';
      informations[6,7,1].departtime:=16;
      informations[6,7,1].arrivaltime:=18;
      informations[6,7,1].fee:=890;

      informations[7,12,1].title:='MU295';
      informations[7,12,1].departtime:=10;
      informations[7,12,1].arrivaltime:=12;
      informations[7,12,1].fee:=1470;

      informations[3,2,1].title:='FM308';
      informations[3,2,1].departtime:=12;
      informations[3,2,1].departtime:=14;
      informations[3,2,1].fee:=1170;

      informations[4,2,1].title:='CZ6257';
      informations[4,2,1].departtime:=9;
      informations[4,2,1].arrivaltime:=12;
      informations[4,2,1].fee:=1560;

      informations[11,2,1].title:='MU5314';