yggl.pas

欢迎大家相互学习。delphi系统 四个文件夹分别对应书中的四个实例

unit yggl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, Grids, DBGrids, DBTables, Menus;

type
  Tyggl_Form = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    bmdm_CBox: TComboBox;
    cmdok: TButton;
    cmdclose: TButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmdokClick(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    modi:boolean;
    xcaption:string;
  end;

var
  yggl_Form: Tyggl_Form;

implementation

uses main, ygxx;

{$R *.dfm}

procedure Tyggl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N21.Enabled:=true;
end;

procedure Tyggl_Form.cmdokClick(Sender: TObject);
var
    bmdm,sqlstr:string;
begin
    if bmdm_CBox.ItemIndex=0 then
    begin
        sqlstr:='select a.*,b.bmmc,c.zcmc,d.zwmc from ygb a,bmdm b,';
        sqlstr:=sqlstr+' zcdm c,zwdm d  where(a.bmdm=b.bmdm)and(a.zcdm=c.zcdm)';
        sqlstr:=sqlstr+' and(a.zwdm=d.zwdm) order by a.bmdm,a.bh';
    end
    else
    begin
        bmdm:=inttostr(bmdm_CBox.ItemIndex-1);
        sqlstr:='select a.*,b.bmmc,c.zcmc,d.zwmc from ygb a,bmdm b,';
        sqlstr:=sqlstr+' zcdm c,zwdm d where(a.bmdm=b.bmdm)and(a.zcdm=c.zcdm)';
        sqlstr:=sqlstr+' and(a.zwdm=d.zwdm)and(a.bmdm='''+bmdm+''') order by a.bh';
    end;
    Query1.Close;
    Query1.SQL.Clear;
    Query1.SQL.Add(sqlstr);
    Query1.Open;
    if Query1.RecordCount > 0 then
    begin
        N1.Enabled:=true;
        N2.Enabled:=true;
        N3.Enabled:=true;
    end
    else
    begin
        N1.Enabled:=true;
        N2.Enabled:=false;
        N3.Enabled:=false;
    end;
end;

procedure Tyggl_Form.N1Click(Sender: TObject);
begin
    xcaption:='添加员工信息';
    modi:=false;
    Application.CreateForm(Tygxx_form, ygxx_Form);
    ygxx_form.ShowModal;
end;

procedure Tyggl_Form.N2Click(Sender: TObject);
begin
    xcaption:='修改员工信息';
    modi:=true;
    Application.CreateForm(Tygxx_form, ygxx_Form);
    ygxx_form.ShowModal;
end;

procedure Tyggl_Form.N3Click(Sender: TObject);
var
    id:string;
begin
    if MessageDlg('确认要删除选中的员工信息吗?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    begin
        id:=Query1.fieldbyname('id').AsString;
        with tquery.Create(nil) do
        begin
            try
            Close;
            SQL.Clear;
            SQL.Add('delete from ygb where id='''+id+'''');
            ExecSQL;
            finally
            Free;
            end;
        end;
        ShowMessage('成功删除员工信息');
        cmdok.Click;
    end;
end;

procedure Tyggl_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

procedure Tyggl_Form.FormCreate(Sender: TObject);
begin
    with TQuery.Create(nil) do
    try
    Close;
    SQL.Clear;
    SQL.Add('select * from bmdm order by bmdm');
    Open;
    First;
    bmdm_cbox.Items.Add('所有部门');
    while not Eof do
    begin
        bmdm_cbox.Items.Add(fieldbyname('bmmc').AsString);
        Next;
    end;
    bmdm_CBox.ItemIndex:=0;
    finally
    Free;
    end;
end;

end.