unit5.~pas

材料管理系统

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,ADODB;

type
  Tfrmxiugaicailiao = class(TForm)
    DateTimePicker1: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label5: TLabel;
    Edit4: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function IsNotNumric(const ScrString:string):boolean;
    function IsEmpty(const ScrString:string):boolean;
    procedure clear();
  end;

var
  frmxiugaicailiao: Tfrmxiugaicailiao;
  cailiaoming:string;
  cailiaoclass:string;

implementation

uses Unit2;

{$R *.dfm}
procedure TFrmxiugaicailiao.clear();
begin
  edit1.Clear;
  edit2.Clear;
  edit3.Clear;
  edit4.Clear;
end;


function Tfrmxiugaicailiao.IsEmpty(const ScrString:string):boolean;
begin
  if trim(ScrString)='' then
    IsEmpty:=true
  else
    IsEmpty:=false;
end;

function Tfrmxiugaicailiao.IsNotNumric(const ScrString:string):boolean;
var
  c:string;
  i:integer;
  BoolResult:Boolean;
  cnt:integer;
begin
  cnt:=0;
  BoolResult := FALSE;
  if copy(ScrString,1,1)='.' then
    cnt:=1;
  for i := 2 to length(Scrstring) do
  begin
    //c:=PChar(copy(ScrString,i,1))^;
    c := Copy(ScrString,i,1);
    if c='-' then
    begin
      BoolResult:=true;
      break;
    end;
    if c = '.' then
    begin
      cnt:=cnt+1;
      if cnt>1 then
      begin
          boolResult:=true;
          break;
      end;
    end;

//    else
//      BoolResult:=false;
  end;
  Result := BoolResult;
end;

procedure Tfrmxiugaicailiao.Button2Click(Sender: TObject);
begin
  self.Close;
end;

procedure Tfrmxiugaicailiao.FormCreate(Sender: TObject);
begin
  datetimepicker1.DateTime := date;
end;

procedure Tfrmxiugaicailiao.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8,'.','-'] ) then
    key:=#0;
end;

procedure Tfrmxiugaicailiao.Button1Click(Sender: TObject);
var
  Query1:TADOQuery;
  cailiaoming:string;
  guigexinghao:string;
  danwei:string;
  danjia:string;
  riqi:string;
begin
  if IsEmpty(edit1.Text)=true then
  begin
    application.MessageBox('材料名称不能为空!','提示',MB_ICONINFORMATION);
    exit;
  end;
  if IsEmpty(edit3.Text)=true then
  begin
    application.MessageBox('单位不能为空!','提示',MB_ICONINFORMATION);
    exit;
  end;
  if IsEmpty(edit4.Text)=true then
  begin
    application.MessageBox('单价不能为空!','提示',MB_ICONINFORMATION);
    exit;
  end;
  cailiaoming :=trim(edit1.text);
  guigexinghao :=trim(edit2.text);
  danwei :=trim(edit3.text);
  danjia :=trim(edit4.text);
  riqi :=DateToStr(datetimepicker1.date);
try
  Query1 := TADOQuery.Create(nil);
  Query1.Connection := frmmain.ADOConnection1;
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('update cailiao set cailiaoming='''+cailiaoming+''',guigexinghao='''+
    guigexinghao+''',danwei='''+danwei+''',danjia='+danjia+',riqi='''+riqi+''''+
    ' where class='''+cailiaoclass+''' and cailiaoming='''+cailiaoming+'''');
  Query1.Prepared;
  Query1.ExecSQL;
except
  showmessage('系统出错.');
end;
with Query1 do       //修改完成后对
begin
  close;
  sql.Clear;
  sql.Add('select * from cailiao');
  prepared;
  open;
end;
FreeAndNil(Query1);
end;
end.