unit_manage.pas

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

unit unit_manage;

interface

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

type
  Tmanageform = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit_style: TEdit;
    Label2: TLabel;
    Edit_name: TEdit;
    Label3: TLabel;
    Edit_number: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Edit_user: TEdit;
    Label6: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Bitbtn1: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    Edit_return: TEdit;
   
    procedure BitBtn4Click(Sender: TObject);
    procedure FormShow(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
  manageform: Tmanageform;
  i:integer  ;


implementation

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


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

procedure Tmanageform.FormShow(Sender: TObject);
begin
    with dm1.ADOQuery1 do
  begin
  close;
  sql.Clear;
  sql.Add('select * from manage') ;

  open;
     //  for i:=0 to 5 do
       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:='使用单位' ;
      dbgrid1.Columns.Items[5].FieldName:='交回时间' ;
   end;

end;

procedure Tmanageform.Bitbtn1Click(Sender: TObject);
 var
  Dstr1,Dstr2:string;
  Date1,Date2:TDateTime;
begin
    with dm1.ADOQuery3 do
    begin
    dm1.ADOQuery3.SQL.Clear;
    dm1.ADOQuery3.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;
     dm1.ADOQuery3.Close;
     end;

     with dm1.ADOQuery1 do
   begin
    dm1.ADOQuery1.SQL.Clear;
    sql.Add('select * from manage where 设备序列号='''+Edit_number.Text+'''');
    open;
   if recordcount<>0 then
    begin
     messagedlg('设备序列号<'+Edit_number.Text+'>已经存在',mtError,[mbok],0);
     Edit_number.SetFocus;
     exit;
     end;
   Dstr1:=DateToStr(DateTimePicker1.Date);
   Date1:=StrToDate(Dstr1);

   close;
   sql.Clear;
   sql.Add('insert into manage values(:设备类型,:设备名称, :设备序列号,:配备时间,:使用单位,:交回时间)');
   dm1.ADOQuery1.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:=Edit_user.Text;
   Dstr2:=Edit_return.Text;
   Date2:=StrToDate(Dstr2);
   parameters.ParamByName('交回时间').Value:=Date2;

   dm1.ADOQuery1.ExecSQL;


    showmessage('添加成功!');
    Edit_style.Text:='';
    Edit_name.Text:='';
    Edit_number.Text:='';
    DateTimePicker1.Date:=now;
    Edit_user.Text:='';
    Edit_return.Text:='';

   
    sql.Clear;
    sql.Add('select * from manage');
    open;
    end;

end;

procedure Tmanageform.DBGrid1CellClick(Column: TColumn);
var
 Dstr11:string;
  date11:TDateTime;
begin
  with dm1.ADOQuery1 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;
    Edit_user.Text:=fieldbyname('使用单位').AsString;
     Edit_return.Text:=fieldbyname('交回时间').AsString;
   // date12:=StrToDate(Dstr12);
    //DateTimePicker2.Date:=date12;
    end;
end;

procedure Tmanageform.BitBtn2Click(Sender: TObject);
var
Dstr21,Dstr22:string;
Date21,Date22:TdateTime;
begin
     with dm1.ADOQuery1 do
    begin
    sql.Clear;
     sql.Add('select * from manage  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 manage 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;
    parameters.ParamByName('使用单位').Value:=Edit_user.Text;
    Dstr22:=Edit_return.Text;
    Date22:=StrToDate(Dstr22);
    parameters.ParamByName('交回时间').Value:=Date22;

    execsql;
     showmessage('更改成功!');
     Edit_style.Text:='';
     Edit_name.Text:='';
     Edit_number.Text:='';
      DateTimePicker1.Date:=now;
     Edit_user.Text:='';
     Edit_return.Text:='';
     //DateTimePicker2.Date:=now;

     sql.Clear;
     sql.Add('select * from manage');
     open;
     end;
end;


procedure Tmanageform.BitBtn3Click(Sender: TObject);
begin
    with dm1.ADOQuery1 do
    begin
     sql.Clear;
     sql.Add('select * from manage  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 manage where(设备序列号='''+Edit_number.Text+''')');
    execsql;
    showmessage('删除成功!');
    Edit_style.Text:='';
     Edit_name.Text:='';
     Edit_number.Text:='';
     DateTimePicker1.Date:=now;
     Edit_user.Text:='';
     Edit_return.Text:='';
   // DateTimePicker2.Date:=now;
    sql.Clear;
    sql.Add('select * from manage');
    open;
    end;
    end;
end;

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

end.