gdzcjsgl.pas

用delphi编写的固定资产管理系统

unit gdzcjsgl;

interface

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

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    SpeedButton1: TSpeedButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Panel3: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Label10: TLabel;
    Edit3: TEdit;
    Panel4: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Label9: TLabel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure ComboBox2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn1Click(Sender: TObject);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation
  uses Dataz;
{$R *.dfm}

procedure TForm7.BitBtn2Click(Sender: TObject);
begin
  DataSource1.DataSet := Nil;
  Label8.Caption := '';
  Label9.Caption := '';
  ComboBox1.Text := '';
  ComboBox2.Text := '';
  Edit2.Clear;
  Edit3.Clear;
  Edit1.Clear;
end;

procedure TForm7.FormShow(Sender: TObject);
begin
  ComboBox1.Clear;
  with Daz.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct 固定资产名称 from 固定资产信息表 where 增减 = 0');
    Open;
  end;
  while Not Daz.ADOQuery1.Eof do
  begin
    ComboBox1.Items.Add(Daz.ADOQuery1.FieldByName('固定资产名称').Value);
    Daz.ADOQuery1.Next;
  end;
  ComboBox2.Clear;
  with Daz.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select 减少方式 from 固定资产减少方式表');
    Open;
  end;
  while Not Daz.ADOQuery1.Eof do
  begin
    ComboBox2.Items.Add(Daz.ADOQuery1.FieldByName('减少方式').Value);
    Daz.ADOQuery1.Next;
  end;
  DateTimePicker1.Date := Now();
  BitBtn2.OnClick(Sender);
end;

procedure TForm7.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm7.BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clBlue;
end;

procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
  if Trim(ComboBox1.Text)<>'' then
  begin
    with Daz.ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 固定资产信息表 where 固定资产名称 = :a');
      Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
      Open;
    end;
    if Daz.ADOQuery2.RecordCount >0 then
    begin
      DataSource1.DataSet := Daz.ADOQuery2;
      Label8.Caption := Daz.ADOQuery2.FieldByName('固定资产编号').Value;
      Label9.Caption := Daz.ADOQuery2.FieldByName('固定资产名称').Value;
    end
    else
    begin
      DataSource1.DataSet := Nil;
      Label8.Caption := '';
      Label9.Caption := '';
    end;
  end;
end;

procedure TForm7.DBGrid1DblClick(Sender: TObject);
begin
  if Daz.ADOQuery2.Active = True then
    if Daz.ADOQuery2.RecordCount >0 then
    begin
      Label8.Caption := Daz.ADOQuery2.FieldByName('固定资产编号').Value;
      Label9.Caption := Daz.ADOQuery2.FieldByName('固定资产名称').Value;
    end;
end;

procedure TForm7.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

procedure TForm7.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  mm: Boolean;
begin
  mm := (Key<#8)or(Key>#8)and(Key<#46)or(Key>#46)and(Key<#48)or(Key>#57);
  if mm then
    Key := #0;
end;

procedure TForm7.BitBtn1Click(Sender: TObject);
begin
  if (Trim(Label8.Caption)<>'')and(Trim(Label9.Caption)<>'')and(Trim(Edit2.Text)<>'')and
    (Trim(ComboBox2.Text)<>'')and(Trim(Edit3.Text)<>'')and(Trim(Edit1.Text)<>'') then
    begin
      Try
      Daz.ADOConnection1.BeginTrans;
      with Daz.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('update 固定资产信息表 set 增减 = 1 where 固定资产编号 = :a');
        Parameters.ParamByName('a').Value := Trim(Label8.Caption);
        ExecSQL;
      end;
      with Daz.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('insert 固定资产减少表 values(:a,:b,:c,:d,:f,:g,:h)');
        Parameters.ParamByName('a').Value := Trim(Label8.Caption);
        Parameters.ParamByName('b').Value := Trim(Label9.Caption);
        Parameters.ParamByName('c').Value := Trim(ComboBox2.Text);
        Parameters.ParamByName('d').Value := StrToFloat(Edit3.Text);
        Parameters.ParamByName('f').Value := StrToFloat(Edit2.Text);
        Parameters.ParamByName('g').Value := Trim(Edit1.Text);
        Parameters.ParamByName('h').Value := DateTimePicker1.Date;
        ExecSQL;
      end;
      Daz.ADOConnection1.CommitTrans;
      self.OnShow(Sender);
      Application.MessageBox('操作成功。','提示',64);
      Except
        Daz.ADOConnection1.RollbackTrans;
        Application.MessageBox('系统出错。','提示',64);
      end;
    end
    else
      Application.MessageBox('项目列表不能为空。','提示',64);
end;

procedure TForm7.ComboBox2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ReTurn then
    Edit2.SetFocus;
end;

procedure TForm7.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = Vk_ReTurn then
    Edit3.SetFocus;
end;

procedure TForm7.DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ReTurn then
    Edit1.SetFocus;
end;

procedure TForm7.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ReTurn then
    DateTimepicker1.SetFocus;
end;

end.