u_xsxm_sd.pas

来自「人事管理程序源码」· PAS 代码 · 共 110 行

unit U_xsxm_Sd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, CheckLst, Buttons,adodb;

type
  TForm_xsxm_sd = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Panel5: TPanel;
    CheckListBox1: TCheckListBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_xsxm_sd: TForm_xsxm_sd;

implementation

uses U_gzda_dm;

{$R *.dfm}

procedure TForm_xsxm_sd.BitBtn3Click(Sender: TObject);
begin
  gzda_dm.ADODataSet10.Close; 
  close;
end;

procedure TForm_xsxm_sd.FormShow(Sender: TObject);
var
  ls_bh:string;
  i:integer;
begin
  with gzda_dm.ADODataSet10 do begin
    if active then active:=false;
    commandtext:='select * from daxm_xz order by bh';
    open;
    first;
    i:=0;
    while not eof do begin
      if fieldbyname('bh').AsInteger<10 then
         ls_bh:='0'+fieldbyname('bh').AsString
      else
         ls_bh:=fieldbyname('bh').AsString;
      checklistbox1.Items.Add(ls_bh+'.'+fieldbyname('mc').AsString);
      if fieldbyname('xz').AsBoolean then
         checklistbox1.Checked[i]:=true
      else
         checklistbox1.Checked[i]:=false;
      i:=i+1;
      next;
    end;
    checklistbox1.Refresh;
  end;
end;

procedure TForm_xsxm_sd.BitBtn1Click(Sender: TObject);
var
  i:integer;
begin
  with checklistbox1 do begin
    for i:=0 to Items.Count-1 do begin
        Checked[i]:=false;
    end;
  end;
  checklistbox1.Refresh;
end;

procedure TForm_xsxm_sd.BitBtn2Click(Sender: TObject);
var
  i:integer;
begin
  with gzda_dm.ADODataSet10 do begin
    first;
    for i:=0 to checklistbox1.Items.Count-1 do begin
      edit;
      if checklistbox1.Checked[i] then
         fieldbyname('xz').AsBoolean:=true
      else
         fieldbyname('xz').AsBoolean:=false;
      post;   
      next;
    end;
    UpdateBatch(arALL);
    close;
  end;
  close;
end;


end.