khxyed.pas

这是用Delphi编写的中小企业管理系统

unit khxyed;
         
interface

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

type
  Tf_xyed = class(Tf_qydm)
    Label3: TLabel;
    Edit3: TEdit;
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);virtual;
    procedure B4Click(Sender: TObject);override;
    procedure B2Click(Sender: TObject);override;
    procedure B3Click(Sender: TObject);override;
    procedure DBGrid1CellClick(Column: TColumn);override;
  private
    { Private declarations }
  public
    Function PDxyed: Boolean;//判断最底信用额度是否大于最高信用额度
    { Public declarations }
  end;

var
  f_xyed: Tf_xyed;

implementation

uses DataModal;

{$R *.dfm}

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

procedure Tf_xyed.B4Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit1.SetFocus;
  with Data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from t_xyed');
    Open;
  end;
  if Data.Query1.RecordCount>0 then
      DataSource1.DataSet := Data.Query1;
end;

procedure Tf_xyed.B2Click(Sender: TObject);
begin
  if (Data.Query1.Active = True)and(Data.Query1.RecordCount>0) then
    if(Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')and(Trim(Edit3.Text)<>'') then
    begin
      if Application.MessageBox('确实要修改当前记录吗?','提示',mb_YesNo)=ID_Yes then
      begin
        Try
          if PDxyed = True then
          begin
            Application.MessageBox('最低信用额度不能大于最高信息额度.','提示',64);
            Exit;
          end;
          with Data.Query2 do
          begin
            Close;
            SQL.Clear;
            SQL.Add('update t_xyed set dj =:a,zdxyed = :b,zgxyed = :c where dj = :d');
            ParamByName('a').AsString := Trim(Edit1.Text);
            ParamByName('b').AsFloat := StrToFloat(Edit2.Text);
            ParamByName('c').AsFloat := StrToFloat(Edit3.Text);
            ParamByName('d').AsString:= Trim(Data.Query1.Fields[0].AsString);
            ExecSQL;
          end;
          Application.MessageBox('修改成功.','提示',64);
          B4.OnClick(Sender);
        Except
          Application.MessageBox('修改失败.','提示',64);
        end;
      end;
    end
    else
      Application.MessageBox('区域信息不完整.','提示',64)
  else
    Application.MessageBox('没有可修改的数据.','提示',64);
end;

procedure Tf_xyed.B3Click(Sender: TObject);
begin
  if (Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')and(Trim(Edit3.Text)<>'') then
    Try
      if PDxyed = True then
      begin
        Application.MessageBox('最低信用额度不能大于最高信息额度.','提示',64);
        Exit;
      end;
      with Data.Query2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('insert t_xyed values(:a,:b,:c)');
        ParamByName('a').AsString := Trim(Edit1.Text);
        ParamByName('b').AsFloat := StrToFloat(Edit2.Text);
        ParamByName('c').AsFloat := StrToFloat(Edit3.Text);
        ExecSQL;
      end;
      Application.MessageBox('操作成功.','提示',64);
      B4.OnClick(Sender);
      B3.Enabled := False;
    Except
      Application.MessageBox('操作失败.','提示',64);
    End
  else
    Application.MessageBox('区域信息不能为空.','提示',64);
end;

procedure Tf_xyed.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  if (Data.Query1.Active = True)and(Data.Query1.RecordCount>0) then
  begin
    Edit3.Text := Data.Query1.Fields[2].AsString;
  end;
end;

function Tf_xyed.PDxyed: Boolean;
begin
  Result := False;
  if StrToFloat(Edit2.Text)> StrToFloat(Edit3.Text)then
    Result := True;
end;

end.