ffylxcx.pas

操作系统：Windows ME/2000/XP 开发工具：Delphi 7.0 数据库：SQL Server 2000 硬件配置：CPU：Pentium 200MHz 以上 内存：32MBRA

unit Ffylxcx;

interface

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

type
  TF_fylxcx = class(TF_base)
    Bevel1: TBevel;
    Bevel2: TBevel;
    Bevel3: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_fylxcx: TF_fylxcx;
  pyjm:string;    //拼音简码
implementation
  uses Ffylx,Fzct, Fkcsp;
{$R *.dfm}

procedure TF_fylxcx.FormShow(Sender: TObject);
begin
  inherited;
  try
    if F_fylx.change=True then
      with F_fylx.ADOQuery1 do
      begin
        Edit1.Text:=fieldbyname('subjectcode').AsString;
        Edit2.Text:=fieldbyname('fullname').AsString;
        Edit3.Text:=fieldbyname('name').AsString;
        Edit4.Text:=fieldbyname('memo').AsString;
      end;
  except
  end;
end;

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

procedure TF_fylxcx.BitBtn1Click(Sender: TObject);
var
  zj:integer; //组件数目
begin
  inherited;
  if (Trim(Edit2.Text)='') or (Trim(Edit3.Text)='') or (Trim(Edit1.Text)='')  then
  begin
    Application.MessageBox('请输入完整的信息','提示',mb_ok);
    Exit;
  end;
  try
    if F_fylx.change=True then
    begin
      F_fylx.ADOQuery1.Edit;
      with F_fylx.ADOQuery1 do  //修改信息
      begin
        fieldbyname('subjectcode').AsString:=Trim(Edit1.Text);
        fieldbyname('fullname').AsString:= Trim(Edit2.Text);
        fieldbyname('name').AsString:=Trim(Edit3.Text);
        fieldbyname('memo').AsString:=Trim(Edit4.Text);
        fieldbyname('shortcode').AsString:=pyjm;
      end;
      F_fylx.ADOQuery1.UpdateRecord;
      F_fylx.ADOQuery1.Post;
    end;
    ////////////////////////////////
    if F_fylx.change<>True then
    begin
      with F_fylx.Adoquery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('Select * from tb_feetype where subjectcode='+''''+Trim(Edit1.Text)+'''');
        Open;
        if F_fylx.Adoquery1.RecordCount<>0 then    //判断表中是否有该名
        begin
          Application.MessageBox('此编号在该表已存在','提示',mb_ok);
          Close;
          SQL.Clear;
          SQL.Add('Select * from tb_feetype order by subjectcode');
          Open;
          Exit;
        end;
      end;
      F_fylx.ADOQuery1.Insert;   //添加信息
      with F_fylx.ADOQuery1 do
      begin
        fieldbyname('subjectcode').AsString:=Trim(Edit1.Text);
        fieldbyname('fullname').AsString:= Trim(Edit2.Text);
        fieldbyname('name').AsString:=Trim(Edit3.Text);
        fieldbyname('memo').AsString:=Trim(Edit4.Text);
        fieldbyname('shortcode').AsString:=pyjm;
      end;
      F_fylx.ADOQuery1.Post;
    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_fylx.Adoquery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from tb_feetype order by subjectcode');
      Open;
    end;
  except
    Application.MessageBox('保存不成功','提示',mb_ok);
  end;
  F_fylx.change:=False;
  Edit1.SetFocus;
end;

procedure TF_fylxcx.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;

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

end.