appadress.~pas

完整的ic卡管理软件

unit appadress;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, bsSkinGrids, bsDBGrids, BusinessSkinForm, ComCtrls,
  Grids, DBGrids;

type
  TAppadressForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton1: TbsSkinButton;
    DBGrid1: TDBGrid;
    procedure bsSkinDBGrid1DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TbsColumn;
      State: TGridDrawState);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AppadressForm: TAppadressForm;

implementation
 uses
  datamodel,alterUnit;
{$R *.dfm}

procedure TAppadressForm.bsSkinDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TbsColumn;
  State: TGridDrawState);
var
i:integer;
begin
{  for i :=0 to (Sender as TbsSkinDBGrid).Columns.Count-1 do
    begin
     case i of

     0: (Sender as TbsSkinDBGrid).Columns[i].Title.Caption :='机器编号';
     1: (Sender as TbsSkinDBGrid).Columns[i].Title.Caption :='机器名称';

    end;
     bsSkinDBGrid1.Columns[0].Width:=100;
     bsSkinDBGrid1.Columns[1].Width:=250;

    end;}
end;

procedure TAppadressForm.bsSkinButton1Click(Sender: TObject);
begin
close;
end;

procedure TAppadressForm.bsSkinDBGrid1CellClick(Column: TbsColumn);
var
i:integer;

adress,id:string;
begin
    with alterform do
     begin
      with datamodule1.alarm_adressTable  do
       begin
          for i:=0 to bsskinlistView1.Items.Count-1 do
             begin
                if bsskinlistView1.Items[i].Caption=fieldByName('adressid').AsString then
                exit;
             end;
                id:=FieldByname('adressid').AsString;
                adress:=FieldByName('address').AsString;
                aListItem:=bsSkinListView1.Items.Add;
                aListItem.Caption:=id;
                aListItem.SubItems.Add(adress);
                appadressform.Close;
       end;
     end;
end;

procedure TAppadressForm.DBGrid1CellClick(Column: TColumn);
var
i:integer;

adress,id:string;
begin
    with alterform do
     begin
      with datamodule1.alarm_adressTable  do
       begin
          for i:=0 to bsskinlistView1.Items.Count-1 do
             begin
                if bsskinlistView1.Items[i].Caption=fieldByName('adressid').AsString then
                
                exit;
               
             end;
                id:=FieldByname('adressid').AsString;
                adress:=FieldByName('address').AsString;
                aListItem:=bsSkinListView1.Items.Add;
                aListItem.Caption:=id;
                aListItem.SubItems.Add(adress);
                alistItem.Checked:=true;
                appadressform.Close;
       end;
     end;
end;

end.