ywyeditunit.pas

简单的进销存系统,包含登陆等界面,内容丰富,各种技巧,适合初学者

unit YWYEditUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, ADODB, DBCtrls, Mask;

type
  TYWYEditForm = class(TForm)
    PanelBkGnd: TPanel;
    Panel_button: TPanel;
    Bevel_button: TBevel;
    OKBtn: TButton;
    CancelBtn: TButton;
    FlatPanel_edit: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    ADOQuery_data: TADOQuery;
    E_name: TDBEdit;
    E_id: TDBEdit;
    E_sex: TDBEdit;
    E_department: TDBEdit;
    C_type: TDBComboBox;
    E_memo: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private

    { Private declarations }
  public
    P_state: integer;
    { Public declarations }
  end;

var
  YWYEditForm: TYWYEditForm;

implementation

uses FunctionUnit, DMUNIT, YWYInfoUnit, OperInfoUnit;
{$R *.dfm}

procedure TYWYEditForm.FormCreate(Sender: TObject);
begin
self.Caption := '业务员信息';
   ADOQuery_data.Connection :=DM.ADOCon ;
  P_state := 1; //0-增加  1-修改
end;

procedure TYWYEditForm.OKBtnClick(Sender: TObject);
begin
  if trim(E_name.Text) = '' then
  begin
    messagedlg(Errormsg0002 , mtError, [mbok], 0);
    E_name.SetFocus;
    exit;
  end;
  if trim(E_ID.Text) = '' then
  begin
    messagedlg(Errormsg0002 + '0003', mtError, [mbok], 0);
    E_id.SetFocus;
    exit;
  end;
  if P_state = 0 then //增加数据
  begin
    with ADOQuery_data do
    begin
      close;
      sql.Clear;
      sql.Text := 'select * from YWYDATA where id="' + uppercase(E_id.Text) + '"';
      try
        open;
      except
        messagedlg(Errormsg0001 + '0010', mtError, [mbok], 0);
        close;
        self.Close;
      end;
      if RecordCount > 0 then //编号已存在
      begin
        messagedlg(Errormsg0003 + '0004', mtError, [mbok], 0);
        E_id.SetFocus;
        close;
        exit;
      end
      else //编号不存在则增加
      begin
         YWYInfoForm.ADOTable_DATA.Post;
         messagedlg('保存成功！', mtInformation, [mbok], 0);
         self.Close;
       end;
    end;
  end
  else if P_state = 1 then //修改数据
  begin
    YWYInfoForm.ADOTable_DATA.Post;
    messagedlg('保存成功！', mtInformation, [mbok], 0);
    self.Close;
  end;
   if P_state = 0 then //继续增加
  begin
    e_name.SetFocus;
    e_department.Text := '';
    e_id.Text :='';
    e_memo.Text := '';
    e_sex.Text :='';
  end
  else
    self.Close;

end;


procedure TYWYEditForm.CancelBtnClick(Sender: TObject);
begin
YWYInfoForm.ADOTable_DATA.Cancel;
  self.Close;
end;

  end.