ustaffedit.~pas

it is a database programme for sql server 2005 it let you run some of queries on a database

unit uStaffEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzEdit, StdCtrls, Mask, RzButton, ExtCtrls, DB, ADODB;

type
  TfrmStaffEdit = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    btnKapat: TRzBitBtn;
    btnKaydet: TRzBitBtn;
    Label1: TLabel;
    Rz1: TRzEdit;
    Label2: TLabel;
    Rz3: TRzEdit;
    Label3: TLabel;
    Rz2: TRzEdit;
    Rz4: TRzEdit;
    Label4: TLabel;
    Rz5: TRzEdit;
    Label5: TLabel;
    Rz6: TRzEdit;
    Label6: TLabel;
    Rz7: TRzEdit;
    Label7: TLabel;
    Rz8: TRzEdit;
    Label8: TLabel;
    Rz9: TRzEdit;
    Label9: TLabel;
    Rz10: TRzNumericEdit;
    Label10: TLabel;
    QStaffedit: TADOQuery;
    procedure btnKapatClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btnKaydetClick(Sender: TObject);
  private
    { Private declarations }
  public
    PFormType:integer;
    PCardCode:string;
    { Public declarations }
  end;

var
  frmStaffEdit: TfrmStaffEdit;

implementation

{$R *.dfm}

uses uDM,uStaff;

procedure TfrmStaffEdit.btnKapatClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmStaffEdit.FormShow(Sender: TObject);
begin
  if PFormType=2 then begin

     if  frmStaff.prm=0 then begin
         with QStaffEdit.SQL do begin
              Add('Select * From Staff ');
              Add('Where PersonelCode='+QuotedStr(PCardCode));
         end;
         QStaffEdit.Open
     end else begin
         with QStaffEdit.SQL do begin
              Clear;
              Add('Select PersonelCode,Name,Surname,DeptCode,StatusCode,DutyCode,Phone,OfficeNo,Address From Staff ');
              Add('Where PersonelCode='+QuotedStr(PCardCode));
         end;
         QStaffEdit.Open;
     end;


     Rz1.Text:= QStaffEdit.Fields[0].AsString;
     Rz2.Text:= QStaffEdit.Fields[1].AsString;
     Rz3.Text:= QStaffEdit.Fields[2].AsString;
     Rz4.Text:= QStaffEdit.Fields[7].AsString;
     Rz5.Text:= QStaffEdit.Fields[6].AsString;
     Rz6.Text:= QStaffEdit.Fields[3].AsString;
     Rz7.Text:= QStaffEdit.Fields[4].AsString;
     Rz8.Text:= QStaffEdit.Fields[5].AsString;
     Rz9.Text:= QStaffEdit.Fields[8].AsString;
     if frmStaff.prm=0 then
        Rz10.Value:= QStaffEdit.Fields[9].AsFloat
     else begin
        Rz10.Visible:=False;
        Label10.Visible:=False;
     end;
  end;
end;

procedure TfrmStaffEdit.btnKaydetClick(Sender: TObject);
begin
  if PFormType=1 then begin
     with QStaffEdit.SQL do begin
          Clear;
          Add('Insert Into Staff Values(');
          Add(QuotedStr(Rz1.Text)+',');
          Add(QuotedStr(Rz2.Text)+',');
          Add(QuotedStr(Rz3.Text)+',');
          Add(QuotedStr(Rz6.Text)+',');
          Add(QuotedStr(Rz7.Text)+',');
          Add(QuotedStr(Rz8.Text)+',');
          Add(QuotedStr(Rz5.Text)+',');
          Add(QuotedStr(Rz4.Text)+',');
          Add(QuotedStr(Rz9.Text)+',');
          Add(QuotedStr(StringReplace(FloatToStr(Rz10.Value),',','.',[rfReplaceAll]))+')');
     end;
     if frmStaff.prm=0 then begin
        try
          QStaffEdit.ExecSQL;
        except
          ShowMessage('You cannot insert staff records. Because you dont have permission');
          exit;
        end
     end else
         ShowMessage('You cannot insert staff records. Because you dont have permission');

     PCardCode:=Rz1.Text;

  end;

  if PFormType=2 then begin
     with QStaffEdit.SQL do begin
          Clear;
          Add('Update Staff Set ');
          Add('PersonelCode='+QuotedStr(Rz1.Text)+',');
          Add('Name='+QuotedStr(Rz2.Text)+',');
          Add('Surname='+QuotedStr(Rz3.Text)+',');
          Add('DeptCode='+QuotedStr(Rz6.Text)+',');
          Add('StatusCode='+QuotedStr(Rz7.Text)+',');
          Add('DutyCode='+QuotedStr(Rz8.Text)+',');
          Add('Phone='+QuotedStr(Rz5.Text)+',');
          Add('OfficeNo='+QuotedStr(Rz4.Text)+',');
          Add('Address='+QuotedStr(Rz9.Text)+',');
          Add('Salary='+QuotedStr(StringReplace(FloatToStr(Rz10.Value),',','.',[rfReplaceAll]))+' ');
          Add('Where PersonelCode='+QuotedStr(PCardCode));
     end;

     if frmStaff.prm=0 then begin
        try
          QStaffEdit.ExecSQL;
        except
          ShowMessage('You cannot update staff records. Because you dont have permission');
          exit;
        end
     end else
         ShowMessage('You cannot update staff records. Because you dont have permission');

  end;


  frmStaff.QStaff.Close;
  frmStaff.QStaff.Open;
  frmStaff.QStaff.Locate('PersonelCode',PCardCode,[]);

  Close;
  
end;

end.