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.