【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了MRKHXX.pas相关资料,希望对各位网友有所帮助!
unit MRKHXX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ImgList, Grids, DBGrids, StdCtrls, ComCtrls, ToolWin,
ExtCtrls, DBCtrls, Mask, inifiles;
type
TFRM_KHXX = class(TForm)
Panel2: TPanel;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
ToolButton13: TToolButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Panel1: TPanel;
TabSheet2: TTabSheet;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
ImageList1: TImageList;
DataSource1: TDataSource;
Label1: TLabel;
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;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBComboBox1: TDBComboBox;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBComboBox5: TDBComboBox;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBComboBox7: TDBComboBox;
DBMemo1: TDBMemo;
DBEdit3: TDBEdit;
DBComboBox6: TDBComboBox;
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure DBEdit11KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit14KeyPress(Sender: TObject; var Key: Char);
procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBComboBox61Change(Sender: TObject);
procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit7KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit8KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit9KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit10KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit11KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit12KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit13KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBEdit14KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender: TObject);
procedure DBComboBox5Change(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure ToolButton10Click(Sender: TObject);
procedure ToolButton11Click(Sender: TObject);
procedure ToolButton13Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure DBComboBox3Change(Sender: TObject);
procedure DBComboBox6Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FRM_KHXX: TFRM_KHXX;
tb : integer = 0;
implementation
USES DATA, MRKHXX_CX;
{$R *.dfm}
procedure TFRM_KHXX.ToolButton1Click(Sender: TObject);
var
s : string;
i : integer;
begin
i := 1;
ToolButton4.Enabled := true;
ToolButton5.Enabled := true;
ToolButton2.Enabled := false;
ToolButton1.Enabled := false;
TabSheet1.Enabled := true;
with database.ADO_KHXX do
begin
close;
sql.Clear;
sql.Add('select * from tb_khxx order by khxx_id');
open;
end;
s := 'KH'+formatdatetime('yyyymm',now());
if database.ADO_KHXX.RecordCount<1 then
begin
database.ADO_KHXX.Append;
database.ADO_KHXX.Edit;
database.ADO_KHXX.FieldByName('khxx_id').AsString := s+'00000'+inttostr(i);
end
else
begin
database.ADO_KHXX.Last;
i := strtoint(copy(database.ADO_KHXX.fieldbyname('KHXX_id').AsString,9,6));
database.ADO_KHXX.Append;
database.ADO_KHXX.Edit;
database.ADO_KHXX.FieldByName('khxx_id').AsString := s+formatfloat('000000',i+1);
end;
dbedit2.SetFocus;
end;
procedure TFRM_KHXX.ToolButton4Click(Sender: TObject);
begin
try
if (dbedit1.Text = '')or(dbedit2.Text = '')or(dbedit4.Text = '')
or(dbedit5.Text = '')or(dbedit13.Text = '')or(dbedit14.Text = '')
or(dbcombobox1.Text = '')or(dbcombobox2.Text = '')
or(dbcombobox3.Text = '')or(dbedit3.Text = '')
or(dbcombobox5.Text = '')or(dbcombobox6.Text = '')
or(dbcombobox7.Text = '') then
begin
showmessage('有些客户信息必须填写。');
end
else
begin
database.ADO_KHXX.Post;
TabSheet1.Enabled := false;
ToolButton4.Enabled := false;
ToolButton5.Enabled := false;
ToolButton1.Enabled := true;
ToolButton2.Enabled := true;
database.ADO_KHXX.Active := false;
database.ADO_KHXX.Active := true;
end;
except
showmessage('客户名称不能重复。');
FRM_KHXX.ToolButton5Click(Sender);
end;
end;
procedure TFRM_KHXX.ToolButton5Click(Sender: TObject);
begin
database.ADO_KHXX.Cancel;
TabSheet1.Enabled := false;
ToolButton4.Enabled := false;
ToolButton5.Enabled := false;
ToolButton1.Enabled := true;
ToolButton2.Enabled := true;
tb := 0;
with database.ADO_KHXX do
begin
close;
sql.Clear;
sql.Add('select * from tb_khxx');
open;
end;
end;
procedure TFRM_KHXX.ToolButton2Click(Sender: TObject);
begin
ToolButton4.Enabled := true;
ToolButton5.Enabled := true;
ToolButton1.Enabled := false;
TabSheet1.Enabled := true;
database.ADO_KHXX.Edit;
end;
procedure TFRM_KHXX.ToolButton3Click(Sender: TObject);
begin
if database.ADO_KHXX.FieldByName('khxx_id').AsString = '' then
begin
showmessage('客户信息已为空,无法删除。');
end
else
begin
if application.MessageBox('真的要删除客户信息吗?','提示',mb_yesno) = idyes then
database.ADO_KHXX.Delete;
end;
end;
procedure TFRM_KHXX.DBEdit11KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','-',#8]) then
key := #0;
end;
procedure TFRM_KHXX.DBEdit14KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9','-',#8]) then
key := #0;
end;
procedure TFRM_KHXX.DBEdit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key = v
上一篇:
MRKHTS_ZCX.pas
下一篇:
秋天是疼痛的