Разработка математической модели конструирования чертежей выкроек женского платья

Автор работы: Пользователь скрыл имя, 02 Мая 2013 в 13:34, курсовая работа

Краткое описание

ЗАДАНИЕ: Построение имитационной модели системы кадровой службы предприятия.
ЦЕЛЬ РАБОТЫ: разработать модель имитационной системы кадровой службы предприятия, составить программу на языке высокого уровня Delphi, произвести её тестирование, настройку и отладку.
Трудовые ресурсы предприятия являются главным ресурсом каждого предприятия, от качества подбора и эффективности использования которого во многом зависят результаты производственной деятельности предприятия. На уровне отдельного предприятия вместо термина "трудовые, ресурсы" чаще используют термины "кадры" и "персонал".

Содержание

ВВЕДЕНИЕ
ЗАДАНИЕ 2
ЦЕЛЬ РАБОТЫ 2
СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

Скачать в ZIP архиве (338.04 Кб) Сколько стоит заказать работу?
Вложенные файлы: 1 файл

Моделирование систем.doc

— 495.50 Кб (Скачать файл)

    DBGrid4: TDBGrid;

    Button11: TButton;

    TabSheet7: TTabSheet;

    DBGrid5: TDBGrid;

    GranS: TDataSource;

    GranT: TTable;

    Button12: TButton;

    DBGrid6: TDBGrid;

    DBGrid7: TDBGrid;

    ObrT: TTable;

    MainMenu1: TMainMenu;

    N671: TMenuItem;

    Button13: TButton;

    DBText13: TDBText;

    DBText14: TDBText;

    DBText15: TDBText;

    DBText16: TDBText;

    Label16: TLabel;

    Label17: TLabel;

    Label19: TLabel;

    Label20: TLabel;

    Label21: TLabel;

    DBText17: TDBText;

    Label18: TLabel;

    DBText18: TDBText;

    Label22: TLabel;

    Label23: TLabel;

    DBText19: TDBText;

    DBText20: TDBText;

    DBText21: TDBText;

    ObrazS: TDataSource;

    obrazT: TTable;

    SupS: TDataSource;

    SupT: TTable;

    VoinT: TTable;

    VoinS: TDataSource;

    Label24: TLabel;

    DBText22: TDBText;

    DBMemo1: TDBMemo;

    Label25: TLabel;

    KvaliS: TDataSource;

    KvaliT: TTable;

    Query1: TQuery;

    DataSource1: TDataSource;

    Button14: TButton;

    Query1Otdel: TStringField;

    Query1Fam: TStringField;

    Query1Name: TStringField;

    Query1Otch: TStringField;

    Query1Dolzhnost: TStringField;

    Query1TekKval: TStringField;

    Query1Color: TStringField;

    Label26: TLabel;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N10: TMenuItem;

    N11: TMenuItem;

    N13: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    N16: TMenuItem;

    N17: TMenuItem;

    N18: TMenuItem;

    N22: TMenuItem;

    N23: TMenuItem;

    Label27: TLabel;

    Label28: TLabel;

    Label29: TLabel;

    Label30: TLabel;

    Label31: TLabel;

    Label32: TLabel;

    Label35: TLabel;

    Label36: TLabel;

    SpisokTN: TAutoIncField;

    SpisokTN1: TIntegerField;

    SpisokTOtdel: TStringField;

    SpisokTFam: TStringField;

    SpisokTName: TStringField;

    SpisokTOtch: TStringField;

    SpisokTDolzhnost: TStringField;

    SpisokTTekKval: TStringField;

    SpisokTColor: TStringField;

    LichTN: TIntegerField;

    LichTPasNum: TStringField;

    LichTPasSer: TStringField;

    LichTPasVid: TStringField;

    LichTPasData: TStringField;

    LichTINN: TStringField;

    LichTDomAdrUl: TStringField;

    LichTDomAdrDom: TStringField;

    LichTDomAdpKv: TStringField;

    LichTDomTel: TStringField;

   LichTRozhData: TStringField;

    LichTRozhMesto: TStringField;

    LichTPol: TStringField;

    KvaliTN: TIntegerField;

    KvaliTN2: TAutoIncField;

    KvaliTN1: TIntegerField;

    KvaliTPovMesto: TStringField;

    KvaliTPovS: TStringField;

    KvaliTPovPo: TStringField;

    KvaliTRaz: TFloatField;

    KvaliTKval: TStringField;

    SemTN: TIntegerField;

    SemTN1: TAutoIncField;

    SemTN2: TIntegerField;

    SemTDetFam: TStringField;

    SemTDetName: TStringField;

    SemTDetOtch: TStringField;

    SemTDetData: TStringField;

    GranTN: TIntegerField;

    GranTN2: TAutoIncField;

    GranTN1: TFloatField;

    GranTZagr: TStringField;

    GranTZagrS: TStringField;

    GranTZagrPo: TStringField;

    GranTZagrGoal: TStringField;

    GranTVoinOb: TBooleanField;

    GranTGoden: TBooleanField;

    GranTOsob: TMemoField;

    ObrTN: TIntegerField;

    ObrTN2: TAutoIncField;

    ObrTZaved: TStringField;

    ObrTN1: TIntegerField;

    ObrTZavedAdr: TStringField;

    ObrTSpec: TStringField;

    ObrTGodS: TStringField;

    ObrTGodPo: TStringField;

    ObrTDipSer: TStringField;

    ObrTDipNom: TStringField;

    ObrTDipTema: TStringField;

    SupTN: TIntegerField;

    SupTSup: TStringField;

    SupTSupFam: TStringField;

    SupTSupName: TStringField;

    SupTSupOtch: TStringField;

    obrazTN: TIntegerField;

    obrazTN2: TAutoIncField;

    obrazTN1: TIntegerField;

    obrazTObrSred: TStringField;

    obrazTObrSpec: TStringField;

    obrazTObrVis: TStringField;

    LangTN: TIntegerField;

    LangTN2: TAutoIncField;

    LangTLang: TStringField;

    LangTN1: TIntegerField;

    LangTLangUrov: TStringField;

    DBText23: TDBText;

    DBText24: TDBText;

    DBText25: TDBText;

    DBText26: TDBText;

    DBText28: TDBText;

    VoinTN: TIntegerField;

    VoinTVoinOb: TStringField;

    VoinTGoden: TStringField;

    VoinTVoinData: TStringField;

    VoinTOsob: TMemoField;

    RabTN: TIntegerField;

    RabTUvolData: TStringField;

    RabTPrinData: TStringField;

    RabTUvolOsnov: TStringField;

    RabTUvol: TStringField;

    Label33: TLabel;

    Query2: TQuery;

    N24: TMenuItem;

    N25: TMenuItem;

    N26: TMenuItem;

    N1: TMenuItem;

    N12: TMenuItem;

    N19: TMenuItem;

    Query1N1: TIntegerField;

    Query1N: TIntegerField;

    procedure FormCreate(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

    procedure DBGrid1CellClick(Column: TColumn);

    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;

      Shift: TShiftState);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure Button12Click(Sender: TObject);

    procedure Button11Click(Sender: TObject);

    procedure Button13Click(Sender: TObject);

    procedure FormShow(Sender: TObject);

    procedure Button14Click(Sender: TObject);

    procedure N1Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure DBGrid1DblClick(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure N20Click(Sender: TObject);

    procedure N21Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure N14Click(Sender: TObject);

    procedure N15Click(Sender: TObject);

    procedure N16Click(Sender: TObject);

    procedure N17Click(Sender: TObject);

    procedure N18Click(Sender: TObject);

    procedure N22Click(Sender: TObject);

    procedure N23Click(Sender: TObject);

    procedure PageControl1Changing(Sender: TObject;

      var AllowChange: Boolean);

    procedure FormActivate(Sender: TObject);

    procedure N25Click(Sender: TObject);

    procedure N26Click(Sender: TObject);

    procedure N19Click(Sender: TObject);

    procedure DBGrid5KeyDown(Sender: TObject; var Key: Word;

      Shift: TShiftState);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

uses Unit4, Unit7, Unit6, Unit8, Unit9, Unit10, Unit11;

 

 

 

 

 

{$R *.DFM}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

dbgrid1.DataSource:=SpisokS;

SpisokT.Refresh;

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

form1.DBNavigator1.visible:=true;

SpisokT.Active:=true;

 

  end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);

begin

if form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=true

else form5.CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;

if form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;

if form1.RabTUvol.Value='Уволен' then form3.CheckBox1.Checked:=true else form3.CheckBox1.Checked:=false;

DBGrid1.SelectedRows.CurrentRowSelected:=true;

if form1.SpisokS.DataSet <> form1.Query1 then

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

 

  begin  //начало вытрёпываниям по поводу enabled :)

if (Button=nbPrior) or (Button=nbFirst) then

begin

SpisokT.Prior;

if SpisokT.bof then

begin

DBNavigator1.Controls[Ord(nbNext)].Enabled:=True;

DBNavigator1.Controls[Ord(nbLast)].Enabled:=True;

end

else

SpisokT.Next;

end;

if (Button=nbNext) or (Button=nbLast) then

begin

SpisokT.Next;

if SpisokT.Eof then

begin

DBNavigator1.Controls[Ord(nbFirst)].Enabled:=True;

DBNavigator1.Controls[Ord(nbPrior)].Enabled:=True;

end

else

SpisokT.Prior;

end;

end;

end;  //конец вытрёпываниям  по поводу enabled

 

 

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

try

if form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;

if form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=true

else form5.CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;

 

if form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;

if form1.SpisokS.DataSet <> form1.Query1 then

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

  except

  end;

end;

 

procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;

if form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=true

else form5.CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;

 

if form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;

if form1.SpisokS.DataSet <> form1.Query1 then

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

 

end;

 

procedure TForm1.Button2Click(Sender: TObject);

var s:integer;

begin

spisokT.First;

while not spisokT.Eof do

SpisokT.next;

s:=spisokTN1.value+1;

spisokT.edit;

dbnavigator1.BtnClick(nbInsert);

form1.SpisokTN1.Value:=s;

dbnavigator1.BtnClick(nbrefresh);

form8.showmodal;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

var r:integer;

begin

try

r:=messagedlg('Вы уверены??',mtConfirmation,[mbOk,mbCancel],0);

if r=mrOk then begin

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "deti.db" where (n='+inttostr(SemTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "Voin.db" where (n='+inttostr(VoinTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "Zav.db" where (n='+inttostr(ObrTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "otp.db" where (n='+inttostr(form3.OtpTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "gran.db" where (n='+inttostr(GranTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "obraz.db" where (n='+inttostr(obrazTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "t3.db" where (n='+inttostr(LichTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "t4.db" where (n='+inttostr(RabTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "Kval.db" where (n='+inttostr(kvaliTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "Lang.db" where (n='+inttostr(LangTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "suprug.db" where (n='+inttostr(SupTn.value)+')');

form1.Query1.ExecSQL;

form1.Query1.SQL.Clear;

form1.Query1.SQL.Add('Delete from "t1.db" where (n='+inttostr(spisokTn.value)+')');

form1.Query1.ExecSQL; end;

DBNavigator1.BtnClick(nbrefresh);

 except showmessage('Сохраните изменения!!');

 end;

end;

 

procedure TForm1.Button6Click(Sender: TObject);

begin

button6.Visible:=false;

form1.SpisokS.DataSet:=form1.SpisokT;

SpisokT.edit;

form1.DBGrid1.readOnly:=false;

button2.Enabled:=true;

button3.Enabled:=true;

button4.Enabled:=true;

button5.Enabled:=true;

button1.Enabled:=false;

button14.Enabled:=false;

end;

 

procedure TForm1.Button4Click(Sender: TObject);

begin

try

SpisokT.edit;

DBNavigator1.BtnClick(nbPost);

button1.Enabled:=true;

button6.Visible:=true;

button2.Enabled:=false;

button3.Enabled:=false;

button4.Enabled:=false;

button5.Enabled:=false;

button1.Enabled:=true;

except;

end;

end;

 

procedure TForm1.Button5Click(Sender: TObject);

begin

DBNavigator1.BtnClick(nbCancel);

button1.Enabled:=true;

button6.Visible:=true;

button2.Enabled:=true;

button3.Enabled:=true;

button4.Enabled:=true;

button5.Enabled:=true;

button2.Enabled:=false;

button3.Enabled:=false;

button4.Enabled:=false;

button5.Enabled:=false;

button1.Enabled:=true;

end;

 

procedure TForm1.Button7Click(Sender: TObject);

begin

try

LichT.edit;

form10.showmodal;

except

  showmessage('Введите корректные данные!!!');

end;

end;

 

procedure TForm1.Button8Click(Sender: TObject);

begin

try

RabT.Edit;

Form3.showmodal;

except

  showmessage('Введите корректные  данные!!!');

end;

end;

 

procedure TForm1.Button9Click(Sender: TObject);

begin

try

form4.showmodal;

except

  showmessage('Введите корректные данные!!!');

end;

 

end;

 

procedure TForm1.Button10Click(Sender: TObject);

begin

try

form5.showmodal;

except

  showmessage('Введите корректные данные!!!');

end;

 

end;

 

procedure TForm1.Button12Click(Sender: TObject);

begin

try

form1.VoinT.Edit;

form7.showmodal;

except

  showmessage('Введите корректные данные!!!');

end;

 

end;

 

procedure TForm1.Button11Click(Sender: TObject);

begin

try

form6.showmodal;

except

  showmessage('Введите корректные данные!!!');

end;

 

end;

 

procedure TForm1.Button13Click(Sender: TObject);

begin

form1.Query1.SQL.Clear;

  form1.Query1.SQL.Add('Select *');

  form1.Query1.SQL.Add('from "t1.db"');

  form9.showmodal;

end;

 

procedure TForm1.FormShow(Sender: TObject);

begin

  form2.ShowModal;

end;

 

 

procedure TForm1.Button14Click(Sender: TObject);

begin

form1.SpisokS.DataSet:=form1.SpisokT;

  form1.Button2.Visible:=true;

    form1.Button3.Visible:=true;

      form1.Button4.Visible:=true;

        form1.Button5.Visible:=true;

          form1.Button6.Visible:=true;

  form1.Button14.Visible:=false;

form1.Label1.Visible:=true;

form1.Label26.Visible:=false;

  Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

 

end;

 

procedure TForm1.N1Click(Sender: TObject);

begin

form1.button6.Click;

end;

 

procedure TForm1.N3Click(Sender: TObject);

begin

close;

end;

 

procedure TForm1.DBGrid1DblClick(Sender: TObject);

begin

try

if form1.VoinTVoinOb.Value='Военнообязанный' then form7.CheckBox1.Checked:=true else form7.CheckBox1.Checked:=false;

if form1.obrazTObrSred.Value='Среднее' then form5.CheckBox1.Checked:=true else form5.CheckBox1.Checked:=false;

if form1.obrazTObrSpec.Value='Среднее специальное' then form5.CheckBox2.Checked:=true

else form5.CheckBox2.Checked:=false;

if form1.obrazTObrVis.Value='Высшее' then form5.CheckBox3.Checked:=true else form5.CheckBox3.Checked:=false;

 

if form1.Button6.Visible=true then form1.DBGrid1.ReadOnly:=true;

except

end;

end;

 

procedure TForm1.N12Click(Sender: TObject);

begin

n12.ShortCut:=ShortCut(Word('S'), [ssCtrl]);

form1.Button4.Click;

end;

 

procedure TForm1.N20Click(Sender: TObject);

begin

form1.Button4.click;

end;

 

procedure TForm1.N21Click(Sender: TObject);

begin

form1.Button5.click;

end;

 

procedure TForm1.N13Click(Sender: TObject);

begin

form1.Button7.click;

end;

 

procedure TForm1.N14Click(Sender: TObject);

begin

form1.Button8.click;

end;

 

procedure TForm1.N15Click(Sender: TObject);

begin

form1.Button9.click;

end;

 

procedure TForm1.N16Click(Sender: TObject);

begin

form1.Button10.click;

end;

 

procedure TForm1.N17Click(Sender: TObject);

begin

form1.Button11.click;

end;

 

procedure TForm1.N18Click(Sender: TObject);

begin

form1.Button12.click;

end;

 

procedure TForm1.N22Click(Sender: TObject);

begin

Form9.ShowModal;

end;

 

procedure TForm1.N23Click(Sender: TObject);

begin

form11.showmodal;

form11.timer1.enabled:=true;

form11.timer1.interval:=1500;

end;

 

procedure TForm1.PageControl1Changing(Sender: TObject;

  var AllowChange: Boolean);

begin

if (button6.Visible=false) and ( form1.SpisokS.DataSet<>form1.Query1) then

messagedlg('Сохраните изменения  на первой странице!!!',mtWarning,[mbOk],0);

end;

 

procedure TForm1.FormActivate(Sender: TObject);

begin

Form1.Label1.Caption:=form1.SpisokTfam.value + ' '+ form1.SpisokTName.value +

  ' ' + form1.SpisokTOtch.value;

form1.DBNavigator1.visible:=true;

SpisokT.Active:=true;

end;

 

procedure TForm1.N25Click(Sender: TObject);

begin

form1.button6.Click;

form1.Button2.Click;

end;

 

procedure TForm1.N26Click(Sender: TObject);

begin

form1.button6.Click;

form1.Button3.click;

end;

 

procedure TForm1.N19Click(Sender: TObject);

begin

Form1.Button5.Click;

end;

 

procedure TForm1.DBGrid5KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

form7.Button1.Enabled:=true;

end;

 

end.

СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

 

1.Базы данных. Проектирование, реализация и сопровождение. Теория и практика. Конноллн, Томас, Бегг, Карелии.

2. Интернет ресурс http://www.codenet.ru

3. Delphi 7. Наиболее полное руководство Автор: Анатолий Хомоненко, Владимир Гофман, Евгений Мещеряков, Владимир Никифоров.

Информация о работе Разработка математической модели конструирования чертежей выкроек женского платья