unit_scrap.pas

delphi开发的简单的在固定资产管理系统

unit unit_scrap;

interface

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

type
  Tscrapform = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Edit_style: TEdit;
    Edit_name: TEdit;
    Edit_number: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure FormShow(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  scrapform: Tscrapform;
  i:integer;

implementation

{$R *.dfm}
uses
  DM,unit_main;

procedure Tscrapform.FormShow(Sender: TObject);
begin
     with dm1.ADOQuery3 do
     begin
     close;
     sql.Clear;
     sql.Add('select * from scrap');
     open;
  
       dbgrid1.Columns.Add;
      dbgrid1.Columns.Items[0].FieldName:='设备类型' ;
      dbgrid1.Columns.Items[1].FieldName:='设备名称' ;
      dbgrid1.Columns.Items[2].FieldName:='设备序列号' ;
      dbgrid1.Columns.Items[3].FieldName:='配备时间' ;
      dbgrid1.Columns.Items[4].FieldName:='报废时间' ;
      end;

end;

procedure Tscrapform.BitBtn4Click(Sender: TObject);
begin
     close;
  mainform.WindowState:=wsNormal;
end;

procedure Tscrapform.BitBtn1Click(Sender: TObject);
 var
  Dstr1,Dstr2:string;
  Date1,Date2:TDateTime;
begin
  with dm1.ADOQuery3 do
   begin
   dm1.ADOQuery1.Close;
   dm1.ADOQuery3.SQL.Clear;
   sql.Add('select * from scrap where 设备序列号=:设备序列号');
   parameters.ParamByName('设备序列号').Value:= Edit_number.Text;
   open;
   if recordcount<>0 then
    begin
     messagedlg('设备序列号<'+Edit_number.Text+'>已经在报废列表中!',mtError,[mbok],0);
     Edit_number.SetFocus;
     exit;
     end;
     close;
   Dstr1:=DateToStr(DateTimePicker1.Date);
   Date1:=StrToDate(Dstr1);
   Dstr2:=DateToStr(DateTimePicker2.Date);
   Date2:=StrToDate(Dstr2);

  dm1.ADOQuery3.SQL.Clear;
  sql.Add('insert into scrap values(:设备类型,:设备名称, :设备序列号,:配备时间,:报废时间)');
  parameters.ParamByName('设备类型').Value:=Edit_style.Text;
  parameters.ParamByName('设备名称').Value:=Edit_name.Text;
  parameters.ParamByName('设备序列号').Value:=Edit_number.Text;
  parameters.ParamByName('配备时间').Value:=Date1;
  parameters.ParamByName('报废时间').Value:=Date2;
  dm1.ADOQuery3.ExecSQL;
  showmessage('添加报废信息成功!');
 
   close;
   sql.Clear;
   sql.Add('select * from scrap');
   open;
   end;
   with dm1.ADOQuery1 do
   begin
   dm1.ADOQuery1.SQL.Clear;
   dm1.ADOQuery1.SQL.Add('delete * from manage where 设备序列号='''+Edit_number.Text+'''');
   dm1.ADOQuery1.ExecSQL;
    Edit_style.Text:='';
     Edit_name.Text:='';
     Edit_number.Text:='';
     DateTimePicker1.Date:=now;
     DateTimePicker2.Date:=now;
   end;

end;



procedure Tscrapform.DBGrid1CellClick(Column: TColumn);
var
 Dstr11,Dstr12:string;
 date11,date12:TDateTime;
begin
     with dm1.ADOQuery3 do
  begin
    Edit_style.Text:=fieldbyname('设备类型').AsString;
    Edit_name.Text:=fieldbyname('设备名称').AsString;
    Edit_number.Text:=fieldbyname('设备序列号').AsString;
    Dstr11:=fieldbyname('配备时间').AsString;
    date11:=StrToDate(Dstr11);
    DateTimePicker1.Date:=date11;
    Dstr12:=fieldbyname('报废时间').AsString;
    date12:=StrToDate(Dstr12);
    DateTimePicker2.Date:=date12;
    end;
end;

procedure Tscrapform.BitBtn2Click(Sender: TObject);
var
Dstr21,Dstr22:string;
Date21,Date22:TdateTime;
begin
    with dm1.ADOQuery3 do
    begin
    sql.Clear;
     sql.Add('select * from scrap  where (设备序列号='''+Edit_number.Text+''')');
     open;
     if    recordcount = 0 then
     begin
     messagedlg('设备序列号<'+Edit_number.Text+'>不存在',mtError,[mbok],0);
     Edit_number.SetFocus;
     exit;
     end;
    close;
    sql.Clear;
    sql.Add('update scrap set 设备类型=:设备类型,设备名称=:设备名称,配备时间=:配备时间,报废时间=:报废时间 where 设备序列号='''+Edit_number.Text+'''');
    parameters.ParamByName('设备类型').Value:=Edit_style.Text;
    parameters.ParamByName('设备名称').Value:=Edit_name.Text;
    Dstr21:=DateToStr(DateTimePicker1.Date);
    Date21:=StrToDate(Dstr21);
    parameters.ParamByName('配备时间').Value:=Date21;
     Dstr22:=DateToStr(DateTimePicker2.Date);
    Date22:=StrToDate(Dstr22);
    parameters.ParamByName('报废时间').Value:=Date22;
    execsql;
     showmessage('更改成功!');
     Edit_style.Text:='';
     Edit_name.Text:='';
     Edit_number.Text:='';
     DateTimePicker1.Date:=now;
     DateTimePicker2.Date:=now;
     sql.Clear;
     sql.Add('select * from scrap');
     open;
     end;
end;

procedure Tscrapform.BitBtn3Click(Sender: TObject);
begin
    with dm1.ADOQuery3 do
    begin
     sql.Clear;
     sql.Add('select * from scrap  where (设备序列号='''+Edit_number.Text+''')');
     open;
     if    recordcount = 0 then
     begin
     messagedlg('设备序列号<'+Edit_number.Text+'>不存在',mtError,[mbok],0);
     Edit_number.SetFocus;
     exit;
     end;
   if messagedlg('确认删除？', mtconfirmation,[mbYes,mbNo],0)=mrNo   then
     exit;
     begin
    close;
    sql.Clear;
    sql.Add('delete from scrap where(设备序列号='''+Edit_number.Text+''')');
    execsql;
    showmessage('删除成功!');
    Edit_style.Text:='';
     Edit_name.Text:='';
     Edit_number.Text:='';
     DateTimePicker1.Date:=now;
     DateTimePicker2.Date:=now;
    sql.Clear;
    sql.Add('select * from scrap');
    open;
    end;

    end;
end;



procedure Tscrapform.FormCreate(Sender: TObject);
begin
     DateTimePicker1.Date:=now;
     DateTimePicker2.Date:=now;
end;

end.