p_addgly.pas

图书出版行业 对于图书样稿/清样/样书/成书的质检环节控制

unit p_addgly;

interface

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

type
  Tf_addgly = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit4: TEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_addgly: Tf_addgly;

implementation

uses p_gly;

{$R *.dfm}

procedure Tf_addgly.Button1Click(Sender: TObject);
var
  zj:integer;

begin

 if (Trim(edit1.Text)='') or (Trim(edit2.Text)='') or (Trim(edit3.Text)='') then
  begin
    Application.MessageBox('请输入完整的信息','提示',mb_ok);
    Exit;
  end;

  try
    F_gly.Query_gly.open;
    if F_gly.change=True then
      F_gly.Query_gly.Edit
      else
      begin
         with F_gly.query_gly do  //添加管理员信息
           begin
           Close;
           SQL.Clear;
           SQL.Add('Select * from 管理员表 order by id');
           Open;
           end;
        F_gly.Query_gly.Insert;
      end;
      with F_gly.Query_gly do
      begin
        fieldbyname('简称').AsString:=Trim(edit1.Text);
        fieldbyname('密码').AsString:=Trim(edit2.Text);
        fieldbyname('姓名').AsString:=Trim(edit3.Text);
        fieldbyname('权限').Asstring:=Trim(edit4.Text);
      end;
    if F_gly.change=True then
      begin
        F_gly.Query_gly.UpdateRecord;
      end;
    if F_gly.change=True then
      begin
        F_gly.change:=False;
        Close;
      end;
    F_gly.Query_gly.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_gly.query_gly do  //刷新管理员信息
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from 管理员表');
      Open;
    end;
  except
    Application.MessageBox('保存不成功','提示',mb_ok);
  end;
  edit1.SetFocus;
end;

procedure Tf_addgly.Button2Click(Sender: TObject);
begin
close;
end;

procedure Tf_addgly.FormShow(Sender: TObject);
begin

    if F_gly.change=True then
      with F_gly.Query_gly do
      begin
        edit1.Text:=fieldbyname('简称').AsString;
        edit2.Text:=fieldbyname('密码').AsString;
        edit3.Text:=fieldbyname('姓名').AsString;
        edit4.Text:=fieldbyname('权限').AsString;
      end;
 
end;

end.