stdarc.~pas

针对商品与仓库存储商品等信息的管理及维护的管理软件。它能够辅助仓库管理人员对供应商信息、商品基本信息以及商品入库、出库、库存信息查询等进行控制管理

    MessageBox(application.Handle,'试用版只能录入20条学生纪录，要继续使用，请注册！谢谢合作','警告',
    mb_ICONWarning+mb_OK);
   exit;
   end;
  end;
 if MaindFrm.CheckPermission(UserID,'stdb002')=False then exit;
InsertMode;
MainDFrm.qutil.Append;
with MainDFrm do
begin
  qutil.FieldByName('bID').AsString := '';
  qutil.FieldByName('cID').AsString := '';
  qutil.FieldByName('bName').AsString := '';
  qutil.FieldByName('bGender').AsString := '男';
  qutil.FieldByName('bNation').AsString := '汉';
  qutil.FieldByName('bPolitic').AsString := '否';
  qutil.FieldByName('bFamily').AsString := '农民';
  qutil.FieldByName('bNative').AsString := '';
  qutil.FieldByName('bFaName').AsString := '';
  qutil.FieldByName('bWorkAddr').AsString := '';
  qutil.FieldByName('bFamAddr').AsString := '';
  qutil.FieldByName('bPost').AsString := '';
  qutil.FieldByName('bTel').AsString := '';
  qutil.FieldByName('bDate').AsString := DatetoStr(date);
  qutil.FieldByName('bBirth').AsString := '';
  qutil.FieldByName('bStatus').AsString := '在校';
  qutil.FieldByName('bResume').AsString := '';
  qutil.FieldByName('bMemo').AsString := '';
  qutil.FieldByName('bPhoto').AsVariant := '';
  qutil.FieldByName('bHobby').AsString := '';
  pagecontrol1.ActivePageIndex := 0;
  edit1.Text := '';
  dbbID.SetFocus;
 end;
end;

procedure TFrmbasic.BtnEditClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'stdb004')=False then exit;
MainDFrm.qutil.Edit;
//MainDFrm.qutil.ParamByName('bID').AsString := dbbID.DataField;

UpdateMode;
end;

procedure TFrmbasic.BtnYesClick(Sender: TObject);
begin
  if formmode = 'ins' then
  if MainDFrm.ChecktbID('Arcinfo','bID',dbbID.Text) then
  begin
   dbbID.SelectAll;
   dbbID.SetFocus;
   exit;
  end;
with MainDFrm do
begin
  try
    qutil.Post;
    qutil.Database.StartTransaction;
    qutil.ApplyUpdates;
    qutil.UpdateStatus;
    qutil.Database.Commit;
  except
  
    qutil.Database.Rollback;
    qutil.CancelUpdates;
    ShowMessage('存盘失败!');
  end;
end;

NormalMode;
 lbcount.Caption := ' '+inttostr(MaindFrm.qutil.RecordCount);
end;

procedure TFrmbasic.BtnCancelClick(Sender: TObject);
begin
if messagebox(0,'确定不更新本条数据？','提示',
mb_ICONInformation+mb_yesno+mb_defbutton2)= mryes then
begin
 MainDFrm.qutil.Cancel;
 NormalMode;
end;
end;

procedure TFrmbasic.BtnDelClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'stdb003')=False then exit;
normalmode;
if messagebox(Application.Handle,'如果您点确定键此条记录将被删除','警告',
mb_ICONWarning+mb_yesno+mb_defbutton2)= mryes then
with MainDFrm do
begin
//  qutil.ParamByName('bID').AsString := dbbID.Text;
   Uqutil.DeleteSQL.Clear;
   Uqutil.DeleteSQL.Add('DELETE FROM Arcinfo ');
   Uqutil.DeleteSQL.Add('WHERE bID ='''+dbbID.Text+'''');

  qutil.Delete;
  try
    qutil.Database.StartTransaction;
    qutil.ApplyUpdates;
    qutil.CommitUpdates;
    qutil.Database.Commit;
  except
    qutil.Database.Rollback;
    qutil.CancelUpdates;
    ShowMessage('存盘失败!');
  end;
lbcount.Caption := ' '+inttostr(MaindFrm.qutil.RecordCount);
end;

end;

procedure TFrmbasic.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
canClose := True;
if (formmode = 'ins') or (formmode = 'edt') then
begin
  MessageBox(application.Handle,'请先结束输入模式后再离开','警告',
  mb_ICONWarning+mb_OK);
  canClose := False;
end;
end;

procedure TFrmbasic.BtnCloseClick(Sender: TObject);
begin
Close;
end;

procedure TFrmbasic.ComboBox1Change(Sender: TObject);
begin
dbbGender.Text := combobox1.Text;
end;

procedure TFrmbasic.dbcIDChange(Sender: TObject);
var
 q1:Tquery;
begin
 q1 := TQuery.Create(self);
 try
   q1.DatabaseName := 'main';
   q1.SQL.Clear;
   q1.SQL.Add('SELECT * FROM Classinfo');
   q1.SQL.Add('WHERE cID='''+dbcID.Text+'''');
   q1.Close;
   q1.Open;
   if not q1.Eof then
   edit1.Text := q1.Fields.Fields[1].AsString;
 finally
   q1.Free;
 end;

end;

procedure TFrmbasic.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ACTION := CAFREE;
end;

procedure TFrmbasic.ComboBox2Change(Sender: TObject);
var
 q1:Tquery;
begin
 q1 := TQuery.Create(self);
 try
   q1.DatabaseName := 'main';
   q1.SQL.Clear;
   q1.SQL.Add('SELECT * FROM Classinfo');
   q1.SQL.Add('WHERE cClass='''+combobox2.Text+'''');
   q1.Close;
   q1.Open;
   if not q1.Eof then
   dbcID.Text := q1.Fields.Fields[0].AsString
   else dbcID.Text := '';
 finally
   q1.Free;
 end;
end;

procedure TFrmbasic.dbbGenderChange(Sender: TObject);
begin
 combobox1.Text:=dbbGender.Text;
end;

procedure TFrmbasic.dbbPoliticChange(Sender: TObject);
begin
boxpolitic.text := dbbPolitic.Text;
end;

procedure TFrmbasic.boxpoliticChange(Sender: TObject);
begin
dbbPolitic.Text := boxPolitic.Items[boxPolitic.itemindex];
end;

procedure TFrmbasic.dbbFamilyChange(Sender: TObject);
begin
boxFamily.text := dbbFamily.Text;
end;

procedure TFrmbasic.boxFamilyChange(Sender: TObject);
begin
dbbFamily.Text :=boxFamily.Items[boxFamily.itemindex];
end;

procedure TFrmbasic.dbbStatusChange(Sender: TObject);
begin
combobox3.Text := dbbStatus.Text;
end;

procedure TFrmbasic.ComboBox3Change(Sender: TObject);
begin
dbbStatus.Text := combobox3.Items[combobox3.itemindex];
end;

procedure TFrmbasic.SpeedButton2Click(Sender: TObject);
var
bid1,bid2,cid1,cid2,native,politic,folk,sat,nam:string;
Str:string;
begin
 bid1    := trim(edit2.Text);
 bid2    := trim(edit3.Text);
 cid1    := trim(combobox4.Items[combobox4.itemindex]);
 cid2    := trim(combobox5.Items[combobox5.itemindex]);
 native  := trim(edit4.Text);
 politic := trim(combo1.Text);
 folk    := trim(combo2.Text);
 sat     := trim(combo3.Text);
 nam     := edit5.text;
 str := '';
  if bid1 <>'' then
  str := str+ 'AND bID>='''+bid1+'''';
  if bid2 <> '' then
  str := str+ 'AND bID<='''+bid2+'''';
  if cid1 <> '' then
  str := str+ 'AND a.cID>='''+cid1+'''';
  if cid2 <> '' then
  str := str+ 'AND a.cID<='''+cid2+'''';
  if nam <> '' then
  str := str + 'AND bName='''+nam+'''';
  if native <> '' then
  str := str+'AND bNation='''+native+'''';
  if politic <> '' then
  str := str+'AND bPolitic='''+politic+'''';
  if folk <> '' then
  str := str+'AND bFamily='''+folk +'''';
  if sat <> '' then
  str := str +'AND bStatus='''+sat+'''';
  delete(str,1,4);
  with MainDFrm do
  begin
    qutil.SQL.Clear;
    qutil.SQL.Add('SELECT * FROM Arcinfo a inner join Classinfo b ');
    qutil.SQL.Add('on a.cID=b.cID ');
    if str <> '' then
    qutil.SQL.Add('where ' + str);
    Qutil.SQL.add('order by bID,a.cID');
    qutil.close;
    qutil.Open;
 lbquery.Caption := ' '+inttostr(MaindFrm.qutil.RecordCount);
  end;
end;

procedure TFrmbasic.dbbPhotoClick(Sender: TObject);
var
f : file of Byte;
size:int64;
begin
if OpenDialog1.Execute then
begin
 AssignFile(f,OpenDialog1.FileName);
 Reset(f);
 Size:= FileSize(f);
 CloseFile(f);
 if Size >1024000 then
 begin
  showmessage('载入相片不能大于10K，请检查相片是否正确');
  exit;
 end;
 dbbPhoto.Picture.LoadFromFile(OpenDialog1.FileName);
 end;
end;

procedure TFrmbasic.BtnSetClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'stdset')=False then exit;
  if not assigned(FrmRep) then
  Application.CreateForm(TFrmRep, FrmRep);
  FrmRep.Showmodal;

end;

procedure TFrmbasic.BtnPreviewClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'stdpre')=False then exit;
  if not assigned(FrmRep) then
  Application.CreateForm(TFrmRep, FrmRep);


end;

procedure TFrmbasic.BtnPrintClick(Sender: TObject);
begin
if MaindFrm.CheckPermission(UserID,'stdprint')=False then exit;

end;

procedure TFrmbasic.btnw1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TFrmbasic.PageControl1Change(Sender: TObject);
begin
//image1.Picture := DBphoto
end;

end.