unlostunit.~pas

完整的ic卡管理软件

unit unlostUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, bsdbctrls, StdCtrls, Mask, bsSkinBoxCtrls,
  bsMessages, BusinessSkinForm;

type
  TunlostForm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinMessage1: TbsSkinMessage;
    bsSkinStdLabel1: TbsSkinStdLabel;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinEdit2: TbsSkinEdit;
    bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinDBLookupComboBox1Change(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  unlostForm: TunlostForm;

implementation
uses
 mainUnit,datamodel;

{$R *.dfm}

procedure TunlostForm.bsSkinButton2Click(Sender: TObject);
begin
close;
end;

procedure TunlostForm.bsSkinDBLookupComboBox1Change(Sender: TObject);
begin
 with DataModule1.carQuery  do
    begin
       close;
       sql.Clear;
       sql.Add('select userid from carMIS');
       sql.Add('where carid=:a');
       Parameters[0].Value:=bsSkinDBLookupComboBox1.Text;
       open;
       bsSkinEdit2.Text:=fieldByName('userid').AsString;
    end;
end;
 //IC 卡解挂
procedure TunlostForm.bsSkinButton1Click(Sender: TObject);
begin
with datamodule1.update_carQuery  do
      begin
          close;
          sql.Clear;
          sql.Add('update carMIS set lost=false  where carid=:b');
         // Parameters[0].Value:= bsSkinEdit1.Text;
          Parameters[0].Value:=bsSkinDBLookupComboBox1.Text;
          ExecSQL;
      end;
        unlostform.bsSkinMessage1.MessageDlg('解挂成功',mtInformation,[mbok],0);
end;

procedure TunlostForm.FormShow(Sender: TObject);
begin
datamodule1.carTable.Open;
end;

end.