lostunit.~pas

来自「完整的ic卡管理软件」· ~PAS 代码 · 共 72 行

unit lostUnit;

interface

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

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

var
  lostForm: TlostForm;

implementation
uses
 datamodel,mainUnit;

{$R *.dfm}

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

procedure TlostForm.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;
//挂失
procedure TlostForm.bsSkinButton1Click(Sender: TObject);
begin
  with datamodule1.update_carQuery  do
      begin
          close;
          sql.Clear;
          sql.Add('update carMIS set lost=true  where carid=:b');
         // Parameters[0].Value:= bsSkinEdit1.Text;
          Parameters[0].Value:=bsSkinDBLookupComboBox1.Text;
          ExecSQL;
      end;
        lostform.bsSkinMessage1.MessageDlg('挂失成功',mtInformation,[mbok],0);
end;

end.