login_dc.pas

根据箱号

unit login_DC;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Cmodel, Menus, StdCtrls, ExtCtrls, Buttons, Grids, DBGrids, DB,
  ADODB, DBTables, XPMenu;

type
  Tlogin_d = class(Tmodel)
    Panel1: TPanel;
    StaticText1: TStaticText;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    XPMenu1: TXPMenu;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DataSource1DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login_d: Tlogin_d;
  dir1:string;

implementation
   uses ztxzC, ztmodifyC;
{$R *.dfm}

procedure Tlogin_d.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 // inherited;

end;

procedure Tlogin_d.DBGrid1DblClick(Sender: TObject);
begin
  inherited;
  bitbtn1.Click;
end;

procedure Tlogin_d.N1Click(Sender: TObject);
begin
  inherited;
  Application.CreateForm(Tztxz, ztxz);
  if ztxz.ShowModal=mrok then
     login_d.FormShow(sender);
end;

procedure Tlogin_d.N2Click(Sender: TObject);
begin
  inherited;
  Application.CreateForm(Tztmodify, ztmodify);
  if ztmodify.ShowModal=mrok then
     login_d.FormShow(sender);
end;

procedure Tlogin_d.N3Click(Sender: TObject);
var
  ztmc:string;
begin
  inherited;
  ztmc:=dbgrid1.Fields[0].Value;
  if application.MessageBox(pchar('是否删除账套名称为【'+ztmc+'】？'),'温馨提示',mb_yesno)=id_yes then
     begin
       adocommand1.CommandText:='delete from login where 账套名称='''+dbgrid1.Fields[0].Value+'''';
       adocommand1.Execute;
       login_d.FormShow(sender);
    end;
end;

procedure Tlogin_d.FormActivate(Sender: TObject);
begin
  inherited;
  dbgrid1.Refresh;
end;

procedure Tlogin_d.FormShow(Sender: TObject);
begin
  inherited;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select * from login order by 使用频率 desc');
  adoquery1.Open;
end;

procedure Tlogin_d.BitBtn1Click(Sender: TObject);
begin
  inherited;
   adocommand1.CommandText:='update login set 使用频率=''1'' where 账套名称='''+dbgrid1.Fields[0].Value+'''';
   adocommand1.Execute;
   adocommand1.CommandText:='update login set 使用频率='''' where 账套名称<>'''+dbgrid1.Fields[0].Value+'''';
   adocommand1.Execute;
end;

procedure Tlogin_d.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  inherited;
  if adoquery1.RecordCount=0 then
     begin
        n2.Enabled:=false;
        n3.Enabled:=false;
     end
  else
     begin
        n2.Enabled:=true;
        n3.Enabled:=true;
     end;
end;

end.