gdzclr.~pas

由delphi7.0+sql2000开发的固定资产管理程序

unit gdzclr;

interface

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

type
  TForm6 = class(TForm)
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit2: TEdit;
    ComboBox3: TComboBox;
    Edit6: TEdit;
    Edit7: TEdit;
    ComboBox4: TComboBox;
    Edit10: TEdit;
    Edit11: TEdit;
    TabSheet2: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label18: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Label27: TLabel;
    Label28: TLabel;
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    Procedure FindNext;
    Procedure FindPrior;
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    Procedure Clear;
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    Function ISWF: Boolean;//检查列表项是否有负数
    Function IsNull: Boolean;//检查列表项是否为空
    procedure ComboBox4Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit10Change(Sender: TObject);
    procedure Edit15Change(Sender: TObject);
    procedure Edit19Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
  uses Dataz;
{$R *.dfm}

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

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

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

procedure TForm6.Edit8KeyPress(Sender: TObject; var Key: Char);
var
  m: Boolean;
begin
  m := (Key<#8)or(Key>#8)and(Key<#48)or(Key>#57);
  if m then
    Key := #0;
end;

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

procedure TForm6.Clear;
var
  i: Integer;
begin
  Label3.Caption := '';
  DateTimePicker1.Date := Now();
  For i := 0 to TabSheet1.ControlCount-1 do
  begin
    if TabSheet1.Controls[i]is TEdit Then
      TEdit(TabSheet1.Controls[i]).Clear
    else if TabSheet1.Controls[i]is TComboBox Then
      TComboBox(TabSheet1.Controls[i]).Text := '';
  end;
  For i := 0 to TabSheet2.ControlCount-1 do
    if TabSheet2.Controls[i]is TEdit Then
      TEdit(TabSheet2.Controls[i]).Clear;
end;

procedure TForm6.FormShow(Sender: TObject);
begin
  Clear;
  with Daz.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select 类别名称 from 固定资产类别表');
    Open;
  end;
  ComboBox1.Clear;
  if Daz.ADOQuery1.RecordCount>0 then
    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;
  if Daz.ADOQuery1.RecordCount>0 then
    while Not Daz.ADOQuery1.Eof do
    begin
      ComboBox2.Items.Add(Daz.ADOQuery1.FieldByName('增加方式').Value);
      Daz.ADOQuery1.Next;
    end;
    ComboBox3.Clear;
  with Daz.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select 使用状况 from 固定资产使用状况表');
    Open;
  end;
  if Daz.ADOQuery1.RecordCount>0 then
    while Not Daz.ADOQuery1.Eof do
    begin
      ComboBox3.Items.Add(Daz.ADOQuery1.FieldByName('使用状况').Value);
      Daz.ADOQuery1.Next;
    end;
end;

procedure TForm6.BitBtn3Click(Sender: TObject);
begin
  Clear;
  BitBtn1.SetFocus;
end;

procedure TForm6.BitBtn1Click(Sender: TObject);
var
  s,m: String;
  i: integer;
begin
  s:= 'ZC'+ FormatDateTime('yyyymmdd',Now());
  With Daz.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select max(固定资产编号) as ss From 固定资产信息表 ');
    Open;
  end;
  If Daz.ADOQuery1.FieldByName('ss').Value = null then
    s := s + '001'
  else
  begin
    m:= Trim(Daz.ADOQuery1.FieldByName('ss').Value) ;
    i:= StrToInt(Trim(Copy(m,11,8))) ;
    if i<9 then
      s:= s + '00'+ InttoStr(i +1)
    else if i<99 then
      s:= s + '0'+ InttoStr(i +1)
    else
      s:= s +InttoStr(i +1);
  end;
  Label3.Caption := s;
  if PageControl1.ActivePageIndex = 0 then
    Edit1.SetFocus;
end;

procedure TForm6.FindNext;
begin
  if FindNextControl(ActiveControl,True,False,False)is TEdit then
  begin
    if TEdit(FindNextControl(ActiveControl,True,False,False)).Enabled = True then
      TEdit(FindNextControl(ActiveControl,True,False,False)).SetFocus;
  end
  else if  FindNextControl(ActiveControl,True,False,False)is TComboBox then
     TComboBox(FindNextControl(ActiveControl,True,False,False)).SetFocus
  else if  FindNextControl(ActiveControl,True,False,False)is TDateTimePicker then