alarmmisunit.~pas

完整的ic卡管理软件

unit alarmMISUnit;

interface

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

type
  TalarmMISform = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinEdit1: TbsSkinEdit;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinStdLabel3: TbsSkinStdLabel;
    bsSkinEdit3: TbsSkinEdit;
    bsSkinStdLabel4: TbsSkinStdLabel;
    bsSkinEdit4: TbsSkinEdit;
    bsSkinStdLabel5: TbsSkinStdLabel;
    bsSkinEdit5: TbsSkinEdit;
    bsSkinStdLabel6: TbsSkinStdLabel;
    bsSkinEdit6: TbsSkinEdit;
    bsSkinStdLabel7: TbsSkinStdLabel;
    bsSkinMemo1: TbsSkinMemo;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  alarmMISform: TalarmMISform;
  bSort:boolean; ///定义排序

implementation
uses
datamodel;

{$R *.dfm}

procedure TalarmMISform.bsSkinButton3Click(Sender: TObject);
begin
close;
end;

procedure TalarmMISform.bsSkinButton2Click(Sender: TObject);
begin
   with datamodule1.alarmTable do
     begin
      delete;
     end;

             bsskinedit1.Text:='';
             bsskinedit2.Text:='';
             bsskinedit3.Text:='';
             bsskinedit4.Text:='';
             bsskinedit5.Text:='';
             bsskinedit6.Text:='';
             bsskinmemo1.Text:='';
end;

procedure TalarmMISform.bsSkinButton1Click(Sender: TObject);
begin
   if length(bsskinedit1.Text)<3 then
    begin
       alarmMISform.bsSkinMessage1.MessageDlg('输入三位IC卡编号',mtInformation,[mbok],0);
       exit;
    end;
     if length(bsskinedit2.Text)<3 then
    begin
       alarmMISform.bsSkinMessage1.MessageDlg('输入三位值班人员编号',mtInformation,[mbok],0);
       exit;
    end;
     if length(bsskinedit5.Text)<3 then
    begin
       alarmMISform.bsSkinMessage1.MessageDlg('输入三位手持设备编号',mtInformation,[mbok],0);
       exit;
    end;
    with datamodule1.alarmTable do
     begin
      edit;
      fieldByname('carid').AsString:= bsskinedit1.Text ;
      fieldByname('personID').AsString:= bsskinedit2.Text;
      fieldByname('Aname').AsString:= bsskinedit3.Text;
      fieldByname('Adate').AsString:= bsskinedit4.Text;
      fieldByname('alarmAdressid').AsString:= bsskinedit5.Text;
      fieldByname('deal').AsString:= bsskinedit6.Text;
      fieldByname('memo').AsString:=bsskinmemo1.Text;
      post;
     end;

end;

procedure TalarmMISform.FormShow(Sender: TObject);
begin
datamodule1.alarmTable.Open;
bSort:=true;
end;

procedure TalarmMISform.DBGrid1CellClick(Column: TColumn);
begin
with datamodule1.alarmTable do
       begin
             bsskinedit1.Text:=fieldByname('carid').AsString;
             bsskinedit2.Text:=fieldByname('personID').AsString;
             bsskinedit3.Text:=fieldByname('Aname').AsString;
             bsskinedit4.Text:=fieldByname('Adate').AsString;
             bsskinedit5.Text:=fieldByname('alarmAdressid').AsString;
             bsskinedit6.Text:=fieldByname('deal').AsString;
            bsskinmemo1.Text:=fieldByname('memo').AsString;
       end;
end;

procedure TalarmMISform.DBGrid1TitleClick(Column: TColumn);
var
    i:integer;
    fieldname:string;
    
begin//排序

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


end.