u_qxsd.pas

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

unit U_qxSd;

interface

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

type
  TForm_qxsd = 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_qxsd: TForm_qxsd;

implementation

uses U_gzda_dm;

{$R *.dfm}

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

procedure TForm_qxsd.FormShow(Sender: TObject);
var
  ls_bh:string;
  i:integer;
begin
  with gzda_dm.ADODataSet10 do begin
    if active then active:=false;
    commandtext:='select * from mkmc order by xh';
    open;
    first;
    i:=0;
    while not eof do begin
      checklistbox1.Items.Add(fieldbyname('mkmc').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_qxsd.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_qxsd.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.