⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 doublesystem.pas

📁 一个不错的信息管理系统
💻 PAS
字号:
🔍 
unit doublesystem;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables, Grids, DBGrids, ADODB;

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBGrid1: TDBGrid;
    Button7: TButton;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button7Click(Sender: TObject);
     private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.Button2Click(Sender: TObject);
begin             //退出
dbgrid1.ReadOnly:=true;
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled :=false;
button5.Enabled:=false;
button6.Enabled :=false;
button7.Enabled :=false;
adotable1.Active :=false;
adotable1.Tablename:='';
combobox1.Text:='';
form7.Close;
end;

procedure TForm7.Button1Click(Sender: TObject);
begin      //进入维护
if combobox1.Text ='' then
begin
application.MessageBox('请选择信息集','提示',32);
end
else
begin
button1.Enabled:=false;
adotable1.Active:=true;
if adotable1.RecordCount<>0 then begin
  button3.Enabled:=true;
  button4.Enabled:=true;
  button5.Enabled:=true;
end
else
begin
button3.Enabled:=true;
button4.Enabled:=false;
button5.Enabled:=false;
end;
end;
end;
procedure TForm7.Button6Click(Sender: TObject);
begin          //提交
adotable1.Post;
button3.Enabled:=true;
button4.Enabled :=true;
button5.Enabled:=true;
button6.Enabled :=false;
button7.Enabled :=false;
dbgrid1.ReadOnly:=true;
end;
procedure TForm7.Button5Click(Sender: TObject);
begin          //修改
dbgrid1.ReadOnly:=false;
adotable1.Edit;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled :=true;
button7.Enabled :=true;
end;

procedure TForm7.Button4Click(Sender: TObject);
begin            //删除
dbgrid1.ReadOnly:=false;
if (messagedlg('确认要删除此记录？如果删除的话将不能恢复！',mtconfirmation,[mbyes,mbno],0)=mryes) then
adotable1.Delete;
if adotable1.RecordCount=0 then
begin
button4.Enabled :=false;
button5.Enabled :=false;
end;
end;

procedure TForm7.Button3Click(Sender: TObject);
begin    //添加
dbgrid1.ReadOnly:=false;
adotable1.Edit;
adotable1.Append;
button3.Enabled:=false;
 button6.Enabled:=true;
   button4.Enabled:=false;
    button6.Enabled:=true;
    button7.Enabled:=true;
     button5.Enabled:=false;
end;

procedure TForm7.ComboBox1Change(Sender: TObject);
begin
case combobox1.ItemIndex of
0:begin
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
adotable1.Active :=false;
adotable1.TableName:='a01';
end;
1:begin
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
adotable1.Active :=false;
adotable1.TableName:='a02';
end;
2:begin
adotable1.Active :=false;
adotable1.TableName:='a03';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
3:begin
adotable1.Active :=false;
adotable1.TableName:='a04';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
4:begin
adotable1.Active :=false;
adotable1.TableName:='a05';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
5:begin
adotable1.Active :=false;
adotable1.TableName:='a06';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
6:begin
adotable1.Active :=false;
adotable1.TableName:='a07';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
7:begin
adotable1.Active :=false;
adotable1.TableName:='a08';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
8:begin
adotable1.Active :=false;
adotable1.TableName:='a09';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
9:begin
adotable1.Active :=false;
adotable1.TableName:='a10';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
10:begin
adotable1.Active :=false;
adotable1.TableName:='a11';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
11:begin
adotable1.Active :=false;
adotable1.TableName:='a12';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
12:begin
adotable1.Active :=false;
adotable1.TableName:='a13';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
13:begin
adotable1.Active :=false;
adotable1.TableName:='a14';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
14:begin
adotable1.Active :=false;
adotable1.TableName:='a15';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
15:begin
adotable1.Active :=false;
adotable1.TableName:='a16';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
16:begin
adotable1.Active :=false;
adotable1.TableName:='a17';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
17:begin
adotable1.Active :=false;
adotable1.TableName:='a18';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
18:begin
adotable1.Active :=false;
adotable1.TableName:='a19';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
19:begin
adotable1.Active :=false;
adotable1.TableName:='a20';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
20:begin
adotable1.Active :=false;
adotable1.TableName:='a21';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
21:begin
adotable1.Active :=false;
adotable1.TableName:='a22';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
22:begin
adotable1.Active :=false;
adotable1.TableName:='a23';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
23:begin
adotable1.Active :=false;
adotable1.TableName:='a24';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
24:begin
adotable1.Active :=false;
adotable1.TableName:='a25';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
25:begin
adotable1.Active :=false;
adotable1.TableName:='a26';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
26:begin
adotable1.Active :=false;
adotable1.TableName:='a27';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
27:begin
adotable1.Active :=false;
adotable1.TableName:='a28';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
28:begin
adotable1.Active :=false;
adotable1.TableName:='a29';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
29:begin
adotable1.Active:=false;
button1.Enabled:=true;
adotable1.TableName:='a30';
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
30:begin
adotable1.Active :=false;
adotable1.TableName:='a31';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
31:begin
adotable1.Active :=false;
adotable1.TableName:='a32';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
32:begin
adotable1.Active :=false;
adotable1.TableName:='a33';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
33:begin
adotable1.Active :=false;
adotable1.TableName:='a34';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
34:begin
adotable1.Active :=false;
adotable1.TableName:='a35';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
35:begin
adotable1.Active :=false;
adotable1.TableName:='a36';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
36:begin
adotable1.Active :=false;
adotable1.TableName:='a37';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
37:begin
adotable1.Active :=false;
adotable1.TableName:='a38';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
38:begin
adotable1.Active :=false;
adotable1.TableName:='a39';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
39:begin
adotable1.Active :=false;
adotable1.TableName:='a40';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
40:begin
adotable1.Active :=false;
adotable1.TableName:='a41';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
41:begin
adotable1.Active :=false;
adotable1.TableName:='a42';
button1.Enabled:=true;
button3.Enabled:=false;
button4.Enabled:=false;
button5.Enabled:=false;
button6.Enabled:=false;
button7.Enabled:=false;
end;
end;
end;

procedure TForm7.Button7Click(Sender: TObject);
begin         //取消
adotable1.Cancel;
button6.Enabled :=false;
button7.Enabled :=false;
dbgrid1.ReadOnly:=true;
if adotable1.RecordCount=0 then
begin
button3.Enabled:=true;
button4.Enabled :=false;
button5.Enabled :=false;
button6.Enabled :=false;
end
else
begin
button3.Enabled :=true;
button4.Enabled :=true;
button5.Enabled :=true;
button6.Enabled :=false;
end;
end;



end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -