abc.pas

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

unit abc;

interface

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

type
  Taaa = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    XPMenu1: TXPMenu;
    DataSource1: TDataSource;
    HemiBtn1: THemiBtn;
    Table1: TTable;
    ComboBox1: TComboBox;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    HemiBtn2: THemiBtn;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Bevel1: TBevel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit4: TEdit;
    DateTimePicker1: TDateTimePicker;
    Memo1: TMemo;
    Edit3: TEdit;
    Edit5: TEdit;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Bevel2: TBevel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    DateTimePicker2: TDateTimePicker;
    Memo2: TMemo;
    Edit9: TEdit;
    Edit10: TEdit;
    Label14: TLabel;
    ComboBox2: TComboBox;
    HemiBtn3: THemiBtn;
    HemiBtn4: THemiBtn;
    HemiBtn5: THemiBtn;
    DataSource2: TDataSource;
    Table2: TTable;
    Memo3: TMemo;
    HemiBtn6: THemiBtn;
    HemiBtn7: THemiBtn;
    Table3: TTable;
    DataSource3: TDataSource;
    HemiBtn8: THemiBtn;
    Memo4: TMemo;
    Label15: TLabel;
    Label16: TLabel;
    ComboBox3: TComboBox;
    CheckBox1: TCheckBox;
    DataSource4: TDataSource;
    Table4: TTable;
    HemiBtn11: THemiBtn;
    HemiBtn12: THemiBtn;
    GroupBox3: TGroupBox;
    HemiBtn9: THemiBtn;
    HemiBtn10: THemiBtn;
    Label17: TLabel;
    GroupBox5: TGroupBox;
    ComboBox4: TComboBox;
    Label20: TLabel;
    Label22: TLabel;
    Edit12: TEdit;
    Label18: TLabel;
    Edit13: TEdit;
    Label19: TLabel;
    Edit14: TEdit;
    Label23: TLabel;
    Edit15: TEdit;
    Label24: TLabel;
    Edit16: TEdit;
    Label25: TLabel;
    DateTimePicker3: TDateTimePicker;
    Edit17: TEdit;
    DataSource5: TDataSource;
    Table5: TTable;
    HemiBtn13: THemiBtn;
    HemiBtn14: THemiBtn;
    HemiBtn15: THemiBtn;
    procedure HemiBtn1Click(Sender: TObject);
    procedure HemiBtn3Click(Sender: TObject);
    procedure HemiBtn2Click(Sender: TObject);
    procedure HemiBtn5Click(Sender: TObject);
    procedure HemiBtn7Click(Sender: TObject);
    procedure HemiBtn6Click(Sender: TObject);
    procedure HemiBtn4Click(Sender: TObject);
    procedure HemiBtn8Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure HemiBtn9Click(Sender: TObject);
    procedure HemiBtn11Click(Sender: TObject);
    procedure HemiBtn12Click(Sender: TObject);
    procedure HemiBtn10Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure HemiBtn13Click(Sender: TObject);
    procedure HemiBtn14Click(Sender: TObject);
    procedure HemiBtn15Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  aaa: Taaa;

implementation

uses mainform;

{$R *.dfm}

procedure Taaa.HemiBtn1Click(Sender: TObject);
begin
table2.Open;
while not table2.Eof do
begin
combobox1.Items.Add(table2.FieldValues['工作号']);
table2.Next;
end;
end;
procedure Taaa.HemiBtn3Click(Sender: TObject);
begin
table4.Active:=true;
while not table4.Eof do
begin
combobox2.Items.Add(table4.FieldValues['工作号']);
table4.Next;
end;
end;

procedure Taaa.HemiBtn2Click(Sender: TObject);
begin
if combobox1.Text='' then
messagebox(handle,'请先导入数据。','提示',mb_ok+mb_iconinformation)
else
begin
with table1 do
if findkey([combobox1.text]) then
begin
edit;
edit1.Text:=table1.FieldValues['姓名'];
edit2.Text:=table1.FieldValues['性别'];
edit3.text:=table1.fieldvalues['民族'];
post;
end
else
messagebox(aaa.handle,'没有此工作人员！','提示',mb_ok+mb_iconinformation);
end;
end;
procedure Taaa.HemiBtn5Click(Sender: TObject);
begin
if combobox1.Text='' then
messagebox(aaa.handle,'请导入数据！','提示',mb_ok+mb_iconinformation)
else
if edit1.Text='' then
messagebox(aaa.handle,'请先读出数据！','提示',mb_ok+mb_iconinformation)
else
if (edit4.Text='')or(memo1.Text='') then
messagebox(handle,'奖励的内容填写完整！','提示',mb_ok+mb_iconinformation)
else
begin
with table2 do
try
begin
if findkey([combobox1.text]) then
begin
table2.Edit;
table2.FieldByName('工作号').AsString:=combobox1.Text;
table2.Fieldbyname('奖励金额').Asinteger:=strtoint(table2.FieldValues['奖励金额'])+strtoint(edit4.Text);
table2.FieldByName('奖励时间').AsDateTime:=datetimepicker1.DateTime;
table2.FieldByName('奖励原因').AsString:=table2.FieldValues['奖励原因']+datetostr(table2.FieldValues['奖励时间'])+memo1.Text+'奖励'+edit4.Text+'元'+#13#10;
table2.post;
if messagebox(aaa.handle,'保存成功','提示',mb_ok+mb_iconinformation)=mrok then
begin
edit1.clear;
edit2.Clear;
edit3.Clear;
edit4.Clear;
memo1.Clear;
end;
end
else
messagebox(aaa.handle,'没有这个工作人员,请在工资栏里添加！','提示',mb_ok+mb_iconinformation);
end;
except
messagebox(aaa.handle,'奖励金额输入错误','错误',mb_ok+mb_iconerror);
end;
end;
end;
procedure Taaa.HemiBtn7Click(Sender: TObject);
begin
table1.Close;
table2.Close;
table3.Close;
table4.Close;
mainfor.WindowState:=wsnormal;
aaa.Close;
end;

procedure Taaa.HemiBtn6Click(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.Clear;
edit4.Clear;
memo1.Clear;
end;

procedure Taaa.HemiBtn4Click(Sender: TObject);
begin
if combobox2.Text='' then
messagebox(handle,'请先导入数据。','提示',mb_ok+mb_iconinformation)
else
begin
with table3 do
if findkey([combobox2.text]) then
begin
edit;
edit6.Text:=table3.FieldValues['姓名'];
edit7.Text:=table3.FieldValues['性别'];
edit9.text:=table3.fieldvalues['民族'];
post;
end
else
messagebox(aaa.handle,'没有此工作人员！','提示',mb_ok+mb_iconinformation);
end;
end;

procedure Taaa.HemiBtn8Click(Sender: TObject);
begin
if combobox2.Text='' then
messagebox(aaa.handle,'请导入数据！','提示',mb_ok+mb_iconinformation)
else
if edit6.Text='' then
messagebox(aaa.handle,'请先读出数据！','提示',mb_ok+mb_iconinformation)
else
if (edit8.Text='')or(memo2.Text='') then
messagebox(handle,'处罚的内容填写完整！','提示',mb_ok+mb_iconinformation)
else
begin
with table2 do
try
begin

if findkey([combobox2.text]) then
begin
table2.Edit;
//table2.FieldByName('工作号').AsString:=combobox2.Text;
table2.Fieldbyname('处罚金额').Asinteger:=strtoint(table2.FieldValues['处罚金额'])+strtoint(edit8.Text);
table2.FieldByName('处罚时间').AsDateTime:=datetimepicker2.DateTime;
table2.FieldByName('处罚原因').AsString:=table2.FieldValues['处罚原因']+datetostr(table2.FieldValues['处罚时间'])+memo2.Text+'处罚'+edit8.Text+'元'+#13#10;
table2.post;
if messagebox(aaa.handle,'保存成功','提示',mb_ok+mb_iconinformation)=mrok then
begin
edit6.clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
memo2.Clear;
end;
end
else
messagebox(aaa.handle,'没有这个工作人员,请在工资栏里添加！','提示',mb_ok+mb_iconinformation);
end;
except
messagebox(aaa.handle,'处罚金额输入错误','错误',mb_ok+mb_iconerror);
end;
end;
end;

procedure Taaa.FormCreate(Sender: TObject);
begin
edit17.Hide;
table1.Open;
while not table1.Eof do
begin
combobox3.Items.Add(table1.FieldValues['工作号']);
combobox4.Items.Add(table1.FieldValues['工作号']);
table1.Next;
end;
end;

procedure Taaa.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
combobox3.Enabled:=true;
hemibtn9.Enabled:=true;
hemibtn10.Enabled:=true;
end
else
begin
combobox3.Enabled:=false;
hemibtn9.Enabled:=false;
hemibtn10.Enabled:=false;
end;
end;

procedure Taaa.HemiBtn9Click(Sender: TObject);
begin
if combobox3.Text='' then
messagebox(aaa.handle,'请选择工作号！','提示',mb_ok+mb_iconinformation)
else
begin
with table2 do
table2.Open;
if table2.findkey([combobox3.text]) then
messagebox(aaa.handle,'此人已被添加到工资列表中！','提示',mb_ok+mb_iconinformation)
else
begin
table2.Insert;
table2.FieldByName('工作号').AsString:=combobox3.Text;
messagebox(aaa.handle,'添加成功！','添加',mb_ok+mb_iconinformation);
table2.post;
end;
end;
end;

procedure Taaa.HemiBtn11Click(Sender: TObject);
begin
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
memo2.Clear;
end;

procedure Taaa.HemiBtn12Click(Sender: TObject);
begin
table1.Close;
table2.Close;
table3.Close;
table4.Close;
aaa.Close;
end;

procedure Taaa.HemiBtn10Click(Sender: TObject);
begin
if combobox3.Text='' then
messagebox(aaa.handle,'请选择删除对象！','提示',mb_ok+mb_iconinformation)
else
begin
with table2 do
begin
table2.Open;
findkey([combobox3.Text]);
table2.Delete;
messagebox(aaa.Handle,'删除成功!','删除',mb_ok+mb_iconinformation);
end;
end;
end;

procedure Taaa.ComboBox4Change(Sender: TObject);
begin
with table2 do
begin
table2.Open;
if findkey([combobox4.text]) then
begin
//table2.Edit;
edit12.Text:=table2.FieldValues['奖励金额'];
edit13.Text:=table2.FieldValues['处罚金额'];
memo3.Text:=table2.FieldValues['奖励原因'];
memo4.Text:=table2.FieldValues['处罚原因'];
end
else
begin
if messagebox(aaa.handle,'没有此人！','提示',mb_ok+mb_iconinformation)=mrok then
begin
edit12.Clear;
edit13.Clear;
memo4.Clear;
memo3.Clear;
end;

end;
end;
end;
procedure Taaa.HemiBtn13Click(Sender: TObject);
begin
edit16.Text:=inttostr(strtoint(edit14.Text)+strtoint(edit15.Text)+strtoint(edit12.Text)-strtoint(edit13.Text));
end;

procedure Taaa.HemiBtn14Click(Sender: TObject);
begin
if edit16.Text='' then
messagebox(aaa.handle,'你还没有计算总工资呢！','提示',mb_ok+mb_iconinformation)
else
with table2 do
begin
table2.Open;
edit;
table2.FieldByName('固定工资').AsString:=edit14.Text;
table2.FieldByName('奖金').AsString:=edit15.Text;
table2.FieldByName('合计').AsString:=edit16.Text;
table2.FieldByName('工资发放月份').AsDateTime:=datetimepicker3.DateTime;
if messagebox(aaa.handle,'保存成功!','保存',mb_ok+mb_iconinformation)=mrok then
begin
edit14.Clear;
edit16.Clear;
edit15.Clear;
end;
table2.post;
end;
end;

procedure Taaa.HemiBtn15Click(Sender: TObject);
begin
aaa.Close;
end;

procedure Taaa.FormShow(Sender: TObject);
begin
aaa.Left:=95;
aaa.Top:=86;
end;

end.