fsbjbcx.pas

进销存开发系统

unit Fsbjbcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Fbase, StdCtrls, ExtCtrls, Buttons, DB, ADODB;

type
  TF_sbjbcx = class(TF_base)
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Bevel3: TBevel;
    Label8: TLabel;
    Label9: TLabel;
    Edit8: TEdit;
    Edit9: TEdit;
    GroupBox1: TGroupBox;
    Label10: TLabel;
    Edit10: TEdit;
    Label11: TLabel;
    Edit11: TEdit;
    BitBtn1: TBitBtn;
    procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    pyjm:string;
  end;

var
  F_sbjbcx: TF_sbjbcx;
implementation
  uses Fdm,Fkcsp, Fzct;
{$R *.dfm}

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

procedure TF_sbjbcx.FormShow(Sender: TObject);
begin
  inherited;
  try
    if F_kcsp.change=True then
      with F_kcsp.ADOQuery1 do
      begin
        Edit1.Text:=fieldbyname('fullnamed').AsString;
        Edit2.Text:=fieldbyname('tradecode').AsString;
        Edit3.Text:=fieldbyname('name').AsString;
        Edit4.Text:=fieldbyname('type').AsString;
        Edit5.Text:=fieldbyname('standard').AsString;
        Edit6.Text:=fieldbyname('unit').AsString;
        Edit7.Text:=fieldbyname('produce').AsString;
        Edit8.Text:=fieldbyname('provideinf').AsString;
        Edit9.Text:=fieldbyname('memo').AsString;
        Edit10.Text:=inttostr(fieldbyname('upperlimit').AsInteger);
        Edit11.Text:=inttostr(fieldbyname('lowerlimit').AsInteger);
      end
    else
    begin
      F_kcsp.getspbh(sender);
      Edit2.Text:=F_kcsp.spbh;
    end;
  except
  end;
end;

procedure TF_sbjbcx.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  inherited;
  F_kcsp.change:=False;
end;

procedure TF_sbjbcx.BitBtn2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_sbjbcx.Edit1Change(Sender: TObject);
var
  i:integer;
  hz:string;
begin
  inherited;
  pyjm:='';
  For i:=1 to length(edit1.Text) div 2 do
  begin
    hz:=copy(edit1.Text,i*2-1,2);
    pyjm:=pyjm+F_zct.getpy(hz);
  end;
end;

procedure TF_sbjbcx.BitBtn1Click(Sender: TObject);
var
  zj:integer;
begin
  inherited;
  if (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='') or (Trim(Edit4.Text)='') or (Trim(Edit5.Text)='') or (Trim(Edit6.Text)='') or (Trim(Edit7.Text)='') then
  begin
    Application.MessageBox('请输入完整的信息','提示',mb_ok);
    Exit;
  end;
  if (Trim(Edit10.Text)<>'') and (Trim(Edit11.Text)<>'') then
    if (strtoint(Edit10.Text)<strtoint(Edit11.Text)) then
    begin
      Application.MessageBox('报警上限不能小于报警下限','提示',mb_ok);
      Exit;
    end;
  try
    F_kcsp.ADOQuery1.open;
    if F_kcsp.change=True then
      F_kcsp.ADOQuery1.Edit
    else
    begin
      with F_kcsp.Adoquery1 do  //添加商品信息
      begin
        Close;
        SQL.Clear;
        SQL.Add('Select * from tb_stock where fullnamed ='+''''+Trim(Edit1.Text)+'''');
        Open;
        if F_kcsp.Adoquery1.RecordCount<>0 then    //判断表中是否有该名
        begin
          Application.MessageBox('此名在该表已存在','提示',mb_ok);
          Close;
          SQL.Clear;
          SQL.Add('Select * from tb_stock order by tradecode');
          Open;
          Exit;
        end;
      end;
      F_kcsp.ADOQuery1.Insert;
    end;
    with F_kcsp.ADOQuery1 do
    begin
      fieldbyname('fullnamed').AsString:=Trim(Edit1.Text);
      fieldbyname('tradecode').AsString:= Trim(Edit2.Text);
      fieldbyname('name').AsString:=Trim(Edit3.Text);
      fieldbyname('type').AsString:=Trim(Edit4.Text);
      fieldbyname('standard').AsString:=Trim(Edit5.Text);
      fieldbyname('unit').AsString:=Trim(Edit6.Text);
      fieldbyname('produce').AsString:=Trim(Edit7.Text);
      fieldbyname('provideinf').AsString:=Trim(Edit8.Text);
      fieldbyname('memo').AsString:=Trim(Edit9.Text);
      if Trim(Edit10.Text)<>'' then      //空不为整型
        fieldbyname('upperlimit').AsInteger:=strtoint(Trim(Edit10.Text));
      if Trim(Edit11.Text)<>'' then      //空不为整型
        fieldbyname('lowerlimit').AsInteger:=strtoint(Trim(Edit11.Text));
      fieldbyname('shortcode').AsString:=pyjm;
    end;
    if F_kcsp.change=True then
    begin
      F_kcsp.ADOQuery1.UpdateRecord;
    end;
    if F_kcsp.change=True then
    begin
      F_kcsp.change:=False;
      Close;
    end;
    F_kcsp.ADOQuery1.Post;
    for zj:=0 to self.ComponentCount-1 do
    begin
      if (self.Components[zj] is TEdit) then
        TEdit(self.Components[zj]).Clear;
    end;
    with F_kcsp.Adoquery1 do  //添加商品信息
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from tb_stock order by tradecode');
      Open;
    end;
  except
    Application.MessageBox('保存不成功','提示',mb_ok);
  end;
  if F_kcsp.change<>True then
  begin
    F_kcsp.getspbh(sender);
    Edit2.Text:=F_kcsp.spbh;
  end;
  Edit1.SetFocus;
end;

end.