fzyjbcx.pas

功能强大,画面精致.是一款不可多得的进销存管理系统 acess数据库,用户名:yuansheng 密码:yuansheng 建议在xp系统下运行。

unit Fzyjbcx;

interface

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

type
  TF_zyjbcx = class(TF_base)
    Bevel1: TBevel;
    Bevel2: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel3: TBevel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_zyjbcx: TF_zyjbcx;
  pyjm:string;
implementation

uses Fzycx, Fzct, Fkcsp;

{$R *.dfm}

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

procedure TF_zyjbcx.FormShow(Sender: TObject);
begin
  inherited;
  try
    if F_zycx.change=True then
      with F_zycx.ADOQuery1 do
      begin
        Edit1.Text:=fieldbyname('employecode').AsString;
        Edit2.Text:=fieldbyname('fullname').AsString;
        Edit3.Text:=fieldbyname('name').AsString;
        combobox1.Text:=fieldbyname('sex').AsString;
        Edit4.Text:=fieldbyname('department').AsString;
        Edit5.Text:=fieldbyname('tel').AsString;
        Edit6.Text:=fieldbyname('memo').AsString;
      end
    else
    begin
      F_zycx.getspbh(sender);
      Edit1.Text:=F_zycx.spbh;
    end;
  except
  end;
end;

procedure TF_zyjbcx.BitBtn1Click(Sender: TObject);
var
  zj:integer;
begin
  inherited;
  if (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='')  then
  begin
    Application.MessageBox('请输入完整的信息','提示',mb_ok);
    Exit;
  end;
  try
    if F_zycx.change=True then
      F_zycx.ADOQuery1.Edit
    else
    begin
      with F_zycx.Adoquery1 do  //查找职员信息
      begin
        Close;
        SQL.Clear;
        SQL.Add('Select * from tb_employ where fullname='+''''+Trim(Edit2.Text)+'''');
        Open;
        if F_zycx.Adoquery1.RecordCount<>0 then    //判断表中是否有该名
        begin
          Application.MessageBox('此名在该表已存在','提示',mb_ok);
          Close;
          SQL.Clear;
          SQL.Add('Select * from tb_employ order by employecode');
          Open;
          Exit;
        end;
      end;
      F_zycx.ADOQuery1.Insert;
    end;
    with F_zycx.ADOQuery1 do
    begin
      fieldbyname('employecode').AsString:=Trim(Edit1.Text);
      fieldbyname('fullname').AsString:= Trim(Edit2.Text);
      fieldbyname('name').AsString:=Trim(Edit3.Text);
      fieldbyname('sex').AsString:=Trim(combobox1.Text);
      fieldbyname('department').AsString:=Trim(Edit4.Text);
      fieldbyname('tel').AsString:=Trim(Edit5.Text);
      fieldbyname('memo').AsString:=Trim(Edit6.Text);
      fieldbyname('shortcode').AsString:=pyjm;
    end;
    if F_zycx.change=True then
    begin
      F_zycx.ADOQuery1.UpdateRecord;
    end;
    F_zycx.ADOQuery1.Post;
    if F_zycx.change=True then
    begin
      F_zycx.change:=False;
      Close;
    end;
    for zj:=0 to self.ComponentCount-1 do
    begin
      if (self.Components[zj] is TEdit) then
        TEdit(self.Components[zj]).Clear;
    end;
    with F_zycx.Adoquery1 do  //添加职员信息
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from tb_employ order by employecode');
      Open;
    end;
  except
    Application.MessageBox('保存不成功','提示',mb_ok);
  end;
  if F_zycx.change<>True then
  begin
    F_zycx.getspbh(sender);
    Edit1.Text:=F_zycx.spbh;
  end;
  Edit1.SetFocus;
end;

procedure TF_zyjbcx.BitBtn2Click(Sender: TObject);
begin
  inherited;
  close;
end;

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

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

end.