unitinsert.pas

档案管理系统dephi.rar是用dephi编写的档案管理系统,整个系统详细演示了档案管理的整个流程对大家熟悉和学习档案管理很有帮助,同时对dephi的学习者也是非常有利的.

unit unitinsert;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, StdCtrls, SUIComboBox, SUIEdit, SUIButton,Unitcomm,
  DBCtrls, SUIDBCtrls, DB, ADODB, SUIImagePanel, Grids, DBGrids;
type
  TForm1 = class(TForm)
    suiForm1: TsuiForm;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    suiPanel1: TsuiPanel;
    spec: TsuiComboBox;
    num: TsuiEdit;
    name: TsuiEdit;
    hh: TsuiDBGrid;
    Label5: TLabel;
    bh: TsuiEdit;
    suiPanel2: TsuiPanel;
    suiButton1: TsuiButton;
    suiPanel3: TsuiPanel;
    suiButton3: TsuiButton;
    suiButton4: TsuiButton;
    suiImagePanel2: TsuiImagePanel;
    suiButton2: TsuiButton;
    suiButton5: TsuiButton;
    suiPanel4: TsuiPanel;
    suiImagePanel1: TsuiImagePanel;
    suiImagePanel3: TsuiImagePanel;
    suiImagePanel4: TsuiImagePanel;
    procedure suiButton2Click(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton3Click(Sender: TObject);
    procedure suiButton4Click(Sender: TObject);
    procedure suiButton5Click(Sender: TObject);
    procedure suiImagePanel1Click(Sender: TObject);
    procedure suiImagePanel3Click(Sender: TObject);
    procedure suiImagePanel4Click(Sender: TObject);
    procedure hhclick(Sender: TObject);
  private
      id:integer;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses
     Unitdel;

procedure TForm1.suiButton2Click(Sender: TObject);
begin
     close;
end;

procedure TForm1.suiButton1Click(Sender: TObject);
var
      myQuery:TADOQuery;
      myDataset:TADODataset;
      myDatasource:TDatasource;
begin
     try
        if spec.Text='' then
           showmessage('标准类型为空，请选择标准类型')
        else if num.Text='' then
           showmessage('标准号为空，请填写标准号')
        else if name.Text='' then
           showmessage('标准名称为空,请填写标准名称')
        else if bh.Text='' then
           showmessage('内部编号为空,请填写内部编号')
        else
            begin
                 myQuery:=TADOQuery.Create(self);
                 myQuery.Connection:=ADOConn;
                 myQuery.SQL.Add('insert into record(d_name,d_type,d_spec,d_bh) values (?,?,?,?)');
                 myQuery.Parameters[0].Value:=name.Text;
                 myQuery.Parameters[1].Value:=spec.Text;
                 myQuery.Parameters[2].Value:=num.Text;
                 myQuery.Parameters[3].Value:=bh.Text;
                 myQuery.ExecSQL;
                 myQuery.SQL.Clear;
                 myQuery.Close;
                 showmessage('恭喜您,新信息添加成功!');
                 myDataset:=TADODAtaset.Create(self);
                 myDatasource:=TDatasource.Create(self);
                 myDATAset.Connection:=ADOCOnn;
                 myDatasource.DataSet:=myDAtaset;
                 myDAtaset.CommandText:='select d_type,d_spec,d_bh,d_name from record order by d_bh';
                 myDAtaset.Active:=true;
                 hh.DataSource:=myDatasource;

            end;
           except
               showmessage('您所提交的库信息的数据格式有误，请重新输入!');
           end;
        end;
procedure TForm1.suiButton3Click(Sender: TObject);
var
     xDataset:TADODataset;
begin
     try
         if bh.Text='' then
            showmessage('修改查询必须填写内部编号，谢谢合作!')
        else
          begin
             xDataset:=TADODataset.Create(self);
             xDataset.Connection:=ADOConn;
             xDataset.CommandText:='select d_id,d_type,d_spec,d_name,d_bh from record where d_bh='''+bh.Text+'''';
             xDataset.Active:=true;
             id:=xDataset.Fields[0].AsInteger;
             spec.Text:=xDataset.Fields[1].AsString;
             num.Text:=xDataset.Fields[2].AsString;
             name.Text:=xDataset.Fields[3].AsString;
             bh.Text:=xDataset.Fields[4].AsString;
         end;
        except
            showmessage('对不起，我们没能找到您要进行修改的信息!');
        end;

end;

procedure TForm1.suiButton4Click(Sender: TObject);
var
    gQuery:TADOQuery;
begin
    gQuery:=TADOQuery.Create(self);
    gQuery.Connection:=ADOConn;
    gQuery.SQL.Add('update record set d_type='''+spec.Text+''',d_spec='''+num.Text+''',d_bh='''+bh.Text+''',d_name='''+name.Text+''' where d_id='''+inttostr(id)+'''');
    gQuery.ExecSQL;
    showmessage('恭喜您信息修改成功!');
    gQuery.Free;


end;

procedure TForm1.suiButton5Click(Sender: TObject);
var
      myDataset:TADODataset;
      myDatasource:TDatasource;
begin
      myDataset:=TADODAtaset.Create(self);
      myDatasource:=TDatasource.Create(self);
      myDATAset.Connection:=ADOCOnn;
      myDatasource.DataSet:=myDAtaset;
      myDAtaset.CommandText:='select d_type,d_spec,d_bh,d_name from record where d_type='''+spec.Text+'''';
      myDAtaset.Active:=true;
      hh.DataSource:=myDatasource;
end;

procedure TForm1.suiImagePanel1Click(Sender: TObject);
begin
     showmessage('如果您想要删除某项记录，请双击记录所在行!');
end;

procedure TForm1.suiImagePanel3Click(Sender: TObject);
begin
     showmessage('如果要进行详细的查询，请进入共网军标管理系统!');
end;

procedure TForm1.suiImagePanel4Click(Sender: TObject);
begin
     showmessage('在系统功能上还有任何要求可以直接联系相关人员，等待您的宝贵意见!');
end;

procedure TForm1.hhclick(Sender: TObject);
var
     frm9:TForm9;
begin
     frm9:=TForm9.Create(self);
     frm9.Tid:=hh.Fields[2].AsString;
     frm9.ShowModal;
     frm9.Free;
      
end;

end.