main.~pas

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

    MoveTo(Rect.Right, Rect.Top);
    LineTo(Rect.Right, Rect.Bottom);
  end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  adotable1.Close;
  adotable1.tablename:=ComboBox1.Items.Strings[ComboBox1.itemindex];
  adotable1.Open;
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 ToolButton2.Down THEN
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
ELSE
MESSAGEDLG('对不起!不在录入模式不可以添加数据',MTWARNING,MBOKCANCEL,0);
end;

procedure TForm1.DELButtonClick(Sender: TObject);
begin         //数据库资料删除按钮
IF ToolButton2.Down THEN
adotable1.Delete
ELSE
MESSAGEDLG('对不起!不在录入模式不可以删除数据',MTWARNING,MBOKCANCEL,0);
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
  begin
  Form1.ADDButtonClick(Form1.ADDButton);
  Form1.SUIedit3.SetFocus;
  end;
end;

/////////////////////////////////////////////////////////////
//////////////////以下是对记录文件的处理部分/////////////////
procedure TForm1.IComboBoxChange(Sender: TObject);
begin
FORM1.SComboBox.Clear;
IF FORM1.IComboBox.Text='1号机组联动关系' THEN
  SHOWDATA('I.DAT');
IF FORM1.IComboBox.Text='2号机组联动关系' THEN
  SHOWDATA('II.DAT');
IF FORM1.IComboBox.Text='3号机组联动关系' THEN
  SHOWDATA('III.DAT');
IF FORM1.IComboBox.Text='4号机组联动关系' THEN
  SHOWDATA('IV.DAT');
IF FORM1.IComboBox.Text='5号机组联动关系' THEN
  SHOWDATA('V.DAT');
IF FORM1.IComboBox.Text='6号机组联动关系' THEN
  SHOWDATA('VI.DAT');
end;

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

procedure TForm1.suiButton5Click(Sender: TObject);
begin                      //添加
IF ToolButton2.Down THEN
BEGIN
  IF FORM1.IComboBox.Text='1号机组联动关系' THEN
    SAVEDATA('I.DAT');
  IF FORM1.IComboBox.Text='2号机组联动关系' THEN
    SAVEDATA('II.DAT');
  IF FORM1.IComboBox.Text='3号机组联动关系' THEN
    SAVEDATA('III.DAT');
  IF FORM1.IComboBox.Text='4号机组联动关系' THEN
    SAVEDATA('IV.DAT');
  IF FORM1.IComboBox.Text='5号机组联动关系' THEN
    SAVEDATA('V.DAT');
  IF FORM1.IComboBox.Text='6号机组联动关系' THEN
    SAVEDATA('VI.DAT');
END
ELSE
MESSAGEDLG('对不起!不在录入模式不可以插入数据',MTWARNING,MBOKCANCEL,0);
  FORM1.SComboBox.Text:='';
  MEMO1.Clear;
end;

procedure TForm1.SComboBoxChange(Sender: TObject);
begin                     //显示
IF FORM1.IComboBox.Text='1号机组联动关系' THEN
   CHANGEDATA('I.DAT');
IF FORM1.IComboBox.Text='2号机组联动关系' THEN
   CHANGEDATA('II.DAT');
IF FORM1.IComboBox.Text='3号机组联动关系' THEN
   CHANGEDATA('III.DAT');
IF FORM1.IComboBox.Text='4号机组联动关系' THEN
   CHANGEDATA('IV.DAT');
IF FORM1.IComboBox.Text='5号机组联动关系' THEN
   CHANGEDATA('V.DAT');
IF FORM1.IComboBox.Text='6号机组联动关系' THEN
   CHANGEDATA('VI.DAT');
end;

procedure TForm1.suiButton6Click(Sender: TObject);
begin                    //删除
IF ToolButton2.Down THEN
BEGIN
IF FORM1.IComboBox.Text='1号机组联动关系' THEN
   DELDATA('I.DAT');
IF FORM1.IComboBox.Text='2号机组联动关系' THEN
   DELDATA('II.DAT');
IF FORM1.IComboBox.Text='3号机组联动关系' THEN
   DELDATA('III.DAT');
IF FORM1.IComboBox.Text='4号机组联动关系' THEN
   DELDATA('IV.DAT');
IF FORM1.IComboBox.Text='5号机组联动关系' THEN
   DELDATA('V.DAT');
IF FORM1.IComboBox.Text='6号机组联动关系' THEN
   DELDATA('VI.DAT');
END
ELSE
MESSAGEDLG('对不起!不在录入模式不可以删除数据',MTWARNING,MBOKCANCEL,0);
end;
/////////////////////////////////////////////////////////
{设定窗体的字体为宋体，字符集为GB2312}
////////////////对界面部分进行设置///////////////////////
procedure TForm1.XP1Click(Sender: TObject);
begin      //设置界面显示模式为XP
  FORM1.XP1.CHECKED:=TRUE;
  suiThemeManager1.UIStyle:= TsuiUIStyle(2);
end;

procedure TForm1.MAC1Click(Sender: TObject);
begin      //设置界面显示模式为MAC
  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.N11Click(Sender: TObject);
begin
 suiButton2Click(suiButton2);
end;

procedure TForm1.N3Click(Sender: TObject);
begin         //关于

end;

procedure TForm1.N4Click(Sender: TObject);
begin         //关于
  ShellAbout(Application.MainForm.Handle,
             '%PLC点地址查询系统%',
             'Copyright (c) 2003 http://10.160.75.50',
             Application.Icon.Handle);
end;

procedure TForm1.N5Click(Sender: TObject);
begin        //网址连接  (帮助)
  //ShellExecute(Handle, 'open', 'http://10.160.76.50', nil, nil, SW_SHOW);
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
CLOSE;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   suiStatusBar1.Panels[0].text:='东港电力公司 版权所有';
   suiStatusBar1.Panels[1].text:=DateToStr(Time());
   suiStatusBar1.Panels[2].text:=TimeToStr(Time());
end;

procedure TForm1.ToolButton2Click(Sender: TObject);
begin
IF ToolButton2.Caption='录入模式' THEN ToolButton2.Down:=TRUE;
ToolButton2.Down:=NOT (ToolButton2.Down);
IF ToolButton2.Down THEN
BEGIN
ToolButton2.Caption:='录入模式';
ToolButton2.ImageIndex:=7;
FORM1.N10.CHECKED:=TRUE;
END
ELSE
BEGIN
ToolButton2.Caption:='查询模式';
ToolButton2.ImageIndex:=6;
FORM1.N9.CHECKED:=TRUE;
END;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
FORM1.N9.CHECKED:=TRUE;
ToolButton2.Caption:='查询模式';
ToolButton2.ImageIndex:=6;
ToolButton2.Down:=FALSE;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
FORM1.N10.CHECKED:=TRUE;
ToolButton2.Caption:='录入模式';
ToolButton2.ImageIndex:=7;
ToolButton2.Down:=TRUE;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
 Form1.N4Click(Form1.N4);
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
Form1.suiButton2Click(Form1.suiButton2);
end;

procedure TForm1.N13Click(Sender: TObject);
begin
//导出
end;

end.