自己用delphi做的MIS 那位达人给指点下啊~~感激不尽 自己用delphi做的MIS 谁给看下啊~~我真的不想说我在着急,不过熬到了这时候希望你能了解~~谢谢我的QQ 158044912不大的,对各位达人来说,小菜~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 代码贴出来 不知道这样行不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. unit Unit1;interfaceuses 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);beginClose;end;end. unit Unit2;interfaceuses 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);beginTable1.Append;end;procedure TForm2.Button2Click(Sender: TObject);beginTable1.Edit;Table1.Post;end;procedure TForm2.Button3Click(Sender: TObject);beginTable1.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就这些 procedure TForm2.Button2Click(Sender: TObject);beginTable1.Edit;Table1.Post;end;//还没录入就POST?再加个按纽,录入完以后在提交 调试过程中不知道什么地方出错,哪位加我QQ我传你看下(139K),调试完成,立即给分~ 这个就MIS了??-_-||……有navigator为啥不用阿??另外有必要刚一开始就把两个form都建立出来吗???占地方啊,而且也没发现第一个form有啥用 动态指定DataSource的OnStateChange事件 谁能看出下面这些代码是用什么加密的? 怎样取得DateTimePicker1的值,并转换成string? adoquery 用insert插入,最前面的零不见了 问题简单!帮帮忙! 满分诚心求教 ActiveX、COM等原理上的东东 求助 指针加100,如何实现? vc就可以,delphi不会写. 这样制作一个永远最小化的窗体,高分相送 加壳的程序能Hook吗? 请问在那里可以下载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?再加个按纽,录入完以后在提交