cw.pas

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

unit cw;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, jpeg, Buttons, Grids, DBGrids,
  DBCtrls;

type
  TcwForm = class(TForm)
    Label1: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet8: TTabSheet;
    Image3: TImage;
    RichEdit1: TRichEdit;
    TabSheet9: TTabSheet;
    Image2: TImage;
    Bevel1: TBevel;
    Label12: TLabel;
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit3: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Button1: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    ComboBox1: TComboBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label13: TLabel;
    Edit9: TEdit;
    Edit10: TEdit;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit13: TEdit;
    Edit12: TEdit;
    DBGrid2: TDBGrid;
    Label17: TLabel;
    ComboBox2: TComboBox;
    UpDown1: TUpDown;
    Label18: TLabel;
    ComboBox3: TComboBox;
    Label19: TLabel;
    Image1: TImage;
    GroupBox4: TGroupBox;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    ComboBox6: TComboBox;
    ComboBox7: TComboBox;
    ComboBox8: TComboBox;
    Edit14: TEdit;
    Edit15: TEdit;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    DBGrid3: TDBGrid;
    ComboBox9: TComboBox;
    GroupBox5: TGroupBox;
    DBGrid4: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    BitBtn9: TBitBtn;
    BitBtn10: TBitBtn;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    DateTimePicker1: TDateTimePicker;
    GroupBox6: TGroupBox;
    Label37: TLabel;
    Label38: TLabel;
    Label39: TLabel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    BitBtn11: TBitBtn;
    BitBtn12: TBitBtn;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    DateTimePicker2: TDateTimePicker;
    DBNavigator2: TDBNavigator;
    DBGrid5: TDBGrid;
    ComboBox_ygbh: TComboBox;
    ComboBox_bmbh: TComboBox;
    ComboBox_bh1: TComboBox;
    ComboBox_bh2: TComboBox;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure TabSheet3Enter(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure TabSheet4Enter(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure Edit19Exit(Sender: TObject);
    procedure TabSheet5Enter(Sender: TObject);
    procedure Edit27Exit(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cwForm: TcwForm;

implementation

uses DataModule, login, designer;

{$R *.dfm}

procedure TcwForm.Button2Click(Sender: TObject);
begin
  designerForm.Show;
end;

procedure TcwForm.Button3Click(Sender: TObject);
var v:integer;
begin
  v:=messagedlg('真要退出系统吗？',mtconfirmation,[mbOK,mbCancel],0);
  if v=mrok then
    Application.Terminate
  else
    exit;
end;

procedure TcwForm.BitBtn1Click(Sender: TObject);
//员工资料页面的开始查找按钮的OnClick事件
begin
  with DM.YgzlQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select EmpId as 员工编号,EmpName as 员工姓名,Sex as 员工性别,');
    SQL.Add('DepId as 部门编号,Knowledge as 文化程度,Post as 员工职位,');
    SQL.Add('Age as 员工年龄,History as 工作时间,Phone as 员工电话,');
    SQL.Add('Address as 员工地址,Description as 员工描述');
    SQL.Add('from Employee where 1=1');
    if Trim(ComboBox_ygbh.Text)<>'' then
    begin
      SQL.Add(' and EmpId=:eid001');
      Parameters.ParamByName('eid001').Value:=Trim(ComboBox_ygbh.Text);
    end;
    if Trim(ComboBox1.Text)<>'' then
    begin
      SQL.Add(' and Sex=:sex001');
      Parameters.ParamByName('sex001').Value:=Trim(ComboBox1.Text);
    end;
    if Trim(Edit3.Text)<>'' then
    begin
      SQL.Add(' and EmpName=:ename001');
      Parameters.ParamByName('ename001').Value:=Trim(Edit3.Text);
    end;
    if Trim(ComboBox_bmbh.Text)<>'' then
    begin
      SQL.Add(' and DepId=:did001');
      Parameters.ParamByName('did001').Value:=Trim(ComboBox_bmbh.Text);
    end;
    if Trim(Edit5.Text)<>'' then
    begin
      SQL.Add(' and Knowledge=:klg001');
      Parameters.ParamByName('klg001').Value:=Trim(Edit5.Text);
    end;
    if Trim(Edit6.Text)<>'' then
    begin
      SQL.Add('and Post=:pst001');
      Parameters.ParamByName('pst001').Value:=Trim(Edit6.Text);
    end;
    if Trim(Edit7.Text)<>'' then
    begin
      SQL.Add(' and Age=:age001');
      Parameters.ParamByName('age001').Value:=Trim(Edit7.Text);
    end;
    if Trim(Edit8.Text)<>'' then
    begin
      SQL.Add(' and History=:hst001');
      Parameters.ParamByName('hst001').Value:=Trim(Edit8.Text);
    end;
    Open;
    if RecordCount=0 then
    begin
      Button1.Enabled:=False;        Button4.Enabled:=False;
      Button5.Enabled:=False;        Button6.Enabled:=False;
      showmessage('没有找到符合条件的记录！');
    end
    else
    begin
      Button1.Enabled:=True;        Button4.Enabled:=True;
      Button5.Enabled:=True;        Button6.Enabled:=True;
    end;
  end;
  
end;

procedure TcwForm.BitBtn2Click(Sender: TObject);
begin
  ComboBox_ygbh.Clear;  Edit3.Clear;  ComboBox_bmbh.Clear;  Edit5.Clear;
  Edit6.Clear;  Edit7.Clear;  Edit8.Clear;  ComboBox1.Text:='';
end;

procedure TcwForm.Button1Click(Sender: TObject);
begin
  DM.YgzlQuery.First;
end;

procedure TcwForm.Button4Click(Sender: TObject);
begin
  DM.YgzlQuery.Next;
end;

procedure TcwForm.Button5Click(Sender: TObject);
begin
  DM.YgzlQuery.Prior;
end;

procedure TcwForm.Button6Click(Sender: TObject);
begin
  DM.YgzlQuery.Last;
end;

procedure TcwForm.BitBtn3Click(Sender: TObject);
//员工奖惩页面的奖惩明细查询中的开始查找按钮的OnClick事件
begin
  if (Trim(ComboBox_bh1.Text)='') and (Trim(Edit9.Text)='') then
  begin
    showmessage('请至少输入员工编号和员工姓名中的一个条件！');
    ComboBox_bh1.SetFocus;
  end
  else if Trim(ComboBox2.Text)='' then
  begin
    showmessage('请选择奖惩类别！');
    ComboBox2.SetFocus;
  end
  else
    with DM.YgjcQuery do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select Employee.EmpId as 员工编号,EmpName as 员工姓名,');
      if Trim(ComboBox2.Text)='奖励' then
        SQL.Add('DateTime as 奖励日期,Bonus as 奖金,Reason as 奖励原因')
      else if  Trim(ComboBox2.Text)='惩罚' then
        SQL.Add('DateTime as 惩罚日期,Punishment as 罚金,Reason as 惩罚原因');
      SQL.Add('from RewardPunishment,Employee ');
      SQL.Add('where Employee.EmpId=RewardPunishment.EmpId');
      if Trim(ComboBox_bh1.Text)<>'' then
      begin
        SQL.Add(' and Employee.EmpId=:eid002');
        Parameters.ParamByName('eid002').Value:=Trim(ComboBox_bh1.Text);
      end;
      if (Trim(Edit9.Text)<>'') and (Trim(Edit9.Text)<>'（支持模糊查询）') then
      begin
        SQL.Add(' and EmpName like :ename002');
        Parameters.ParamByName('ename002').Value:='%'+Trim(Edit9.Text)+'%';
      end;
      if Trim(Edit10.Text)<>'' then
      begin
        SQL.Add(' and DateTime=:dtm002');
        Parameters.ParamByName('dtm002').Value:=Trim(Edit10.Text);
      end;
      if Trim(ComboBox2.Text)='奖励' then
        SQL.Add(' and Punishment=0')
      else if  Trim(ComboBox2.Text)='惩罚' then
        SQL.Add(' and Bonus=0');
      Open;
      if RecordCount=0 then
        showmessage('没有找到符合条件的记录！');
    end;