unit1.pas

重庆秦妈火锅城管理系统 1.0版

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ExtCtrls, HemisphereButton, XPMenu, DB,
  DBTables, Grids, DBGrids;

type
  Tworkersys = class(TForm)
    Image1: TImage;
    XPMenu1: TXPMenu;
    DataSource1: TDataSource;
    Table1: TTable;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    HemiBtn1: THemiBtn;
    HemiBtn2: THemiBtn;
    HemiBtn3: THemiBtn;
    Label8: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Memo1: TMemo;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    TabSheet2: TTabSheet;
    HemiBtn4: THemiBtn;
    HemiBtn5: THemiBtn;
    HemiBtn6: THemiBtn;
    Label11: TLabel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBGrid1: TDBGrid;
    Edit6: TEdit;
    procedure HemiBtn1Click(Sender: TObject);
    procedure HemiBtn2Click(Sender: TObject);
    procedure HemiBtn3Click(Sender: TObject);
    procedure HemiBtn4Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure HemiBtn5Click(Sender: TObject);
    procedure HemiBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  workersys: Tworkersys;

implementation

uses mainform;



{$R *.dfm}

procedure Tworkersys.HemiBtn1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
messagebox(handle,'请输入工作号！','提示',mb_ok+mb_iconinformation);
edit1.SetFocus;
end
else
if edit2.Text='' then
begin
messagebox(handle,'请输入员工姓名！','提示',mb_ok+mb_iconinformation);
edit2.SetFocus;
end
else
if combobox1.Text='' then
messagebox(handle,'请指明员工性别！','提示',mb_ok+mb_iconinformation)
else
if edit3.Text='' then
begin
messagebox(handle,'请指明员工职务！','提示',mb_ok+mb_iconinformation);
edit3.SetFocus;
end
else
if edit4.Text='' then
begin
messagebox(handle,'请输入员工的身份证号！','提示',mb_ok+mb_iconinformation);
edit4.SetFocus;
end
else
if edit5.Text='' then
begin
messagebox(handle,'请输入员工的家庭地址！','提示',mb_ok+mb_iconinformation);
edit1.SetFocus;
end
else
begin
table1.Open;
with table1 do
if findkey([edit1.text]) then
messagebox(workersys.handle,'此记录已存在！','警告',mb_ok+mb_iconwarning)
else
begin
try
insert;
table1.fieldbyname('工作号').AsString:=edit1.Text;
table1.FieldByName('姓名').AsString:=edit2.Text;
table1.FieldByName('性别').AsString:=combobox1.Text;
table1.FieldByName('民族').AsString:=combobox2.Text;
table1.FieldByName('学历').AsString:=combobox3.Text;
table1.FieldByName('职务').AsString:=edit3.Text;
table1.FieldByName('身份证号').AsString:=edit4.Text;
table1.FieldByName('注册日期').AsDateTime:=datetimepicker1.DateTime;
table1.FieldByName('家庭地址').AsString:=edit5.Text;
table1.FieldByName('个人简介').AsString:=memo1.Text;
if messagebox(workersys.Handle,'保存成功！','成功',mb_ok+mb_iconinformation)=mrok then
begin
edit1.Clear;edit2.Clear;edit3.Clear;edit4.Clear;edit5.Clear;memo1.Clear;
combobox1.Text:='';combobox2.Text:='';combobox3.text:='';
end;
table1.Post;
except
table1.Close;
messagebox(workersys.handle,'身份证输入有误！','提示',mb_ok+mb_iconinformation);
edit4.SetFocus;
end;
end;
end;
end;

procedure Tworkersys.HemiBtn2Click(Sender: TObject);
begin
edit1.Clear;edit2.Clear;edit3.Clear;edit4.Clear;edit5.Clear;memo1.Clear;
combobox1.Text:='';combobox2.Text:='';combobox3.text:='';
end;

procedure Tworkersys.HemiBtn3Click(Sender: TObject);
begin
mainfor.WindowState:=wsnormal;
edit1.Clear;edit2.Clear;edit3.Clear;edit4.Clear;edit5.Clear;memo1.Clear;
combobox1.Text:='';combobox2.Text:='';combobox3.text:='';
edit6.Clear;
workersys.Close;
end;

procedure Tworkersys.HemiBtn4Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
begin
try
with table1 do
table1.active:=true;
table1.Filter:='工作号='+edit6.Text;
table1.Filtered:=true;
if table1.findkey([edit6.text]) then
dbgrid1.DataSource:=datasource1;
except
table1.close;
messagebox(workersys.handle,'关键字输入有误','提示',mb_ok+mb_iconinformation);
end;
end
else
if radiobutton2.Checked=true then
begin
table1.Open;
with table1 do
table1.Filter:='姓名='+''''+edit6.Text+'''';
table1.Filtered:=true;
dbgrid1.DataSource:=datasource1;
end
else
messagebox(workersys.handle,'请选择一种查询方式。','提示',mb_ok+mb_iconinformation)
end;

procedure Tworkersys.RadioButton1Click(Sender: TObject);
begin
edit6.Clear;
edit6.SetFocus;
end;

procedure Tworkersys.RadioButton2Click(Sender: TObject);
begin
edit6.Clear;
edit6.SetFocus;
end;

procedure Tworkersys.HemiBtn5Click(Sender: TObject);
begin
if messagebox(workersys.handle,'确定要删除此项吗？','提示',mb_yesno+mb_iconquestion)=mrok then
table1.Delete;
end;

procedure Tworkersys.HemiBtn6Click(Sender: TObject);
begin
mainfor.WindowState:=wsnormal;
edit1.Clear;edit2.Clear;edit3.Clear;edit4.Clear;edit5.Clear;memo1.Clear;
combobox1.Text:='';combobox2.Text:='';combobox3.text:='';
edit6.Clear;
workersys.Close;
end;

procedure Tworkersys.FormCreate(Sender: TObject);
begin
workersys.Left:=69;
workersys.Top:=67;
end;

end.