zlb.~pa

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.