复件 main.pas

一个用来管理PLC和工控点地址内容和具体功能的数据库软件!可用在工程的数据管理上面!

  FORM1.MAC1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(1);
end;

procedure TForm1.DEEP1Click(Sender: TObject);
begin      //设置界面显示模式为DEEP
  FORM1.DEEP1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(3);
end;

procedure TForm1.suiButton3Click(Sender: TObject);
var
sn:string;
begin               //查询按钮
if ADDRadio.Checked then
begin
   sn:=ADDedit.text;
   if ADOTable1.Locate('点地址',sn,[loCaseInsensitive]) then
   begin
      FORM2.suiGroupBox1.CAPTION:='查询成功';
      //a:=ADOTable1.Seek('点地址',edit3.text);
      FORM2.SHOW;
      FORM2.edit1.Text:=ADOTable1.Fields[0].AsString ;
      FORM2.edit2.Text:=ADOTable1.Fields[1].AsString ;
      FORM2.edit3.Text:=ADOTable1.Fields[2].AsString ;
      FORM2.edit4.Text:=ADOTable1.Fields[3].AsString ;
      FORM2.edit5.Text:=ADOTable1.Fields[4].AsString ;
      FORM2.edit6.Text:=ADOTable1.Fields[5].AsString ;
      FORM2.edit7.Text:=ADOTable1.Fields[6].AsString ;
   end
   else
      FORM2.suiGroupBox1.CAPTION:='查询失败';
end
else begin
  sn:=NRedit.text;
  if ADOTable1.Locate('接点内容',sn,[loCaseInsensitive]) then
  begin
      FORM2.suiGroupBox1.CAPTION:='查询成功';
      FORM2.SHOW;
      //a:=ADOTable1.Seek('点地址',edit3.text);
      FORM2.edit1.Text:=ADOTable1.Fields[0].AsString ;
      FORM2.edit2.Text:=ADOTable1.Fields[1].AsString ;
      FORM2.edit3.Text:=ADOTable1.Fields[2].AsString ;
      FORM2.edit4.Text:=ADOTable1.Fields[3].AsString ;
      FORM2.edit5.Text:=ADOTable1.Fields[4].AsString ;
      FORM2.edit6.Text:=ADOTable1.Fields[5].AsString ;
      FORM2.edit7.Text:=ADOTable1.Fields[6].AsString ;
  end
  else
      FORM2.suiGroupBox1.CAPTION:='查询失败';
end;

end;

procedure TForm1.ADDRadioClick(Sender: TObject);
begin        //切换查询模式
  NRedit.Visible :=false;
  ADDedit.Visible :=true;
  ADDedit.Text:='';
end;

procedure TForm1.NRRadioClick(Sender: TObject);
begin        //切换查询模式
  ADDedit.Visible :=false;
  NRedit.Visible :=true;
  NRedit.Text:='';
end;

procedure TForm1.ADDEditKeyPress(Sender: TObject; var Key: Char);
begin       //如果回车就响应查询按钮的事件
  if ord(key)=13 THEN
  Form1.suiButton3Click(Form1.suiButton3);
end;

procedure TForm1.NREditKeyPress(Sender: TObject; var Key: Char);
begin       //如果回车就响应查询按钮的事件
  if ord(key)=13 THEN
  Form1.suiButton3Click(Form1.suiButton3);
end;

procedure TForm1.N7Click(Sender: TObject);
begin       //退出
  CLOSE;
end;

procedure TForm1.NEWButtonClick(Sender: TObject);
begin       //新建数据库资料按钮
  Form1.suiEdit2.Enabled:=TRUE;
  FORM1.suiEdit2.Text:='系统自动加入';
  FORM1.suiEdit2.Enabled:=FALSE;
  Form1.SUIedit3.text:='';
  Form1.SUIedit4.text:='';
  Form1.SUIedit5.text:='空';
  Form1.SUIedit6.text:='空';
  Form1.SUIedit7.text:='空';
  Form1.SUIedit8.text:='空';
  Form1.SUIedit9.text:='空';
  Form1.SUIedit3.SetFocus
end;

procedure TForm1.ADDButtonClick(Sender: TObject);
begin       //加入数据库记录按钮
if (Form1.SUIedit5.text='') or (Form1.SUIedit6.text='')
   or (Form1.SUIedit7.text='') or (Form1.SUIedit8.text='')
   or (Form1.SUIedit3.text='') or (Form1.SUIedit4.text='')
  then begin
   showmessage('记录内容不能为空');
  end
else
  WITH FORM1.ADOTable1 DO
  BEGIN
    Insert;
    Fields[1].AsString:=Form1.SUIedit3.Text;
    Fields[2].AsString:=Form1.SUIedit4.Text;
    Fields[3].AsString:=Form1.SUIedit5.Text;
    Fields[4].AsString:=Form1.SUIedit6.Text;
    Fields[5].AsString:=Form1.SUIedit7.Text;
    Fields[6].AsString:=Form1.SUIedit8.Text;
    Next;
  END;
end;

procedure TForm1.DELButtonClick(Sender: TObject);
begin         //数据库资料删除按钮
adotable1.Delete;
end;

procedure TForm1.suiEdit3KeyPress(Sender: TObject; var Key: Char);
begin         //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit4.SetFocus;
end;

procedure TForm1.suiEdit4KeyPress(Sender: TObject; var Key: Char);
begin         //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit5.SetFocus;
end;

procedure TForm1.suiEdit5KeyPress(Sender: TObject; var Key: Char);
begin        //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit6.SetFocus;
end;

procedure TForm1.suiEdit6KeyPress(Sender: TObject; var Key: Char);
begin        //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit7.SetFocus;
end;

procedure TForm1.suiEdit7KeyPress(Sender: TObject; var Key: Char);
begin        //如果回车就将焦点移到下面
  if ord(key)=13 then Form1.SUIedit8.SetFocus;
end;

procedure TForm1.suiEdit8KeyPress(Sender: TObject; var Key: Char);
begin       //如果收到回车就执行添加按钮
  if ord(key)=13 then Form1.ADDButtonClick(Form1.ADDButton);
end;

/////////////////////////////////////////////////////////////

procedure TForm1.IComboBoxChange(Sender: TObject);
begin
IF FORM1.IComboBox.Text='1号机组联动关系' THEN
BEGIN
  FORM1.SComboBox.Clear;
  CURREC1:=0;
  STR1:='I.DAT';
  ASSIGNFILE(DATAFILE1,STR1);
  RECSIZE:=SIZEOF(TEMPDATA1);
  IF FILEEXISTS(STR1) THEN
  BEGIN
     RESET(DATAFILE1);
     IF NOT EOF(DATAFILE1)THEN
     BEGIN
        READ(DATAFILE1,TEMPDATA1);
        SHOWDATA1;
     END;
  END;
END;
IF FORM1.IComboBox.Text='2号机组联动关系' THEN
BEGIN
  FORM1.SComboBox.Clear;
  CURREC2:=0;
  STR2:='II.DAT';
  ASSIGNFILE(DATAFILE2,STR2);
  RECSIZE:=SIZEOF(TEMPDATA2);
  IF FILEEXISTS(STR2) THEN
  BEGIN
     RESET(DATAFILE2);
     IF NOT EOF(DATAFILE2)THEN
     BEGIN
        READ(DATAFILE2,TEMPDATA2);
        SHOWDATA2;
     END;
  END;
END;
IF FORM1.IComboBox.Text='3号机组联动关系' THEN
BEGIN
  FORM1.SComboBox.Clear;
  CURREC3:=0;
  STR3:='III.DAT';
  ASSIGNFILE(DATAFILE3,STR3);
  RECSIZE:=SIZEOF(TEMPDATA3);
  IF FILEEXISTS(STR3) THEN
  BEGIN
     RESET(DATAFILE3);
     IF NOT EOF(DATAFILE3)THEN
     BEGIN
        READ(DATAFILE3,TEMPDATA3);
        SHOWDATA3;
     END;
  END;
END;
IF FORM1.IComboBox.Text='4号机组联动关系' THEN
BEGIN
  FORM1.SComboBox.Clear;
  CURREC4:=0;
  STR4:='IV.DAT';
  ASSIGNFILE(DATAFILE4,STR4);
  RECSIZE:=SIZEOF(TEMPDATA4);
  IF FILEEXISTS(STR4) THEN
  BEGIN
     RESET(DATAFILE4);
     IF NOT EOF(DATAFILE4)THEN
     BEGIN
        READ(DATAFILE4,TEMPDATA4);
        SHOWDATA4;
     END;
  END;
END;
IF FORM1.IComboBox.Text='5号机组联动关系' THEN
BEGIN
  FORM1.SComboBox.Clear;
  CURREC5:=0;
  STR5:='V.DAT';
  ASSIGNFILE(DATAFILE5,STR5);
  RECSIZE:=SIZEOF(TEMPDATA5);
  IF FILEEXISTS(STR5) THEN
  BEGIN
     RESET(DATAFILE5);
     IF NOT EOF(DATAFILE5)THEN
     BEGIN
        READ(DATAFILE5,TEMPDATA5);
        SHOWDATA5;
     END;
  END;
END;
IF FORM1.IComboBox.Text='6号机组联动关系' THEN
BEGIN
  FORM1.SComboBox.Clear;
  CURREC6:=0;
  STR2:='VI.DAT';
  ASSIGNFILE(DATAFILE6,STR6);
  RECSIZE:=SIZEOF(TEMPDATA6);
  IF FILEEXISTS(STR6) THEN
  BEGIN
     RESET(DATAFILE6);
     IF NOT EOF(DATAFILE6)THEN
     BEGIN
        READ(DATAFILE6,TEMPDATA6);
        SHOWDATA6;
     END;
  END;
END;
end;

procedure TForm1.suiButton4Click(Sender: TObject);
begin
  FORM1.SComboBox.Text:='';
  MEMO1.Clear;
end;

procedure TForm1.suiButton5Click(Sender: TObject);
begin
  IF FORM1.IComboBox.Text='1号机组联动关系' THEN
    SAVEDATA1;
  IF FORM1.IComboBox.Text='2号机组联动关系' THEN
    SAVEDATA2;
  IF FORM1.IComboBox.Text='3号机组联动关系' THEN
    SAVEDATA3;
  IF FORM1.IComboBox.Text='4号机组联动关系' THEN
    SAVEDATA4;
  IF FORM1.IComboBox.Text='5号机组联动关系' THEN
    SAVEDATA5;
  IF FORM1.IComboBox.Text='6号机组联动关系' THEN
    SAVEDATA6;
  FORM1.SComboBox.Text:='';
  MEMO1.Clear;
end;

procedure TForm1.SComboBoxChange(Sender: TObject);
begin
 IF FORM1.IComboBox.Text='1号机组联动关系' THEN
BEGIN
  CURREC1:=0;
  SEEK(DATAFILE1,CURREC1);
 WHILE NOT EOF(DATAFILE1) DO
   BEGIN
      READ(DATAFILE1,TEMPDATA1);
      CURREC1:=CURREC1+1;
      SEEK(DATAFILE1,CURREC1);
      IF TEMPDATA1.DNAME=FORM1.SComboBox.Text THEN
      FORM1.Memo1.Text:=TEMPDATA1.LDNR;
   END;
END;
IF FORM1.IComboBox.Text='2号机组联动关系' THEN
BEGIN
   CURREC2:=0;
   SEEK(DATAFILE2,CURREC2);
   WHILE NOT EOF(DATAFILE2) DO
   BEGIN
      READ(DATAFILE2,TEMPDATA2);
      CURREC2:=CURREC2+1;
      SEEK(DATAFILE2,CURREC2);
      IF TEMPDATA2.DNAME=FORM1.SComboBox.Text THEN
         FORM1.Memo1.Text:=TEMPDATA2.LDNR;
   END;
END;
IF FORM1.IComboBox.Text='3号机组联动关系' THEN
BEGIN
   CURREC3:=0;
   SEEK(DATAFILE3,CURREC3);
   WHILE NOT EOF(DATAFILE3) DO
   BEGIN
      READ(DATAFILE3,TEMPDATA3);
      CURREC3:=CURREC3+1;
      SEEK(DATAFILE3,CURREC3);
      IF TEMPDATA3.DNAME=FORM1.SComboBox.Text THEN
         FORM1.Memo1.Text:=TEMPDATA3.LDNR;
   END;
END;
IF FORM1.IComboBox.Text='4号机组联动关系' THEN
BEGIN
   CURREC4:=0;
   SEEK(DATAFILE4,CURREC4);
   WHILE NOT EOF(DATAFILE4) DO
   BEGIN
      READ(DATAFILE4,TEMPDATA4);
      CURREC4:=CURREC4+1;
      SEEK(DATAFILE4,CURREC4);
      IF TEMPDATA4.DNAME=FORM1.SComboBox.Text THEN
         FORM1.Memo1.Text:=TEMPDATA4.LDNR;
   END;
END;
IF FORM1.IComboBox.Text='5号机组联动关系' THEN
BEGIN
   CURREC5:=0;
   SEEK(DATAFILE5,CURREC5);
   WHILE NOT EOF(DATAFILE5) DO
   BEGIN
      READ(DATAFILE5,TEMPDATA5);
      CURREC5:=CURREC5+1;
      SEEK(DATAFILE5,CURREC5);
      IF TEMPDATA5.DNAME=FORM1.SComboBox.Text THEN
         FORM1.Memo1.Text:=TEMPDATA5.LDNR;
   END;
END;
IF FORM1.IComboBox.Text='6号机组联动关系' THEN
BEGIN
   CURREC6:=0;
   SEEK(DATAFILE6,CURREC6);
   WHILE NOT EOF(DATAFILE6) DO
   BEGIN
      READ(DATAFILE6,TEMPDATA6);
      CURREC6:=CURREC6+1;
      SEEK(DATAFILE6,CURREC6);
      IF TEMPDATA6.DNAME=FORM1.SComboBox.Text THEN
         FORM1.Memo1.Text:=TEMPDATA6.LDNR;
   END;
END;
end;

procedure TForm1.suiButton6Click(Sender: TObject);
VAR
POS:INTEGER;
begin
IF FORM1.IComboBox.Text='1号机组联动关系' THEN
BEGIN
  POS:=SComboBox.ItemIndex;
  RESET(DATAFILE1);
  SEEK(DATAFILE1,POS+1);
  WHILE NOT EOF(DATAFILE1) DO
  BEGIN
    READ(DATAFILE1,TEMPDATA1);
    SEEK(DATAFILE1,POS);
    POS:=POS+1;
    WRITE(DATAFILE1,TEMPDATA1);
    SEEK(DATAFILE1,POS+1);
  END;
  SEEK(DATAFILE1,POS);
  TRUNCATE(DATAFILE1);
  SEEK(DATAFILE1,0);
  SComboBox.Clear;
  MEMO1.Clear;
  WHILE NOT EOF(DATAFILE1) DO
  BEGIN
    READ(DATAFILE1,TEMPDATA1);
    SComboBox.Items.Add(TEMPDATA1.DNAME);
  END;
END;
IF FORM1.IComboBox.Text='2号机组联动关系' THEN
BEGIN
  POS:=SComboBox.ItemIndex;
  RESET(DATAFILE2);
  SEEK(DATAFILE2,POS+1);
  WHILE NOT EOF(DATAFILE2) DO
  BEGIN
    READ(DATAFILE2,TEMPDATA2);
    SEEK(DATAFILE2,POS);
    POS:=POS+1;
    WRITE(DATAFILE2,TEMPDATA2);
    SEEK(DATAFILE2,POS+1);
  END;
  SEEK(DATAFILE2,POS);
  TRUNCATE(DATAFILE2);
  SEEK(DATAFILE2,0);
  SComboBox.Clear;
  MEMO1.Clear;
  WHILE NOT EOF(DATAFILE2) DO
  BEGIN
    READ(DATAFILE2,TEMPDATA2);
    SComboBox.Items.Add(TEMPDATA2.DNAME);
  END;
END;
IF FORM1.IComboBox.Text='3号机组联动关系' THEN
BEGIN
  POS:=SComboBox.ItemIndex;
  RESET(DATAFILE3);
  SEEK(DATAFILE3,POS+1);
  WHILE NOT EOF(DATAFILE3) DO
  BEGIN
    READ(DATAFILE3,TEMPDATA3);
    SEEK(DATAFILE3,POS);
    POS:=POS+1;
    WRITE(DATAFILE3,TEMPDATA3);
    SEEK(DATAFILE3,POS+1);
  END;
  SEEK(DATAFILE3,POS);
  TRUNCATE(DATAFILE3);
  SEEK(DATAFILE3,0);
  SComboBox.Clear;
  MEMO1.Clear;
  WHILE NOT EOF(DATAFILE3) DO
  BEGIN
    READ(DATAFILE3,TEMPDATA3);
    SComboBox.Items.Add(TEMPDATA3.DNAME);
  END;
END;
IF FORM1.IComboBox.Text='4号机组联动关系' THEN
BEGIN
  POS:=SComboBox.ItemIndex;
  RESET(DATAFILE4);
  SEEK(DATAFILE4,POS+1);
  WHILE NOT EOF(DATAFILE4) DO
  BEGIN
    READ(DATAFILE4,TEMPDATA4);
    SEEK(DATAFILE4,POS);
    POS:=POS+1;
    WRITE(DATAFILE4,TEMPDATA4);
    SEEK(DATAFILE4,POS+1);
  END;
  SEEK(DATAFILE4,POS);
  TRUNCATE(DATAFILE4);
  SEEK(DATAFILE4,0);
  SComboBox.Clear;
  MEMO1.Clear;
  WHILE NOT EOF(DATAFILE4) DO
  BEGIN
    READ(DATAFILE4,TEMPDATA4);
    SComboBox.Items.Add(TEMPDATA4.DNAME);
  END;
END;
IF FORM1.IComboBox.Text='5号机组联动关系' THEN
BEGIN
  POS:=SComboBox.ItemIndex;
  RESET(DATAFILE5);
  SEEK(DATAFILE5,POS+1);
  WHILE NOT EOF(DATAFILE5) DO
  BEGIN
    READ(DATAFILE5,TEMPDATA5);
    SEEK(DATAFILE5,POS);
    POS:=POS+1;
    WRITE(DATAFILE5,TEMPDATA5);
    SEEK(DATAFILE5,POS+1);
  END;
  SEEK(DATAFILE5,POS);
  TRUNCATE(DATAFILE5);
  SEEK(DATAFILE5,0);
  SComboBox.Clear;
  MEMO1.Clear;
  WHILE NOT EOF(DATAFILE5) DO
  BEGIN
    READ(DATAFILE5,TEMPDATA5);
    SComboBox.Items.Add(TEMPDATA5.DNAME);
  END;
END;
IF FORM1.IComboBox.Text='6号机组联动关系' THEN
BEGIN
  POS:=SComboBox.ItemIndex;
  RESET(DATAFILE6);
  SEEK(DATAFILE6,POS+1);
  WHILE NOT EOF(DATAFILE6) DO
  BEGIN
    READ(DATAFILE6,TEMPDATA6);
    SEEK(DATAFILE6,POS);
    POS:=POS+1;
    WRITE(DATAFILE6,TEMPDATA6);
    SEEK(DATAFILE6,POS+1);
  END;
  SEEK(DATAFILE6,POS);
  TRUNCATE(DATAFILE6);
  SEEK(DATAFILE6,0);
  SComboBox.Clear;
  MEMO1.Clear;
  WHILE NOT EOF(DATAFILE6) DO
  BEGIN
    READ(DATAFILE6,TEMPDATA6);
    SComboBox.Items.Add(TEMPDATA6.DNAME);
  END;
END;
end;
{设定窗体的字体为宋体，字符集为GB2312}
procedure TForm1.N11Click(Sender: TObject);
begin
 suiButton2Click(suiButton2);
end;



end.