📄 main.pas
字号:
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ComCtrls, TabNotBk, ImgList, ToolWin, StdCtrls, Buttons,
DB, Grids, DBGrids, TComm1, ExtCtrls, IAgaloLED, jpeg, WinSkinData,
WinSkinStore, SkinCaption;
type
TFrm_Main = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
StatusBar1: TStatusBar;
ToolBar1: TToolBar;
ImageList1: TImageList;
TabbedNotebook1: TTabbedNotebook;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
DataSource_YH: TDataSource;
Label1: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
ComboBox1: TComboBox;
Edit3: TEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DataSource_SB: TDataSource;
GroupBox2: TGroupBox;
DBGrid2: TDBGrid;
Label2: TLabel;
Edit2: TEdit;
Label5: TLabel;
Edit4: TEdit;
Label6: TLabel;
Label7: TLabel;
Edit6: TEdit;
Label8: TLabel;
Edit7: TEdit;
Label9: TLabel;
Edit8: TEdit;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
ComboBox2: TComboBox;
GroupBox5: TGroupBox;
Check1: TCheckBox;
Check2: TCheckBox;
Check3: TCheckBox;
Check4: TCheckBox;
Check5: TCheckBox;
Check6: TCheckBox;
CheckBox1: TCheckBox;
BitBtn7: TBitBtn;
Timer1: TTimer;
Comm1: TComm;
Timer2: TTimer;
Timer_main: TTimer;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ImageList2: TImageList;
GroupBox3: TGroupBox;
LED1_2: TIAgaloLED;
LED1_3: TIAgaloLED;
GroupBox4: TGroupBox;
LED2_1: TIAgaloLED;
LED2_2: TIAgaloLED;
LED2_3: TIAgaloLED;
GroupBox6: TGroupBox;
LED3_1: TIAgaloLED;
LED3_2: TIAgaloLED;
LED3_3: TIAgaloLED;
GroupBox7: TGroupBox;
LED4_1: TIAgaloLED;
LED4_2: TIAgaloLED;
LED4_3: TIAgaloLED;
GroupBox8: TGroupBox;
LED5_2: TIAgaloLED;
LED5_3: TIAgaloLED;
GroupBox9: TGroupBox;
LED6_1: TIAgaloLED;
LED6_2: TIAgaloLED;
LED6_3: TIAgaloLED;
GroupBox13: TGroupBox;
LED7_1: TIAgaloLED;
LED7_2: TIAgaloLED;
LED7_3: TIAgaloLED;
GroupBox12: TGroupBox;
LED8_1: TIAgaloLED;
LED8_2: TIAgaloLED;
LED8_3: TIAgaloLED;
GroupBox11: TGroupBox;
LED9_1: TIAgaloLED;
LED9_2: TIAgaloLED;
LED9_3: TIAgaloLED;
GroupBox10: TGroupBox;
LED10_1: TIAgaloLED;
LED10_2: TIAgaloLED;
LED10_3: TIAgaloLED;
Group15: TGroupBox;
LED11_1: TIAgaloLED;
LED11_2: TIAgaloLED;
LED11_3: TIAgaloLED;
GroupBox15: TGroupBox;
LED12_1: TIAgaloLED;
LED12_2: TIAgaloLED;
LED12_3: TIAgaloLED;
GroupBox16: TGroupBox;
LED13_1: TIAgaloLED;
LED13_2: TIAgaloLED;
LED13_3: TIAgaloLED;
GroupBox17: TGroupBox;
LED14_1: TIAgaloLED;
LED14_2: TIAgaloLED;
LED14_3: TIAgaloLED;
GroupBox18: TGroupBox;
LED15_1: TIAgaloLED;
LED15_2: TIAgaloLED;
LED15_3: TIAgaloLED;
GroupBox19: TGroupBox;
LED16_1: TIAgaloLED;
LED16_2: TIAgaloLED;
LED16_3: TIAgaloLED;
GroupBox20: TGroupBox;
LED17_1: TIAgaloLED;
LED17_2: TIAgaloLED;
LED17_3: TIAgaloLED;
GroupBox21: TGroupBox;
LED18_1: TIAgaloLED;
LED18_2: TIAgaloLED;
LED18_3: TIAgaloLED;
GroupBox22: TGroupBox;
LED19_1: TIAgaloLED;
LED19_2: TIAgaloLED;
LED19_3: TIAgaloLED;
GroupBox23: TGroupBox;
LED20_1: TIAgaloLED;
LED20_2: TIAgaloLED;
LED20_3: TIAgaloLED;
GroupBox24: TGroupBox;
LED21_1: TIAgaloLED;
LED21_2: TIAgaloLED;
LED21_3: TIAgaloLED;
GroupBox25: TGroupBox;
LED22_1: TIAgaloLED;
LED22_2: TIAgaloLED;
LED22_3: TIAgaloLED;
GroupBox26: TGroupBox;
LED23_1: TIAgaloLED;
LED23_2: TIAgaloLED;
LED23_3: TIAgaloLED;
GroupBox27: TGroupBox;
LED24_1: TIAgaloLED;
LED24_2: TIAgaloLED;
LED24_3: TIAgaloLED;
GroupBox29: TGroupBox;
LED26_1: TIAgaloLED;
LED26_2: TIAgaloLED;
LED26_3: TIAgaloLED;
GroupBox30: TGroupBox;
LED27_1: TIAgaloLED;
LED27_2: TIAgaloLED;
LED27_3: TIAgaloLED;
Button1: TButton;
LED1_1: TIAgaloLED;
Button2: TButton;
Button3: TButton;
C1: TCheckBox;
C2: TCheckBox;
C3: TCheckBox;
C4: TCheckBox;
C5: TCheckBox;
C6: TCheckBox;
C7: TCheckBox;
C8: TCheckBox;
C9: TCheckBox;
C10: TCheckBox;
C11: TCheckBox;
C12: TCheckBox;
C13: TCheckBox;
C14: TCheckBox;
C15: TCheckBox;
C16: TCheckBox;
C17: TCheckBox;
C18: TCheckBox;
C19: TCheckBox;
C20: TCheckBox;
C27: TCheckBox;
C26: TCheckBox;
C25: TCheckBox;
C24: TCheckBox;
C23: TCheckBox;
C22: TCheckBox;
C21: TCheckBox;
LED5_1: TIAgaloLED;
Button4: TButton;
Timer3: TTimer;
Image1: TImage;
N7: TMenuItem;
N13: TMenuItem;
LED1: TIAgaloLED;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
LED2: TIAgaloLED;
LED3: TIAgaloLED;
LED4: TIAgaloLED;
LED5: TIAgaloLED;
LED6: TIAgaloLED;
LED7: TIAgaloLED;
LED8: TIAgaloLED;
LED9: TIAgaloLED;
LED10: TIAgaloLED;
LED11: TIAgaloLED;
LED12: TIAgaloLED;
LED13: TIAgaloLED;
LED14: TIAgaloLED;
LED15: TIAgaloLED;
LED16: TIAgaloLED;
LED18: TIAgaloLED;
LED17: TIAgaloLED;
LED19: TIAgaloLED;
LED20: TIAgaloLED;
LED21: TIAgaloLED;
LED22: TIAgaloLED;
LED23: TIAgaloLED;
LED24: TIAgaloLED;
LED25: TIAgaloLED;
LED26: TIAgaloLED;
LED27: TIAgaloLED;
Shape1: TShape;
GroupBox14: TGroupBox;
LED28_1: TIAgaloLED;
LED28_2: TIAgaloLED;
LED28_3: TIAgaloLED;
c28: TCheckBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
SpeedButton20: TSpeedButton;
SpeedButton21: TSpeedButton;
SpeedButton22: TSpeedButton;
SpeedButton23: TSpeedButton;
SpeedButton24: TSpeedButton;
SpeedButton25: TSpeedButton;
SpeedButton26: TSpeedButton;
SpeedButton27: TSpeedButton;
DataSource_QY: TDataSource;
LED28: TIAgaloLED;
SpeedButton28: TSpeedButton;
C1_1: TCheckBox;
C1_2: TCheckBox;
C1_3: TCheckBox;
C2_1: TCheckBox;
C2_2: TCheckBox;
C2_3: TCheckBox;
C3_1: TCheckBox;
C3_2: TCheckBox;
C3_3: TCheckBox;
C4_1: TCheckBox;
C4_2: TCheckBox;
C4_3: TCheckBox;
C5_1: TCheckBox;
C5_2: TCheckBox;
C5_3: TCheckBox;
C6_1: TCheckBox;
C6_2: TCheckBox;
C6_3: TCheckBox;
C7_1: TCheckBox;
C7_2: TCheckBox;
C7_3: TCheckBox;
C8_1: TCheckBox;
C8_2: TCheckBox;
C8_3: TCheckBox;
C9_1: TCheckBox;
C9_2: TCheckBox;
C9_3: TCheckBox;
C10_1: TCheckBox;
C10_2: TCheckBox;
C10_3: TCheckBox;
C11_1: TCheckBox;
C11_2: TCheckBox;
C11_3: TCheckBox;
C12_1: TCheckBox;
C12_2: TCheckBox;
C12_3: TCheckBox;
C13_1: TCheckBox;
C13_2: TCheckBox;
C13_3: TCheckBox;
C14_1: TCheckBox;
C14_2: TCheckBox;
C14_3: TCheckBox;
C15_1: TCheckBox;
C15_2: TCheckBox;
C15_3: TCheckBox;
C16_1: TCheckBox;
C16_2: TCheckBox;
C16_3: TCheckBox;
C17_1: TCheckBox;
C17_2: TCheckBox;
C17_3: TCheckBox;
C18_1: TCheckBox;
C18_2: TCheckBox;
C18_3: TCheckBox;
C19_1: TCheckBox;
C19_2: TCheckBox;
C19_3: TCheckBox;
C20_1: TCheckBox;
C20_2: TCheckBox;
C20_3: TCheckBox;
C21_1: TCheckBox;
C21_2: TCheckBox;
C21_3: TCheckBox;
C22_1: TCheckBox;
C22_2: TCheckBox;
C22_3: TCheckBox;
C23_1: TCheckBox;
C23_2: TCheckBox;
C23_3: TCheckBox;
C24_1: TCheckBox;
C24_2: TCheckBox;
C24_3: TCheckBox;
GroupBox28: TGroupBox;
LED25_1: TIAgaloLED;
LED25_2: TIAgaloLED;
LED25_3: TIAgaloLED;
C25_1: TCheckBox;
C25_2: TCheckBox;
C25_3: TCheckBox;
C26_1: TCheckBox;
C26_2: TCheckBox;
C26_3: TCheckBox;
C27_1: TCheckBox;
C27_2: TCheckBox;
C27_3: TCheckBox;
C28_1: TCheckBox;
C28_2: TCheckBox;
C28_3: TCheckBox;
combo_com: TComboBox;
Button5: TButton;
BitBtn10: TBitBtn;
N14: TMenuItem;
procedure DataSource_YHDataChange(Sender: TObject; Field: TField);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure TabbedNotebook1Change(Sender: TObject; NewTab: Integer;
var AllowChange: Boolean);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure DataSource_SBDataChange(Sender: TObject; Field: TField);
procedure N4Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure Timer_mainTimer(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure TabbedNotebook1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Timer3Timer(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure combo_comChange(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure BitBtn10Click(Sender: TObject);
procedure N14Click(Sender: TObject);
private
function getorder:string;
procedure outorder;
function strtobin(src:string):string;
procedure updateBC;
procedure out1(i:integer);
{ Private declarations }
public
s1:array[1..30]of string;
s2:array[1..30]of string;
s3:array[1..30]of string;
s:array[1..30] of string;
send:array[1..30]of string;
fasong:array[1..30]of string;
Receive:array[1..30]of string;
choose:array[1..30]of integer;
choose1:array[1..30]of integer;
biaozhi:array[1..30]of integer;
counter:array[1..30]of integer;
T_C:array[1..30]of integer;
ReadC:array[1..30]of integer;
Rbiaozhi:array[1..30]of integer;
T_R:array[1..30]of integer;
Rcounter:array[1..30]of integer;
UI:array[1..30,1..2]of string;
AI:array[1..30,1..6]of string;
DI:array[1..30]of string;
a:array[1..30] of string;
b:array[1..30] of string;
cc:array[1..30] of string;
d:array[1..30] of string;
e:array[1..30] of string;
f:array[1..30] of string;
//frm_dd;;;;;;;
D_send:string;
D_addr:string;
D_a,D_b,D_c:string;
C:array[1..30] of Tcheckbox;
led:array[1..28]of Tiagaloled;
iii:integer;
checkk:array[1..28,1..3]of integer;
ledT,ledt1,ledt2,ledt3:tiagaloled;
////////////////////checked_statue///////////////////
// //
// //
/////////////////////////////////////////////////////
zhuangtai:array[1..28,1..3]of string;
zhuangtai1:array[1..28]of string;
led_check:array[1..28,1..3]of Tiagaloled;
zhuangtaiD:array[1..28,1..3]of string;
zhuangtaiD1:array[1..28]of string;
{ Public declarations }
on_time,off_time:string;
on_B,off_B:integer;
end;
var
Frm_Main: TFrm_Main;
implementation
uses DM, TD, Backup, about, dange, login, log;
{$R *.dfm}
procedure Tfrm_main.out1(i:integer);
begin
end;
procedure tfrm_main.updateBC;
var
m1:integer;
begin
for m1:=1 to 28 do
begin
zhuangtai1[m1]:=zhuangtai[m1,1]+zhuangtai[m1,2]+zhuangtai[m1,3];
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -