main.~pas

Delphi写得用来投票的小程序 欢迎下载

        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[0]:=UpDown1.Position;
end;

procedure TMainForm.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[1]>UpDown2.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[1]:=UpDown2.Position;
end;

procedure TMainForm.UpDown3Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[2]>UpDown3.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[2]:=UpDown3.Position;
end;

procedure TMainForm.UpDown4Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[3]>UpDown4.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[3]:=UpDown4.Position;
end;

procedure TMainForm.UpDown5Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[4]>UpDown5.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[4]:=UpDown5.Position;
end;

procedure TMainForm.UpDown6Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[5]>UpDown6.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[5]:=UpDown6.Position;
end;

procedure TMainForm.UpDown7Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[6]>UpDown7.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[6]:=UpDown7.Position;
end;

procedure TMainForm.UpDown8Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[7]>UpDown8.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[7]:=UpDown8.Position;
end;

procedure TMainForm.UpDown9Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[8]>UpDown9.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[8]:=UpDown9.Position;
end;

procedure TMainForm.UpDown10Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[9]>UpDown10.Position Then
                Tickets:=Tickets-1
        Else
                Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
        Series1.YValue[9]:=UpDown10.Position;
end;

procedure TMainForm.StopCounting1Click(Sender: TObject);
var
        I,MaxI:Integer;
        Winer:String;
begin
        OKBottomDlg.Show;
        MaxI:=Variant(Series1.MaxXValue);
        for I:=0 To MaxI do
        begin
                If Series1.YValue[I]=Series1.MaxYValue Then
                        Winer:=Winer+Series1.XLabel[I]+' ';
        end;
        OkBottomDlg.Label1.Caption:='恭喜'+ Winer+'胜出!';
end;

procedure TMainForm.New1Click(Sender: TObject);
begin
        Series1.Clear;
        MainForm.InputToolButton.Enabled:=True;
        InputCandidates.Enabled:=True;
        MainForm.Button1.Enabled:=False;
        MainForm.Button2.Enabled:=False;
        MainForm.Button3.Enabled:=False;
        MainForm.Button4.Enabled:=False;
        MainForm.Button5.Enabled:=False;
        MainForm.Button6.Enabled:=False;
        MainForm.Button7.Enabled:=False;
        MainForm.Button8.Enabled:=False;
        MainForm.Button9.Enabled:=False;
        MainForm.Button10.Enabled:=False;
        MainForm.UpDown1.Enabled:=False;
        MainForm.UpDown2.Enabled:=False;
        MainForm.UpDown3.Enabled:=False;
        MainForm.UpDown4.Enabled:=False;
        MainForm.UpDown5.Enabled:=False;
        MainForm.UpDown6.Enabled:=False;
        MainForm.UpDown7.Enabled:=False;
        MainForm.UpDown8.Enabled:=False;
        MainForm.UpDown9.Enabled:=False;
        MainForm.UpDown10.Enabled:=False;
        StartToolButton.Enabled:=False;
        StopToolButton.Enabled:=False;
        StartCounting1.Enabled:=False;
        StopCounting1.Enabled:=False;
        TotalTickets.Text:='0';
        Tickets:=0;
        UpDown1.Position:=0;
        UpDown2.Position:=0;
        UpDown3.Position:=0;
        UpDown4.Position:=0;
        UpDown5.Position:=0;
        UpDown6.Position:=0;
        UpDown7.Position:=0;
        UpDown8.Position:=0;
        UpDown8.Position:=0;
        UpDown10.Position:=0;
end;

procedure TMainForm.ExitToolButtonClick(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.RstToolButtonClick(Sender: TObject);
begin
        Series1.Clear;
        MainForm.InputToolButton.Enabled:=True;
        InputCandidates.Enabled:=True;
        MainForm.Button1.Enabled:=False;
        MainForm.Button2.Enabled:=False;
        MainForm.Button3.Enabled:=False;
        MainForm.Button4.Enabled:=False;
        MainForm.Button5.Enabled:=False;
        MainForm.Button6.Enabled:=False;
        MainForm.Button7.Enabled:=False;
        MainForm.Button8.Enabled:=False;
        MainForm.Button9.Enabled:=False;
        MainForm.Button10.Enabled:=False;
        MainForm.UpDown1.Enabled:=False;
        MainForm.UpDown2.Enabled:=False;
        MainForm.UpDown3.Enabled:=False;
        MainForm.UpDown4.Enabled:=False;
        MainForm.UpDown5.Enabled:=False;
        MainForm.UpDown6.Enabled:=False;
        MainForm.UpDown7.Enabled:=False;
        MainForm.UpDown8.Enabled:=False;
        MainForm.UpDown9.Enabled:=False;
        MainForm.UpDown10.Enabled:=False;
        StartToolButton.Enabled:=False;
        StopToolButton.Enabled:=False;
        StartCounting1.Enabled:=False;
        StopCounting1.Enabled:=False;
        TotalTickets.Text:='0';
        Tickets:=0;
        UpDown1.Position:=0;
        UpDown2.Position:=0;
        UpDown3.Position:=0;
        UpDown4.Position:=0;
        UpDown5.Position:=0;
        UpDown6.Position:=0;
        UpDown7.Position:=0;
        UpDown8.Position:=0;
        UpDown8.Position:=0;
        UpDown10.Position:=0;
end;

procedure TmainForm.InputToolButtonClick(Sender:TObject);
begin
        Form2.Show;
end;

procedure TmainForm.StartToolButtonClick(Sender:TObject);
begin
        If MainForm.Button1.Caption<>'' Then
                begin
                MainForm.Button1.Enabled:=True;
                MainForm.UpDown1.Enabled:=True;
                Series1.AddBar(0,Button1.Caption,clRed);
                end;
        If MainForm.Button2.Caption<>'' Then
                begin
                MainForm.Button2.Enabled:=True;
                MainForm.UpDown2.Enabled:=True;
                Series1.AddBar(0,Button2.Caption,clYellow);
                end;
        If MainForm.Button3.Caption<>'' Then
                begin
                MainForm.Button3.Enabled:=True;
                MainForm.UpDown3.Enabled:=True;
                Series1.AddBar(0,Button3.Caption,clGreen);
                end;
        If MainForm.Button4.Caption<>'' Then
                begin
                MainForm.Button4.Enabled:=True;
                MainForm.UpDown4.Enabled:=True;
                Series1.AddBar(0,Button4.Caption,clFuchsia);
                end;
        If MainForm.Button5.Caption<>'' Then
                begin
                MainForm.Button5.Enabled:=True;
                MainForm.UpDown5.Enabled:=True;
                Series1.AddBar(0,Button5.Caption,clLime);
                end;
        If MainForm.Button6.Caption<>'' Then
                begin
                MainForm.Button6.Enabled:=True;
                MainForm.UpDown6.Enabled:=True;
                Series1.AddBar(0,Button6.Caption,clGray);
                end;
        If MainForm.Button7.Caption<>'' Then
                begin
                MainForm.Button7.Enabled:=True;
                MainForm.UpDown7.Enabled:=True;
                Series1.AddBar(0,Button7.Caption,clGray);
                end;
        If MainForm.Button8.Caption<>'' Then
                begin
                MainForm.Button8.Enabled:=True;
                MainForm.UpDown8.Enabled:=True;
                Series1.AddBar(0,Button8.Caption,clGray);
                end;
        If MainForm.Button9.Caption<>'' Then
                begin
                MainForm.Button9.Enabled:=True;
                MainForm.UpDown9.Enabled:=True;
                Series1.AddBar(0,Button9.Caption,clGray);
                end;
        If MainForm.Button10.Caption<>'' Then
                begin
                MainForm.Button10.Enabled:=True;
                MainForm.UpDown10.Enabled:=True;
                Series1.AddBar(0,Button10.Caption,clGray);
                end;
        StartToolButton.Enabled:=False;
        StopToolButton.Enabled:=True;
        StartCounting1.Enabled:=False;
        StopCounting1.Enabled:=True;
end;

procedure TMainForm.StopToolButtonClick(Sender: TObject);
var
        I,MaxI:Integer;
        Winer:String;
begin
        OKBottomDlg.Show;
        MaxI:=Variant(Series1.MaxXValue);
        for I:=0 To MaxI do
        begin
                If Series1.YValue[I]=Series1.MaxYValue Then
                        Winer:=Winer+Series1.XLabel[I]+' ';
        end;
        OkBottomDlg.Label1.Caption:='恭喜'+ Winer+'胜出!';
end;

procedure TMainForm.AboutToolButtonClick(Sender: TObject);
begin
          OKBottomDlg1.Show;
end;

end.