frm_s_setgrouppas.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 97 行

unit frm_s_setgrouppas;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, ModalForm, YLabelButton, ChangeImage, StdCtrls, ComCtrls, Menus,
   ExtCtrls, ImgList, UErrDisplay, ModalForm1;

type
   Tfrm_s_setgroup = class(TMyModalForm1)
      lstGroup: TListView;
      ltbgroup: TListBox;
      BtnOk: TChangeImg;
      LBtnOk: TLabelB;
      BtnExit: TChangeImg;
      LBtnExit: TLabelB;
      BtnPrev: TChangeImg;
      BtnNext: TChangeImg;
      procedure FormCreate(Sender: TObject);
      procedure lstGroupDblClick(Sender: TObject);
      procedure BtnNextClick(Sender: TObject);
      procedure BtnOkClick(Sender: TObject);
      procedure BtnExitClick(Sender: TObject);
   private
    { Private declarations }
   public
      GroupList: TStringList;
    { Public declarations }
   end;

var
   frm_s_setgroup: Tfrm_s_setgroup;

implementation

uses DM_DataModal;

{$R *.dfm}

procedure Tfrm_s_setgroup.FormCreate(Sender: TObject);
var
   NewItem: Tlistitem;
begin
   inherited;
   with winddata.PublicQuery do
   begin
      sql.Clear;
      sql.Add('select * from Usr_GroupInfo');
      open;
      while not eof do
      begin
         NewItem := lstgroup.Items.Add;
         NewItem.Caption := fieldbyname('name').asstring;
         NewItem.SubItems.Add(fieldbyname('ms').asstring);
         next;
      end;
   end;
end;

procedure Tfrm_s_setgroup.lstGroupDblClick(Sender: TObject);
var
   i: integer;
   b: boolean;
begin
   inherited;
   if lstgroup.Selected = nil then exit;
   b := True;
   for i := 0 to ltbgroup.Items.Count - 1 do
   begin
      if ltbgroup.Items[i] = lstgroup.Selected.Caption then b := False;
   end;
   if b then
      ltbgroup.Items.Add(lstgroup.Selected.Caption);
end;

procedure Tfrm_s_setgroup.BtnNextClick(Sender: TObject);
begin
   inherited;
   ltbgroup.Items.Delete(ltbgroup.ItemIndex);
end;

procedure Tfrm_s_setgroup.BtnOkClick(Sender: TObject);
begin
   inherited;
   close;
end;

procedure Tfrm_s_setgroup.BtnExitClick(Sender: TObject);
begin
   inherited;
   ltbgroup.Items.Clear;
   close;
end;

end.