【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了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_k