开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 百货/超市行业 > 查看源码
main.pas
资源名称：Elavotor.rar　[点击查看]
上传用户：sipnol
上传日期：2013-03-16
资源大小：318k
文件大小：5k
源码类别：

百货/超市行业

开发平台：

Visual C++

main.pas：源码内容
  1. unit main;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  7.   setupin,Define,Forms, Dialogs, ComCtrls, ExtCtrls, StdCtrls, Grids;
  9. type
  10.   Tmainform = class(TForm)
  11.     STB1: TStatusBar;
  12.     Panel1: TPanel;
  13.     PageControl1: TPageControl;
  14.     TabSheet1: TTabSheet;
  15.     TabSheet2: TTabSheet;
  16.     TabSheet3: TTabSheet;
  17.     Panel2: TPanel;
  18.     TB0: TTrackBar;
  19.     TB1: TTrackBar;
  20.     TB2: TTrackBar;
  21.     TB3: TTrackBar;
  22.     TB4: TTrackBar;
  23.     TB5: TTrackBar;
  24.     TB6: TTrackBar;
  25.     TB7: TTrackBar;
  26.     TB8: TTrackBar;
  27.     TB9: TTrackBar;
  28.     Label1: TLabel;
  29.     Label2: TLabel;
  30.     Label3: TLabel;
  31.     Label4: TLabel;
  32.     Label5: TLabel;
  33.     Label6: TLabel;
  34.     Label7: TLabel;
  35.     Label8: TLabel;
  36.     Label9: TLabel;
  37.     Label10: TLabel;
  38.     Memo0: TMemo;
  39.     Memo1: TMemo;
  40.     Memo2: TMemo;
  41.     Memo3: TMemo;
  42.     Memo4: TMemo;
  43.     Memo5: TMemo;
  44.     Memo6: TMemo;
  45.     Memo7: TMemo;
  46.     Memo8: TMemo;
  47.     Memo9: TMemo;
  48.     Label11: TLabel;
  49.     Label12: TLabel;
  50.     Label13: TLabel;
  51.     Label14: TLabel;
  52.     Label15: TLabel;
  53.     Label16: TLabel;
  54.     Label17: TLabel;
  55.     Label18: TLabel;
  56.     Label19: TLabel;
  57.     Label20: TLabel;
  58.     Label21: TLabel;
  59.     Label22: TLabel;
  60.     Label23: TLabel;
  61.     Label24: TLabel;
  62.     Label25: TLabel;
  63.     Label26: TLabel;
  64.     Label27: TLabel;
  65.     Label28: TLabel;
  66.     Label29: TLabel;
  67.     Label30: TLabel;
  68.     ST0: TStaticText;
  69.     ST1: TStaticText;
  70.     ST2: TStaticText;
  71.     ST3: TStaticText;
  72.     ST4: TStaticText;
  73.     ST5: TStaticText;
  74.     ST6: TStaticText;
  75.     ST7: TStaticText;
  76.     ST8: TStaticText;
  77.     ST9: TStaticText;
  78.     idleST0: TStaticText;
  79.     idleST1: TStaticText;
  80.     idleST2: TStaticText;
  81.     idleST3: TStaticText;
  82.     idleST4: TStaticText;
  83.     idleST5: TStaticText;
  84.     idleST6: TStaticText;
  85.     idleST7: TStaticText;
  86.     idleST8: TStaticText;
  87.     idleST9: TStaticText;
  88.     Panel3: TPanel;
  89.     Panel4: TPanel;
  90.     StrGD1: TStringGrid;
  91.     Memo10: TMemo;
  92.     Memo11: TMemo;
  93.     Memo12: TMemo;
  94.     Label31: TLabel;
  95.     Label32: TLabel;
  96.     Label33: TLabel;
  97.     Memo13: TMemo;
  98.     Label34: TLabel;
  99.     Label35: TLabel;
  100.     Label36: TLabel;
  101.     Label37: TLabel;
  102.     Label38: TLabel;
  103.     Label39: TLabel;
  104.     Label40: TLabel;
  105.     Label41: TLabel;
  106.     Label42: TLabel;
  107.     Label43: TLabel;
  108.     Label44: TLabel;
  109.     procedure FormCreate(Sender: TObject);
  110.     procedure FormDestroy(Sender: TObject);
  111.     procedure FormShow(Sender: TObject);
  112.   private
  113.     { Private declarations }
  114.   public
  115.     { Public declarations }
  116.   end;
  118. var
  119.   mainform: Tmainform;
  121. implementation
  123. {$R *.DFM}
  125. procedure Tmainform.FormCreate(Sender: TObject);
  126. var i:integer;
  127. begin
  128.      for i:=0 to 9 DO
  129.       begin
  130.          ElavotorTrack[i]:=TTrackbar.Create(nil);
  131.          Elavotor_idle_Label[i]:=TStaticText.Create(nil);
  132.          Elavotor_Busy_Label[i]:=TStaticText.Create(nil);
  133.          Elavotor_Memo[i]:=Tmemo.Create(nil);
  134.       end;
  135.      ShowFloor:=TStringGrid.Create(nil);
  136.      ShowFloor:=StrGD1;
  137.       ElavotorTrack[0]:=TB0;
  138.       ElavotorTrack[1]:=TB1;
  139.       ElavotorTrack[2]:=TB2;
  140.       ElavotorTrack[3]:=TB3;
  141.       ElavotorTrack[4]:=TB4;
  142.       ElavotorTrack[5]:=TB5;
  143.       ElavotorTrack[6]:=TB6;
  144.       ElavotorTrack[7]:=TB7;
  145.       ElavotorTrack[8]:=TB8;
  146.       ElavotorTrack[9]:=TB9;
  147.         Elavotor_idle_Label[0]:=idleST0;
  148.         Elavotor_idle_Label[1]:=idleST1;
  149.         Elavotor_idle_Label[2]:=idleST2;
  150.         Elavotor_idle_Label[3]:=idleST3;
  151.         Elavotor_idle_Label[4]:=idleST4;
  152.         Elavotor_idle_Label[5]:=idleST5;
  153.         Elavotor_idle_Label[6]:=idleST6;
  154.         Elavotor_idle_Label[7]:=idleST7;
  155.         Elavotor_idle_Label[8]:=idleST8;
  156.         Elavotor_idle_Label[9]:=idleST9;
  157.           Elavotor_Busy_Label[0]:=ST0;
  158.           Elavotor_Busy_Label[1]:=ST1;
  159.           Elavotor_Busy_Label[2]:=ST2;
  160.           Elavotor_Busy_Label[3]:=ST3;
  161.           Elavotor_Busy_Label[4]:=ST4;
  162.           Elavotor_Busy_Label[5]:=ST5;
  163.           Elavotor_Busy_Label[6]:=ST6;
  164.           Elavotor_Busy_Label[7]:=ST7;
  165.           Elavotor_Busy_Label[8]:=ST8;
  166.           Elavotor_Busy_Label[9]:=ST9;
  167.             Elavotor_Memo[0]:=Memo0;
  168.             Elavotor_Memo[1]:=Memo1;
  169.             Elavotor_Memo[2]:=Memo2;
  170.             Elavotor_Memo[3]:=Memo3;
  171.             Elavotor_Memo[4]:=Memo4;
  172.             Elavotor_Memo[5]:=Memo5;
  173.             Elavotor_Memo[6]:=Memo6;
  174.             Elavotor_Memo[7]:=Memo7;
  175.             Elavotor_Memo[8]:=Memo8;
  176.             Elavotor_Memo[9]:=Memo9;
  177.     try
  178.         SystemControl:=TSystemControl.Create;
  179.         SystemControl.Initsystem;
  180.     finally
  181.     end;
  182.           SystemControl.Initsystem;
  183. end;
  185. procedure Tmainform.FormDestroy(Sender: TObject);
  186. var i:integer;
  187. begin
  188.  //释放所有类对象和线程的内存资源
  189.  try
  190.    SystemMonitor.FreeOnTerminate:=true;
  191.    SystemMonitor.Terminate;
  192.    for i:=0 to Systemcontrol.CurrentPersonTotal-1 DO
  193.      Person[i].Free;
  194.    for i:=0 to 9 Do
  195.     begin
  196.       RunThread[i].FreeOnTerminate:=true;
  197.       RunThread[i].Terminate;
  198.       Elavotor[i].Free;
  199.       ElavotorTrack[i].Free;
  200.       Elavotor_idle_Label[i].free;
  201.       Elavotor_Busy_Label[i].free;
  202.     end;
  203.     for i:=0 to 39 DO
  204.       Floor[i+1].Free;
  205.     SystemControl.Free;
  206.   finally
  207.   end;
  208. end;
  210. procedure Tmainform.FormShow(Sender: TObject);
  211. var i:integer;
  212. begin
  213.   SystemMonitor.Resume;
  214.   sleep(1000);
  215.   for i:=0 to 9 DO
  216.   RunThread[i].Resume;
  217. end;
  219. end.