u_dyxm_sd.pas

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

unit U_dyxm_sd;

interface

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

type
  TForm_dyxm_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 FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_dyxm_sd: TForm_dyxm_sd;

implementation

uses U_gzda_dm;

{$R *.dfm}

procedure TForm_dyxm_sd.FormShow(Sender: TObject);
var
  i:integer;
begin
  with gzda_dm.ADODataSet_cx do begin
    if active then active:=false;
    commandtext:='select * from dyxm order by xh';
    open;
    first;
    CheckListBox1.Items.Clear;
    i:=0;
    while not eof do begin
      CheckListBox1.Items.Add(fieldbyname('xh').AsString+'.'+fieldbyname('mc').AsString);
      if fieldbyname('dybz').AsBoolean then
         CheckListBox1.Checked[i]:=true;
      i:=i+1;   
      next;
    end;
  end;
end;

procedure TForm_dyxm_sd.BitBtn3Click(Sender: TObject);
var
  i:integer;
begin
  gzda_dm.ADODataSet_cx.First;
  for i:=0 to CheckListBox1.Items.Count-1 do begin
      gzda_dm.ADODataSet_cx.Edit;
      gzda_dm.ADODataSet_cx.FieldByName('dybz').AsBoolean:=CheckListBox1.Checked[i];
      gzda_dm.ADODataSet_cx.post;
      gzda_dm.ADODataSet_cx.Next;
  end;
  with gzda_dm.ADODataSet_cx do begin
    if active then
       begin
         UpdateBatch(arALL);
         close;
       end;
  end;
  close;
end;

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

procedure TForm_dyxm_sd.BitBtn2Click(Sender: TObject);
var
  i:integer;
begin
  gzda_dm.ADODataSet_cx.First;
  for i:=0 to CheckListBox1.Items.Count-1 do begin
      gzda_dm.ADODataSet_cx.Edit;
      gzda_dm.ADODataSet_cx.FieldByName('dybz').AsBoolean:=CheckListBox1.Checked[i];
      gzda_dm.ADODataSet_cx.post;
      gzda_dm.ADODataSet_cx.Next;
  end;
  with gzda_dm.ADODataSet_cx do begin
    if active then
       begin
         UpdateBatch(arALL);
         showmessage('数据已存盘!!');
       end;
    first;
  end;
end;

end.