unit9.~pas

用VC和SQL Server开发的固定资产管理系统

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm9 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    ComboBox1: TComboBox;
    Button1: TButton;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit1: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure SaveToTable;
    procedure LoadFromTable;
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  Form9: TForm9;
  new_record:boolean;
implementation

{$R *.dfm}

procedure TForm9.Button1Click(Sender: TObject);
var
    adodataset1:TAdoDataset;
begin
  if length(combobox1.Text)=0 then
    showmessage('请选择编号，不能为空！') else
  begin
   if  length(edit2.Text)=0 then
   messagedlg('使用单位不能为空！',mterror,[mbok],0)else
   begin
   if  length(edit3.Text)=0 then
   messagedlg('型号不能为空！',mterror,[mbok],0)else
    begin
    if  length(edit4.Text)=0 then
    messagedlg('购置时期不能为空！',mterror,[mbok],0)else
      begin
      if  length(edit6.Text)=0 then
       messagedlg('价值不能为空！',mterror,[mbok],0)else
        begin
          if  length(edit7.Text)=0 then
           messagedlg('附件数量不能为空！',mterror,[mbok],0)else
           begin
            if  length(edit8.Text)=0 then
              messagedlg('具体操作人不能为空！',mterror,[mbok],0)else
           begin
              if edit2.text<>'' then
             begin
        adodataset1:=TAdoDataset.Create(self);
        adodataset1.Connection:=adoconnection1;
        adodataset1.Close;
        adodataset1.CommandType:=cmdText;
        adodataset1.CommandText:='select * from 基本数据表 where 使用单位=:classname';
        adodataset1.Parameters.clear;
        adodataset1.Parameters.AddParameter;
        adodataset1.Parameters[0].Name:='classname';
        adodataset1.Parameters[0].DataType:=ftstring;
        adodataset1.Parameters[0].Direction:=pdinput;
        adodataset1.Parameters[0].Value:=edit1.text;
        adodataset1.active:=true;
        if new_record then
        begin
            if adodataset1.Recordset.RecordCount=1 then
            begin
                application.MessageBox('您输入错误，请检查!','提示信息',mb_ok);
                edit1.SetFocus;
            end
        end;
        adodataset1.close;
    end;

    //messagedlg('您输入信息已保存！请退出！谢谢！',mtinformation,[mbok],0) ;
  MessageBox(0,'您输入信息已保存！请退出！谢谢！','提示信息',mb_ok);
  end;
  end;
  end;
  end ;

  end;
  end;
  end;
end;

procedure TForm9.Button2Click(Sender: TObject);
begin
 showmessage('确实要退出资产录入吗？');
     if messagedlg('是否停止运行？只有停止才能关闭！',mtinformation,
     [mbYes,mbNo],0)=mrYes then begin
     close;
     end;
   { if new_record then
    begin
      adotable1.Append;
      adotable1.FieldByName('书费').AsCurrency:=0;
      new_record:=false;
    end;
    savetotable;
    if adotable1.Recordset.RecordCount>0 then
         button2.Enabled:=true;  }
end;
procedure TForm9.SaveToTable;
begin
    adotable1.edit;
    adotable1.FieldByName('使用单位').asstring:=edit1.text;
  end;
procedure TForm9.LoadFromTable;
begin
    edit2.text:=adotable1.FieldByName('使用单位').asstring;
   // maskedit1.text:=DatetoStr(adotable1.FieldByName('入学时间').asdatetime);
    edit3.text:=adotable1.FieldByName('所在院系').AsString;
    edit4.text:=adotable1.FieldByName('班长').asstring;
    edit5.Text:=adotable1.fieldbyname('班长联系电话').asstring;
    edit6.text:=adotable1.FieldByName('班主任').asstring;
    edit7.Text:=adotable1.FieldByName('班主任联系电话').asstring;
   // edit2.text:=adotable1.FieldByName('所学专业').asstring;
    edit8.text:=IntToStr(adotable1.FieldByName('班级人数').asinteger);
end;
procedure TForm9.ADOTable1AfterScroll(DataSet: TDataSet);
begin
      IF NOT NEW_RECORD THEN
        loadfromtable;
end;

end.