man_check.pas

delphi的一个开发实例

unit Man_Check;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, XPMenu, StdCtrls, Buttons;

type
  Tfrm_Man_Check = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    XPMenu1: TXPMenu;
    ListView1: TListView;
    Panel2: TPanel;
    Cmd_OK: TSpeedButton;
    Cmd_NO: TSpeedButton;
    XPMenu2: TXPMenu;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure Cmd_OKClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_Man_Check: Tfrm_Man_Check;

implementation

uses Data, func, Examine_Verify;

{$R *.dfm}

procedure Tfrm_Man_Check.FormShow(Sender: TObject);
var
    ListItem: TListItem;
begin
    ListView1.Columns[0].Width:=80;
    ListView1.Columns[1].Width:=90;
    ListView1.Columns[2].Width:=127;
    ListView1.Clear;
    with frm_data.ClientDataSet_Add do
    begin
        Close;
        CommandText:='';
        CommandText:='Select * from [employee]';
        Open;
        while not Eof  do
        begin
            with ListView1 do
            begin
                ListItem := Items.Add;
                Listitem.Caption :=frm_data.ClientDataSet_Add.FieldValues['employee_NO'];
                Listitem.SubItems.Add(frm_data.ClientDataSet_Add.FieldValues['employee_name']);//
                Listitem.SubItems.Add(frm_data.ClientDataSet_Add.FieldValues['Part_name']);
            end;
            Next;
        end;
    end;
end;

procedure Tfrm_Man_Check.ListView1Click(Sender: TObject);
var
    i:Integer;
begin
    man_Select:='';Edit1.Clear;Edit1.Text:='';
    for i:=0 to listview1.Items.Count-1 do
    begin
        if ListView1.Items[i].Checked=True then
        begin
            man_Select:=man_Select+listview1.Items[i].SubItems[0]+',';
            Edit1.Text:=Trim(Edit1.Text)+listview1.Items[i].SubItems[0]+',';
        end;
    end;
end;

procedure Tfrm_Man_Check.Cmd_OKClick(Sender: TObject);
begin
    if Man_Public_Code='SH_01' then
    begin
        man_Select:=man_Select;
        frm_Examine_Verify.Edit11.Text:=man_select;
        Close;
    end;
    if Man_Public_Code='SH_02' then
    begin
        man_Select:=man_Select;
        frm_Examine_Verify.Edit22.Text:=man_select;
        Close;
    end;
    if Man_Public_Code='SH_03' then
    begin
        man_Select:=man_Select;
        frm_Examine_Verify.Edit33.Text:=man_select;
        Close;
    end;
    if Man_Public_Code='SH_04' then
    begin
        man_Select:=man_Select;
        frm_Examine_Verify.Edit44.Text:=man_select;
        Close;
    end;
    if Man_Public_Code='SH_05' then
    begin
        man_Select:=man_Select;
        frm_Examine_Verify.Edit55.Text:=man_select;
        Close;
    end;
end;

end.