main.~pas

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

unit Main;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, Menus, ComCtrls, ToolWin,
  TeeProcs, TeEngine, Chart, Series, ImgList;

type
  TUDBtnType = (btNext, btPrev);
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    New1: TMenuItem;
    FileExitItem: TMenuItem;
    InputCandidates: TMenuItem;
    StartCounting1: TMenuItem;
    StopCounting1: TMenuItem;
    W1: TMenuItem;
    C1: TMenuItem;
    H1: TMenuItem;
    V1: TMenuItem;
    E1: TMenuItem;
    HelpAboutItem: TMenuItem;
    StatusLine: TStatusBar;
    ToolBar1: TToolBar;
    Chart1: TChart;
    Series1: TBarSeries;
    RstToolButton: TToolButton;
    ImageList1: TImageList;
    InputToolButton: TToolButton;
    StartToolButton: TToolButton;
    StopToolButton: TToolButton;
    ToolButton6: TToolButton;
    AboutToolButton: TToolButton;
    ImageList2: TImageList;
    ToolButton5: TToolButton;
    ExitToolButton: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    Panel1: TPanel;
    Button6: TButton;
    Label6: TLabel;
    UpDown6: TUpDown;
    Button5: TButton;
    Button4: TButton;
    Button3: TButton;
    Button2: TButton;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    UpDown3: TUpDown;
    UpDown4: TUpDown;
    UpDown5: TUpDown;
    Label11: TLabel;
    TotalTickets: TEdit;
    Label8: TLabel;
    Button7: TButton;
    Label7: TLabel;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Label9: TLabel;
    Label10: TLabel;
    UpDown7: TUpDown;
    UpDown8: TUpDown;
    UpDown9: TUpDown;
    UpDown10: TUpDown;
    procedure FormCreate(Sender: TObject);
    procedure ShowHint(Sender: TObject);
    procedure New1Click(Sender: TObject);
    procedure FileExit(Sender: TObject);
    procedure InputCandidatesClick(Sender: TObject);
    procedure StartCounting1Click(Sender: TObject);
    procedure StopCounting1Click(Sender: TObject);
    procedure HelpAbout(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure RstToolButtonClick(Sender: TObject);
    procedure InputToolButtonClick(Sender: TObject);
    procedure StartToolButtonClick(Sender: TObject);
    procedure StopToolButtonClick(Sender: TObject);
    procedure ExitToolButtonClick(Sender: TObject);
    procedure AboutToolButtonClick(Sender: TObject);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown3Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown4Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown5Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown6Click(Sender: TObject; Button: TUDBtnType);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure UpDown7Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown8Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown9Click(Sender: TObject; Button: TUDBtnType);
    procedure UpDown10Click(Sender: TObject; Button: TUDBtnType);
end;

var
  MainForm: TMainForm;
  Tickets:Integer=0;
  Button:TUDBtnType;

implementation

uses Unit2, Unit6, Unit7;

{$r *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;
end;

procedure TMainForm.ShowHint(Sender: TObject);
begin
  StatusLine.SimpleText := Application.Hint;
end;

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

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

procedure TMainForm.InputCandidatesClick(Sender: TObject);
begin
        Form2.Show;
end;

procedure TMainForm.Button1Click(Sender: TObject);
begin
        Series1.YValue[0]:=Series1.YValue[0]+1;
        UpDown1.Position:=UpDown1.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
        Series1.YValue[1]:=Series1.YValue[1]+1;
        UpDown2.Position:=UpDown2.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button3Click(Sender: TObject);
begin
        Series1.YValue[2]:=Series1.YValue[2]+1;
        UpDown3.Position:=UpDown3.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button4Click(Sender: TObject);
begin
        Series1.YValue[3]:=Series1.YValue[3]+1;
        UpDown4.Position:=UpDown4.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button5Click(Sender: TObject);
begin
        Series1.YValue[4]:=Series1.YValue[4]+1;
        UpDown5.Position:=UpDown5.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button6Click(Sender: TObject);
begin
        Series1.YValue[5]:=Series1.YValue[5]+1;
        UpDown6.Position:=UpDown6.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button7Click(Sender: TObject);
begin
        Series1.YValue[6]:=Series1.YValue[6]+1;
        UpDown7.Position:=UpDown7.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button8Click(Sender: TObject);
begin
        Series1.YValue[7]:=Series1.YValue[7]+1;
        UpDown8.Position:=UpDown8.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button9Click(Sender: TObject);
begin
        Series1.YValue[8]:=Series1.YValue[8]+1;
        UpDown9.Position:=UpDown9.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.Button10Click(Sender: TObject);
begin
        Series1.YValue[9]:=Series1.YValue[9]+1;
        UpDown10.Position:=UpDown10.Position+1;
        Tickets:=Tickets+1;
        TotalTickets.Text:=Variant(Tickets);
end;

procedure TMainForm.StartCounting1Click(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.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
        If Series1.YValue[0]>UpDown1.Position Then
                Tickets:=Tickets-1