【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,khxxfkgl.pas,希望对大家有所帮助!
unit khxxfkgl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ExtCtrls;
type
TForm28 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Shape1: TShape;
Label4: TLabel;
Label7: TLabel;
Shape2: TShape;
Label10: TLabel;
Label11: TLabel;
Edit1: TEdit;
Memo1: TMemo;
Memo2: TMemo;
ListBox1: TListBox;
DataSource1: TDataSource;
Panel2: TPanel;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Label12: TLabel;
Edit2: TEdit;
DBGrid1: TDBGrid;
Label5: TLabel;
Label6: TLabel;
procedure FormShow(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure DBGrid1DblClick(Sender: TObject);
procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ListBox1DblClick(Sender: TObject);
procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BitBtn2Click(Sender: TObject);
procedure Edit2Change(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Memo2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure BitBtn3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure BitBtn3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form28: TForm28;
implementation
uses Data2,wlzgl;
{$R *.dfm}
var
mm: Boolean = False;
procedure TForm28.FormShow(Sender: TObject);
begin
ListBox1.Clear;
DataSource1.DataSet := Nil;
DBGrid1.Visible := False;
Edit1.Clear;
Edit2.Clear;
Memo1.Clear;
Memo2.Clear;
Label7.Caption := '';
with datam.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select Distinct 客户全称 From 客户基础信息表');
Open;
end;
while Not datam.ADOQuery1.Eof do
begin
ListBox1.Items.Add(datam.ADOQuery1.FieldByName('客户全称').Value);
datam.ADOQuery1.Next;
end;
end;
procedure TForm28.BitBtn3Click(Sender: TObject);
begin
mm := True;
Label3.Caption := FormatDateTime('yyyy-mm-dd',Now);
Edit2.SetFocus;
end;
procedure TForm28.Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = Vk_ReTurn then
if Trim(Edit2.Text)<>'' then
Edit1.SetFocus;
end;
procedure TForm28.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Next then
begin
ListBox1.Visible := True;
ListBox1.SetFocus;
end;
if Key = VK_ReTurn then
if Trim(Edit1.Text)<>'' then
begin
ListBox1.Visible := False;
with datam.ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 客户基础信息表 where 客户全称 = :a');
Parameters.ParamByName('a').Value := Trim(Edit1.Text);
Open;
end;
if datam.ADOQuery1.RecordCount>0 then
begin
if datam.ADOQuery1.RecordCount>1 then
begin
DataSource1.DataSet := datam.ADOQuery1;
DBGrid1.Visible := True;
DBGrid1.SetFocus;
end
else
begin
Label7.Caption := datam.ADOQuery1.FieldByName('客户编号').Value;
Memo1.SetFocus ;
end;
Edit1.ReadOnly := True;
end
else
begin
Application.MessageBox('该客户不存在。','提示',64);
Edit1.Clear;
end;
end;
end;
procedure TForm28.DBGrid1DblClick(Sender: TObject);
begin
Label7.Caption := datam.ADOQuery1.FieldByName('客户编号').Value;
DBGrid1.Visible := False;
Memo1.SetFocus;
end;
procedure TForm28.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ReTurn then
DBGrid1.OnDblClick(Sender);
end;
procedure TForm28.ListBox1DblClick(Sender: TObject);
begin
Edit1.Text:= ListBox1.Items[ListBox1.ItemIndex];
Edit1.SetFocus;
ListBox1.Visible := False;
end;
procedure TForm28.ListBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = Vk_ReTurn then
ListBox1.OnDblClick(Sender);
end;
procedure TForm28.BitBtn2Click(Sender: TObject);
begin
Label3.Caption := '';
Label7.Caption := '';
Edit1.Clear;
Memo1.Clear;
Memo2.Clear;
ListBox1.Visible := False;
DBGrid1.Visible := False;
BitBtn3.SetFocus;
mm := False;
Edit1.ReadOnly := False;
DataSource1.DataSet := Nil;
end;
procedure TForm28.Edit2Change(Sender: TObject);
begin
if (Trim(Edit2.Text)<>'')and(Trim(Edit1.Text)<>'')and(Trim(Memo1.Text)<>'')and
(Trim(Memo2.Text)<>'')and(Trim(Label3.Caption)<>'')and(Trim(Label7.Caption)<>'')then
BitBtn4.Enabled := True
else
BitBtn4.Enabled := False;
end;
procedure TForm28.BitBtn4Click(Sender: TObject);
begin
Try
with datam.ADOQuery2 do
begin
Close;
SQL.Clear;
SQL.Add('insert 客户信息反馈表 values(:a,:b,:c,:d,:e,Default,:f)');
Parameters.ParamByName('a').Value := Trim(Label7.Caption);
Parameters.ParamByName('b').Value := Trim(Edit1.Text);
Parameters.ParamByName('c').Value := Trim(Memo1.Text);
Parameters.ParamByName('d').Value := Trim(Edit2.Text);
Parameters.ParamByName('e').Value := Trim(Memo2.Text);
Parameters.ParamByName('f').Value := Trim(czymc);
ExecSQL;
end;
Application.MessageBox('数据保存成功。','提示',64);
BitBtn2.OnClick(Sender);
Edit2.Clear;
Except
Application.MessageBox('系统出错。','提示',64);
Close;
end;
end;
procedure TForm28.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Shift then
if Trim(Memo1.Text)<>'' then
Memo2.SetFocus;
end;
procedure TForm28.Memo2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_Shift then
if (Trim(Memo2.Text)<>'')and(BitBtn4.Enabled = True) then
BitBtn4.SetFocus;
end;
procedure TForm28.BitBtn3MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clRed;
end;
procedure TForm28.BitBtn3MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TBitBtn(Sender).Font.Color := clBlue;
end;
end.
上一篇:
khxxcx.pas
下一篇:
多年来只想说一句,我不怪你