alarm_adressunit.~pas

完整的ic卡管理软件

unit alarm_adressUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, StdCtrls, Mask, bsSkinBoxCtrls, bsSkinCtrls,
  Grids, DBGrids, ComCtrls, bsSkinTabs, bsSkinGrids, bsDBGrids, bsMessages;

type
  TadressForm = class(TForm)
    bsSkinButton4: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinButton5: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton1: TbsSkinButton;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinDBGrid1: TbsSkinDBGrid;
    bsSkinDBGrid2: TbsSkinDBGrid;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinScrollBar4: TbsSkinScrollBar;
    procedure bsSkinButton4Click(Sender: TObject);
  
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinDBGrid1CellClick(Column: TbsColumn);
    procedure bsSkinDBGrid1DrawColumnCell(Sender: TObject;
      const Rect: TRect; DataCol: Integer; Column: TbsColumn;
      State: TGridDrawState);
    procedure FormShow(Sender: TObject);
    procedure bsSkinDBGrid2TitleClick(Column: TbsColumn);
    procedure bsSkinDBGrid1TitleClick(Column: TbsColumn);
    //procedure bsSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  adressForm: TadressForm;
  bSort:boolean;
implementation
uses
 datamodel;

{$R *.dfm}

procedure TadressForm.bsSkinButton4Click(Sender: TObject);
begin
close;
end;


procedure TadressForm.bsSkinButton5Click(Sender: TObject);
var
 i:integer;
 s:string;
begin
   if length(bsSkinEdit1.Text)<>3 then
    begin
         adressform.bsSkinMessage1.MessageDlg('输入三位手持设备编号',MTINFORMATION,[MBOK],0);
         bsSkinEdit1.SetFocus;
         exit;
    end;
    if bsSkinEdit2.Text='' then
    begin
     adressform.bsSkinMessage1.MessageDlg('机器名称不能为空',MTINFORMATION,[MBOK],0);
     bsskinedit2.SetFocus;
     exit;
    end;
     s:=bsSkinEdit2.Text;
    for i:=1 to length(bsSkinEdit2.Text) do
     begin
           
             if  ord(s[i])<=127 then
         begin
               adressform.bsSkinMessage1.MessageDlg('名称输入不正确!',mtError,[mbok],0);

               exit;
          end;
     end;
 with datamodule1.alarmadressQuery do
  begin
    close;
    sql.Clear;
    sql.Add('select * from alarmDress where adressid=:a');
    parameters[0].Value:=bsSkinEdit1.Text;
    open;
  end;
  IF  datamodule1.alarmadressQuery.Eof then
   begin
     with datamodule1.alarm_adressTable do
       begin

         append;
         fieldByname('adressid').AsString:= bsSkinEdit1.Text;
         fieldByname('address').AsString:=bsSkinEdit2.Text;
        post;
      end;
   end
   else
   begin
        adressform.bsSkinMessage1.MessageDlg('机器编号不能重复，请重新输入!',mtError,[mbok],0);
        bsSkinEdit1.Text:='' ;
   end;
  bsSkinEdit1.Text:='';
  bsSkinEdit2.Text:='';
end;

procedure TadressForm.bsSkinButton3Click(Sender: TObject);
begin
     with datamodule1.alarm_adressTable do
    begin
       delete;
    end;
     bsSkinEdit5.Text:='';
     bsSkinEdit6.Text:='';
end;

procedure TadressForm.bsSkinButton1Click(Sender: TObject);
var
s:string;
i:integer;
begin
     if bsSkinEdit5.Text='' then
    begin

       adressform.bsSkinMessage1.MessageDlg('机器编号不能为空',MTINFORMATION,[MBOK],0);
       bsSkinEdit5.SetFocus;
       exit;
    end;
    if bsSkinEdit6.Text='' then
    begin
     adressform.bsSkinMessage1.MessageDlg('名称不能为空',MTINFORMATION,[MBOK],0);
     bsskinedit6.SetFocus;
     exit;

    end;


      s:=bsSkinEdit6.Text;
    for i:=1 to length(bsSkinEdit6.Text) do
     begin
           
             if  ord(s[i])<=127 then
         begin
               adressform.bsSkinMessage1.MessageDlg('名称输入不正确',MTINFORMATION,[MBOK],0);
               exit;
               
          end;
     end;
     with datamodule1.alarm_adressTable do
    begin
       
       edit;
       fieldByname('adressid').AsString:= bsSkinEdit5.Text;
       fieldByname('address').AsString:=bsSkinEdit6.Text;
       post;
    end;
end;

procedure TadressForm.bsSkinDBGrid1CellClick(Column: TbsColumn);
begin
     with datamodule1.alarm_adressTable do
        begin

           bsSkinEdit5.Text:=fieldByname('adressid').AsString ;
           bsSkinEdit6.Text:=fieldBYname('address').AsString ;

       end;
end;

procedure TadressForm.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:=250;
     bsSkinDBGrid1.Columns[1].Width:=250;

    end;
end;

procedure TadressForm.FormShow(Sender: TObject);
begin
bSort:=true;
datamodule1.alarm_adressTable.Open;//打开数据库连接
end;

procedure TadressForm.bsSkinDBGrid2TitleClick(Column: TbsColumn);
var
    i:integer;
    fieldname:string;

begin//排序

    i:=Column.Index;
    if bSort then
    begin
        fieldname:=bsSkinDBGrid2.Columns[i].FieldName+' ASC';
        bSort:=False;
    end
    else
    begin
        fieldname:=bsSkinDBGrid2.Columns[i].FieldName+' DESC';
        bSort:=True;
    end;

   datamodule1.alarm_adressTable.Sort:=fieldName;
end;
procedure TadressForm.bsSkinDBGrid1TitleClick(Column: TbsColumn);
var
    i:integer;
    fieldname:string;

begin//排序

    i:=Column.Index;
    if bSort then
    begin
        fieldname:=bsSkinDBGrid1.Columns[i].FieldName+' ASC';
        bSort:=False;
    end
    else
    begin
        fieldname:=bsSkinDBGrid1.Columns[i].FieldName+' DESC';
        bSort:=True;
    end;

   datamodule1.alarm_adressTable.Sort:=fieldName;
end;

end.