自己用delphi做的MIS 谁给看下啊~~
我真的不想说我在着急,不过熬到了这时候
希望你能了解~~谢谢
我的QQ 158044912不大的,对各位达人来说,小菜~
我真的不想说我在着急,不过熬到了这时候
希望你能了解~~谢谢
我的QQ 158044912不大的,对各位达人来说,小菜~
解决方案 »
- Linux核心开发人员神奇小子Robert Love捉刀Delphi跨平台编译?
- 用IndyFTP如何将一个文件移动到指定的文件夹?
- 请问关于打印定位的问题
- sizeof函数和size,CSDN上穷鬼也要提提问
- 谁能给一份delphi2010下可用 的 获取汉子五笔码的代码
- Win2000启动后几秒钟就重启,不知何故
- 用DELPHI写的程序崩溃时,怎么能做到像QQ或者迅雷哪样自动重启?
- Could not compile used unit 'FR_Pars.pas'
- 文件的操作
- 用Delphi如何写ASP组件
- 请问在那里可以下载infopower4000在D7环境下可以用的?
- 100求一SQL语句
program Project1;uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;type
TForm1 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Label3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Label3Click(Sender: TObject);
begin
Close;
end;end.
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, DB, DBTables, ComCtrls, ExtCtrls,
Grids, DBGrids, Buttons;type
TForm2 = class(TForm)
Label1: TLabel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
DataSource1: TDataSource;
Table1: TTable;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
Label15: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
DBMemo1: TDBMemo;
Label16: TLabel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label17: TLabel;
Edit1: TEdit;
Button4: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
TabSheet5: TTabSheet;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
SpeedButton1: TSpeedButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form2: TForm2;implementation{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
Table1.Append;
end;procedure TForm2.Button2Click(Sender: TObject);
begin
Table1.Edit;
Table1.Post;
end;procedure TForm2.Button3Click(Sender: TObject);
begin
Table1.Delete;
end;procedure TForm2.Button4Click(Sender: TObject);
begin
With Table1 do
begin
Indexname:='XM';
Open;
SetKey;
FieldByname('职员姓名').Asstring:=Edit1.Text;
GotoNearest;
if DBEdit4.Text<>Edit1.Text then
Showmessage('没有该职员档案!');
end;procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
Close;
end;end
就这些
begin
Table1.Edit;
Table1.Post;
end;
//还没录入就POST?再加个按纽,录入完以后在提交