cw.pas

电脑公司销售、财务管理子系统 本文重点研究的是电脑公司管理信息系统

end;

procedure TcwForm.BitBtn4Click(Sender: TObject);
begin
  ComboBox_bh1.Clear;  Edit9.Clear;  Edit10.Clear; ComboBox2.Text:='';
  DM.YgjcQuery.Close;
end;

procedure TcwForm.BitBtn6Click(Sender: TObject);
begin
  ComboBox_bh2.Clear; Edit12.Clear; Edit13.Text:='2005';  ComboBox3.Text:='1';
  DM.YgjcQuery.Close;
end;

procedure TcwForm.BitBtn5Click(Sender: TObject);
// 员工奖惩页面的奖惩总计查询中的开始查找按钮的OnClick事件
begin
  if (Trim(ComboBox_bh2.Text)='') and (Trim(Edit12.Text)='') then
  begin
    showmessage('请至少输入员工编号和员工姓名中的一个条件！');
    ComboBox_bh2.SetFocus;
  end
  else if  Trim(Edit13.Text)='' then
  begin
    showmessage('请输入一个年份！');
    Edit13.SetFocus;
  end
  else if  Trim(ComboBox3.Text)='' then
  begin
    showmessage('请输入一个月份！');
    ComboBox3.SetFocus;
  end
  else
    with DM.YgjcQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select Employee.EmpId as 员工编号,EmpName as 员工姓名,');
      SQL.Add('Sum(Bonus) as 奖金总计,Sum(Punishment) as 罚金总计,');
      SQL.Add('Sum(Bonus)- Sum(Punishment) as 奖惩总计');
      SQL.Add('from RewardPunishment,Employee ');
      SQL.Add('where Employee.EmpId=RewardPunishment.EmpId');
      SQL.Add(' and year(DateTime)=:year and month(DateTime)=:month');
      Parameters.ParamByName('year').Value:=Trim(Edit13.Text);
      Parameters.ParamByName('month').Value:=Trim(ComboBox3.Text);
      if Trim(ComboBox_bh2.Text)<>'' then
      begin
        SQL.Add(' and Employee.EmpId=:eid003');
        Parameters.ParamByName('eid003').Value:=Trim(ComboBox_bh2.Text);
      end;
      if (Trim(Edit12.Text)<>'') and (Trim(Edit12.Text)<>'（支持模糊查询）') then
      begin
        SQL.Add(' and EmpName like :ename003');
        Parameters.ParamByName('ename003').Value:='%'+Trim(Edit12.Text)+'%';
      end;
      SQL.Add('group by Employee.EmpId,EmpName');
      Open;
      if RecordCount=0 then
        showmessage('没有找到符合条件的记录！');
    end;
end;

procedure TcwForm.TabSheet3Enter(Sender: TObject);
begin
  ComboBox4.Items.Clear;             ComboBox5.Items.Clear;
  ComboBox7.Items.Clear;             ComboBox8.Items.Clear;
  with DM.YggzQuery0 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select DepId from Department');
    Open;
    while not Eof do
    begin
      ComboBox4.Items.Add(FieldByName('DepId').AsString);
      Next;
    end;
    Close;
    SQL.Clear;
    SQL.Add('select EmpId from Employee');
    Open;
    while not Eof do
    begin
      ComboBox5.Items.Add(FieldByName('EmpId').AsString);
      Next;
    end;
    Close;
    SQL.Clear;
    SQL.Add('select distinct Knowledge as Knowledge from Employee');
    Open;
    while not Eof do
    begin
      ComboBox7.Items.Add(FieldByName('Knowledge').AsString);
      Next;
    end;
    Close;
    SQL.Clear;
    SQL.Add('select distinct Post as Position from Employee');
    Open;
    while not Eof do
    begin
      ComboBox8.Items.Add(FieldByName('Position').AsString);
      Next;
    end;
    Close;
    SQL.Clear;
    SQL.Add('select distinct History as History from Employee ');
    Open;
    while not Eof do
    begin
      ComboBox9.Items.Add(FieldByName('History').AsString);
      Next;
    end;
  end;
end;

procedure TcwForm.ComboBox4Change(Sender: TObject);
begin
  if Trim(ComboBox4.Text)<>'' then
    with DM.YggzQuery0 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from Department where DepId=:depid001');
      Parameters.ParamByName('depid001').Value:=Trim(ComboBox4.Text);
      Open;
      if RecordCount>0 then
        Edit14.Text:=FieldByName('DepName').AsString;
    end;
end;

procedure TcwForm.BitBtn8Click(Sender: TObject);
begin
  ComboBox4.Text:='';           ComboBox5.Text:='';
  ComboBox6.Text:='';           ComboBox7.Text:='';
  ComboBox8.Text:='';           ComboBox9.Text:='';
  Edit14.Clear;                 Edit15.Clear;
  DM.YggzQuery1.Close;
end;

procedure TcwForm.BitBtn7Click(Sender: TObject);
//员工工资页面的开始查询按钮的OnClick事件
begin
  with DM.YggzQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Employee.EmpId as 员工编号,Employee.EmpName as 员工姓名,');
    SQL.Add(' Wage.BaseWage as 基本工资,Employee.Sex as 员工性别,');
    SQL.Add('Employee.Knowledge as 文化程度,Employee.Post as 员工职位,');
    SQL.Add('Employee.History as 工作历史 from Employee,Wage ');
    SQL.Add('where Employee.EmpId=Wage.EmpId');
    //
    if Trim(ComboBox4.Text)<>'' then
    begin
      SQL.Add(' and Employee.DepId=:depid');
      Parameters.ParamByName('depid').Value:=Trim(ComboBox4.Text);
    end;
    if Trim(ComboBox5.Text)<>'' then
    begin
      SQL.Add(' and Employee.EmpId=:empid');
      Parameters.ParamByName('empid').Value:=Trim(ComboBox5.Text);
    end;
    if (Trim(Edit15.Text)<>'') and (Trim(Edit15.Text)<>'（支持模糊查询）') then
    begin
      SQL.Add(' and Employee.EmpName like :empname');
      Parameters.ParamByName('empname').Value:='%'+Trim(Edit15.Text)+'%';
    end;
    if Trim(ComboBox6.Text)<>'' then
    begin
      SQL.Add(' and Employee.Sex=:sex');
      Parameters.ParamByName('sex').Value:=Trim(ComboBox6.Text);
    end;
    if Trim(ComboBox7.Text)<>'' then
    begin
      SQL.Add(' and Employee.Knowledge=:knowledge');
      Parameters.ParamByName('knowledge').Value:=Trim(ComboBox7.Text);
    end;
    if Trim(ComboBox8.Text)<>'' then
    begin
      SQL.Add(' and Employee.Post=:post');
      Parameters.ParamByName('post').Value:=Trim(ComboBox8.Text);
    end;
    if (Trim(ComboBox9.Text)<>'') and (Trim(ComboBox9.Text)<>'（以年为单位）') then
    begin
      SQL.Add(' and Employee.History=:history');
      Parameters.ParamByName('history').Value:=Trim(ComboBox9.Text);
    end;
    //
    Open;
    if RecordCount=0 then
      showmessage('没有找到符合条件的记录！');
  end;
end;

procedure TcwForm.TabSheet4Enter(Sender: TObject);
begin
  Edit17.Text:=LoginForm.bianhao;
  with DM.CwsrQuery0 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from Employee where EmpId=:empid');
    Parameters.ParamByName('empid').Value:=Trim(Edit17.Text);
    Open;
    if RecordCount>0 then
      Edit18.Text:=FieldByName('EmpName').AsString;
  end;
end;

procedure TcwForm.FormCreate(Sender: TObject);
begin
  cwForm.DateTimePicker1.Date:=Date;
  cwForm.DateTimePicker2.Date:=Date;
end;

procedure TcwForm.BitBtn9Click(Sender: TObject);
//财务收入页面的录入收入按钮的OnClick事件
begin
  if Trim(Edit16.Text)='' then
    showmessage('收入单号不能为空！')
  else if Trim(Edit19.Text)='' then
    showmessage('经手人号不能为空！')
  else if Trim(Edit21.Text)='' then
    showmessage('收入类别不能为空！')
  else if Trim(Edit23.Text)='' then
    showmessage('收入金额不能为空！')
  else
  begin
    with DM.CwsrQuery0 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from EarnPaper');
      Open;
      Append;
      FieldValues['EarnId']:=Trim(Edit16.Text);
      FieldValues['EmpIdLuru']:=Trim(Edit17.Text);
      FieldValues['EmpIdConcern']:=Trim(Edit19.Text);
      FieldValues['EarnType']:=Trim(Edit21.Text);
      FieldValues['Content']:=Trim(Edit22.Text);
      FieldValues['MoneyCount']:=Trim(Edit23.Text);
      FieldValues['DateTime']:=DateTimePicker1.Date;
      Post;
      showmessage('财务收入录入成功！');
    end;
    DM.CwsrQuery1.Close;         DM.CwsrQuery1.Open;
  end;
end;

procedure TcwForm.BitBtn10Click(Sender: TObject);
begin
  Edit16.Clear;    Edit19.Clear;     Edit20.Clear;
  Edit21.Clear;    Edit22.Clear;     Edit23.Clear;
end;

procedure TcwForm.Edit19Exit(Sender: TObject);
begin
  with DM.CwsrQuery0 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from Employee where EmpId=:empid');
    Parameters.ParamByName('empid').Value:=Trim(Edit19.Text);
    Open;
    if RecordCount>0 then
      Edit20.Text:=FieldByName('EmpName').AsString;
  end;
end;

procedure TcwForm.TabSheet5Enter(Sender: TObject);
begin
  Edit25.Text:=LoginForm.bianhao;
  with DM.CwzcQuery0 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from Employee where EmpId=:empid');
    Parameters.ParamByName('empid').Value:=Trim(Edit25.Text);
    Open;
    if RecordCount>0 then
      Edit26.Text:=FieldByName('EmpName').AsString;
  end;
end;

procedure TcwForm.Edit27Exit(Sender: TObject);
begin
  with DM.CwzcQuery0 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from Employee where EmpId=:empid');
    Parameters.ParamByName('empid').Value:=Trim(Edit27.Text);
    Open;
    if RecordCount>0 then
      Edit28.Text:=FieldByName('EmpName').AsString;
  end;
end;

procedure TcwForm.BitBtn11Click(Sender: TObject);
//财务支出页面的录入支出按钮的OnClick事件
begin
  if Trim(Edit24.Text)='' then
    showmessage('支出单号不能为空！')
  else if Trim(Edit27.Text)='' then
    showmessage('经手人号不能为空！')
  else if Trim(Edit29.Text)='' then
    showmessage('支出类别不能为空！')
  else if Trim(Edit31.Text)='' then
    showmessage('支出金额不能为空！')
  else
  begin
    with DM.CwzcQuery0 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from SpendPaper');
      Open;
      Append;
      FieldValues['SpendId']:=Trim(Edit24.Text);
      FieldValues['EmpIdLuru']:=Trim(Edit25.Text);
      FieldValues['EmpIdConcern']:=Trim(Edit27.Text);
      FieldValues['SpendType']:=Trim(Edit29.Text);
      FieldValues['Content']:=Trim(Edit30.Text);
      FieldValues['MoneyCount']:=Trim(Edit31.Text);
      FieldValues['DateTime']:=DateTimePicker2.Date;
      Post;
      showmessage('财务支出录入成功！');
    end;
    DM.CwzcQuery1.Close;         DM.CwzcQuery1.Open;
  end;
end;

procedure TcwForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

end.