unit9.pas

delphi写的抽奖程序

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,inifiles, Buttons;

type
  TForm9 = class(TForm)
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

Uses Unit1;

{$R *.dfm}

procedure TForm9.FormShow(Sender: TObject);
var iniinfo:Tinifile;
begin
  iniinfo:=Tinifile.Create(form1.SysPath +'Config.ini');
  Try
    if strtoint(iniinfo.ReadString('Souns','AllO','0'))=0 then
    begin
      checkbox1.Checked:=true;
    end
    else
    begin
      checkbox1.Checked:=false;
    end;
    if strtoint(iniinfo.ReadString('Souns','open01','0'))=0 then
    begin
      checkbox2.Checked:=true;
    end
    else
    begin
      checkbox2.Checked:=false;
    end;
    if strtoint(iniinfo.ReadString('Souns','open02','0'))=0 then
    begin
      checkbox3.Checked:=true;
    end
    else
    begin
      checkbox3.Checked:=false;
    end;
    if strtoint(iniinfo.ReadString('Souns','open03','0'))=0 then
    begin
      checkbox4.Checked:=true;
    end
    else
    begin
      checkbox4.Checked:=false;
    end;
    if strtoint(iniinfo.ReadString('Souns','open04','0'))=0 then
    begin
      checkbox5.Checked:=true;
    end
    else
    begin
      checkbox5.Checked:=false;
    end;
    if strtoint(iniinfo.ReadString('Souns','open05','0'))=0 then
    begin
      checkbox11.Checked:=true;
    end
    else
    begin
      checkbox11.Checked:=false;
    end;
    if strtoint(iniinfo.ReadString('Souns','open06','0'))=0 then
    begin
      checkbox6.Checked:=true;
    end
    else
    begin
      checkbox6.Checked:=false;
    end;
    if strtoint(iniinfo.ReadString('Souns','open07','0'))=0 then
    begin
      checkbox7.Checked:=true;
    end
    else
    begin
      checkbox7.Checked:=false;
    end;

    if strtoint(iniinfo.ReadString('Souns','open08','0'))=0 then
    begin
      checkbox9.Checked:=true;
    end
    else
    begin
      checkbox9.Checked:=false;
    end;
  Finally
    freeandnil(iniinfo);
  end;
  if checkbox1.Checked=true then
  begin
    checkbox2.Checked:=false;
    checkbox3.Checked:=false;
    checkbox4.Checked:=false;
    checkbox5.Checked:=false;
    checkbox6.Checked:=false;
    checkbox7.Checked:=false;
    checkbox9.Checked:=false;
    checkbox10.Checked:=false;
    checkbox11.Checked:=false;
  end;
  if checkbox10.Checked=true then
  begin
    checkbox1.Checked:=false;
    checkbox2.Checked:=true;
    checkbox3.Checked:=true;
    checkbox4.Checked:=true;
    checkbox5.Checked:=true;
    checkbox11.Checked:=true;
  end;
end;

procedure TForm9.CheckBox2Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
  checkbox10.Checked:=false;
end;

procedure TForm9.CheckBox3Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
  checkbox10.Checked:=false;
end;

procedure TForm9.CheckBox4Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
  checkbox10.Checked:=false;
end;

procedure TForm9.CheckBox5Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
  checkbox10.Checked:=false;
end;

procedure TForm9.CheckBox11Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
  checkbox10.Checked:=false;
end;

procedure TForm9.CheckBox6Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
end;

procedure TForm9.CheckBox7Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
end;

procedure TForm9.CheckBox9Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
var iniinfo:Tinifile;
begin
  iniinfo:=Tinifile.Create(form1.SysPath +'Config.ini');
  Try
    if checkbox1.Checked=true then
    begin
      iniinfo.WriteString('Souns','AllO','0');
      form1.sou1:=1;
      form1.sou2:=1;
      form1.sou3:=1;
      form1.sou4:=1;
      form1.sou5:=1;
      form1.re1:=1;
      form1.re2:=1;
      form1.re3:=1;
    end;
    if checkbox1.Checked=false then iniinfo.WriteString('Souns','AllO','1');
    if checkbox2.Checked=true then
    begin
      iniinfo.WriteString('Souns','open01','0');
      form1.sou1:=0;
    end
    else
    begin
      form1.sou1:=1;
    end;
    if checkbox2.Checked=false then iniinfo.WriteString('Souns','open01','1');
    if checkbox3.Checked=true then
    begin
      iniinfo.WriteString('Souns','open02','0');
      form1.sou2:=0;
    end
    else
    begin
      form1.sou2:=1;
    end;

    if checkbox3.Checked=false then iniinfo.WriteString('Souns','open02','1');
    if checkbox4.Checked=true then
    begin
      iniinfo.WriteString('Souns','open03','0');
      form1.sou3:=0;
    end
    else
    begin
      form1.sou3:=1;
    end;

    if checkbox4.Checked=false then iniinfo.WriteString('Souns','open03','1');
    if checkbox5.Checked=true then
    begin
      iniinfo.WriteString('Souns','open04','0');
      form1.sou4:=0;
    end
    else
    begin
      form1.sou4:=1;
    end;
    if checkbox5.Checked=false then iniinfo.WriteString('Souns','open04','1');
    if checkbox6.Checked=true then
    begin
      iniinfo.WriteString('Souns','open06','0');
      form1.re1:=0;
    end
    else
    begin
      form1.re1:=1;
    end;
    if checkbox6.Checked=false then iniinfo.WriteString('Souns','open06','1');
    if checkbox7.Checked=true then
    begin
      iniinfo.WriteString('Souns','open07','0');
      form1.re2:=0;
    end
    else
    begin
      form1.re2:=1;
    end;
    if checkbox7.Checked=false then iniinfo.WriteString('Souns','open07','1');
    if checkbox9.Checked=true then
    begin
      iniinfo.WriteString('Souns','open08','0');
      form1.re3:=0;
    end
    else
    begin
      form1.re3:=1;
    end;

    if checkbox9.Checked=false then iniinfo.WriteString('Souns','open08','1');
    if checkbox10.Checked=true then
    begin
      iniinfo.WriteString('Souns','open11','0');
      form1.sou1:=0;
      form1.sou2:=0;
      form1.sou3:=0;
      form1.sou4:=0;
      form1.sou5:=0;
    end;

    if checkbox10.Checked=false then iniinfo.WriteString('Souns','open11','1');
    if checkbox11.Checked=true then
    begin
      iniinfo.WriteString('Souns','open05','0');
      form1.sou5:=0;
    end
    else
    begin
      form1.sou5:=1;
    end;
    if checkbox11.Checked=false then iniinfo.WriteString('Souns','open05','1');
  Finally
    freeandnil(iniinfo);
  end;
end;

procedure TForm9.CheckBox1Click(Sender: TObject);
begin
  checkbox2.Checked:=false;
  checkbox3.Checked:=false;
  checkbox4.Checked:=false;
  checkbox5.Checked:=false;
  checkbox6.Checked:=false;
  checkbox7.Checked:=false;
  checkbox9.Checked:=false;
  checkbox10.Checked:=false;
  checkbox11.Checked:=false;
end;

procedure TForm9.CheckBox10Click(Sender: TObject);
begin
  checkbox1.Checked:=false;
  checkbox2.Checked:=true;
  checkbox3.Checked:=true;
  checkbox4.Checked:=true;
  checkbox5.Checked:=true;
  checkbox11.Checked:=true;
end;

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
  form9.Close;
end;

end.