edit_ywy.pas

超市管理系统

unit EDIT_YWY;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FRMBASSDIALOGS, StdCtrls, TFlatEditUnit, TFlatPanelUnit,
  ComCtrls, MenuBar, ToolWin, DsFancyButton, ExtCtrls, TFlatListBoxUnit,
  DB, DBTables,myself,frmmain;

type
  TFrm_edit_ywy = class(TFrm_bassDialogs)
    FlatPanel_edit: TFlatPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    E_name: TFlatEdit;
    E_id: TFlatEdit;
    E_sex: TFlatEdit;
    E_department: TFlatEdit;
    E_type: TFlatEdit;
    E_memo: TFlatEdit;
    LB_type: TFlatListBox;
    Query_data: TQuery;
    procedure E_nameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure E_idExit(Sender: TObject);
    procedure E_nameExit(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure E_sexDblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure E_typeEnter(Sender: TObject);
    procedure LB_typeClick(Sender: TObject);
  private
    { Private declarations }
  public
    P_state:integer;
    { Public declarations }
  end;

var
  Frm_edit_ywy: TFrm_edit_ywy;

implementation

{$R *.dfm}

procedure TFrm_edit_ywy.E_nameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
   if (key=13) or (key=40) then { 判断是按执行键}
   Begin 
      key:=0;
      perform(WM_NEXTDLGCTL,0,0);{移动到下一个控件}
   end;
end;

procedure TFrm_edit_ywy.E_idExit(Sender: TObject);
begin
  inherited;
   if trim(E_id.Text) ='' then
      E_id.Text :=Nowindex;

end;

procedure TFrm_edit_ywy.E_nameExit(Sender: TObject);
begin
  inherited;
  if P_state=0 then
     E_id.Text :=getstringpy(trim(E_name.Text));

end;

procedure TFrm_edit_ywy.FormCreate(Sender: TObject);
begin
  inherited;
   query_data.DatabaseName :=HWSHOPDATA;
   P_state:=1;  //0-增加  1-修改
   LB_type.ItemIndex :=0;

end;

procedure TFrm_edit_ywy.OKBtnClick(Sender: TObject);
begin
  inherited;
   if trim(E_name.Text)='' then
   begin
      messagedlg(Errormsg0002+'0002',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 query_data do
      begin
         close;
         sql.Clear ;
         sql.Text :='select * from people where id="'+uppercase(E_id.Text)+'"';
         try
            open;
         except
            messagedlg(Errormsg0001+'0008',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
            close;
            sql.Clear ;
            sql.Text :='insert into people (name,id,sex,depat,usertype,memo)'+
                      'values ("'+E_name.Text +'","'+uppercase(E_id.Text) +'","'+E_sex.Text
                      +'","'+E_department.Text +'","'+E_type.Text +'","'
                      +E_memo.Text +'")';
            try
               execsql;
            except
               messagedlg(Errormsg0004+'0009',mtError,[mbok],0);
               close;
               self.Close ;
            end;
         end;
         messagedlg(Infmsg0001,mtInformation,[mbok],0);
         close;
         self.Close ;
      end;
   end
   else if P_state=1 then //修改数据
   begin
      with query_data do
      begin
         close;
         sql.Clear ;
         sql.Text :='update people set name="'+E_name.Text +'",sex="'+E_sex.Text
                        +'",depat="'+E_department.Text +'",usertype="'+E_type.Text
                        +'",memo="'+E_memo.Text +'" where id="'+E_id.text+'"';
         try
            execsql;
         except
            messagedlg(Errormsg0004+'0009',mtError,[mbok],0);
            close;
            self.Close ;
         end;
         messagedlg(Infmsg0003,mtInformation,[mbok],0);
         close;
         self.Close ;
      end;
   end;

end;

procedure TFrm_edit_ywy.E_sexDblClick(Sender: TObject);
begin
  inherited;
   if E_sex.Text ='男' then
      E_sex.Text :='女'
   else
      E_sex.Text :='男';

end;

procedure TFrm_edit_ywy.FormShow(Sender: TObject);
begin
  inherited;
  if P_state=1 then
  begin
     E_id.ReadOnly :=true;
  end
  else
     E_id.ReadOnly :=false;

end;

procedure TFrm_edit_ywy.E_typeEnter(Sender: TObject);
begin
  inherited;
   LB_type.Visible :=true;
   LB_type.SetFocus ;

end;

procedure TFrm_edit_ywy.LB_typeClick(Sender: TObject);
begin
  inherited;
   if (LB_type.ItemIndex <0) or (LB_type.ItemIndex >2) then exit;
   E_type.Text :=LB_type.Items.Strings[LB_type.ItemIndex];
   E_memo.SetFocus ;
   LB_type.Visible :=false;

end;

end.