zlb.~pas

delphi6.0版本的主要用于学样、网吧的计费系统的源码

unit ZLB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, DB, ADODB;

type
  TZLBform = class(TForm)
    CheckListBox1: TCheckListBox;
    Button4: TButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    ReturnStr:String;
    InputStr:string;
  end;

var
  ZLBform: TZLBform;

implementation

uses datamodule;

{$R *.dfm}

procedure TZLBform.Button1Click(Sender: TObject);
var
 i:integer;
begin
 for i:=0 to checklistbox1.Items.Count-1 do
  checklistbox1.Checked[i]:=true;
end;

procedure TZLBform.Button2Click(Sender: TObject);
var
 i:integer;
begin
 for i:=0 to checklistbox1.Items.Count-1 do
  begin
   if (i+1) mod 2 =0 then
    checklistbox1.Checked[i]:=true
   else
    checklistbox1.Checked[i]:=false;
  end;
end;

procedure TZLBform.Button3Click(Sender: TObject);
var
 i:integer;
begin
 for i:=0 to checklistbox1.Items.Count-1 do
  begin
   if (i+1) mod 2 =0 then
    checklistbox1.Checked[i]:=false
   else
    checklistbox1.Checked[i]:=true;
  end;
end;


procedure TZLBform.FormShow(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 i,ZS:integer;
begin
 RadioButton1.Checked := false;
 RadioButton2.Checked := false;
 RadioButton3.Checked := false;
 query:=Tadoquery.Create(self);
 query.Connection:=dmfm.ADOConnection;
 sql:='select FZS from TXQ where Fname in ';
 sql:=sql+'(select Fvalue from TCONF where fvar=''CURRPERIOD'')';
 query.close;
 query.sql.text:=sql;
 query.open;

 if query.IsEmpty then
  begin
   messagebox(handle,'没有设置当前学期','提示',mb_iconwarning);
   exit;
  end;

  ZS:=query.Fields[0].Value;
  checklistbox1.Items.clear;
  for i:=1 to zs do
   begin
    checklistbox1.Items.Add('第'+format('%.2d',[i])+'周');
    if pos(inttostr(i)+',',InputStr+',')<>0 then
     checklistbox1.Checked[i-1]:=true
    else
     checklistbox1.Checked[i-1]:=false;
   end;



 ReturnStr:='';

 query.Destroy;
end;

procedure TZLBform.Button4Click(Sender: TObject);
var
 i:integer;
begin

 ReturnStr:='';
 for i:=0 to checklistbox1.Items.Count-1 do
  if checklistbox1.Checked[i] then
    ReturnStr:= ReturnStr+inttostr(strtoint(copy(checklistbox1.Items[i],3,2)))+',';

  ReturnStr:=copy(ReturnStr,1,length(ReturnStr)-1);
end;

end.