u_xgkl.pas

钢筋拉伸系统,是一个图形和数据库结合在一起的技术体现

unit U_Xgkl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls,u_public;

type
  TFrm_Xgkl = class(TForm)
    GroupBox1: TGroupBox;
    Lvw_Lb: TListView;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Lvw_list();
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Lvw_LbSelectItem(Sender: TObject; Item: TListItem;
      Selected: Boolean);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Xgkl: TFrm_Xgkl;
   M_bool:boolean;
implementation
  uses u_kl_set;
{$R *.dfm}

procedure TFrm_Xgkl.BitBtn4Click(Sender: TObject);
begin
  
  self.Close;

end;

procedure TFrm_Xgkl.BitBtn1Click(Sender: TObject);
begin
   frm_kl_set:=Tfrm_kl_set.Create(self);
   frm_kl_set.ShowModal; 
end;
procedure Tfrm_Xgkl.Lvw_list();
  var
     I:integer;
   begin
      self.Lvw_Lb.Items.Clear;
     for i:=1 to 200 do
       begin
          if use_kl[i].Use_Enable=true then
             begin
              with  self.Lvw_Lb.Items.add do
                begin
                   Caption:=inttostr(use_kl[i].use_id);
                   Subitems.Add(use_kl[i].Use_Name);
                end;
             end;
       end;
   end;
procedure TFrm_Xgkl.FormShow(Sender: TObject);
begin
  Lvw_list;
end;

procedure TFrm_Xgkl.BitBtn2Click(Sender: TObject);
  var
  i:integer;
begin
  if  M_bool=true then
    begin
      i:=strtoint(self.Lvw_Lb.Selected.caption);
      use_change(i,'a','a',false,Extractfilepath(application.ExeName));
      lvw_list;
       M_bool:=false;
   end;
end;

procedure TFrm_Xgkl.Lvw_LbSelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
   M_bool:=true;
end;

procedure TFrm_Xgkl.BitBtn3Click(Sender: TObject);
  var
   Password2:string;
   password1:string;
   i:integer;
   Name:string;
begin
if M_bool=true then
    begin
     password1:=inputbox('','请输入原口令！','');
     password2:=inputbox('','请输入新口令！','');
     i:=strtoint(self.Lvw_Lb.Selected.Caption);
     m_bool:=false;
    if use_kl[i].Use_PassWord<>password1 then
       begin
          application.MessageBox('原口令不正确，不能修改！','明日科技');
          exit;
       end;
      name:=self.Lvw_Lb.Selected.SubItems[0];
      use_change(i,name,password2,true,Extractfilepath(application.ExeName));
      lvw_list;
    end;
end;

end.