📄 jh_unit.pas
字号:
unit jh_unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ToolWin, Buttons, Grids, DBGrids, ImgList,
DBActns, ActnList, DB, ADODB;
type
Tjh_form = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
DateTimePicker1: TDateTimePicker;
Edit30: TEdit;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
GroupBox2: TGroupBox;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
SpeedButton1: TSpeedButton;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Edit11: TEdit;
Edit12: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit29: TEdit;
GroupBox6: TGroupBox;
SpeedButton15: TSpeedButton;
SpeedButton16: TSpeedButton;
SpeedButton17: TSpeedButton;
SpeedButton18: TSpeedButton;
SpeedButton19: TSpeedButton;
StatusBar1: TStatusBar;
TabSheet2: TTabSheet;
GroupBox3: TGroupBox;
Label17: TLabel;
Label18: TLabel;
Label28: TLabel;
Label29: TLabel;
Label30: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
Label34: TLabel;
Label25: TLabel;
Label31: TLabel;
Label32: TLabel;
Edit15: TEdit;
Edit17: TEdit;
Edit18: TEdit;
Edit19: TEdit;
Edit20: TEdit;
DateTimePicker2: TDateTimePicker;
ComboBox3: TComboBox;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit24: TEdit;
Edit25: TEdit;
Edit26: TEdit;
Edit27: TEdit;
Edit28: TEdit;
Edit16: TEdit;
Edit35: TEdit;
Edit36: TEdit;
Edit37: TEdit;
Edit38: TEdit;
GroupBox5: TGroupBox;
SpeedButton7: TSpeedButton;
SpeedButton12: TSpeedButton;
SpeedButton13: TSpeedButton;
SpeedButton14: TSpeedButton;
SpeedButton20: TSpeedButton;
StatusBar2: TStatusBar;
LV: TListView;
LV1: TListView;
QryTemp: TADOQuery;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton18Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton15Click(Sender: TObject);
procedure SpeedButton17Click(Sender: TObject);
procedure Edit13KeyPress(Sender: TObject; var Key: Char);
procedure Edit14KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton19Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SpeedButton11Click(Sender: TObject);
procedure Edit2KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit5KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SpeedButton1Click(Sender: TObject);
procedure Edit6KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit13KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit14KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure FormShow(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton14Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure Edit18KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure Edit15KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit20KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit24KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit25KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit16KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit17KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit19KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure SpeedButton20Click(Sender: TObject);
procedure Edit18Exit(Sender: TObject);
procedure Edit20Exit(Sender: TObject);
procedure Edit20KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton16Click(Sender: TObject);
procedure SpeedButton12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
jh_form: Tjh_form;
implementation
uses data_unit, jh_ghs_find_unit, jh_yg_find_unit, jh_sp_find_unit,
jh_jhdh_find_unit, jh_sfkfs_find_unit, jh_jhd_find_unit, jh_fk_find_unit,
main_unit;
{$R *.dfm}
procedure Tjh_form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action := cafree;
end;
procedure Tjh_form.SpeedButton18Click(Sender: TObject);
begin
close;
end;
procedure Tjh_form.FormCreate(Sender: TObject);
begin
self.Top := 74;
self.Left := 11;
self.Height := 491;
self.Width := 767;
pagecontrol1.ActivePage := tabsheet1;
datetimepicker1.date := date;
datetimepicker2.date := date;
end;
procedure Tjh_form.SpeedButton15Click(Sender: TObject);
var
SqlStr: string;
ValueArray: array of string;
ArrayCount: Integer;
begin
try
edit29.Text := floattostr(strtofloat(edit13.Text) *
strtofloat(edit14.Text));
edit30.Text := formatdatetime('yy-mm-dd', datetimepicker1.date);
edit33.Text := edit2.Text;
edit34.Text := formatdatetime('MM-dd-yy', datetimepicker1.date);
//进货单信息的录入
SqlStr :=
' insert into jhd(单据编码,录单日期,供货商名称,经手人,备注,商品简码,商品编码,商品名称,类别,规格,型号,单位,参考单价,数量,金额) values';
//通过函数InsStr把sql语句连接起来。组成一个完成的sql语句，通过ExceSql来完成添加操作。当增加操作失误时，返回事务处理。
FRMMAIN.InsStr(SqlStr, edit2.text, ',');
FRMMAIN.InsStr(SqlStr, edit30.Text, ',');
FRMMAIN.InsStr(SqlStr, edit3.text, ',');
FRMMAIN.InsStr(SqlStr, edit4.Text, ',');
FRMMAIN.InsStr(SqlStr, edit5.text, ',');
FRMMAIN.InsStr(SqlStr, edit6.Text, ',');
FRMMAIN.InsStr(SqlStr, edit7.text, ',');
FRMMAIN.InsStr(SqlStr, edit8.text, ',');
FRMMAIN.InsStr(SqlStr, edit9.text, ',');
FRMMAIN.InsStr(SqlStr, edit10.text, ',');
FRMMAIN.InsStr(SqlStr, edit11.text, ',');
FRMMAIN.InsStr(SqlStr, edit12.text, ',');
FRMMAIN.InsStr(SqlStr, edit13.text, ',');
FRMMAIN.InsStr(SqlStr, edit14.text, ',');
FRMMAIN.InsStr(SqlStr, edit29.text, '');
//通过ExecSQL来完成修改和增加操作。若是错误，提醒用户，并且返回事务处理
if FRMMAIN.ExecSQL(SqlStr) then
else
begin
ShowMessage('对不起，进货单插入记录失败，请检查!');
exit;
end;
SetLength(ValueArray, 12);
ValueArray[0] := edit2.text;
ValueArray[1] := edit30.text;
ValueArray[2] := edit3.text;
ValueArray[3] := edit4.text;
ValueArray[4] := edit5.text;
ValueArray[5] := edit6.Text;
ValueArray[6] := edit7.text;
ValueArray[7] := edit8.text;
ValueArray[8] := edit9.text;
ValueArray[9] := edit10.text;
ValueArray[10] := edit11.text;
ValueArray[11] := edit12.text;
ArrayCount := 11;
FrmMain.AddListView(ValueArray, ArrayCount, lv);
edit6.Clear;
edit7.Clear;
edit8.Clear;
edit9.Clear;
edit10.clear;
edit11.Clear;
edit12.clear;
edit13.Text := '0';
edit14.Text := '0';
datetimepicker1.date := date;
if (length(edit2.Text) <> 0) and (length(edit3.Text) <> 0) then
edit6.SetFocus;
except
showmessage('数据操作错误，请检查');
Exit;
end;
end;
procedure Tjh_form.SpeedButton17Click(Sender: TObject);
begin
if lv.Items.Count = 0 then
begin
ShowMessage('记录集为空,不能够删除');
exit;
end;
if LV.SelCount = 0 then
begin
ShowMessage('请选中一条要删除的记录');
exit;
end;
if MessageDlg('是否删除所选中的记录,请确定', mtConfirmation, [mbYes, mbNo], 0)
= mrYes then
begin
if FrmMain.ExecSQL('delete from jhd where 单据编码=''' + LV.Selected.Caption
+ '''') then
else
begin
ShowMessage('删除记录时操作失误,记录未删除,请检查');
exit;
end;
end;
LV.Selected.Delete;
end;
procedure Tjh_form.Edit13KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9', '.', #8, #13]) then
begin
showmessage('请正确输入数值');
key := #0;
edit13.SetFocus;
end;
end;
procedure Tjh_form.Edit14KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9', '.', #8, #13]) then
begin
showmessage('请正确输入数值');
key := #0;
edit14.SetFocus;
end;
end;
procedure Tjh_form.SpeedButton19Click(Sender: TObject);
begin
with database do
begin
adoq1.Connection := adoc;
adoq1.SQL.Clear;
adoq1.SQL.Add('select 单据编码,录单日期,供货商名称,经手人,备注,商品简码,商品编码,商品名称,类别,规格,型号,单位 from jhd order by 编号');
adoq1.Active := true;
FrmMain.AddData(LV, Adoq1);
statusbar1.Panels[1].Text := inttostr(adoq1.Recordset.RecordCount);
end;
end;
procedure Tjh_form.SpeedButton3Click(Sender: TObject);
begin
//showmessage(datetostr(date));
//edit2.Text :='JH'+'20'+copy(datetostr(date),1,2)+copy(datetostr(date),4,2)+copy(datetostr(date),7,2);
end;
procedure Tjh_form.SpeedButton10Click(Sender: TObject);
begin
jh_ghs_find_form := Tjh_ghs_find_form.create(application);
jh_ghs_find_form.show;
end;
procedure Tjh_form.Edit3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
speedbutton10click(nil);
end;
procedure Tjh_form.SpeedButton11Click(Sender: TObject);
begin
jh_yg_find_form := Tjh_yg_find_form.create(application);
jh_yg_find_form.show;
jh_yg_find_form.DBGrid1.Visible := true;
jh_yg_find_form.DBGrid2.Visible := false;
jh_yg_find_form.DBGrid3.Visible := false;
jh_yg_find_form.DBGrid4.Visible := false;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -